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 551445b9 2004-04-21 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;
143 551445b9 2004-04-21 devnull default:
147 551445b9 2004-04-21 devnull return a;
150 551445b9 2004-04-21 devnull SunStatus
151 551445b9 2004-04-21 devnull sunrpcunpack(uchar *a, uchar *ea, uchar **pa, SunRpc *rpc)
153 551445b9 2004-04-21 devnull u32int x;
155 551445b9 2004-04-21 devnull memset(rpc, 0, sizeof *rpc);
156 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->xid) < 0
157 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &x) < 0)
158 551445b9 2004-04-21 devnull goto Err;
160 551445b9 2004-04-21 devnull switch(x){
161 551445b9 2004-04-21 devnull default:
162 551445b9 2004-04-21 devnull goto Err;
163 551445b9 2004-04-21 devnull case MsgCall:
164 551445b9 2004-04-21 devnull rpc->iscall = 1;
165 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0 || x != RpcVersion
166 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->prog) < 0
167 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->vers) < 0
168 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->proc) < 0
169 551445b9 2004-04-21 devnull || sunauthinfounpack(a, ea, &a, &rpc->cred) < 0
170 551445b9 2004-04-21 devnull || sunauthinfounpack(a, ea, &a, &rpc->verf) < 0)
171 551445b9 2004-04-21 devnull goto Err;
172 551445b9 2004-04-21 devnull rpc->ndata = ea-a;
173 551445b9 2004-04-21 devnull rpc->data = a;
177 551445b9 2004-04-21 devnull case MsgReply:
178 551445b9 2004-04-21 devnull rpc->iscall = 0;
179 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
180 551445b9 2004-04-21 devnull goto Err;
181 4c06b8ee 2005-05-19 devnull fprint(2, "x %x\n", x);
182 551445b9 2004-04-21 devnull switch(x){
183 551445b9 2004-04-21 devnull default:
184 551445b9 2004-04-21 devnull goto Err;
185 551445b9 2004-04-21 devnull case MsgAccepted:
186 551445b9 2004-04-21 devnull if(sunauthinfounpack(a, ea, &a, &rpc->verf) < 0
187 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &x) < 0)
188 551445b9 2004-04-21 devnull goto Err;
189 551445b9 2004-04-21 devnull switch(x){
190 551445b9 2004-04-21 devnull case MsgSuccess:
191 551445b9 2004-04-21 devnull rpc->status = SunSuccess;
192 551445b9 2004-04-21 devnull rpc->ndata = ea-a;
193 551445b9 2004-04-21 devnull rpc->data = a;
196 551445b9 2004-04-21 devnull case MsgProgUnavail:
197 551445b9 2004-04-21 devnull case MsgProcUnavail:
198 551445b9 2004-04-21 devnull case MsgGarbageArgs:
199 551445b9 2004-04-21 devnull case MsgSystemErr:
200 551445b9 2004-04-21 devnull rpc->status = SunAcceptError | x;
202 551445b9 2004-04-21 devnull case MsgProgMismatch:
203 551445b9 2004-04-21 devnull rpc->status = SunAcceptError | x;
204 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->low) < 0
205 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->high) < 0)
206 551445b9 2004-04-21 devnull goto Err;
210 551445b9 2004-04-21 devnull case MsgDenied:
211 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
212 551445b9 2004-04-21 devnull goto Err;
213 4c06b8ee 2005-05-19 devnull fprint(2, "xx %ux\n", x);
214 551445b9 2004-04-21 devnull switch(x){
215 551445b9 2004-04-21 devnull default:
216 551445b9 2004-04-21 devnull goto Err;
217 551445b9 2004-04-21 devnull case MsgAuthError:
218 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
219 551445b9 2004-04-21 devnull goto Err;
220 551445b9 2004-04-21 devnull rpc->status = SunAuthError | x;
222 551445b9 2004-04-21 devnull case MsgRpcMismatch:
223 551445b9 2004-04-21 devnull rpc->status = SunRejectError | x;
224 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->low) < 0
225 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->high) < 0)
226 551445b9 2004-04-21 devnull goto Err;
232 551445b9 2004-04-21 devnull *pa = a;
233 551445b9 2004-04-21 devnull return SunSuccess;
236 551445b9 2004-04-21 devnull *pa = ea;
237 551445b9 2004-04-21 devnull return SunGarbageArgs;
241 551445b9 2004-04-21 devnull sunrpcprint(Fmt *fmt, SunRpc *rpc)
243 551445b9 2004-04-21 devnull fmtprint(fmt, "xid=%#ux", rpc->xid);
244 551445b9 2004-04-21 devnull if(rpc->iscall){
245 551445b9 2004-04-21 devnull fmtprint(fmt, " prog %#ux vers %#ux proc %#ux [", rpc->prog, rpc->vers, rpc->proc);
246 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->cred);
247 551445b9 2004-04-21 devnull fmtprint(fmt, "] [");
248 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->verf);
249 551445b9 2004-04-21 devnull fmtprint(fmt, "]");
251 551445b9 2004-04-21 devnull fmtprint(fmt, " status %#ux [", rpc->status);
252 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->verf);
253 551445b9 2004-04-21 devnull fmtprint(fmt, "] low %#ux high %#ux", rpc->low, rpc->high);
258 551445b9 2004-04-21 devnull sunauthinfoprint(Fmt *fmt, SunAuthInfo *ai)
260 551445b9 2004-04-21 devnull switch(ai->flavor){
261 551445b9 2004-04-21 devnull case SunAuthNone:
262 551445b9 2004-04-21 devnull fmtprint(fmt, "none");
264 551445b9 2004-04-21 devnull case SunAuthShort:
265 551445b9 2004-04-21 devnull fmtprint(fmt, "short");
267 551445b9 2004-04-21 devnull case SunAuthSys:
268 551445b9 2004-04-21 devnull fmtprint(fmt, "sys");
270 551445b9 2004-04-21 devnull default:
271 551445b9 2004-04-21 devnull fmtprint(fmt, "%#ux", ai->flavor);
274 551445b9 2004-04-21 devnull // if(ai->ndata)
275 551445b9 2004-04-21 devnull // fmtprint(fmt, " %.*H", ai->ndata, ai->data);
279 551445b9 2004-04-21 devnull sunauthinfosize(SunAuthInfo *ai)
281 551445b9 2004-04-21 devnull return 4 + sunvaropaquesize(ai->ndata);
285 551445b9 2004-04-21 devnull sunauthinfopack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
287 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, &ai->flavor) < 0
288 551445b9 2004-04-21 devnull || sunvaropaquepack(a, ea, &a, &ai->data, &ai->ndata, 400) < 0)
289 551445b9 2004-04-21 devnull goto Err;
290 551445b9 2004-04-21 devnull *pa = a;
291 551445b9 2004-04-21 devnull return 0;
294 551445b9 2004-04-21 devnull *pa = ea;
295 551445b9 2004-04-21 devnull return -1;
299 551445b9 2004-04-21 devnull sunauthinfounpack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
301 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &ai->flavor) < 0
302 551445b9 2004-04-21 devnull || sunvaropaqueunpack(a, ea, &a, &ai->data, &ai->ndata, 400) < 0)
303 551445b9 2004-04-21 devnull goto Err;
304 551445b9 2004-04-21 devnull *pa = a;
305 551445b9 2004-04-21 devnull return 0;
308 551445b9 2004-04-21 devnull *pa = ea;
309 551445b9 2004-04-21 devnull return -1;
313 551445b9 2004-04-21 devnull sunenumpack(uchar *a, uchar *ea, uchar **pa, int *e)
315 551445b9 2004-04-21 devnull u32int x;
318 551445b9 2004-04-21 devnull return sunuint32pack(a, ea, pa, &x);
322 551445b9 2004-04-21 devnull sunuint1pack(uchar *a, uchar *ea, uchar **pa, u1int *u)
324 551445b9 2004-04-21 devnull u32int x;
327 551445b9 2004-04-21 devnull return sunuint32pack(a, ea, pa, &x);
331 551445b9 2004-04-21 devnull sunuint32pack(uchar *a, uchar *ea, uchar **pa, u32int *u)
333 551445b9 2004-04-21 devnull u32int x;
335 551445b9 2004-04-21 devnull if(ea-a < 4)
336 551445b9 2004-04-21 devnull goto Err;
339 551445b9 2004-04-21 devnull *a++ = x>>24;
340 551445b9 2004-04-21 devnull *a++ = x>>16;
341 551445b9 2004-04-21 devnull *a++ = x>>8;
342 551445b9 2004-04-21 devnull *a++ = x;
343 551445b9 2004-04-21 devnull *pa = a;
344 551445b9 2004-04-21 devnull return 0;
347 551445b9 2004-04-21 devnull *pa = ea;
348 551445b9 2004-04-21 devnull return -1;
352 551445b9 2004-04-21 devnull sunenumunpack(uchar *a, uchar *ea, uchar **pa, int *e)
354 551445b9 2004-04-21 devnull u32int x;
355 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, pa, &x) < 0)
356 551445b9 2004-04-21 devnull return -1;
358 551445b9 2004-04-21 devnull return 0;
362 551445b9 2004-04-21 devnull sunuint1unpack(uchar *a, uchar *ea, uchar **pa, u1int *u)
364 551445b9 2004-04-21 devnull u32int x;
365 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, pa, &x) < 0 || (x!=0 && x!=1)){
366 551445b9 2004-04-21 devnull *pa = ea;
367 551445b9 2004-04-21 devnull return -1;
370 551445b9 2004-04-21 devnull return 0;
374 551445b9 2004-04-21 devnull sunuint32unpack(uchar *a, uchar *ea, uchar **pa, u32int *u)
376 551445b9 2004-04-21 devnull u32int x;
378 551445b9 2004-04-21 devnull if(ea-a < 4)
379 551445b9 2004-04-21 devnull goto Err;
380 551445b9 2004-04-21 devnull x = *a++ << 24;
381 551445b9 2004-04-21 devnull x |= *a++ << 16;
382 551445b9 2004-04-21 devnull x |= *a++ << 8;
383 551445b9 2004-04-21 devnull x |= *a++;
384 551445b9 2004-04-21 devnull *pa = a;
386 551445b9 2004-04-21 devnull return 0;
389 551445b9 2004-04-21 devnull *pa = ea;
390 551445b9 2004-04-21 devnull return -1;
394 551445b9 2004-04-21 devnull sunuint64unpack(uchar *a, uchar *ea, uchar **pa, u64int *u)
396 551445b9 2004-04-21 devnull u32int x, y;
398 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0
399 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &y) < 0)
400 551445b9 2004-04-21 devnull goto Err;
401 551445b9 2004-04-21 devnull *u = ((uvlong)x<<32) | y;
402 551445b9 2004-04-21 devnull *pa = a;
403 551445b9 2004-04-21 devnull return 0;
405 551445b9 2004-04-21 devnull *pa = ea;
406 551445b9 2004-04-21 devnull return -1;
410 551445b9 2004-04-21 devnull sunuint64pack(uchar *a, uchar *ea, uchar **pa, u64int *u)
412 551445b9 2004-04-21 devnull u32int x, y;
414 551445b9 2004-04-21 devnull x = *u >> 32;
416 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, &x) < 0
417 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &y) < 0)
418 551445b9 2004-04-21 devnull goto Err;
419 551445b9 2004-04-21 devnull *pa = a;
420 551445b9 2004-04-21 devnull return 0;
422 551445b9 2004-04-21 devnull *pa = ea;
423 551445b9 2004-04-21 devnull return -1;
427 551445b9 2004-04-21 devnull sunstringsize(char *s)
429 551445b9 2004-04-21 devnull return (4+strlen(s)+3) & ~3;
433 551445b9 2004-04-21 devnull sunstringunpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
435 551445b9 2004-04-21 devnull uchar *dat;
436 551445b9 2004-04-21 devnull u32int n;
438 551445b9 2004-04-21 devnull if(sunvaropaqueunpack(a, ea, pa, &dat, &n, max) < 0)
439 551445b9 2004-04-21 devnull goto Err;
440 551445b9 2004-04-21 devnull /* slide string down over length to make room for NUL */
441 551445b9 2004-04-21 devnull memmove(dat-1, dat, n);
442 551445b9 2004-04-21 devnull dat[-1+n] = 0;
443 551445b9 2004-04-21 devnull *s = (char*)(dat-1);
444 551445b9 2004-04-21 devnull return 0;
446 551445b9 2004-04-21 devnull return -1;
450 551445b9 2004-04-21 devnull sunstringpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
452 551445b9 2004-04-21 devnull u32int n;
454 551445b9 2004-04-21 devnull n = strlen(*s);
455 551445b9 2004-04-21 devnull return sunvaropaquepack(a, ea, pa, (uchar**)s, &n, max);
459 551445b9 2004-04-21 devnull sunvaropaquesize(u32int n)
461 551445b9 2004-04-21 devnull return (4+n+3) & ~3;
465 551445b9 2004-04-21 devnull sunvaropaquepack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
467 551445b9 2004-04-21 devnull if(*ndat > max || sunuint32pack(a, ea, &a, ndat) < 0
468 551445b9 2004-04-21 devnull || sunfixedopaquepack(a, ea, &a, *dat, *ndat) < 0)
469 551445b9 2004-04-21 devnull goto Err;
470 551445b9 2004-04-21 devnull *pa = a;
471 551445b9 2004-04-21 devnull return 0;
474 551445b9 2004-04-21 devnull *pa = ea;
475 551445b9 2004-04-21 devnull return -1;
479 551445b9 2004-04-21 devnull sunvaropaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
481 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, ndat) < 0
482 551445b9 2004-04-21 devnull || *ndat > max)
483 551445b9 2004-04-21 devnull goto Err;
484 551445b9 2004-04-21 devnull *dat = a;
485 551445b9 2004-04-21 devnull a += (*ndat+3)&~3;
486 551445b9 2004-04-21 devnull if(a > ea)
487 551445b9 2004-04-21 devnull goto Err;
488 551445b9 2004-04-21 devnull *pa = a;
489 551445b9 2004-04-21 devnull return 0;
492 551445b9 2004-04-21 devnull *pa = ea;
493 551445b9 2004-04-21 devnull return -1;
497 551445b9 2004-04-21 devnull sunfixedopaquesize(u32int n)
499 551445b9 2004-04-21 devnull return (n+3) & ~3;
503 551445b9 2004-04-21 devnull sunfixedopaquepack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
505 551445b9 2004-04-21 devnull uint nn;
507 551445b9 2004-04-21 devnull nn = (n+3)&~3;
508 551445b9 2004-04-21 devnull if(a+nn > ea)
509 551445b9 2004-04-21 devnull goto Err;
510 551445b9 2004-04-21 devnull memmove(a, dat, n);
511 551445b9 2004-04-21 devnull if(nn > n)
512 551445b9 2004-04-21 devnull memset(a+n, 0, nn-n);
513 551445b9 2004-04-21 devnull a += nn;
514 551445b9 2004-04-21 devnull *pa = a;
515 551445b9 2004-04-21 devnull return 0;
518 551445b9 2004-04-21 devnull *pa = ea;
519 551445b9 2004-04-21 devnull return -1;
523 551445b9 2004-04-21 devnull sunfixedopaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
525 551445b9 2004-04-21 devnull uint nn;
527 551445b9 2004-04-21 devnull nn = (n+3)&~3;
528 551445b9 2004-04-21 devnull if(a+nn > ea)
529 551445b9 2004-04-21 devnull goto Err;
530 551445b9 2004-04-21 devnull memmove(dat, a, n);
531 551445b9 2004-04-21 devnull a += nn;
532 551445b9 2004-04-21 devnull *pa = a;
533 551445b9 2004-04-21 devnull return 0;
536 551445b9 2004-04-21 devnull *pa = ea;
537 551445b9 2004-04-21 devnull return -1;