xdr_mem.c (0cc39166733d7a7eee94bd8aa573237a90d9838e) xdr_mem.c (1ad08a09e9732e9e6e44f069c55f4abe27ed392a)
1/*
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.
1/*
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.
8 *
8 *
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.
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.
12 *
12 *
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.
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.
16 *
16 *
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.
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.
20 *
20 *
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.
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.
24 *
24 *
25 * Sun Microsystems, Inc.
26 * 2550 Garcia Avenue
27 * Mountain View, California 94043
28 */
29
30#if defined(LIBC_SCCS) && !defined(lint)
31/*static char *sccsid = "from: @(#)xdr_mem.c 1.19 87/08/11 Copyr 1984 Sun Micro";*/
32/*static char *sccsid = "from: @(#)xdr_mem.c 2.1 88/07/29 4.0 RPCSRC";*/
25 * Sun Microsystems, Inc.
26 * 2550 Garcia Avenue
27 * Mountain View, California 94043
28 */
29
30#if defined(LIBC_SCCS) && !defined(lint)
31/*static char *sccsid = "from: @(#)xdr_mem.c 1.19 87/08/11 Copyr 1984 Sun Micro";*/
32/*static char *sccsid = "from: @(#)xdr_mem.c 2.1 88/07/29 4.0 RPCSRC";*/
33static char *rcsid = "$Id: xdr_mem.c,v 1.1 1993/10/27 05:41:11 paul Exp $";
33static char *rcsid = "$Id: xdr_mem.c,v 1.3 1995/10/22 14:53:55 phk Exp $";
34#endif
35
36/*
37 * xdr_mem.h, XDR implementation using memory buffers.
38 *
39 * Copyright (C) 1984, Sun Microsystems, Inc.
40 *
41 * If you have some data to be interpreted as external data representation
42 * or to be converted to external data representation in a memory buffer,
43 * then this is the package for you.
44 *
45 */
46
34#endif
35
36/*
37 * xdr_mem.h, XDR implementation using memory buffers.
38 *
39 * Copyright (C) 1984, Sun Microsystems, Inc.
40 *
41 * If you have some data to be interpreted as external data representation
42 * or to be converted to external data representation in a memory buffer,
43 * then this is the package for you.
44 *
45 */
46
47
47#include <string.h>
48#include <rpc/types.h>
49#include <rpc/xdr.h>
50#include <netinet/in.h>
51
48#include <rpc/types.h>
49#include <rpc/xdr.h>
50#include <netinet/in.h>
51
52static bool_t xdrmem_getlong();
53static bool_t xdrmem_putlong();
52static bool_t xdrmem_getlong_aligned();
53static bool_t xdrmem_putlong_aligned();
54static bool_t xdrmem_getlong_unaligned();
55static bool_t xdrmem_putlong_unaligned();
54static bool_t xdrmem_getbytes();
55static bool_t xdrmem_putbytes();
56static bool_t xdrmem_getbytes();
57static bool_t xdrmem_putbytes();
56static u_int xdrmem_getpos();
58static u_int xdrmem_getpos(); /* XXX w/64-bit pointers, u_int not enough! */
57static bool_t xdrmem_setpos();
59static bool_t xdrmem_setpos();
58static long * xdrmem_inline();
60static int32_t *xdrmem_inline_aligned();
61static int32_t *xdrmem_inline_unaligned();
59static void xdrmem_destroy();
60
62static void xdrmem_destroy();
63
61static struct xdr_ops xdrmem_ops = {
62 xdrmem_getlong,
63 xdrmem_putlong,
64static struct xdr_ops xdrmem_ops_aligned = {
65 xdrmem_getlong_aligned,
66 xdrmem_putlong_aligned,
64 xdrmem_getbytes,
65 xdrmem_putbytes,
66 xdrmem_getpos,
67 xdrmem_setpos,
67 xdrmem_getbytes,
68 xdrmem_putbytes,
69 xdrmem_getpos,
70 xdrmem_setpos,
68 xdrmem_inline,
71 xdrmem_inline_aligned,
69 xdrmem_destroy
70};
71
72 xdrmem_destroy
73};
74
75static struct xdr_ops xdrmem_ops_unaligned = {
76 xdrmem_getlong_unaligned,
77 xdrmem_putlong_unaligned,
78 xdrmem_getbytes,
79 xdrmem_putbytes,
80 xdrmem_getpos,
81 xdrmem_setpos,
82 xdrmem_inline_unaligned,
83 xdrmem_destroy
84};
85
72/*
73 * The procedure xdrmem_create initializes a stream descriptor for a
86/*
87 * The procedure xdrmem_create initializes a stream descriptor for a
74 * memory buffer.
88 * memory buffer.
75 */
76void
77xdrmem_create(xdrs, addr, size, op)
78 register XDR *xdrs;
79 caddr_t addr;
80 u_int size;
81 enum xdr_op op;
82{
83
84 xdrs->x_op = op;
89 */
90void
91xdrmem_create(xdrs, addr, size, op)
92 register XDR *xdrs;
93 caddr_t addr;
94 u_int size;
95 enum xdr_op op;
96{
97
98 xdrs->x_op = op;
85 xdrs->x_ops = &xdrmem_ops;
99 xdrs->x_ops = ((size_t)addr & (sizeof(int32_t) - 1))
100 ? &xdrmem_ops_unaligned : &xdrmem_ops_aligned;
86 xdrs->x_private = xdrs->x_base = addr;
87 xdrs->x_handy = size;
88}
89
90static void
91xdrmem_destroy(/*xdrs*/)
92 /*XDR *xdrs;*/
93{
101 xdrs->x_private = xdrs->x_base = addr;
102 xdrs->x_handy = size;
103}
104
105static void
106xdrmem_destroy(/*xdrs*/)
107 /*XDR *xdrs;*/
108{
109
94}
95
96static bool_t
110}
111
112static bool_t
97xdrmem_getlong(xdrs, lp)
113xdrmem_getlong_aligned(xdrs, lp)
98 register XDR *xdrs;
99 long *lp;
100{
101
114 register XDR *xdrs;
115 long *lp;
116{
117
102 if ((xdrs->x_handy -= sizeof(long)) < 0)
118 if ((xdrs->x_handy -= sizeof(int32_t)) < 0)
103 return (FALSE);
119 return (FALSE);
104 *lp = (long)ntohl((u_long)(*((long *)(xdrs->x_private))));
105 xdrs->x_private += sizeof(long);
120 *lp = ntohl(*(int32_t *)(xdrs->x_private));
121 xdrs->x_private += sizeof(int32_t);
106 return (TRUE);
107}
108
109static bool_t
122 return (TRUE);
123}
124
125static bool_t
110xdrmem_putlong(xdrs, lp)
126xdrmem_putlong_aligned(xdrs, lp)
111 register XDR *xdrs;
112 long *lp;
113{
114
127 register XDR *xdrs;
128 long *lp;
129{
130
115 if ((xdrs->x_handy -= sizeof(long)) < 0)
131 if ((xdrs->x_handy -= sizeof(int32_t)) < 0)
116 return (FALSE);
132 return (FALSE);
117 *(long *)xdrs->x_private = (long)htonl((u_long)(*lp));
118 xdrs->x_private += sizeof(long);
133 *(int32_t *)xdrs->x_private = htonl(*lp);
134 xdrs->x_private += sizeof(int32_t);
119 return (TRUE);
120}
121
122static bool_t
135 return (TRUE);
136}
137
138static bool_t
139xdrmem_getlong_unaligned(xdrs, lp)
140 register XDR *xdrs;
141 long *lp;
142{
143 int32_t l;
144
145 if ((xdrs->x_handy -= sizeof(int32_t)) < 0)
146 return (FALSE);
147 memcpy(&l, xdrs->x_private, sizeof(int32_t));
148 *lp = ntohl(l);
149 xdrs->x_private += sizeof(int32_t);
150 return (TRUE);
151}
152
153static bool_t
154xdrmem_putlong_unaligned(xdrs, lp)
155 register XDR *xdrs;
156 long *lp;
157{
158 int32_t l;
159
160 if ((xdrs->x_handy -= sizeof(int32_t)) < 0)
161 return (FALSE);
162 l = htonl(*lp);
163 memcpy(xdrs->x_private, &l, sizeof(int32_t));
164 xdrs->x_private += sizeof(int32_t);
165 return (TRUE);
166}
167
168static bool_t
123xdrmem_getbytes(xdrs, addr, len)
124 register XDR *xdrs;
125 caddr_t addr;
126 register u_int len;
127{
128
129 if ((xdrs->x_handy -= len) < 0)
130 return (FALSE);
169xdrmem_getbytes(xdrs, addr, len)
170 register XDR *xdrs;
171 caddr_t addr;
172 register u_int len;
173{
174
175 if ((xdrs->x_handy -= len) < 0)
176 return (FALSE);
131 bcopy(xdrs->x_private, addr, len);
177 memcpy(addr, xdrs->x_private, len);
132 xdrs->x_private += len;
133 return (TRUE);
134}
135
136static bool_t
137xdrmem_putbytes(xdrs, addr, len)
138 register XDR *xdrs;
139 caddr_t addr;
140 register u_int len;
141{
142
143 if ((xdrs->x_handy -= len) < 0)
144 return (FALSE);
178 xdrs->x_private += len;
179 return (TRUE);
180}
181
182static bool_t
183xdrmem_putbytes(xdrs, addr, len)
184 register XDR *xdrs;
185 caddr_t addr;
186 register u_int len;
187{
188
189 if ((xdrs->x_handy -= len) < 0)
190 return (FALSE);
145 bcopy(addr, xdrs->x_private, len);
191 memcpy(xdrs->x_private, addr, len);
146 xdrs->x_private += len;
147 return (TRUE);
148}
149
150static u_int
151xdrmem_getpos(xdrs)
152 register XDR *xdrs;
153{
154
192 xdrs->x_private += len;
193 return (TRUE);
194}
195
196static u_int
197xdrmem_getpos(xdrs)
198 register XDR *xdrs;
199{
200
155 return ((u_int)xdrs->x_private - (u_int)xdrs->x_base);
201 /* XXX w/64-bit pointers, u_int not enough! */
202 return ((u_long)xdrs->x_private - (u_long)xdrs->x_base);
156}
157
158static bool_t
159xdrmem_setpos(xdrs, pos)
160 register XDR *xdrs;
161 u_int pos;
162{
163 register caddr_t newaddr = xdrs->x_base + pos;
164 register caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
165
166 if ((long)newaddr > (long)lastaddr)
167 return (FALSE);
168 xdrs->x_private = newaddr;
203}
204
205static bool_t
206xdrmem_setpos(xdrs, pos)
207 register XDR *xdrs;
208 u_int pos;
209{
210 register caddr_t newaddr = xdrs->x_base + pos;
211 register caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
212
213 if ((long)newaddr > (long)lastaddr)
214 return (FALSE);
215 xdrs->x_private = newaddr;
169 xdrs->x_handy = (int)lastaddr - (int)newaddr;
216 xdrs->x_handy = (long)lastaddr - (long)newaddr;
170 return (TRUE);
171}
172
217 return (TRUE);
218}
219
173static long *
174xdrmem_inline(xdrs, len)
220static int32_t *
221xdrmem_inline_aligned(xdrs, len)
175 register XDR *xdrs;
176 int len;
177{
222 register XDR *xdrs;
223 int len;
224{
178 long *buf = 0;
225 int32_t *buf = 0;
179
180 if (xdrs->x_handy >= len) {
181 xdrs->x_handy -= len;
226
227 if (xdrs->x_handy >= len) {
228 xdrs->x_handy -= len;
182 buf = (long *) xdrs->x_private;
229 buf = (int32_t *) xdrs->x_private;
183 xdrs->x_private += len;
184 }
185 return (buf);
186}
230 xdrs->x_private += len;
231 }
232 return (buf);
233}
234
235static int32_t *
236xdrmem_inline_unaligned(xdrs, len)
237 register XDR *xdrs;
238 int len;
239{
240
241 return (0);
242}