(optimize_utf8): Add a note on why we test opr.ctx_type.
[kopensolaris-gnu/glibc.git] / nis / yp_xdr.c
1 /*
2  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
3  * unrestricted use provided that this legend is included on all tape
4  * media and as a part of the software program in whole or part.  Users
5  * may copy or modify Sun RPC without charge, but are not authorized
6  * to license or distribute it to anyone else except as part of a product or
7  * program developed by the user.
8  *
9  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
10  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
11  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
12  *
13  * Sun RPC is provided with no support and without any obligation on the
14  * part of Sun Microsystems, Inc. to assist in its use, correction,
15  * modification or enhancement.
16  *
17  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
18  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
19  * OR ANY PART THEREOF.
20  *
21  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
22  * or profits or other special, indirect and consequential damages, even if
23  * Sun has been advised of the possibility of such damages.
24  *
25  * Sun Microsystems, Inc.
26  * 2550 Garcia Avenue
27  * Mountain View, California  94043
28  */
29
30 #include <rpcsvc/yp.h>
31 #include <rpcsvc/ypclnt.h>
32
33 bool_t
34 xdr_ypstat (XDR *xdrs, ypstat *objp)
35 {
36   return xdr_enum (xdrs, (enum_t *) objp);
37 }
38 libnsl_hidden_def (xdr_ypstat)
39
40 bool_t
41 xdr_ypxfrstat (XDR *xdrs, ypxfrstat *objp)
42 {
43   return xdr_enum (xdrs, (enum_t *) objp);
44 }
45 libnsl_hidden_def (xdr_ypxfrstat)
46
47 bool_t
48 xdr_domainname (XDR *xdrs, domainname *objp)
49 {
50   return xdr_string (xdrs, objp, ~0);
51 }
52 libnsl_hidden_def (xdr_domainname)
53
54 bool_t
55 xdr_mapname (XDR *xdrs, mapname *objp)
56 {
57   return xdr_string (xdrs, objp, ~0);
58 }
59 libnsl_hidden_def (xdr_mapname)
60
61 bool_t
62 xdr_peername (XDR *xdrs, peername *objp)
63 {
64   return xdr_string (xdrs, objp, ~0);
65 }
66 libnsl_hidden_def (xdr_peername)
67
68 bool_t
69 xdr_keydat (XDR *xdrs, keydat *objp)
70 {
71   return xdr_bytes (xdrs, (char **) &objp->keydat_val,
72                     (u_int *) &objp->keydat_len, ~0);
73 }
74 libnsl_hidden_def (xdr_keydat)
75
76 bool_t
77 xdr_valdat (XDR *xdrs, valdat *objp)
78 {
79   return xdr_bytes (xdrs, (char **) &objp->valdat_val,
80                     (u_int *) &objp->valdat_len, ~0);
81 }
82 libnsl_hidden_def (xdr_valdat)
83
84 bool_t
85 xdr_ypmap_parms (XDR *xdrs, ypmap_parms *objp)
86 {
87   if (!xdr_domainname (xdrs, &objp->domain))
88     return FALSE;
89   if (!xdr_mapname (xdrs, &objp->map))
90     return FALSE;
91   if (!xdr_u_int (xdrs, &objp->ordernum))
92     return FALSE;
93   return xdr_peername (xdrs, &objp->peer);
94 }
95 libnsl_hidden_def (xdr_ypmap_parms)
96
97 bool_t
98 xdr_ypreq_key (XDR *xdrs, ypreq_key *objp)
99 {
100   if (!xdr_domainname (xdrs, &objp->domain))
101     return FALSE;
102   if (!xdr_mapname (xdrs, &objp->map))
103     return FALSE;
104   return xdr_keydat (xdrs, &objp->key);
105 }
106 libnsl_hidden_def (xdr_ypreq_key)
107
108 bool_t
109 xdr_ypreq_nokey (XDR *xdrs, ypreq_nokey *objp)
110 {
111   if (!xdr_domainname (xdrs, &objp->domain))
112     return FALSE;
113   return xdr_mapname (xdrs, &objp->map);
114 }
115 libnsl_hidden_def (xdr_ypreq_nokey)
116
117 bool_t
118 xdr_ypreq_xfr (XDR *xdrs, ypreq_xfr *objp)
119 {
120   if (!xdr_ypmap_parms (xdrs, &objp->map_parms))
121     return FALSE;
122   if (!xdr_u_int (xdrs, &objp->transid))
123     return FALSE;
124   if (!xdr_u_int (xdrs, &objp->prog))
125     return FALSE;
126   return xdr_u_int (xdrs, &objp->port);
127 }
128
129 bool_t
130 xdr_ypresp_val (XDR *xdrs, ypresp_val *objp)
131 {
132   if (!xdr_ypstat (xdrs, &objp->stat))
133     return FALSE;
134   return xdr_valdat (xdrs, &objp->val);
135 }
136 libnsl_hidden_def (xdr_ypresp_val)
137
138 bool_t
139 xdr_ypresp_key_val (XDR *xdrs, ypresp_key_val *objp)
140 {
141   if (!xdr_ypstat (xdrs, &objp->stat))
142     return FALSE;
143   if (!xdr_valdat (xdrs, &objp->val))
144     return FALSE;
145   return xdr_keydat (xdrs, &objp->key);
146 }
147 libnsl_hidden_def (xdr_ypresp_key_val)
148
149 bool_t
150 xdr_ypresp_master (XDR *xdrs, ypresp_master *objp)
151 {
152   if (!xdr_ypstat (xdrs, &objp->stat))
153     return FALSE;
154   return xdr_peername (xdrs, &objp->peer);
155 }
156 libnsl_hidden_def (xdr_ypresp_master)
157
158 bool_t
159 xdr_ypresp_order (XDR *xdrs, ypresp_order *objp)
160 {
161   if (!xdr_ypstat (xdrs, &objp->stat))
162     return FALSE;
163   return xdr_u_int (xdrs, &objp->ordernum);
164 }
165 libnsl_hidden_def (xdr_ypresp_order)
166
167 bool_t
168 xdr_ypresp_all (XDR *xdrs, ypresp_all *objp)
169 {
170   if (!xdr_bool (xdrs, &objp->more))
171     return FALSE;
172   switch (objp->more)
173     {
174     case TRUE:
175       return xdr_ypresp_key_val (xdrs, &objp->ypresp_all_u.val);
176     case FALSE:
177       break;
178     default:
179       return FALSE;
180     }
181   return TRUE;
182 }
183 libnsl_hidden_def (xdr_ypresp_all)
184
185 bool_t
186 xdr_ypresp_xfr (XDR *xdrs, ypresp_xfr *objp)
187 {
188   if (!xdr_u_int (xdrs, &objp->transid))
189     return FALSE;
190   return xdr_ypxfrstat (xdrs, &objp->xfrstat);
191 }
192
193 bool_t
194 xdr_ypmaplist (XDR *xdrs, ypmaplist *objp)
195 {
196   if (!xdr_mapname (xdrs, &objp->map))
197     return FALSE;
198   /* Prevent gcc warning about alias violation.  */
199   char **tp = (void *) &objp->next;
200   return xdr_pointer (xdrs, tp, sizeof (ypmaplist), (xdrproc_t) xdr_ypmaplist);
201 }
202 libnsl_hidden_def (xdr_ypmaplist)
203
204 bool_t
205 xdr_ypresp_maplist (XDR *xdrs, ypresp_maplist *objp)
206 {
207   if (!xdr_ypstat (xdrs, &objp->stat))
208     return FALSE;
209   /* Prevent gcc warning about alias violation.  */
210   char **tp = (void *) &objp->maps;
211   return xdr_pointer (xdrs, tp, sizeof (ypmaplist), (xdrproc_t) xdr_ypmaplist);
212 }
213 libnsl_hidden_def (xdr_ypresp_maplist)
214
215 bool_t
216 xdr_yppush_status (XDR *xdrs, yppush_status *objp)
217 {
218   return xdr_enum (xdrs, (enum_t *) objp);
219 }
220 libnsl_hidden_def (xdr_yppush_status)
221
222 bool_t
223 xdr_yppushresp_xfr (XDR *xdrs, yppushresp_xfr *objp)
224 {
225   if (!xdr_u_int (xdrs, &objp->transid))
226     return FALSE;
227   return xdr_yppush_status (xdrs, &objp->status);
228 }
229
230 bool_t
231 xdr_ypbind_resptype (XDR *xdrs, ypbind_resptype *objp)
232 {
233   return xdr_enum (xdrs, (enum_t *) objp);
234 }
235 libnsl_hidden_def (xdr_ypbind_resptype)
236
237 bool_t
238 xdr_ypbind_binding (XDR *xdrs, ypbind_binding *objp)
239 {
240   if (!xdr_opaque (xdrs, objp->ypbind_binding_addr, 4))
241     return FALSE;
242   return xdr_opaque (xdrs, objp->ypbind_binding_port, 2);
243 }
244 libnsl_hidden_def (xdr_ypbind_binding)
245
246 bool_t
247 xdr_ypbind_resp (XDR *xdrs, ypbind_resp *objp)
248 {
249   if (!xdr_ypbind_resptype (xdrs, &objp->ypbind_status))
250     return FALSE;
251   switch (objp->ypbind_status)
252     {
253     case YPBIND_FAIL_VAL:
254       return xdr_u_int (xdrs, &objp->ypbind_resp_u.ypbind_error);
255     case YPBIND_SUCC_VAL:
256       return xdr_ypbind_binding (xdrs, &objp->ypbind_resp_u.ypbind_bindinfo);
257     }
258   return FALSE;
259 }
260 libnsl_hidden_def (xdr_ypbind_resp)
261
262 bool_t
263 xdr_ypbind_setdom (XDR *xdrs, ypbind_setdom *objp)
264 {
265   if (!xdr_domainname (xdrs, &objp->ypsetdom_domain))
266     return FALSE;
267   if (!xdr_ypbind_binding (xdrs, &objp->ypsetdom_binding))
268     return FALSE;
269   return xdr_u_int (xdrs, &objp->ypsetdom_vers);
270 }
271
272 bool_t
273 xdr_ypall(XDR *xdrs, struct ypall_callback *incallback)
274 {
275     struct ypresp_key_val out;
276     char key[YPMAXRECORD], val[YPMAXRECORD];
277
278     /*
279      * Set up key/val struct to be used during the transaction.
280      */
281     memset(&out, 0, sizeof out);
282     out.key.keydat_val = key;
283     out.key.keydat_len = sizeof(key);
284     out.val.valdat_val = val;
285     out.val.valdat_len = sizeof(val);
286
287     for (;;) {
288         bool_t more, status;
289
290         /* Values pending? */
291         if (!xdr_bool(xdrs, &more))
292             return FALSE;           /* can't tell! */
293         if (!more)
294             return TRUE;            /* no more */
295
296         /* Transfer key/value pair. */
297         status = xdr_ypresp_key_val(xdrs, &out);
298
299         /*
300          * If we succeeded, call the callback function.
301          * The callback will return TRUE when it wants
302          * no more values.  If we fail, indicate the
303          * error.
304          */
305         if (status) {
306             if ((*incallback->foreach)(out.stat,
307                                        (char *)out.key.keydat_val, out.key.keydat_len,
308                                        (char *)out.val.valdat_val, out.val.valdat_len,
309                                        incallback->data))
310                 return TRUE;
311         } else
312             return FALSE;
313     }
314 }