7 * RPC protocol constants
36 MsgAuthRejectedCred = 2,
38 MsgAuthRejectedVerf = 4,
40 MsgAuthInvalidResp = 6,
45 sunrpcpack(uchar *a, uchar *ea, uchar **pa, SunRpc *rpc)
49 if(sunuint32pack(a, ea, &a, &rpc->xid) < 0)
52 if(sunuint32pack(a, ea, &a, (x=MsgCall, &x)) < 0
53 || sunuint32pack(a, ea, &a, (x=RpcVersion, &x)) < 0
54 || sunuint32pack(a, ea, &a, &rpc->prog) < 0
55 || sunuint32pack(a, ea, &a, &rpc->vers) < 0
56 || sunuint32pack(a, ea, &a, &rpc->proc) < 0
57 || sunauthinfopack(a, ea, &a, &rpc->cred) < 0
58 || sunauthinfopack(a, ea, &a, &rpc->verf) < 0
59 || sunfixedopaquepack(a, ea, &a, rpc->data, rpc->ndata) < 0)
62 if(sunuint32pack(a, ea, &a, (x=MsgReply, &x)) < 0)
64 switch(rpc->status&0xF0000){
67 if(sunuint32pack(a, ea, &a, (x=MsgAccepted, &x)) < 0
68 || sunauthinfopack(a, ea, &a, &rpc->verf) < 0)
72 if(sunuint32pack(a, ea, &a, (x=MsgDenied, &x)) < 0)
79 if(sunuint32pack(a, ea, &a, (x=MsgSuccess, &x)) < 0
80 || sunfixedopaquepack(a, ea, &a, rpc->data, rpc->ndata) < 0)
85 if(sunuint32pack(a, ea, &a, (x=rpc->status&0xFFFF, &x)) < 0
86 || sunuint32pack(a, ea, &a, &rpc->low) < 0
87 || sunuint32pack(a, ea, &a, &rpc->high) < 0)
91 if(sunuint32pack(a, ea, &a, (x=rpc->status&0xFFFF, &x)) < 0)
101 return SunGarbageArgs;
105 sunrpcsize(SunRpc *rpc)
112 a += sunauthinfosize(&rpc->cred);
113 a += sunauthinfosize(&rpc->verf);
114 a += sunfixedopaquesize(rpc->ndata);
117 switch(rpc->status&0xF0000){
120 a += 4+sunauthinfosize(&rpc->verf);
129 a += 4+sunfixedopaquesize(rpc->ndata);
132 case SunProgMismatch:
142 sunrpcunpack(uchar *a, uchar *ea, uchar **pa, SunRpc *rpc)
146 memset(rpc, 0, sizeof *rpc);
147 if(sunuint32unpack(a, ea, &a, &rpc->xid) < 0
148 || sunuint32unpack(a, ea, &a, &x) < 0)
156 if(sunuint32unpack(a, ea, &a, &x) < 0 || x != RpcVersion
157 || sunuint32unpack(a, ea, &a, &rpc->prog) < 0
158 || sunuint32unpack(a, ea, &a, &rpc->vers) < 0
159 || sunuint32unpack(a, ea, &a, &rpc->proc) < 0
160 || sunauthinfounpack(a, ea, &a, &rpc->cred) < 0
161 || sunauthinfounpack(a, ea, &a, &rpc->verf) < 0)
170 if(sunuint32unpack(a, ea, &a, &x) < 0)
176 if(sunauthinfounpack(a, ea, &a, &rpc->verf) < 0
177 || sunuint32unpack(a, ea, &a, &x) < 0)
181 rpc->status = SunSuccess;
190 rpc->status = SunAcceptError | x;
192 case MsgProgMismatch:
193 rpc->status = SunAcceptError | x;
194 if(sunuint32unpack(a, ea, &a, &rpc->low) < 0
195 || sunuint32unpack(a, ea, &a, &rpc->high) < 0)
201 if(sunuint32unpack(a, ea, &a, &x) < 0)
207 if(sunuint32unpack(a, ea, &a, &x) < 0)
209 rpc->status = SunAuthError | x;
212 rpc->status = SunRejectError | x;
213 if(sunuint32unpack(a, ea, &a, &rpc->low) < 0
214 || sunuint32unpack(a, ea, &a, &rpc->high) < 0)
226 return SunGarbageArgs;
230 sunrpcprint(Fmt *fmt, SunRpc *rpc)
232 fmtprint(fmt, "xid=%#ux", rpc->xid);
234 fmtprint(fmt, " prog %#ux vers %#ux proc %#ux [", rpc->prog, rpc->vers, rpc->proc);
235 sunauthinfoprint(fmt, &rpc->cred);
236 fmtprint(fmt, "] [");
237 sunauthinfoprint(fmt, &rpc->verf);
240 fmtprint(fmt, " status %#ux [", rpc->status);
241 sunauthinfoprint(fmt, &rpc->verf);
242 fmtprint(fmt, "] low %#ux high %#ux", rpc->low, rpc->high);
247 sunauthinfoprint(Fmt *fmt, SunAuthInfo *ai)
251 fmtprint(fmt, "none");
254 fmtprint(fmt, "short");
257 fmtprint(fmt, "sys");
260 fmtprint(fmt, "%#ux", ai->flavor);
264 // fmtprint(fmt, " %.*H", ai->ndata, ai->data);
268 sunauthinfosize(SunAuthInfo *ai)
270 return 4 + sunvaropaquesize(ai->ndata);
274 sunauthinfopack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
276 if(sunuint32pack(a, ea, &a, &ai->flavor) < 0
277 || sunvaropaquepack(a, ea, &a, &ai->data, &ai->ndata, 400) < 0)
288 sunauthinfounpack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
290 if(sunuint32unpack(a, ea, &a, &ai->flavor) < 0
291 || sunvaropaqueunpack(a, ea, &a, &ai->data, &ai->ndata, 400) < 0)
302 sunenumpack(uchar *a, uchar *ea, uchar **pa, int *e)
307 return sunuint32pack(a, ea, pa, &x);
311 sunuint1pack(uchar *a, uchar *ea, uchar **pa, u1int *u)
316 return sunuint32pack(a, ea, pa, &x);
320 sunuint32pack(uchar *a, uchar *ea, uchar **pa, u32int *u)
341 sunenumunpack(uchar *a, uchar *ea, uchar **pa, int *e)
344 if(sunuint32unpack(a, ea, pa, &x) < 0)
351 sunuint1unpack(uchar *a, uchar *ea, uchar **pa, u1int *u)
354 if(sunuint32unpack(a, ea, pa, &x) < 0 || (x!=0 && x!=1)){
363 sunuint32unpack(uchar *a, uchar *ea, uchar **pa, u32int *u)
383 sunuint64unpack(uchar *a, uchar *ea, uchar **pa, u64int *u)
387 if(sunuint32unpack(a, ea, &a, &x) < 0
388 || sunuint32unpack(a, ea, &a, &y) < 0)
390 *u = ((uvlong)x<<32) | y;
399 sunuint64pack(uchar *a, uchar *ea, uchar **pa, u64int *u)
405 if(sunuint32pack(a, ea, &a, &x) < 0
406 || sunuint32pack(a, ea, &a, &y) < 0)
416 sunstringsize(char *s)
418 return (4+strlen(s)+3) & ~3;
422 sunstringunpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
427 if(sunvaropaqueunpack(a, ea, pa, &dat, &n, max) < 0)
429 /* slide string down over length to make room for NUL */
430 memmove(dat-1, dat, n);
439 sunstringpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
444 return sunvaropaquepack(a, ea, pa, (uchar**)s, &n, max);
448 sunvaropaquesize(u32int n)
454 sunvaropaquepack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
456 if(*ndat > max || sunuint32pack(a, ea, &a, ndat) < 0
457 || sunfixedopaquepack(a, ea, &a, *dat, *ndat) < 0)
468 sunvaropaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
470 if(sunuint32unpack(a, ea, &a, ndat) < 0
486 sunfixedopaquesize(u32int n)
492 sunfixedopaquepack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
501 memset(a+n, 0, nn-n);
512 sunfixedopaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)