1 551445b9 2004-04-21 devnull #include <u.h>
2 551445b9 2004-04-21 devnull #include <libc.h>
3 551445b9 2004-04-21 devnull #include <thread.h>
4 551445b9 2004-04-21 devnull #include <sunrpc.h>
7 551445b9 2004-04-21 devnull * RPC protocol constants
11 551445b9 2004-04-21 devnull RpcVersion = 2,
13 551445b9 2004-04-21 devnull /* msg type */
14 551445b9 2004-04-21 devnull MsgCall = 0,
15 551445b9 2004-04-21 devnull MsgReply = 1,
17 551445b9 2004-04-21 devnull /* reply stat */
18 551445b9 2004-04-21 devnull MsgAccepted = 0,
19 551445b9 2004-04-21 devnull MsgDenied = 1,
21 551445b9 2004-04-21 devnull /* accept stat */
22 551445b9 2004-04-21 devnull MsgSuccess = 0,
23 551445b9 2004-04-21 devnull MsgProgUnavail = 1,
24 551445b9 2004-04-21 devnull MsgProgMismatch = 2,
25 551445b9 2004-04-21 devnull MsgProcUnavail = 3,
26 551445b9 2004-04-21 devnull MsgGarbageArgs = 4,
27 551445b9 2004-04-21 devnull MsgSystemErr = 5,
29 551445b9 2004-04-21 devnull /* reject stat */
30 551445b9 2004-04-21 devnull MsgRpcMismatch = 0,
31 551445b9 2004-04-21 devnull MsgAuthError = 1,
33 551445b9 2004-04-21 devnull /* msg auth xxx */
34 551445b9 2004-04-21 devnull MsgAuthOk = 0,
35 551445b9 2004-04-21 devnull MsgAuthBadCred = 1,
36 551445b9 2004-04-21 devnull MsgAuthRejectedCred = 2,
37 551445b9 2004-04-21 devnull MsgAuthBadVerf = 3,
38 551445b9 2004-04-21 devnull MsgAuthRejectedVerf = 4,
39 551445b9 2004-04-21 devnull MsgAuthTooWeak = 5,
40 551445b9 2004-04-21 devnull MsgAuthInvalidResp = 6,
41 cbeb0b26 2006-04-01 devnull MsgAuthFailed = 7
44 551445b9 2004-04-21 devnull SunStatus
45 551445b9 2004-04-21 devnull sunrpcpack(uchar *a, uchar *ea, uchar **pa, SunRpc *rpc)
47 551445b9 2004-04-21 devnull u32int x;
49 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, &rpc->xid) < 0)
50 551445b9 2004-04-21 devnull goto Err;
51 551445b9 2004-04-21 devnull if(rpc->iscall){
52 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=MsgCall, &x)) < 0
53 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, (x=RpcVersion, &x)) < 0
54 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &rpc->prog) < 0
55 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &rpc->vers) < 0
56 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &rpc->proc) < 0
57 551445b9 2004-04-21 devnull || sunauthinfopack(a, ea, &a, &rpc->cred) < 0
58 551445b9 2004-04-21 devnull || sunauthinfopack(a, ea, &a, &rpc->verf) < 0
59 551445b9 2004-04-21 devnull || sunfixedopaquepack(a, ea, &a, rpc->data, rpc->ndata) < 0)
60 551445b9 2004-04-21 devnull goto Err;
62 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=MsgReply, &x)) < 0)
63 551445b9 2004-04-21 devnull goto Err;
64 551445b9 2004-04-21 devnull switch(rpc->status&0xF0000){
66 551445b9 2004-04-21 devnull case SunAcceptError:
67 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=MsgAccepted, &x)) < 0
68 551445b9 2004-04-21 devnull || sunauthinfopack(a, ea, &a, &rpc->verf) < 0)
69 551445b9 2004-04-21 devnull goto Err;
71 4c06b8ee 2005-05-19 devnull case SunAuthError:
72 4c06b8ee 2005-05-19 devnull if(sunuint32pack(a, ea, &a, (x=MsgDenied, &x)) < 0
73 4c06b8ee 2005-05-19 devnull || sunuint32pack(a, ea, &a, (x=MsgAuthError, &x)) < 0)
74 4c06b8ee 2005-05-19 devnull goto Err;
77 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=MsgDenied, &x)) < 0)
78 551445b9 2004-04-21 devnull goto Err;
82 551445b9 2004-04-21 devnull switch(rpc->status){
83 551445b9 2004-04-21 devnull case SunSuccess:
84 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=MsgSuccess, &x)) < 0
85 551445b9 2004-04-21 devnull || sunfixedopaquepack(a, ea, &a, rpc->data, rpc->ndata) < 0)
86 551445b9 2004-04-21 devnull goto Err;
88 551445b9 2004-04-21 devnull case SunRpcMismatch:
89 551445b9 2004-04-21 devnull case SunProgMismatch:
90 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=rpc->status&0xFFFF, &x)) < 0
91 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &rpc->low) < 0
92 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &rpc->high) < 0)
93 551445b9 2004-04-21 devnull goto Err;
96 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=rpc->status&0xFFFF, &x)) < 0)
97 551445b9 2004-04-21 devnull goto Err;
102 551445b9 2004-04-21 devnull *pa = a;
103 551445b9 2004-04-21 devnull return SunSuccess;
106 551445b9 2004-04-21 devnull *pa = ea;
107 551445b9 2004-04-21 devnull return SunGarbageArgs;
111 551445b9 2004-04-21 devnull sunrpcsize(SunRpc *rpc)
116 551445b9 2004-04-21 devnull if(rpc->iscall){
117 551445b9 2004-04-21 devnull a += 5*4;
118 551445b9 2004-04-21 devnull a += sunauthinfosize(&rpc->cred);
119 551445b9 2004-04-21 devnull a += sunauthinfosize(&rpc->verf);
120 551445b9 2004-04-21 devnull a += sunfixedopaquesize(rpc->ndata);
123 551445b9 2004-04-21 devnull switch(rpc->status&0xF0000){
125 551445b9 2004-04-21 devnull case SunAcceptError:
126 551445b9 2004-04-21 devnull a += 4+sunauthinfosize(&rpc->verf);
128 4c06b8ee 2005-05-19 devnull case SunAuthError:
129 4c06b8ee 2005-05-19 devnull a += 4+4;
131 551445b9 2004-04-21 devnull default:
136 551445b9 2004-04-21 devnull switch(rpc->status){
137 551445b9 2004-04-21 devnull case SunSuccess:
138 551445b9 2004-04-21 devnull a += 4+sunfixedopaquesize(rpc->ndata);
140 551445b9 2004-04-21 devnull case SunRpcMismatch:
141 551445b9 2004-04-21 devnull case SunProgMismatch:
142 551445b9 2004-04-21 devnull a += 3*4;
144 551445b9 2004-04-21 devnull default:
148 551445b9 2004-04-21 devnull return a;
151 551445b9 2004-04-21 devnull SunStatus
152 551445b9 2004-04-21 devnull sunrpcunpack(uchar *a, uchar *ea, uchar **pa, SunRpc *rpc)
154 551445b9 2004-04-21 devnull u32int x;
156 551445b9 2004-04-21 devnull memset(rpc, 0, sizeof *rpc);
157 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->xid) < 0
158 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &x) < 0)
159 551445b9 2004-04-21 devnull goto Err;
161 551445b9 2004-04-21 devnull switch(x){
162 551445b9 2004-04-21 devnull default:
163 551445b9 2004-04-21 devnull goto Err;
164 551445b9 2004-04-21 devnull case MsgCall:
165 551445b9 2004-04-21 devnull rpc->iscall = 1;
166 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0 || x != RpcVersion
167 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->prog) < 0
168 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->vers) < 0
169 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->proc) < 0
170 551445b9 2004-04-21 devnull || sunauthinfounpack(a, ea, &a, &rpc->cred) < 0
171 551445b9 2004-04-21 devnull || sunauthinfounpack(a, ea, &a, &rpc->verf) < 0)
172 551445b9 2004-04-21 devnull goto Err;
173 551445b9 2004-04-21 devnull rpc->ndata = ea-a;
174 551445b9 2004-04-21 devnull rpc->data = a;
178 551445b9 2004-04-21 devnull case MsgReply:
179 551445b9 2004-04-21 devnull rpc->iscall = 0;
180 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
181 551445b9 2004-04-21 devnull goto Err;
182 4c06b8ee 2005-05-19 devnull fprint(2, "x %x\n", x);
183 551445b9 2004-04-21 devnull switch(x){
184 551445b9 2004-04-21 devnull default:
185 551445b9 2004-04-21 devnull goto Err;
186 551445b9 2004-04-21 devnull case MsgAccepted:
187 551445b9 2004-04-21 devnull if(sunauthinfounpack(a, ea, &a, &rpc->verf) < 0
188 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &x) < 0)
189 551445b9 2004-04-21 devnull goto Err;
190 551445b9 2004-04-21 devnull switch(x){
191 551445b9 2004-04-21 devnull case MsgSuccess:
192 551445b9 2004-04-21 devnull rpc->status = SunSuccess;
193 551445b9 2004-04-21 devnull rpc->ndata = ea-a;
194 551445b9 2004-04-21 devnull rpc->data = a;
197 551445b9 2004-04-21 devnull case MsgProgUnavail:
198 551445b9 2004-04-21 devnull case MsgProcUnavail:
199 551445b9 2004-04-21 devnull case MsgGarbageArgs:
200 551445b9 2004-04-21 devnull case MsgSystemErr:
201 551445b9 2004-04-21 devnull rpc->status = SunAcceptError | x;
203 551445b9 2004-04-21 devnull case MsgProgMismatch:
204 551445b9 2004-04-21 devnull rpc->status = SunAcceptError | x;
205 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->low) < 0
206 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->high) < 0)
207 551445b9 2004-04-21 devnull goto Err;
211 551445b9 2004-04-21 devnull case MsgDenied:
212 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
213 551445b9 2004-04-21 devnull goto Err;
214 4c06b8ee 2005-05-19 devnull fprint(2, "xx %ux\n", x);
215 551445b9 2004-04-21 devnull switch(x){
216 551445b9 2004-04-21 devnull default:
217 551445b9 2004-04-21 devnull goto Err;
218 551445b9 2004-04-21 devnull case MsgAuthError:
219 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
220 551445b9 2004-04-21 devnull goto Err;
221 551445b9 2004-04-21 devnull rpc->status = SunAuthError | x;
223 551445b9 2004-04-21 devnull case MsgRpcMismatch:
224 551445b9 2004-04-21 devnull rpc->status = SunRejectError | x;
225 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->low) < 0
226 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->high) < 0)
227 551445b9 2004-04-21 devnull goto Err;
233 551445b9 2004-04-21 devnull *pa = a;
234 551445b9 2004-04-21 devnull return SunSuccess;
237 551445b9 2004-04-21 devnull *pa = ea;
238 551445b9 2004-04-21 devnull return SunGarbageArgs;
242 551445b9 2004-04-21 devnull sunrpcprint(Fmt *fmt, SunRpc *rpc)
244 551445b9 2004-04-21 devnull fmtprint(fmt, "xid=%#ux", rpc->xid);
245 551445b9 2004-04-21 devnull if(rpc->iscall){
246 551445b9 2004-04-21 devnull fmtprint(fmt, " prog %#ux vers %#ux proc %#ux [", rpc->prog, rpc->vers, rpc->proc);
247 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->cred);
248 551445b9 2004-04-21 devnull fmtprint(fmt, "] [");
249 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->verf);
250 551445b9 2004-04-21 devnull fmtprint(fmt, "]");
252 551445b9 2004-04-21 devnull fmtprint(fmt, " status %#ux [", rpc->status);
253 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->verf);
254 551445b9 2004-04-21 devnull fmtprint(fmt, "] low %#ux high %#ux", rpc->low, rpc->high);
259 551445b9 2004-04-21 devnull sunauthinfoprint(Fmt *fmt, SunAuthInfo *ai)
261 551445b9 2004-04-21 devnull switch(ai->flavor){
262 551445b9 2004-04-21 devnull case SunAuthNone:
263 551445b9 2004-04-21 devnull fmtprint(fmt, "none");
265 551445b9 2004-04-21 devnull case SunAuthShort:
266 551445b9 2004-04-21 devnull fmtprint(fmt, "short");
268 551445b9 2004-04-21 devnull case SunAuthSys:
269 551445b9 2004-04-21 devnull fmtprint(fmt, "sys");
271 551445b9 2004-04-21 devnull default:
272 551445b9 2004-04-21 devnull fmtprint(fmt, "%#ux", ai->flavor);
275 cbeb0b26 2006-04-01 devnull /* if(ai->ndata) */
276 cbeb0b26 2006-04-01 devnull /* fmtprint(fmt, " %.*H", ai->ndata, ai->data); */
280 551445b9 2004-04-21 devnull sunauthinfosize(SunAuthInfo *ai)
282 551445b9 2004-04-21 devnull return 4 + sunvaropaquesize(ai->ndata);
286 551445b9 2004-04-21 devnull sunauthinfopack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
288 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, &ai->flavor) < 0
289 551445b9 2004-04-21 devnull || sunvaropaquepack(a, ea, &a, &ai->data, &ai->ndata, 400) < 0)
290 551445b9 2004-04-21 devnull goto Err;
291 551445b9 2004-04-21 devnull *pa = a;
292 551445b9 2004-04-21 devnull return 0;
295 551445b9 2004-04-21 devnull *pa = ea;
296 551445b9 2004-04-21 devnull return -1;
300 551445b9 2004-04-21 devnull sunauthinfounpack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
302 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &ai->flavor) < 0
303 551445b9 2004-04-21 devnull || sunvaropaqueunpack(a, ea, &a, &ai->data, &ai->ndata, 400) < 0)
304 551445b9 2004-04-21 devnull goto Err;
305 551445b9 2004-04-21 devnull *pa = a;
306 551445b9 2004-04-21 devnull return 0;
309 551445b9 2004-04-21 devnull *pa = ea;
310 551445b9 2004-04-21 devnull return -1;
314 551445b9 2004-04-21 devnull sunenumpack(uchar *a, uchar *ea, uchar **pa, int *e)
316 551445b9 2004-04-21 devnull u32int x;
319 551445b9 2004-04-21 devnull return sunuint32pack(a, ea, pa, &x);
323 551445b9 2004-04-21 devnull sunuint1pack(uchar *a, uchar *ea, uchar **pa, u1int *u)
325 551445b9 2004-04-21 devnull u32int x;
328 551445b9 2004-04-21 devnull return sunuint32pack(a, ea, pa, &x);
332 551445b9 2004-04-21 devnull sunuint32pack(uchar *a, uchar *ea, uchar **pa, u32int *u)
334 551445b9 2004-04-21 devnull u32int x;
336 551445b9 2004-04-21 devnull if(ea-a < 4)
337 551445b9 2004-04-21 devnull goto Err;
340 551445b9 2004-04-21 devnull *a++ = x>>24;
341 551445b9 2004-04-21 devnull *a++ = x>>16;
342 551445b9 2004-04-21 devnull *a++ = x>>8;
343 551445b9 2004-04-21 devnull *a++ = x;
344 551445b9 2004-04-21 devnull *pa = a;
345 551445b9 2004-04-21 devnull return 0;
348 551445b9 2004-04-21 devnull *pa = ea;
349 551445b9 2004-04-21 devnull return -1;
353 551445b9 2004-04-21 devnull sunenumunpack(uchar *a, uchar *ea, uchar **pa, int *e)
355 551445b9 2004-04-21 devnull u32int x;
356 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, pa, &x) < 0)
357 551445b9 2004-04-21 devnull return -1;
359 551445b9 2004-04-21 devnull return 0;
363 551445b9 2004-04-21 devnull sunuint1unpack(uchar *a, uchar *ea, uchar **pa, u1int *u)
365 551445b9 2004-04-21 devnull u32int x;
366 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, pa, &x) < 0 || (x!=0 && x!=1)){
367 551445b9 2004-04-21 devnull *pa = ea;
368 551445b9 2004-04-21 devnull return -1;
371 551445b9 2004-04-21 devnull return 0;
375 551445b9 2004-04-21 devnull sunuint32unpack(uchar *a, uchar *ea, uchar **pa, u32int *u)
377 551445b9 2004-04-21 devnull u32int x;
379 551445b9 2004-04-21 devnull if(ea-a < 4)
380 551445b9 2004-04-21 devnull goto Err;
381 551445b9 2004-04-21 devnull x = *a++ << 24;
382 551445b9 2004-04-21 devnull x |= *a++ << 16;
383 551445b9 2004-04-21 devnull x |= *a++ << 8;
384 551445b9 2004-04-21 devnull x |= *a++;
385 551445b9 2004-04-21 devnull *pa = a;
387 551445b9 2004-04-21 devnull return 0;
390 551445b9 2004-04-21 devnull *pa = ea;
391 551445b9 2004-04-21 devnull return -1;
395 551445b9 2004-04-21 devnull sunuint64unpack(uchar *a, uchar *ea, uchar **pa, u64int *u)
397 551445b9 2004-04-21 devnull u32int x, y;
399 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0
400 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &y) < 0)
401 551445b9 2004-04-21 devnull goto Err;
402 551445b9 2004-04-21 devnull *u = ((uvlong)x<<32) | y;
403 551445b9 2004-04-21 devnull *pa = a;
404 551445b9 2004-04-21 devnull return 0;
406 551445b9 2004-04-21 devnull *pa = ea;
407 551445b9 2004-04-21 devnull return -1;
411 551445b9 2004-04-21 devnull sunuint64pack(uchar *a, uchar *ea, uchar **pa, u64int *u)
413 551445b9 2004-04-21 devnull u32int x, y;
415 551445b9 2004-04-21 devnull x = *u >> 32;
417 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, &x) < 0
418 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &y) < 0)
419 551445b9 2004-04-21 devnull goto Err;
420 551445b9 2004-04-21 devnull *pa = a;
421 551445b9 2004-04-21 devnull return 0;
423 551445b9 2004-04-21 devnull *pa = ea;
424 551445b9 2004-04-21 devnull return -1;
428 551445b9 2004-04-21 devnull sunstringsize(char *s)
430 551445b9 2004-04-21 devnull return (4+strlen(s)+3) & ~3;
434 551445b9 2004-04-21 devnull sunstringunpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
436 551445b9 2004-04-21 devnull uchar *dat;
437 551445b9 2004-04-21 devnull u32int n;
439 551445b9 2004-04-21 devnull if(sunvaropaqueunpack(a, ea, pa, &dat, &n, max) < 0)
440 551445b9 2004-04-21 devnull goto Err;
441 551445b9 2004-04-21 devnull /* slide string down over length to make room for NUL */
443 1e22e8e4 2006-05-04 devnull memmove(dat, dat+1, n);
444 1e22e8e4 2006-05-04 devnull dat[n] = 0;
445 1e22e8e4 2006-05-04 devnull *s = (char*)dat;
446 551445b9 2004-04-21 devnull return 0;
448 551445b9 2004-04-21 devnull return -1;
452 551445b9 2004-04-21 devnull sunstringpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
454 551445b9 2004-04-21 devnull u32int n;
456 551445b9 2004-04-21 devnull n = strlen(*s);
457 551445b9 2004-04-21 devnull return sunvaropaquepack(a, ea, pa, (uchar**)s, &n, max);
461 551445b9 2004-04-21 devnull sunvaropaquesize(u32int n)
463 551445b9 2004-04-21 devnull return (4+n+3) & ~3;
467 551445b9 2004-04-21 devnull sunvaropaquepack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
469 551445b9 2004-04-21 devnull if(*ndat > max || sunuint32pack(a, ea, &a, ndat) < 0
470 551445b9 2004-04-21 devnull || sunfixedopaquepack(a, ea, &a, *dat, *ndat) < 0)
471 551445b9 2004-04-21 devnull goto Err;
472 551445b9 2004-04-21 devnull *pa = a;
473 551445b9 2004-04-21 devnull return 0;
476 551445b9 2004-04-21 devnull *pa = ea;
477 551445b9 2004-04-21 devnull return -1;
481 551445b9 2004-04-21 devnull sunvaropaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
483 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, ndat) < 0
484 551445b9 2004-04-21 devnull || *ndat > max)
485 551445b9 2004-04-21 devnull goto Err;
486 551445b9 2004-04-21 devnull *dat = a;
487 551445b9 2004-04-21 devnull a += (*ndat+3)&~3;
488 551445b9 2004-04-21 devnull if(a > ea)
489 551445b9 2004-04-21 devnull goto Err;
490 551445b9 2004-04-21 devnull *pa = a;
491 551445b9 2004-04-21 devnull return 0;
494 551445b9 2004-04-21 devnull *pa = ea;
495 551445b9 2004-04-21 devnull return -1;
499 551445b9 2004-04-21 devnull sunfixedopaquesize(u32int n)
501 551445b9 2004-04-21 devnull return (n+3) & ~3;
505 551445b9 2004-04-21 devnull sunfixedopaquepack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
507 551445b9 2004-04-21 devnull uint nn;
509 551445b9 2004-04-21 devnull nn = (n+3)&~3;
510 551445b9 2004-04-21 devnull if(a+nn > ea)
511 551445b9 2004-04-21 devnull goto Err;
512 551445b9 2004-04-21 devnull memmove(a, dat, n);
513 551445b9 2004-04-21 devnull if(nn > n)
514 551445b9 2004-04-21 devnull memset(a+n, 0, nn-n);
515 551445b9 2004-04-21 devnull a += nn;
516 551445b9 2004-04-21 devnull *pa = a;
517 551445b9 2004-04-21 devnull return 0;
520 551445b9 2004-04-21 devnull *pa = ea;
521 551445b9 2004-04-21 devnull return -1;
525 551445b9 2004-04-21 devnull sunfixedopaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
527 551445b9 2004-04-21 devnull uint nn;
529 551445b9 2004-04-21 devnull nn = (n+3)&~3;
530 551445b9 2004-04-21 devnull if(a+nn > ea)
531 551445b9 2004-04-21 devnull goto Err;
532 551445b9 2004-04-21 devnull memmove(dat, a, n);
533 551445b9 2004-04-21 devnull a += nn;
534 551445b9 2004-04-21 devnull *pa = a;
535 551445b9 2004-04-21 devnull return 0;
538 551445b9 2004-04-21 devnull *pa = ea;
539 551445b9 2004-04-21 devnull return -1;