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>
  5 551445b9 2004-04-21 devnull 
  6 551445b9 2004-04-21 devnull /*
  7 551445b9 2004-04-21 devnull  * RPC protocol constants
  8 551445b9 2004-04-21 devnull  */
  9 551445b9 2004-04-21 devnull enum
 10 551445b9 2004-04-21 devnull {
 11 551445b9 2004-04-21 devnull 	RpcVersion = 2,
 12 551445b9 2004-04-21 devnull 
 13 551445b9 2004-04-21 devnull 	/* msg type */
 14 551445b9 2004-04-21 devnull 	MsgCall = 0,
 15 551445b9 2004-04-21 devnull 	MsgReply = 1,
 16 551445b9 2004-04-21 devnull 
 17 551445b9 2004-04-21 devnull 	/* reply stat */
 18 551445b9 2004-04-21 devnull 	MsgAccepted = 0,
 19 551445b9 2004-04-21 devnull 	MsgDenied = 1,
 20 551445b9 2004-04-21 devnull 
 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,
 28 551445b9 2004-04-21 devnull 
 29 551445b9 2004-04-21 devnull 	/* reject stat */
 30 551445b9 2004-04-21 devnull 	MsgRpcMismatch = 0,
 31 551445b9 2004-04-21 devnull 	MsgAuthError = 1,
 32 551445b9 2004-04-21 devnull 
 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,
 42 551445b9 2004-04-21 devnull };
 43 551445b9 2004-04-21 devnull 
 44 551445b9 2004-04-21 devnull SunStatus
 45 551445b9 2004-04-21 devnull sunrpcpack(uchar *a, uchar *ea, uchar **pa, SunRpc *rpc)
 46 551445b9 2004-04-21 devnull {
 47 551445b9 2004-04-21 devnull 	u32int x;
 48 551445b9 2004-04-21 devnull 
 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;
 61 551445b9 2004-04-21 devnull 	}else{
 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){
 65 551445b9 2004-04-21 devnull 		case 0:
 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;
 70 551445b9 2004-04-21 devnull 			break;
 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;
 75 4c06b8ee 2005-05-19 devnull 			break;
 76 551445b9 2004-04-21 devnull 		default:
 77 551445b9 2004-04-21 devnull 			if(sunuint32pack(a, ea, &a, (x=MsgDenied, &x)) < 0)
 78 551445b9 2004-04-21 devnull 				goto Err;
 79 551445b9 2004-04-21 devnull 			break;
 80 551445b9 2004-04-21 devnull 		}
 81 4c06b8ee 2005-05-19 devnull 	
 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;
 87 551445b9 2004-04-21 devnull 			break;
 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;
 94 551445b9 2004-04-21 devnull 			break;
 95 551445b9 2004-04-21 devnull 		default:
 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;
 98 4c06b8ee 2005-05-19 devnull 
 99 551445b9 2004-04-21 devnull 			break;
100 551445b9 2004-04-21 devnull 		}
101 551445b9 2004-04-21 devnull 	}
102 551445b9 2004-04-21 devnull 	*pa = a;
103 551445b9 2004-04-21 devnull 	return SunSuccess;
104 551445b9 2004-04-21 devnull 
105 551445b9 2004-04-21 devnull Err:
106 551445b9 2004-04-21 devnull 	*pa = ea;
107 551445b9 2004-04-21 devnull 	return SunGarbageArgs;
108 551445b9 2004-04-21 devnull }
109 551445b9 2004-04-21 devnull 
110 551445b9 2004-04-21 devnull uint
111 551445b9 2004-04-21 devnull sunrpcsize(SunRpc *rpc)
112 551445b9 2004-04-21 devnull {
113 551445b9 2004-04-21 devnull 	uint a;
114 551445b9 2004-04-21 devnull 
115 551445b9 2004-04-21 devnull 	a = 4;
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);
121 551445b9 2004-04-21 devnull 	}else{
122 551445b9 2004-04-21 devnull 		a += 4;
123 551445b9 2004-04-21 devnull 		switch(rpc->status&0xF0000){
124 551445b9 2004-04-21 devnull 		case 0:
125 551445b9 2004-04-21 devnull 		case SunAcceptError:
126 551445b9 2004-04-21 devnull 			a += 4+sunauthinfosize(&rpc->verf);
127 4c06b8ee 2005-05-19 devnull 			break;
128 4c06b8ee 2005-05-19 devnull 		case SunAuthError:
129 4c06b8ee 2005-05-19 devnull 			a += 4+4;
130 551445b9 2004-04-21 devnull 			break;
131 551445b9 2004-04-21 devnull 		default:
132 551445b9 2004-04-21 devnull 			a += 4;
133 551445b9 2004-04-21 devnull 			break;
134 551445b9 2004-04-21 devnull 		}
135 551445b9 2004-04-21 devnull 
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);
139 551445b9 2004-04-21 devnull 			break;
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:
144 551445b9 2004-04-21 devnull 			a += 4;
145 551445b9 2004-04-21 devnull 		}
146 551445b9 2004-04-21 devnull 	}
147 551445b9 2004-04-21 devnull 	return a;
148 551445b9 2004-04-21 devnull }
149 551445b9 2004-04-21 devnull 
150 551445b9 2004-04-21 devnull SunStatus
151 551445b9 2004-04-21 devnull sunrpcunpack(uchar *a, uchar *ea, uchar **pa, SunRpc *rpc)
152 551445b9 2004-04-21 devnull {
153 551445b9 2004-04-21 devnull 	u32int x;
154 551445b9 2004-04-21 devnull 
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;
159 551445b9 2004-04-21 devnull 
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;
174 551445b9 2004-04-21 devnull 		a = ea;
175 551445b9 2004-04-21 devnull 		break;
176 551445b9 2004-04-21 devnull 
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;
194 551445b9 2004-04-21 devnull 				a = ea;
195 551445b9 2004-04-21 devnull 				break;
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;
201 551445b9 2004-04-21 devnull 				break;
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;
207 551445b9 2004-04-21 devnull 				break;
208 551445b9 2004-04-21 devnull 			}
209 551445b9 2004-04-21 devnull 			break;
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;
221 551445b9 2004-04-21 devnull 				break;
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;
227 551445b9 2004-04-21 devnull 				break;
228 551445b9 2004-04-21 devnull 			}
229 551445b9 2004-04-21 devnull 			break;
230 551445b9 2004-04-21 devnull 		}
231 551445b9 2004-04-21 devnull 	}
232 551445b9 2004-04-21 devnull 	*pa = a;
233 551445b9 2004-04-21 devnull 	return SunSuccess;
234 551445b9 2004-04-21 devnull 
235 551445b9 2004-04-21 devnull Err:
236 551445b9 2004-04-21 devnull 	*pa = ea;
237 551445b9 2004-04-21 devnull 	return SunGarbageArgs;
238 551445b9 2004-04-21 devnull }
239 551445b9 2004-04-21 devnull 
240 551445b9 2004-04-21 devnull void
241 551445b9 2004-04-21 devnull sunrpcprint(Fmt *fmt, SunRpc *rpc)
242 551445b9 2004-04-21 devnull {
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, "]");
250 551445b9 2004-04-21 devnull 	}else{
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);
254 551445b9 2004-04-21 devnull 	}
255 551445b9 2004-04-21 devnull }
256 551445b9 2004-04-21 devnull 
257 551445b9 2004-04-21 devnull void
258 551445b9 2004-04-21 devnull sunauthinfoprint(Fmt *fmt, SunAuthInfo *ai)
259 551445b9 2004-04-21 devnull {
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");
263 551445b9 2004-04-21 devnull 		break;
264 551445b9 2004-04-21 devnull 	case SunAuthShort:
265 551445b9 2004-04-21 devnull 		fmtprint(fmt, "short");
266 551445b9 2004-04-21 devnull 		break;
267 551445b9 2004-04-21 devnull 	case SunAuthSys:
268 551445b9 2004-04-21 devnull 		fmtprint(fmt, "sys");
269 551445b9 2004-04-21 devnull 		break;
270 551445b9 2004-04-21 devnull 	default:
271 551445b9 2004-04-21 devnull 		fmtprint(fmt, "%#ux", ai->flavor);
272 551445b9 2004-04-21 devnull 		break;
273 551445b9 2004-04-21 devnull 	}
274 551445b9 2004-04-21 devnull //	if(ai->ndata)
275 551445b9 2004-04-21 devnull //		fmtprint(fmt, " %.*H", ai->ndata, ai->data);
276 551445b9 2004-04-21 devnull }
277 551445b9 2004-04-21 devnull 
278 551445b9 2004-04-21 devnull uint
279 551445b9 2004-04-21 devnull sunauthinfosize(SunAuthInfo *ai)
280 551445b9 2004-04-21 devnull {
281 551445b9 2004-04-21 devnull 	return 4 + sunvaropaquesize(ai->ndata);
282 551445b9 2004-04-21 devnull }
283 551445b9 2004-04-21 devnull 
284 551445b9 2004-04-21 devnull int
285 551445b9 2004-04-21 devnull sunauthinfopack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
286 551445b9 2004-04-21 devnull {
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;
292 551445b9 2004-04-21 devnull 
293 551445b9 2004-04-21 devnull Err:
294 551445b9 2004-04-21 devnull 	*pa = ea;
295 551445b9 2004-04-21 devnull 	return -1;
296 551445b9 2004-04-21 devnull }
297 551445b9 2004-04-21 devnull 
298 551445b9 2004-04-21 devnull int
299 551445b9 2004-04-21 devnull sunauthinfounpack(uchar *a, uchar *ea, uchar **pa, SunAuthInfo *ai)
300 551445b9 2004-04-21 devnull {
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;
306 551445b9 2004-04-21 devnull 
307 551445b9 2004-04-21 devnull Err:
308 551445b9 2004-04-21 devnull 	*pa = ea;
309 551445b9 2004-04-21 devnull 	return -1;
310 551445b9 2004-04-21 devnull }
311 551445b9 2004-04-21 devnull 
312 551445b9 2004-04-21 devnull int
313 551445b9 2004-04-21 devnull sunenumpack(uchar *a, uchar *ea, uchar **pa, int *e)
314 551445b9 2004-04-21 devnull {
315 551445b9 2004-04-21 devnull 	u32int x;
316 551445b9 2004-04-21 devnull 
317 551445b9 2004-04-21 devnull 	x = *e;
318 551445b9 2004-04-21 devnull 	return sunuint32pack(a, ea, pa, &x);
319 551445b9 2004-04-21 devnull }
320 551445b9 2004-04-21 devnull 
321 551445b9 2004-04-21 devnull int
322 551445b9 2004-04-21 devnull sunuint1pack(uchar *a, uchar *ea, uchar **pa, u1int *u)
323 551445b9 2004-04-21 devnull {
324 551445b9 2004-04-21 devnull 	u32int x;
325 551445b9 2004-04-21 devnull 
326 551445b9 2004-04-21 devnull 	x = *u;
327 551445b9 2004-04-21 devnull 	return sunuint32pack(a, ea, pa, &x);
328 551445b9 2004-04-21 devnull }
329 551445b9 2004-04-21 devnull 
330 551445b9 2004-04-21 devnull int
331 551445b9 2004-04-21 devnull sunuint32pack(uchar *a, uchar *ea, uchar **pa, u32int *u)
332 551445b9 2004-04-21 devnull {
333 551445b9 2004-04-21 devnull 	u32int x;
334 551445b9 2004-04-21 devnull 
335 551445b9 2004-04-21 devnull 	if(ea-a < 4)
336 551445b9 2004-04-21 devnull 		goto Err;
337 551445b9 2004-04-21 devnull 
338 551445b9 2004-04-21 devnull 	x = *u;
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;
345 551445b9 2004-04-21 devnull 
346 551445b9 2004-04-21 devnull Err:
347 551445b9 2004-04-21 devnull 	*pa = ea;
348 551445b9 2004-04-21 devnull 	return -1;
349 551445b9 2004-04-21 devnull }
350 551445b9 2004-04-21 devnull 
351 551445b9 2004-04-21 devnull int
352 551445b9 2004-04-21 devnull sunenumunpack(uchar *a, uchar *ea, uchar **pa, int *e)
353 551445b9 2004-04-21 devnull {
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;
357 551445b9 2004-04-21 devnull 	*e = x;
358 551445b9 2004-04-21 devnull 	return 0;
359 551445b9 2004-04-21 devnull }
360 551445b9 2004-04-21 devnull 
361 551445b9 2004-04-21 devnull int
362 551445b9 2004-04-21 devnull sunuint1unpack(uchar *a, uchar *ea, uchar **pa, u1int *u)
363 551445b9 2004-04-21 devnull {
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;
368 551445b9 2004-04-21 devnull 	}
369 551445b9 2004-04-21 devnull 	*u = x;
370 551445b9 2004-04-21 devnull 	return 0;
371 551445b9 2004-04-21 devnull }
372 551445b9 2004-04-21 devnull 
373 551445b9 2004-04-21 devnull int
374 551445b9 2004-04-21 devnull sunuint32unpack(uchar *a, uchar *ea, uchar **pa, u32int *u)
375 551445b9 2004-04-21 devnull {
376 551445b9 2004-04-21 devnull 	u32int x;
377 551445b9 2004-04-21 devnull 
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;
385 551445b9 2004-04-21 devnull 	*u = x;
386 551445b9 2004-04-21 devnull 	return 0;
387 551445b9 2004-04-21 devnull 
388 551445b9 2004-04-21 devnull Err:
389 551445b9 2004-04-21 devnull 	*pa = ea;
390 551445b9 2004-04-21 devnull 	return -1;
391 551445b9 2004-04-21 devnull }
392 551445b9 2004-04-21 devnull 
393 551445b9 2004-04-21 devnull int
394 551445b9 2004-04-21 devnull sunuint64unpack(uchar *a, uchar *ea, uchar **pa, u64int *u)
395 551445b9 2004-04-21 devnull {
396 551445b9 2004-04-21 devnull 	u32int x, y;
397 551445b9 2004-04-21 devnull 
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;
404 551445b9 2004-04-21 devnull Err:
405 551445b9 2004-04-21 devnull 	*pa = ea;
406 551445b9 2004-04-21 devnull 	return -1;
407 551445b9 2004-04-21 devnull }
408 551445b9 2004-04-21 devnull 
409 551445b9 2004-04-21 devnull int
410 551445b9 2004-04-21 devnull sunuint64pack(uchar *a, uchar *ea, uchar **pa, u64int *u)
411 551445b9 2004-04-21 devnull {
412 551445b9 2004-04-21 devnull 	u32int x, y;
413 551445b9 2004-04-21 devnull 
414 551445b9 2004-04-21 devnull 	x = *u >> 32;
415 551445b9 2004-04-21 devnull 	y = *u;
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;
421 551445b9 2004-04-21 devnull Err:
422 551445b9 2004-04-21 devnull 	*pa = ea;
423 551445b9 2004-04-21 devnull 	return -1;
424 551445b9 2004-04-21 devnull }
425 551445b9 2004-04-21 devnull 
426 551445b9 2004-04-21 devnull uint
427 551445b9 2004-04-21 devnull sunstringsize(char *s)
428 551445b9 2004-04-21 devnull {
429 551445b9 2004-04-21 devnull 	return (4+strlen(s)+3) & ~3;
430 551445b9 2004-04-21 devnull }
431 551445b9 2004-04-21 devnull 
432 551445b9 2004-04-21 devnull int
433 551445b9 2004-04-21 devnull sunstringunpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
434 551445b9 2004-04-21 devnull {
435 551445b9 2004-04-21 devnull 	uchar *dat;
436 551445b9 2004-04-21 devnull 	u32int n;
437 551445b9 2004-04-21 devnull 
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;
445 551445b9 2004-04-21 devnull Err:
446 551445b9 2004-04-21 devnull 	return -1;
447 551445b9 2004-04-21 devnull }
448 551445b9 2004-04-21 devnull 
449 551445b9 2004-04-21 devnull int
450 551445b9 2004-04-21 devnull sunstringpack(uchar *a, uchar *ea, uchar **pa, char **s, u32int max)
451 551445b9 2004-04-21 devnull {
452 551445b9 2004-04-21 devnull 	u32int n;
453 551445b9 2004-04-21 devnull 
454 551445b9 2004-04-21 devnull 	n = strlen(*s);
455 551445b9 2004-04-21 devnull 	return sunvaropaquepack(a, ea, pa, (uchar**)s, &n, max);
456 551445b9 2004-04-21 devnull }
457 551445b9 2004-04-21 devnull 
458 551445b9 2004-04-21 devnull uint
459 551445b9 2004-04-21 devnull sunvaropaquesize(u32int n)
460 551445b9 2004-04-21 devnull {
461 551445b9 2004-04-21 devnull 	return (4+n+3) & ~3;
462 551445b9 2004-04-21 devnull }
463 551445b9 2004-04-21 devnull 
464 551445b9 2004-04-21 devnull int
465 551445b9 2004-04-21 devnull sunvaropaquepack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
466 551445b9 2004-04-21 devnull {
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;
472 551445b9 2004-04-21 devnull 
473 551445b9 2004-04-21 devnull Err:
474 551445b9 2004-04-21 devnull 	*pa = ea;
475 551445b9 2004-04-21 devnull 	return -1;
476 551445b9 2004-04-21 devnull }
477 551445b9 2004-04-21 devnull 
478 551445b9 2004-04-21 devnull int
479 551445b9 2004-04-21 devnull sunvaropaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar **dat, u32int *ndat, u32int max)
480 551445b9 2004-04-21 devnull {
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;
490 551445b9 2004-04-21 devnull 
491 551445b9 2004-04-21 devnull Err:
492 551445b9 2004-04-21 devnull 	*pa = ea;
493 551445b9 2004-04-21 devnull 	return -1;
494 551445b9 2004-04-21 devnull }
495 551445b9 2004-04-21 devnull 
496 551445b9 2004-04-21 devnull uint
497 551445b9 2004-04-21 devnull sunfixedopaquesize(u32int n)
498 551445b9 2004-04-21 devnull {
499 551445b9 2004-04-21 devnull 	return (n+3) & ~3;
500 551445b9 2004-04-21 devnull }
501 551445b9 2004-04-21 devnull 
502 551445b9 2004-04-21 devnull int
503 551445b9 2004-04-21 devnull sunfixedopaquepack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
504 551445b9 2004-04-21 devnull {
505 551445b9 2004-04-21 devnull 	uint nn;
506 551445b9 2004-04-21 devnull 
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;
516 551445b9 2004-04-21 devnull 
517 551445b9 2004-04-21 devnull Err:
518 551445b9 2004-04-21 devnull 	*pa = ea;
519 551445b9 2004-04-21 devnull 	return -1;
520 551445b9 2004-04-21 devnull }
521 551445b9 2004-04-21 devnull 
522 551445b9 2004-04-21 devnull int
523 551445b9 2004-04-21 devnull sunfixedopaqueunpack(uchar *a, uchar *ea, uchar **pa, uchar *dat, u32int n)
524 551445b9 2004-04-21 devnull {
525 551445b9 2004-04-21 devnull 	uint nn;
526 551445b9 2004-04-21 devnull 
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;
534 551445b9 2004-04-21 devnull 
535 551445b9 2004-04-21 devnull Err:
536 551445b9 2004-04-21 devnull 	*pa = ea;
537 551445b9 2004-04-21 devnull 	return -1;
538 551445b9 2004-04-21 devnull }
539 551445b9 2004-04-21 devnull