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 RCSID
  33     ("$Header$");
  34
  35 #ifndef NeXT
  36
  37 /*
  38  * xdr_mem.h, XDR implementation using memory buffers.
  39  *
  40  * Copyright (C) 1984, Sun Microsystems, Inc.
  41  *
  42  * If you have some data to be interpreted as external data representation
  43  * or to be converted to external data representation in a memory buffer,
  44  * then this is the package for you.
  45  *
  46  */
  47
  48 #include "xdr.h"
  49 #ifndef AFS_NT40_ENV
  50 #include <netinet/in.h>
  51 #else
  52 #include <limits.h>
  53 #endif
  54
  55 static bool_t xdrmem_getint32();
  56 static bool_t xdrmem_putint32();
  57 static bool_t xdrmem_getbytes();
  58 static bool_t xdrmem_putbytes();
  59 static u_int xdrmem_getpos();
  60 static bool_t xdrmem_setpos();
  61 static afs_int32 *xdrmem_inline();
  62 static void xdrmem_destroy();
  63
  64 static struct xdr_ops xdrmem_ops = {
  65     xdrmem_getint32,
  66     xdrmem_putint32,
  67     xdrmem_getbytes,
  68     xdrmem_putbytes,
  69     xdrmem_getpos,
  70     xdrmem_setpos,
  71     xdrmem_inline,
  72     xdrmem_destroy
  73 };
  74
  75 /*
  76  * The procedure xdrmem_create initializes a stream descriptor for a
  77  * memory buffer.
  78  */
  79 void
  80 xdrmem_create(register XDR * xdrs, caddr_t addr, u_int size, enum xdr_op op)
  81 {
  82     xdrs->x_op = op;
  83     xdrs->x_ops = &xdrmem_ops;
  84     xdrs->x_private = xdrs->x_base = addr;
  85     xdrs->x_handy = (size > INT_MAX) ? INT_MAX : size;  /* XXX */
  86 }
  87
  88 static void
  89 xdrmem_destroy(void)
  90 {
  91 }
  92
  93 static bool_t
  94 xdrmem_getint32(register XDR * xdrs, afs_int32 * lp)
  95 {
  96     if (xdrs->x_handy < sizeof(afs_int32))
  97         return (FALSE);
  98     else
  99         xdrs->x_handy -= sizeof(afs_int32);
 100     *lp = ntohl(*((afs_int32 *) (xdrs->x_private)));
 101     xdrs->x_private += sizeof(afs_int32);
 102     return (TRUE);
 103 }
 104
 105 static bool_t
 106 xdrmem_putint32(register XDR * xdrs, afs_int32 * lp)
 107 {
 108     if (xdrs->x_handy < sizeof(afs_int32))
 109         return (FALSE);
 110     else
 111         xdrs->x_handy -= sizeof(afs_int32);
 112     *(afs_int32 *) xdrs->x_private = htonl(*lp);
 113     xdrs->x_private += sizeof(afs_int32);
 114     return (TRUE);
 115 }
 116
 117 static bool_t
 118 xdrmem_getbytes(register XDR * xdrs, caddr_t addr, register u_int len)
 119 {
 120     if (xdrs->x_handy < len)
 121         return (FALSE);
 122     else
 123         xdrs->x_handy -= len;
 124     memcpy(addr, xdrs->x_private, len);
 125     xdrs->x_private += len;
 126     return (TRUE);
 127 }
 128
 129 static bool_t
 130 xdrmem_putbytes(register XDR * xdrs, caddr_t addr, register u_int len)
 131 {
 132     if (xdrs->x_handy < len)
 133         return (FALSE);
 134     else
 135         xdrs->x_handy -= len;
 136     memcpy(xdrs->x_private, addr, len);
 137     xdrs->x_private += len;
 138     return (TRUE);
 139 }
 140
 141 static u_int
 142 xdrmem_getpos(register XDR * xdrs)
 143 {
 144     return ((u_int) xdrs->x_private - (u_int) xdrs->x_base);
 145 }
 146
 147 static bool_t
 148 xdrmem_setpos(register XDR * xdrs, u_int pos)
 149 {
 150     register caddr_t newaddr = xdrs->x_base + pos;
 151     register caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
 152
 153     if ((afs_int32) newaddr > (afs_int32) lastaddr)
 154         return (FALSE);
 155     xdrs->x_private = newaddr;
 156     xdrs->x_handy = (int)lastaddr - (int)newaddr;
 157     return (TRUE);
 158 }
 159
 160 static afs_int32 *
 161 xdrmem_inline(register XDR * xdrs, int len)
 162 {
 163     afs_int32 *buf = 0;
 164
 165     if (len >= 0 && xdrs->x_handy >= len) {
 166         xdrs->x_handy -= len;
 167         buf = (afs_int32 *) xdrs->x_private;
 168         xdrs->x_private += len;
 169     }
 170     return (buf);
 171 }
 172 #endif /* NeXT */