1 /* @(#)xdr_mem.c 2.1 88/07/29 4.0 RPCSRC */
3 * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
4 * unrestricted use provided that this legend is included on all tape
5 * media and as a part of the software program in whole or part. Users
6 * may copy or modify Sun RPC without charge, but are not authorized
7 * to license or distribute it to anyone else except as part of a product or
8 * program developed by the user.
10 * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
11 * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
12 * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
14 * Sun RPC is provided with no support and without any obligation on the
15 * part of Sun Microsystems, Inc. to assist in its use, correction,
16 * modification or enhancement.
18 * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
19 * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
20 * OR ANY PART THEREOF.
22 * In no event will Sun Microsystems, Inc. be liable for any lost revenue
23 * or profits or other special, indirect and consequential damages, even if
24 * Sun has been advised of the possibility of such damages.
26 * Sun Microsystems, Inc.
28 * Mountain View, California 94043
30 #if !defined(lint) && defined(SCCSIDS)
31 static char sccsid
[] = "@(#)xdr_mem.c 1.19 87/08/11 Copyr 1984 Sun Micro";
35 * xdr_mem.h, XDR implementation using memory buffers.
37 * Copyright (C) 1984, Sun Microsystems, Inc.
39 * If you have some data to be interpreted as external data representation
40 * or to be converted to external data representation in a memory buffer,
41 * then this is the package for you.
49 static bool_t
xdrmem_getlong (XDR
*, long *);
50 static bool_t
xdrmem_putlong (XDR
*, const long *);
51 static bool_t
xdrmem_getbytes (XDR
*, caddr_t
, u_int
);
52 static bool_t
xdrmem_putbytes (XDR
*, const char *, u_int
);
53 static u_int
xdrmem_getpos (const XDR
*);
54 static bool_t
xdrmem_setpos (XDR
*, u_int
);
55 static long *xdrmem_inline (XDR
*, int);
56 static void xdrmem_destroy (XDR
*);
58 static const struct xdr_ops xdrmem_ops
=
71 * The procedure xdrmem_create initializes a stream descriptor for a
75 xdrmem_create (xdrs
, addr
, size
, op
)
83 /* We have to add the const since the `struct xdr_ops' in `struct XDR'
85 xdrs
->x_ops
= (struct xdr_ops
*) &xdrmem_ops
;
86 xdrs
->x_private
= xdrs
->x_base
= addr
;
91 * Nothing needs to be done for the memory case. The argument is clearly
96 xdrmem_destroy (XDR
*xdrs
)
101 * Gets the next word from the memory referenced by xdrs and places it
102 * in the long pointed to by lp. It then increments the private word to
103 * point at the next element. Neither object pointed to is const
106 xdrmem_getlong (xdrs
, lp
)
111 if ((xdrs
->x_handy
-= 4) < 0)
113 *lp
= (int32_t) ntohl ((*((int32_t *) (xdrs
->x_private
))));
114 xdrs
->x_private
+= 4;
119 * Puts the long pointed to by lp in the memory referenced by xdrs. It
120 * then increments the private word to point at the next element. The
121 * long pointed at is const
124 xdrmem_putlong (xdrs
, lp
)
129 if ((xdrs
->x_handy
-= 4) < 0)
131 *(int32_t *) xdrs
->x_private
= htonl (*lp
);
132 xdrs
->x_private
+= 4;
137 * Gets an unaligned number of bytes from the xdrs structure and writes them
138 * to the address passed in addr. Be very careful when calling this routine
139 * as it could leave the xdrs pointing to an unaligned structure which is not
140 * a good idea. None of the things pointed to are const.
143 xdrmem_getbytes (xdrs
, addr
, len
)
149 if ((xdrs
->x_handy
-= len
) < 0)
151 bcopy (xdrs
->x_private
, addr
, len
);
152 xdrs
->x_private
+= len
;
157 * The complementary function to the above. The same warnings apply about
158 * unaligned data. The source address is const.
161 xdrmem_putbytes (xdrs
, addr
, len
)
167 if ((xdrs
->x_handy
-= len
) < 0)
169 bcopy (addr
, xdrs
->x_private
, len
);
170 xdrs
->x_private
+= len
;
175 * Not sure what this one does. But it clearly doesn't modify the contents
176 * of xdrs. **FIXME** does this not assume u_int == u_long?
183 return (u_long
) xdrs
->x_private
- (u_long
) xdrs
->x_base
;
190 xdrmem_setpos (xdrs
, pos
)
194 caddr_t newaddr
= xdrs
->x_base
+ pos
;
195 caddr_t lastaddr
= xdrs
->x_private
+ xdrs
->x_handy
;
197 if ((long) newaddr
> (long) lastaddr
)
199 xdrs
->x_private
= newaddr
;
200 xdrs
->x_handy
= (long) lastaddr
- (long) newaddr
;
208 xdrmem_inline (xdrs
, len
)
214 if (xdrs
->x_handy
>= len
)
216 xdrs
->x_handy
-= len
;
217 buf
= (long *) xdrs
->x_private
;
218 xdrs
->x_private
+= len
;