sunrpc/xdr_mem.c

   1 /* @(#)xdr_mem.c        2.1 88/07/29 4.0 RPCSRC */
   2 /*
   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.
   9  *
  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.
  13  *
  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.
  17  *
  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.
  21  *
  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.
  25  *
  26  * Sun Microsystems, Inc.
  27  * 2550 Garcia Avenue
  28  * Mountain View, California  94043
  29  */
  30 #if !defined(lint) && defined(SCCSIDS)
  31 static char sccsid[] = "@(#)xdr_mem.c 1.19 87/08/11 Copyr 1984 Sun Micro";
  32 #endif
  33
  34 /*
  35  * xdr_mem.h, XDR implementation using memory buffers.
  36  *
  37  * Copyright (C) 1984, Sun Microsystems, Inc.
  38  *
  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.
  42  *
  43  */
  44
  45
  46 #include <string.h>
  47 #include <rpc/rpc.h>
  48
  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 *);
  57 static bool_t xdrmem_getint32 (XDR *, int32_t *);
  58 static bool_t xdrmem_putint32 (XDR *, const int32_t *);
  59
  60 static const struct xdr_ops xdrmem_ops =
  61 {
  62   xdrmem_getlong,
  63   xdrmem_putlong,
  64   xdrmem_getbytes,
  65   xdrmem_putbytes,
  66   xdrmem_getpos,
  67   xdrmem_setpos,
  68   xdrmem_inline,
  69   xdrmem_destroy,
  70   xdrmem_getint32,
  71   xdrmem_putint32
  72 };
  73
  74 /*
  75  * The procedure xdrmem_create initializes a stream descriptor for a
  76  * memory buffer.
  77  */
  78 void
  79 xdrmem_create (xdrs, addr, size, op)
  80      XDR *xdrs;
  81      const caddr_t addr;
  82      u_int size;
  83      enum xdr_op op;
  84 {
  85
  86   xdrs->x_op = op;
  87   /* We have to add the const since the `struct xdr_ops' in `struct XDR'
  88      is not `const'.  */
  89   xdrs->x_ops = (struct xdr_ops *) &xdrmem_ops;
  90   xdrs->x_private = xdrs->x_base = addr;
  91   xdrs->x_handy = size;
  92 }
  93
  94 /*
  95  * Nothing needs to be done for the memory case.  The argument is clearly
  96  * const.
  97  */
  98
  99 static void
 100 xdrmem_destroy (XDR *xdrs)
 101 {
 102 }
 103
 104 /*
 105  * Gets the next word from the memory referenced by xdrs and places it
 106  * in the long pointed to by lp.  It then increments the private word to
 107  * point at the next element.  Neither object pointed to is const
 108  */
 109 static bool_t
 110 xdrmem_getlong (xdrs, lp)
 111      XDR *xdrs;
 112      long *lp;
 113 {
 114
 115   if ((xdrs->x_handy -= 4) < 0)
 116     return FALSE;
 117   *lp = (int32_t) ntohl ((*((int32_t *) (xdrs->x_private))));
 118   xdrs->x_private += 4;
 119   return TRUE;
 120 }
 121
 122 /*
 123  * Puts the long pointed to by lp in the memory referenced by xdrs.  It
 124  * then increments the private word to point at the next element.  The
 125  * long pointed at is const
 126  */
 127 static bool_t
 128 xdrmem_putlong (xdrs, lp)
 129      XDR *xdrs;
 130      const long *lp;
 131 {
 132
 133   if ((xdrs->x_handy -= 4) < 0)
 134     return FALSE;
 135   *(int32_t *) xdrs->x_private = htonl (*lp);
 136   xdrs->x_private += 4;
 137   return TRUE;
 138 }
 139
 140 /*
 141  * Gets an unaligned number of bytes from the xdrs structure and writes them
 142  * to the address passed in addr.  Be very careful when calling this routine
 143  * as it could leave the xdrs pointing to an unaligned structure which is not
 144  * a good idea.  None of the things pointed to are const.
 145  */
 146 static bool_t
 147 xdrmem_getbytes (xdrs, addr, len)
 148      XDR *xdrs;
 149      caddr_t addr;
 150      u_int len;
 151 {
 152
 153   if ((xdrs->x_handy -= len) < 0)
 154     return FALSE;
 155   bcopy (xdrs->x_private, addr, len);
 156   xdrs->x_private += len;
 157   return TRUE;
 158 }
 159
 160 /*
 161  * The complementary function to the above.  The same warnings apply about
 162  * unaligned data.  The source address is const.
 163  */
 164 static bool_t
 165 xdrmem_putbytes (xdrs, addr, len)
 166      XDR *xdrs;
 167      const char *addr;
 168      u_int len;
 169 {
 170
 171   if ((xdrs->x_handy -= len) < 0)
 172     return FALSE;
 173   bcopy (addr, xdrs->x_private, len);
 174   xdrs->x_private += len;
 175   return TRUE;
 176 }
 177
 178 /*
 179  * Not sure what this one does.  But it clearly doesn't modify the contents
 180  * of xdrs.  **FIXME** does this not assume u_int == u_long?
 181  */
 182 static u_int
 183 xdrmem_getpos (xdrs)
 184      const XDR *xdrs;
 185 {
 186
 187   return (u_long) xdrs->x_private - (u_long) xdrs->x_base;
 188 }
 189
 190 /*
 191  * xdrs modified
 192  */
 193 static bool_t
 194 xdrmem_setpos (xdrs, pos)
 195      XDR *xdrs;
 196      u_int pos;
 197 {
 198   caddr_t newaddr = xdrs->x_base + pos;
 199   caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
 200
 201   if ((long) newaddr > (long) lastaddr)
 202     return FALSE;
 203   xdrs->x_private = newaddr;
 204   xdrs->x_handy = (long) lastaddr - (long) newaddr;
 205   return TRUE;
 206 }
 207
 208 /*
 209  * xdrs modified
 210  */
 211 static long *
 212 xdrmem_inline (xdrs, len)
 213      XDR *xdrs;
 214      int len;
 215 {
 216   long *buf = 0;
 217
 218   if (xdrs->x_handy >= len)
 219     {
 220       xdrs->x_handy -= len;
 221       buf = (long *) xdrs->x_private;
 222       xdrs->x_private += len;
 223     }
 224   return buf;
 225 }
 226
 227 /*
 228  * Gets the next word from the memory referenced by xdrs and places it
 229  * in the int pointed to by ip.  It then increments the private word to
 230  * point at the next element.  Neither object pointed to is const
 231  */
 232 static bool_t
 233 xdrmem_getint32 (XDR *xdrs, int32_t *ip)
 234 {
 235
 236   if ((xdrs->x_handy -= 4) < 0)
 237     return FALSE;
 238   *ip = ntohl ((*((int32_t *) (xdrs->x_private))));
 239   xdrs->x_private += 4;
 240   return TRUE;
 241 }
 242
 243 /*
 244  * Puts the long pointed to by lp in the memory referenced by xdrs.  It
 245  * then increments the private word to point at the next element.  The
 246  * long pointed at is const
 247  */
 248 static bool_t
 249 xdrmem_putint32 (XDR *xdrs, const int32_t *ip)
 250 {
 251
 252   if ((xdrs->x_handy -= 4) < 0)
 253     return FALSE;
 254   *(int32_t *) xdrs->x_private = htonl (*ip);
 255   xdrs->x_private += 4;
 256   return TRUE;
 257 }