sys/cddl/contrib/opensolaris/uts/common/rpc/xdr_mem.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*
  23  * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 /*      Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T     */
  28 /*        All Rights Reserved   */
  29
  30 /*
  31  * Portions of this source code were derived from Berkeley 4.3 BSD
  32  * under license from the Regents of the University of California.
  33  */
  34
  35 #pragma ident   "%Z%%M% %I%     %E% SMI"
  36
  37 /*
  38  * xdr_mem.c, XDR implementation using memory buffers.
  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 #include <sys/param.h>
  46 #include <sys/types.h>
  47 #include <sys/systm.h>
  48
  49 #include <rpc/types.h>
  50 #include <rpc/xdr.h>
  51
  52 static struct xdr_ops *xdrmem_ops(void);
  53
  54 /*
  55  * The procedure xdrmem_create initializes a stream descriptor for a
  56  * memory buffer.
  57  */
  58 void
  59 xdrmem_create(XDR *xdrs, caddr_t addr, uint_t size, enum xdr_op op)
  60 {
  61         xdrs->x_op = op;
  62         xdrs->x_ops = xdrmem_ops();
  63         xdrs->x_private = xdrs->x_base = addr;
  64         xdrs->x_handy = size;
  65         xdrs->x_public = NULL;
  66 }
  67
  68 /* ARGSUSED */
  69 static void
  70 xdrmem_destroy(XDR *xdrs)
  71 {
  72 }
  73
  74 static bool_t
  75 xdrmem_getint32(XDR *xdrs, int32_t *int32p)
  76 {
  77         if ((xdrs->x_handy -= (int)sizeof (int32_t)) < 0)
  78                 return (FALSE);
  79         /* LINTED pointer alignment */
  80         *int32p = (int32_t)ntohl((uint32_t)(*((int32_t *)(xdrs->x_private))));
  81         xdrs->x_private += sizeof (int32_t);
  82         return (TRUE);
  83 }
  84
  85 static bool_t
  86 xdrmem_putint32(XDR *xdrs, int32_t *int32p)
  87 {
  88         if ((xdrs->x_handy -= (int)sizeof (int32_t)) < 0)
  89                 return (FALSE);
  90         /* LINTED pointer alignment */
  91         *(int32_t *)xdrs->x_private = (int32_t)htonl((uint32_t)(*int32p));
  92         xdrs->x_private += sizeof (int32_t);
  93         return (TRUE);
  94 }
  95
  96 static bool_t
  97 xdrmem_getbytes(XDR *xdrs, caddr_t addr, int len)
  98 {
  99         if ((xdrs->x_handy -= len) < 0)
 100                 return (FALSE);
 101         bcopy(xdrs->x_private, addr, len);
 102         xdrs->x_private += len;
 103         return (TRUE);
 104 }
 105
 106 static bool_t
 107 xdrmem_putbytes(XDR *xdrs, caddr_t addr, int len)
 108 {
 109         if ((xdrs->x_handy -= len) < 0)
 110                 return (FALSE);
 111         bcopy(addr, xdrs->x_private, len);
 112         xdrs->x_private += len;
 113         return (TRUE);
 114 }
 115
 116 static uint_t
 117 xdrmem_getpos(XDR *xdrs)
 118 {
 119         return ((uint_t)((uintptr_t)xdrs->x_private - (uintptr_t)xdrs->x_base));
 120 }
 121
 122 static bool_t
 123 xdrmem_setpos(XDR *xdrs, uint_t pos)
 124 {
 125         caddr_t newaddr = xdrs->x_base + pos;
 126         caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
 127         ptrdiff_t diff;
 128
 129         if (newaddr > lastaddr)
 130                 return (FALSE);
 131         xdrs->x_private = newaddr;
 132         diff = lastaddr - newaddr;
 133         xdrs->x_handy = (int)diff;
 134         return (TRUE);
 135 }
 136
 137 static rpc_inline_t *
 138 xdrmem_inline(XDR *xdrs, int len)
 139 {
 140         rpc_inline_t *buf = NULL;
 141
 142         if (xdrs->x_handy >= len) {
 143                 xdrs->x_handy -= len;
 144                 /* LINTED pointer alignment */
 145                 buf = (rpc_inline_t *)xdrs->x_private;
 146                 xdrs->x_private += len;
 147         }
 148         return (buf);
 149 }
 150
 151 static bool_t
 152 xdrmem_control(XDR *xdrs, int request, void *info)
 153 {
 154         xdr_bytesrec *xptr;
 155         int32_t *int32p;
 156         int len;
 157
 158         switch (request) {
 159
 160         case XDR_GET_BYTES_AVAIL:
 161                 xptr = (xdr_bytesrec *)info;
 162                 xptr->xc_is_last_record = TRUE;
 163                 xptr->xc_num_avail = xdrs->x_handy;
 164                 return (TRUE);
 165
 166         case XDR_PEEK:
 167                 /*
 168                  * Return the next 4 byte unit in the XDR stream.
 169                  */
 170                 if (xdrs->x_handy < sizeof (int32_t))
 171                         return (FALSE);
 172                 int32p = (int32_t *)info;
 173                 *int32p = (int32_t)ntohl((uint32_t)
 174                     (*((int32_t *)(xdrs->x_private))));
 175                 return (TRUE);
 176
 177         case XDR_SKIPBYTES:
 178                 /*
 179                  * Skip the next N bytes in the XDR stream.
 180                  */
 181                 int32p = (int32_t *)info;
 182                 len = RNDUP((int)(*int32p));
 183                 if ((xdrs->x_handy -= len) < 0)
 184                         return (FALSE);
 185                 xdrs->x_private += len;
 186                 return (TRUE);
 187
 188         }
 189         return (FALSE);
 190 }
 191
 192 static struct xdr_ops *
 193 xdrmem_ops(void)
 194 {
 195         static struct xdr_ops ops;
 196
 197         if (ops.x_getint32 == NULL) {
 198                 ops.x_getbytes = xdrmem_getbytes;
 199                 ops.x_putbytes = xdrmem_putbytes;
 200                 ops.x_getpostn = xdrmem_getpos;
 201                 ops.x_setpostn = xdrmem_setpos;
 202                 ops.x_inline = xdrmem_inline;
 203                 ops.x_destroy = xdrmem_destroy;
 204                 ops.x_control = xdrmem_control;
 205                 ops.x_getint32 = xdrmem_getint32;
 206                 ops.x_putint32 = xdrmem_putint32;
 207         }
 208         return (&ops);
 209 }