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;
72 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=MsgDenied, &x)) < 0)
73 551445b9 2004-04-21 devnull goto Err;
77 551445b9 2004-04-21 devnull switch(rpc->status){
78 551445b9 2004-04-21 devnull case SunSuccess:
79 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=MsgSuccess, &x)) < 0
80 551445b9 2004-04-21 devnull || sunfixedopaquepack(a, ea, &a, rpc->data, rpc->ndata) < 0)
81 551445b9 2004-04-21 devnull goto Err;
83 551445b9 2004-04-21 devnull case SunRpcMismatch:
84 551445b9 2004-04-21 devnull case SunProgMismatch:
85 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=rpc->status&0xFFFF, &x)) < 0
86 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &rpc->low) < 0
87 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &rpc->high) < 0)
88 551445b9 2004-04-21 devnull goto Err;
91 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, (x=rpc->status&0xFFFF, &x)) < 0)
92 551445b9 2004-04-21 devnull goto Err;
97 551445b9 2004-04-21 devnull return SunSuccess;
100 551445b9 2004-04-21 devnull *pa = ea;
101 551445b9 2004-04-21 devnull return SunGarbageArgs;
105 551445b9 2004-04-21 devnull sunrpcsize(SunRpc *rpc)
110 551445b9 2004-04-21 devnull if(rpc->iscall){
111 551445b9 2004-04-21 devnull a += 5*4;
112 551445b9 2004-04-21 devnull a += sunauthinfosize(&rpc->cred);
113 551445b9 2004-04-21 devnull a += sunauthinfosize(&rpc->verf);
114 551445b9 2004-04-21 devnull a += sunfixedopaquesize(rpc->ndata);
117 551445b9 2004-04-21 devnull switch(rpc->status&0xF0000){
119 551445b9 2004-04-21 devnull case SunAcceptError:
120 551445b9 2004-04-21 devnull a += 4+sunauthinfosize(&rpc->verf);
122 551445b9 2004-04-21 devnull default:
127 551445b9 2004-04-21 devnull switch(rpc->status){
128 551445b9 2004-04-21 devnull case SunSuccess:
129 551445b9 2004-04-21 devnull a += 4+sunfixedopaquesize(rpc->ndata);
131 551445b9 2004-04-21 devnull case SunRpcMismatch:
132 551445b9 2004-04-21 devnull case SunProgMismatch:
133 551445b9 2004-04-21 devnull a += 3*4;
134 551445b9 2004-04-21 devnull default:
138 551445b9 2004-04-21 devnull return a;
141 551445b9 2004-04-21 devnull SunStatus
142 551445b9 2004-04-21 devnull sunrpcunpack(uchar *a, uchar *ea, uchar **pa, SunRpc *rpc)
144 551445b9 2004-04-21 devnull u32int x;
146 551445b9 2004-04-21 devnull memset(rpc, 0, sizeof *rpc);
147 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->xid) < 0
148 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &x) < 0)
149 551445b9 2004-04-21 devnull goto Err;
151 551445b9 2004-04-21 devnull switch(x){
152 551445b9 2004-04-21 devnull default:
153 551445b9 2004-04-21 devnull goto Err;
154 551445b9 2004-04-21 devnull case MsgCall:
155 551445b9 2004-04-21 devnull rpc->iscall = 1;
156 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0 || x != RpcVersion
157 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->prog) < 0
158 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->vers) < 0
159 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->proc) < 0
160 551445b9 2004-04-21 devnull || sunauthinfounpack(a, ea, &a, &rpc->cred) < 0
161 551445b9 2004-04-21 devnull || sunauthinfounpack(a, ea, &a, &rpc->verf) < 0)
162 551445b9 2004-04-21 devnull goto Err;
163 551445b9 2004-04-21 devnull rpc->ndata = ea-a;
164 551445b9 2004-04-21 devnull rpc->data = a;
168 551445b9 2004-04-21 devnull case MsgReply:
169 551445b9 2004-04-21 devnull rpc->iscall = 0;
170 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
171 551445b9 2004-04-21 devnull goto Err;
172 551445b9 2004-04-21 devnull switch(x){
173 551445b9 2004-04-21 devnull default:
174 551445b9 2004-04-21 devnull goto Err;
175 551445b9 2004-04-21 devnull case MsgAccepted:
176 551445b9 2004-04-21 devnull if(sunauthinfounpack(a, ea, &a, &rpc->verf) < 0
177 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &x) < 0)
178 551445b9 2004-04-21 devnull goto Err;
179 551445b9 2004-04-21 devnull switch(x){
180 551445b9 2004-04-21 devnull case MsgSuccess:
181 551445b9 2004-04-21 devnull rpc->status = SunSuccess;
182 551445b9 2004-04-21 devnull rpc->ndata = ea-a;
183 551445b9 2004-04-21 devnull rpc->data = a;
186 551445b9 2004-04-21 devnull case MsgProgUnavail:
187 551445b9 2004-04-21 devnull case MsgProcUnavail:
188 551445b9 2004-04-21 devnull case MsgGarbageArgs:
189 551445b9 2004-04-21 devnull case MsgSystemErr:
190 551445b9 2004-04-21 devnull rpc->status = SunAcceptError | x;
192 551445b9 2004-04-21 devnull case MsgProgMismatch:
193 551445b9 2004-04-21 devnull rpc->status = SunAcceptError | x;
194 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->low) < 0
195 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->high) < 0)
196 551445b9 2004-04-21 devnull goto Err;
200 551445b9 2004-04-21 devnull case MsgDenied:
201 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
202 551445b9 2004-04-21 devnull goto Err;
203 551445b9 2004-04-21 devnull switch(x){
204 551445b9 2004-04-21 devnull default:
205 551445b9 2004-04-21 devnull goto Err;
206 551445b9 2004-04-21 devnull case MsgAuthError:
207 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0)
208 551445b9 2004-04-21 devnull goto Err;
209 551445b9 2004-04-21 devnull rpc->status = SunAuthError | x;
211 551445b9 2004-04-21 devnull case MsgRpcMismatch:
212 551445b9 2004-04-21 devnull rpc->status = SunRejectError | x;
213 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &rpc->low) < 0
214 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &rpc->high) < 0)
215 551445b9 2004-04-21 devnull goto Err;
221 551445b9 2004-04-21 devnull *pa = a;
222 551445b9 2004-04-21 devnull return SunSuccess;
225 551445b9 2004-04-21 devnull *pa = ea;
226 551445b9 2004-04-21 devnull return SunGarbageArgs;
230 551445b9 2004-04-21 devnull sunrpcprint(Fmt *fmt, SunRpc *rpc)
232 551445b9 2004-04-21 devnull fmtprint(fmt, "xid=%#ux", rpc->xid);
233 551445b9 2004-04-21 devnull if(rpc->iscall){
234 551445b9 2004-04-21 devnull fmtprint(fmt, " prog %#ux vers %#ux proc %#ux [", rpc->prog, rpc->vers, rpc->proc);
235 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->cred);
236 551445b9 2004-04-21 devnull fmtprint(fmt, "] [");
237 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->verf);
238 551445b9 2004-04-21 devnull fmtprint(fmt, "]");
240 551445b9 2004-04-21 devnull fmtprint(fmt, " status %#ux [", rpc->status);
241 551445b9 2004-04-21 devnull sunauthinfoprint(fmt, &rpc->verf);
242 551445b9 2004-04-21 devnull fmtprint(fmt, "] low %#ux high %#ux", rpc->low, rpc->high);
247 551445b9 2004-04-21 devnull sunauthinfoprint(Fmt *fmt, SunAuthInfo *ai)
249 551445b9 2004-04-21 devnull switch(ai->flavor){
250 551445b9 2004-04-21 devnull case SunAuthNone:
251 551445b9 2004-04-21 devnull fmtprint(fmt, "none");
253 551445b9 2004-04-21 devnull case SunAuthShort:
254 551445b9 2004-04-21 devnull fmtprint(fmt, "short");
256 551445b9 2004-04-21 devnull case SunAuthSys:
257 551445b9 2004-04-21 devnull fmtprint(fmt, "sys");
259 551445b9 2004-04-21 devnull default:
260 551445b9 2004-04-21 devnull fmtprint(fmt, "%#ux", ai->flavor);
263 551445b9 2004-04-21 devnull // if(ai->ndata)
264 551445b9 2004-04-21 devnull // fmtprint(fmt, " %.*H", ai->ndata, ai->data);
268 551445b9 2004-04-21 devnull sunauthinfosize(SunAuthInfo *ai)
270 551445b9 2004-04-21 devnull return 4 + sunvaropaquesize(ai->ndata);
274 551445b9 2004-04-21 devnull sunauthinfopack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
276 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, &ai->flavor) < 0
277 551445b9 2004-04-21 devnull || sunvaropaquepack(a, ea, &a, &ai->data, &ai->ndata, 400) < 0)
278 551445b9 2004-04-21 devnull goto Err;
279 551445b9 2004-04-21 devnull *pa = a;
280 551445b9 2004-04-21 devnull return 0;
283 551445b9 2004-04-21 devnull *pa = ea;
284 551445b9 2004-04-21 devnull return -1;
288 551445b9 2004-04-21 devnull sunauthinfounpack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
290 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &ai->flavor) < 0
291 551445b9 2004-04-21 devnull || sunvaropaqueunpack(a, ea, &a, &ai->data, &ai->ndata, 400) < 0)
292 551445b9 2004-04-21 devnull goto Err;
293 551445b9 2004-04-21 devnull *pa = a;
294 551445b9 2004-04-21 devnull return 0;
297 551445b9 2004-04-21 devnull *pa = ea;
298 551445b9 2004-04-21 devnull return -1;
302 551445b9 2004-04-21 devnull sunenumpack(uchar *a, uchar *ea, uchar **pa, int *e)
304 551445b9 2004-04-21 devnull u32int x;
307 551445b9 2004-04-21 devnull return sunuint32pack(a, ea, pa, &x);
311 551445b9 2004-04-21 devnull sunuint1pack(uchar *a, uchar *ea, uchar **pa, u1int *u)
313 551445b9 2004-04-21 devnull u32int x;
316 551445b9 2004-04-21 devnull return sunuint32pack(a, ea, pa, &x);
320 551445b9 2004-04-21 devnull sunuint32pack(uchar *a, uchar *ea, uchar **pa, u32int *u)
322 551445b9 2004-04-21 devnull u32int x;
324 551445b9 2004-04-21 devnull if(ea-a < 4)
325 551445b9 2004-04-21 devnull goto Err;
328 551445b9 2004-04-21 devnull *a++ = x>>24;
329 551445b9 2004-04-21 devnull *a++ = x>>16;
330 551445b9 2004-04-21 devnull *a++ = x>>8;
331 551445b9 2004-04-21 devnull *a++ = x;
332 551445b9 2004-04-21 devnull *pa = a;
333 551445b9 2004-04-21 devnull return 0;
336 551445b9 2004-04-21 devnull *pa = ea;
337 551445b9 2004-04-21 devnull return -1;
341 551445b9 2004-04-21 devnull sunenumunpack(uchar *a, uchar *ea, uchar **pa, int *e)
343 551445b9 2004-04-21 devnull u32int x;
344 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, pa, &x) < 0)
345 551445b9 2004-04-21 devnull return -1;
347 551445b9 2004-04-21 devnull return 0;
351 551445b9 2004-04-21 devnull sunuint1unpack(uchar *a, uchar *ea, uchar **pa, u1int *u)
353 551445b9 2004-04-21 devnull u32int x;
354 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, pa, &x) < 0 || (x!=0 && x!=1)){
355 551445b9 2004-04-21 devnull *pa = ea;
356 551445b9 2004-04-21 devnull return -1;
359 551445b9 2004-04-21 devnull return 0;
363 551445b9 2004-04-21 devnull sunuint32unpack(uchar *a, uchar *ea, uchar **pa, u32int *u)
365 551445b9 2004-04-21 devnull u32int x;
367 551445b9 2004-04-21 devnull if(ea-a < 4)
368 551445b9 2004-04-21 devnull goto Err;
369 551445b9 2004-04-21 devnull x = *a++ << 24;
370 551445b9 2004-04-21 devnull x |= *a++ << 16;
371 551445b9 2004-04-21 devnull x |= *a++ << 8;
372 551445b9 2004-04-21 devnull x |= *a++;
373 551445b9 2004-04-21 devnull *pa = a;
375 551445b9 2004-04-21 devnull return 0;
378 551445b9 2004-04-21 devnull *pa = ea;
379 551445b9 2004-04-21 devnull return -1;
383 551445b9 2004-04-21 devnull sunuint64unpack(uchar *a, uchar *ea, uchar **pa, u64int *u)
385 551445b9 2004-04-21 devnull u32int x, y;
387 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, &x) < 0
388 551445b9 2004-04-21 devnull || sunuint32unpack(a, ea, &a, &y) < 0)
389 551445b9 2004-04-21 devnull goto Err;
390 551445b9 2004-04-21 devnull *u = ((uvlong)x<<32) | y;
391 551445b9 2004-04-21 devnull *pa = a;
392 551445b9 2004-04-21 devnull return 0;
394 551445b9 2004-04-21 devnull *pa = ea;
395 551445b9 2004-04-21 devnull return -1;
399 551445b9 2004-04-21 devnull sunuint64pack(uchar *a, uchar *ea, uchar **pa, u64int *u)
401 551445b9 2004-04-21 devnull u32int x, y;
403 551445b9 2004-04-21 devnull x = *u >> 32;
405 551445b9 2004-04-21 devnull if(sunuint32pack(a, ea, &a, &x) < 0
406 551445b9 2004-04-21 devnull || sunuint32pack(a, ea, &a, &y) < 0)
407 551445b9 2004-04-21 devnull goto Err;
408 551445b9 2004-04-21 devnull *pa = a;
409 551445b9 2004-04-21 devnull return 0;
411 551445b9 2004-04-21 devnull *pa = ea;
412 551445b9 2004-04-21 devnull return -1;
416 551445b9 2004-04-21 devnull sunstringsize(char *s)
418 551445b9 2004-04-21 devnull return (4+strlen(s)+3) & ~3;
422 551445b9 2004-04-21 devnull sunstringunpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
424 551445b9 2004-04-21 devnull uchar *dat;
425 551445b9 2004-04-21 devnull u32int n;
427 551445b9 2004-04-21 devnull if(sunvaropaqueunpack(a, ea, pa, &dat, &n, max) < 0)
428 551445b9 2004-04-21 devnull goto Err;
429 551445b9 2004-04-21 devnull /* slide string down over length to make room for NUL */
430 551445b9 2004-04-21 devnull memmove(dat-1, dat, n);
431 551445b9 2004-04-21 devnull dat[-1+n] = 0;
432 551445b9 2004-04-21 devnull *s = (char*)(dat-1);
433 551445b9 2004-04-21 devnull return 0;
435 551445b9 2004-04-21 devnull return -1;
439 551445b9 2004-04-21 devnull sunstringpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
441 551445b9 2004-04-21 devnull u32int n;
443 551445b9 2004-04-21 devnull n = strlen(*s);
444 551445b9 2004-04-21 devnull return sunvaropaquepack(a, ea, pa, (uchar**)s, &n, max);
448 551445b9 2004-04-21 devnull sunvaropaquesize(u32int n)
450 551445b9 2004-04-21 devnull return (4+n+3) & ~3;
454 551445b9 2004-04-21 devnull sunvaropaquepack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
456 551445b9 2004-04-21 devnull if(*ndat > max || sunuint32pack(a, ea, &a, ndat) < 0
457 551445b9 2004-04-21 devnull || sunfixedopaquepack(a, ea, &a, *dat, *ndat) < 0)
458 551445b9 2004-04-21 devnull goto Err;
459 551445b9 2004-04-21 devnull *pa = a;
460 551445b9 2004-04-21 devnull return 0;
463 551445b9 2004-04-21 devnull *pa = ea;
464 551445b9 2004-04-21 devnull return -1;
468 551445b9 2004-04-21 devnull sunvaropaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
470 551445b9 2004-04-21 devnull if(sunuint32unpack(a, ea, &a, ndat) < 0
471 551445b9 2004-04-21 devnull || *ndat > max)
472 551445b9 2004-04-21 devnull goto Err;
473 551445b9 2004-04-21 devnull *dat = a;
474 551445b9 2004-04-21 devnull a += (*ndat+3)&~3;
475 551445b9 2004-04-21 devnull if(a > ea)
476 551445b9 2004-04-21 devnull goto Err;
477 551445b9 2004-04-21 devnull *pa = a;
478 551445b9 2004-04-21 devnull return 0;
481 551445b9 2004-04-21 devnull *pa = ea;
482 551445b9 2004-04-21 devnull return -1;
486 551445b9 2004-04-21 devnull sunfixedopaquesize(u32int n)
488 551445b9 2004-04-21 devnull return (n+3) & ~3;
492 551445b9 2004-04-21 devnull sunfixedopaquepack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
494 551445b9 2004-04-21 devnull uint nn;
496 551445b9 2004-04-21 devnull nn = (n+3)&~3;
497 551445b9 2004-04-21 devnull if(a+nn > ea)
498 551445b9 2004-04-21 devnull goto Err;
499 551445b9 2004-04-21 devnull memmove(a, dat, n);
500 551445b9 2004-04-21 devnull if(nn > n)
501 551445b9 2004-04-21 devnull memset(a+n, 0, nn-n);
502 551445b9 2004-04-21 devnull a += nn;
503 551445b9 2004-04-21 devnull *pa = a;
504 551445b9 2004-04-21 devnull return 0;
507 551445b9 2004-04-21 devnull *pa = ea;
508 551445b9 2004-04-21 devnull return -1;
512 551445b9 2004-04-21 devnull sunfixedopaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
514 551445b9 2004-04-21 devnull uint nn;
516 551445b9 2004-04-21 devnull nn = (n+3)&~3;
517 551445b9 2004-04-21 devnull if(a+nn > ea)
518 551445b9 2004-04-21 devnull goto Err;
519 551445b9 2004-04-21 devnull memmove(dat, a, n);
520 551445b9 2004-04-21 devnull a += nn;
521 551445b9 2004-04-21 devnull *pa = a;
522 551445b9 2004-04-21 devnull return 0;
525 551445b9 2004-04-21 devnull *pa = ea;
526 551445b9 2004-04-21 devnull return -1;