483de0c5abd81659de18f65dd49146bb972e09da
[openafs.git] / src / rx / xdr_mem.c
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  * 
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  * 
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  * 
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  * 
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  * 
25  * Sun Microsystems, Inc.
26  * 2550 Garcia Avenue
27  * Mountain View, California  94043
28  */
29 #include <afsconfig.h>
30 #include <afs/param.h>
31
32
33 #ifndef NeXT
34
35 /*
36  * xdr_mem.h, XDR implementation using memory buffers.
37  *
38  * Copyright (C) 1984, Sun Microsystems, Inc.
39  *
40  * If you have some data to be interpreted as external data representation
41  * or to be converted to external data representation in a memory buffer,
42  * then this is the package for you.
43  *
44  */
45
46 #include <string.h>
47 #include <limits.h>
48 #ifndef AFS_NT40_ENV
49 # include <netinet/in.h>
50 #endif
51
52 #include "xdr.h"
53
54 static bool_t xdrmem_getint32(AFS_XDRS_T, afs_int32 *);
55 static bool_t xdrmem_putint32(AFS_XDRS_T, afs_int32 *);
56 static bool_t xdrmem_getbytes(AFS_XDRS_T, caddr_t, u_int);
57 static bool_t xdrmem_putbytes(AFS_XDRS_T, caddr_t, u_int);
58 static u_int xdrmem_getpos(AFS_XDRS_T);
59 static bool_t xdrmem_setpos(AFS_XDRS_T, u_int);
60 static afs_int32 *xdrmem_inline(AFS_XDRS_T, u_int);
61 static void xdrmem_destroy(AFS_XDRS_T);
62
63 static struct xdr_ops xdrmem_ops = {
64 #if defined(AFS_NT40_ENV) || (defined(AFS_SGI_ENV) && !defined(__c99))
65     /* Windows does not support labeled assigments */
66     xdrmem_getint32,    /* deserialize an afs_int32 */
67     xdrmem_putint32,    /* serialize an afs_int32 */
68     xdrmem_getbytes,    /* deserialize counted bytes */
69     xdrmem_putbytes,    /* serialize counted bytes */
70     xdrmem_getpos,      /* get offset in the stream: not supported. */
71     xdrmem_setpos,      /* set offset in the stream: not supported. */
72     xdrmem_inline,      /* prime stream for inline macros */
73     xdrmem_destroy      /* destroy stream */
74 #else
75     .x_getint32 = xdrmem_getint32,
76     .x_putint32 = xdrmem_putint32,
77     .x_getbytes = xdrmem_getbytes,
78     .x_putbytes = xdrmem_putbytes,
79     .x_getpostn = xdrmem_getpos,
80     .x_setpostn = xdrmem_setpos,
81     .x_inline = xdrmem_inline,
82     .x_destroy = xdrmem_destroy
83 #endif
84 };
85
86 /*
87  * The procedure xdrmem_create initializes a stream descriptor for a
88  * memory buffer.  
89  */
90 void
91 xdrmem_create(XDR * xdrs, caddr_t addr, u_int size, enum xdr_op op)
92 {
93     xdrs->x_op = op;
94     xdrs->x_ops = &xdrmem_ops;
95     xdrs->x_private = xdrs->x_base = addr;
96     xdrs->x_handy = (size > INT_MAX) ? INT_MAX : size;  /* XXX */
97 }
98
99 static void
100 xdrmem_destroy(AFS_XDRS_T axdrs)
101 {
102 }
103
104 static bool_t
105 xdrmem_getint32(AFS_XDRS_T axdrs, afs_int32 * lp)
106 {
107     XDR * xdrs = (XDR *)axdrs;
108
109     if (xdrs->x_handy < sizeof(afs_int32))
110         return (FALSE);
111     else
112         xdrs->x_handy -= sizeof(afs_int32);
113     *lp = ntohl(*((afs_int32 *) (xdrs->x_private)));
114     xdrs->x_private += sizeof(afs_int32);
115     return (TRUE);
116 }
117
118 static bool_t
119 xdrmem_putint32(AFS_XDRS_T axdrs, afs_int32 * lp)
120 {
121     XDR * xdrs = (XDR *)axdrs;
122
123     if (xdrs->x_handy < sizeof(afs_int32))
124         return (FALSE);
125     else
126         xdrs->x_handy -= sizeof(afs_int32);
127     *(afs_int32 *) xdrs->x_private = htonl(*lp);
128     xdrs->x_private += sizeof(afs_int32);
129     return (TRUE);
130 }
131
132 static bool_t
133 xdrmem_getbytes(AFS_XDRS_T axdrs, caddr_t addr, u_int len)
134 {
135     XDR * xdrs = (XDR *)axdrs;
136
137     if (xdrs->x_handy < len)
138         return (FALSE);
139     else
140         xdrs->x_handy -= len;
141     memcpy(addr, xdrs->x_private, len);
142     xdrs->x_private += len;
143     return (TRUE);
144 }
145
146 static bool_t
147 xdrmem_putbytes(AFS_XDRS_T axdrs, caddr_t addr, u_int len)
148 {
149     XDR * xdrs = (XDR *)axdrs;
150
151     if (xdrs->x_handy < len)
152         return (FALSE);
153     else
154         xdrs->x_handy -= len;
155     memcpy(xdrs->x_private, addr, len);
156     xdrs->x_private += len;
157     return (TRUE);
158 }
159
160 static u_int
161 xdrmem_getpos(AFS_XDRS_T axdrs)
162 {
163     XDR * xdrs = (XDR *)axdrs;
164
165     return ((u_int)(xdrs->x_private - xdrs->x_base));
166 }
167
168 static bool_t
169 xdrmem_setpos(AFS_XDRS_T axdrs, u_int pos)
170 {
171     XDR * xdrs = (XDR *)axdrs;
172
173     caddr_t newaddr = xdrs->x_base + pos;
174     caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
175
176     if (newaddr > lastaddr)
177         return (FALSE);
178     xdrs->x_private = newaddr;
179     xdrs->x_handy = (int)(lastaddr - newaddr);
180     return (TRUE);
181 }
182
183 static afs_int32 *
184 xdrmem_inline(AFS_XDRS_T axdrs, u_int len)
185 {
186     XDR * xdrs = (XDR *)axdrs;
187
188     afs_int32 *buf = 0;
189
190     if (len >= 0 && xdrs->x_handy >= len) {
191         xdrs->x_handy -= len;
192         buf = (afs_int32 *) xdrs->x_private;
193         xdrs->x_private += len;
194     }
195     return (buf);
196 }
197 #endif /* NeXT */