2 * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
3 * unrestricted use provided that this legend is included on all tape
4 * media and as a part of the software program in whole or part. Users
5 * may copy or modify Sun RPC without charge, but are not authorized
6 * to license or distribute it to anyone else except as part of a product or
7 * program developed by the user.
9 * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
10 * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
11 * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
13 * Sun RPC is provided with no support and without any obligation on the
14 * part of Sun Microsystems, Inc. to assist in its use, correction,
15 * modification or enhancement.
17 * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
18 * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
19 * OR ANY PART THEREOF.
21 * In no event will Sun Microsystems, Inc. be liable for any lost revenue
22 * or profits or other special, indirect and consequential damages, even if
23 * Sun has been advised of the possibility of such damages.
25 * Sun Microsystems, Inc.
27 * Mountain View, California 94043
29 * @(#)rpc_prot.c 1.36 87/08/11 Copyr 1984 Sun Micro
30 * @(#)rpc_prot.c 2.3 88/08/07 4.0 RPCSRC
31 * $FreeBSD: src/lib/libc/rpc/rpc_prot.c,v 1.8 1999/08/28 00:00:46 peter Exp $
32 * $DragonFly: src/lib/libc/rpc/rpc_prot.c,v 1.4 2005/11/13 12:27:04 swildner Exp $
38 * Copyright (C) 1984, Sun Microsystems, Inc.
40 * This set of routines implements the rpc message definition,
41 * its serializer and some common rpc utility routines.
42 * The routines are meant for various implementations of rpc -
43 * they are NOT for the rpc client or rpc service implementations!
44 * Because authentication stuff is easy and is part of rpc, the opaque
45 * routines are also in this program.
48 #include <sys/param.h>
52 /* * * * * * * * * * * * * * XDR Authentication * * * * * * * * * * * */
54 struct opaque_auth _null_auth
;
57 * XDR an opaque authentication struct
61 xdr_opaque_auth(XDR
*xdrs
, struct opaque_auth
*ap
)
64 if (xdr_enum(xdrs
, &(ap
->oa_flavor
)))
65 return (xdr_bytes(xdrs
, &ap
->oa_base
,
66 &ap
->oa_length
, MAX_AUTH_BYTES
));
74 xdr_des_block(XDR
*xdrs
, des_block
*blkp
)
76 return (xdr_opaque(xdrs
, (caddr_t
)blkp
, sizeof(des_block
)));
79 /* * * * * * * * * * * * * * XDR RPC MESSAGE * * * * * * * * * * * * * * * */
82 * XDR the MSG_ACCEPTED part of a reply message union
85 xdr_accepted_reply(XDR
*xdrs
, struct accepted_reply
*ar
)
88 /* personalized union, rather than calling xdr_union */
89 if (! xdr_opaque_auth(xdrs
, &(ar
->ar_verf
)))
91 if (! xdr_enum(xdrs
, (enum_t
*)&(ar
->ar_stat
)))
93 switch (ar
->ar_stat
) {
96 return ((*(ar
->ar_results
.proc
))(xdrs
, ar
->ar_results
.where
));
99 if (! xdr_u_int32_t(xdrs
, &(ar
->ar_vers
.low
)))
101 return (xdr_u_int32_t(xdrs
, &(ar
->ar_vers
.high
)));
105 return (TRUE
); /* TRUE => open ended set of problems */
109 * XDR the MSG_DENIED part of a reply message union
112 xdr_rejected_reply(XDR
*xdrs
, struct rejected_reply
*rr
)
115 /* personalized union, rather than calling xdr_union */
116 if (! xdr_enum(xdrs
, (enum_t
*)&(rr
->rj_stat
)))
118 switch (rr
->rj_stat
) {
121 if (! xdr_u_int32_t(xdrs
, &(rr
->rj_vers
.low
)))
123 return (xdr_u_int32_t(xdrs
, &(rr
->rj_vers
.high
)));
126 return (xdr_enum(xdrs
, (enum_t
*)&(rr
->rj_why
)));
131 static struct xdr_discrim reply_dscrm
[3] = {
132 { (int)MSG_ACCEPTED
, xdr_accepted_reply
},
133 { (int)MSG_DENIED
, xdr_rejected_reply
},
134 { __dontcare__
, NULL_xdrproc_t
} };
137 * XDR a reply message
140 xdr_replymsg(XDR
*xdrs
, struct rpc_msg
*rmsg
)
143 xdr_u_int32_t(xdrs
, &(rmsg
->rm_xid
)) &&
144 xdr_enum(xdrs
, (enum_t
*)&(rmsg
->rm_direction
)) &&
145 (rmsg
->rm_direction
== REPLY
) )
146 return (xdr_union(xdrs
, (enum_t
*)&(rmsg
->rm_reply
.rp_stat
),
147 (caddr_t
)&(rmsg
->rm_reply
.ru
), reply_dscrm
, NULL_xdrproc_t
));
153 * Serializes the "static part" of a call message header.
154 * The fields include: rm_xid, rm_direction, rpcvers, prog, and vers.
155 * The rm_xid is not really static, but the user can easily munge on the fly.
158 xdr_callhdr(XDR
*xdrs
, struct rpc_msg
*cmsg
)
161 cmsg
->rm_direction
= CALL
;
162 cmsg
->rm_call
.cb_rpcvers
= RPC_MSG_VERSION
;
164 (xdrs
->x_op
== XDR_ENCODE
) &&
165 xdr_u_int32_t(xdrs
, &(cmsg
->rm_xid
)) &&
166 xdr_enum(xdrs
, (enum_t
*)&(cmsg
->rm_direction
)) &&
167 xdr_u_int32_t(xdrs
, &(cmsg
->rm_call
.cb_rpcvers
)) &&
168 xdr_u_int32_t(xdrs
, &(cmsg
->rm_call
.cb_prog
)) )
169 return (xdr_u_int32_t(xdrs
, &(cmsg
->rm_call
.cb_vers
)));
173 /* ************************** Client utility routine ************* */
176 accepted(enum accept_stat acpt_stat
, struct rpc_err
*error
)
182 error
->re_status
= RPC_PROGUNAVAIL
;
186 error
->re_status
= RPC_PROGVERSMISMATCH
;
190 error
->re_status
= RPC_PROCUNAVAIL
;
194 error
->re_status
= RPC_CANTDECODEARGS
;
198 error
->re_status
= RPC_SYSTEMERROR
;
202 error
->re_status
= RPC_SUCCESS
;
205 /* something's wrong, but we don't know what ... */
206 error
->re_status
= RPC_FAILED
;
207 error
->re_lb
.s1
= (long)MSG_ACCEPTED
;
208 error
->re_lb
.s2
= (long)acpt_stat
;
212 rejected(enum reject_stat rjct_stat
, struct rpc_err
*error
)
217 case RPC_VERSMISMATCH
:
218 error
->re_status
= RPC_VERSMISMATCH
;
222 error
->re_status
= RPC_AUTHERROR
;
227 /* something's wrong, but we don't know what ... */
228 error
->re_status
= RPC_FAILED
;
229 error
->re_lb
.s1
= (long)MSG_DENIED
;
230 error
->re_lb
.s2
= (long)rjct_stat
;
234 * given a reply message, fills in the error
237 _seterr_reply(struct rpc_msg
*msg
, struct rpc_err
*error
)
240 /* optimized for normal, SUCCESSful case */
241 switch (msg
->rm_reply
.rp_stat
) {
244 if (msg
->acpted_rply
.ar_stat
== SUCCESS
) {
245 error
->re_status
= RPC_SUCCESS
;
248 accepted(msg
->acpted_rply
.ar_stat
, error
);
252 rejected(msg
->rjcted_rply
.rj_stat
, error
);
256 error
->re_status
= RPC_FAILED
;
257 error
->re_lb
.s1
= (long)(msg
->rm_reply
.rp_stat
);
260 switch (error
->re_status
) {
262 case RPC_VERSMISMATCH
:
263 error
->re_vers
.low
= msg
->rjcted_rply
.rj_vers
.low
;
264 error
->re_vers
.high
= msg
->rjcted_rply
.rj_vers
.high
;
268 error
->re_why
= msg
->rjcted_rply
.rj_why
;
271 case RPC_PROGVERSMISMATCH
:
272 error
->re_vers
.low
= msg
->acpted_rply
.ar_vers
.low
;
273 error
->re_vers
.high
= msg
->acpted_rply
.ar_vers
.high
;