src/rx/xdr_stdio.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("$Header$");
  33
  34 #ifndef NeXT
  35
  36 /*
  37  * xdr_stdio.c, XDR implementation on standard i/o file.
  38  *
  39  * Copyright (C) 1984, Sun Microsystems, Inc.
  40  *
  41  * This set of routines implements a XDR on a stdio stream.
  42  * XDR_ENCODE serializes onto the stream, XDR_DECODE de-serializes
  43  * from the stream.
  44  */
  45
  46 #include <stdio.h>
  47 #include "xdr.h"
  48
  49 static bool_t   xdrstdio_getint32();
  50 static bool_t   xdrstdio_putint32();
  51 static bool_t   xdrstdio_getbytes();
  52 static bool_t   xdrstdio_putbytes();
  53 static u_int    xdrstdio_getpos();
  54 static bool_t   xdrstdio_setpos();
  55 static afs_int32 *      xdrstdio_inline();
  56 static void     xdrstdio_destroy();
  57
  58 /*
  59  * Ops vector for stdio type XDR
  60  */
  61 static struct xdr_ops   xdrstdio_ops = {
  62         xdrstdio_getint32,      /* deserialize an afs_int32 */
  63         xdrstdio_putint32,      /* serialize an afs_int32 */
  64         xdrstdio_getbytes,      /* deserialize counted bytes */
  65         xdrstdio_putbytes,      /* serialize counted bytes */
  66         xdrstdio_getpos,        /* get offset in the stream */
  67         xdrstdio_setpos,        /* set offset in the stream */
  68         xdrstdio_inline,        /* prime stream for inline macros */
  69         xdrstdio_destroy        /* destroy stream */
  70 };
  71
  72 /*
  73  * Initialize a stdio xdr stream.
  74  * Sets the xdr stream handle xdrs for use on the stream file.
  75  * Operation flag is set to op.
  76  */
  77 void
  78 xdrstdio_create(xdrs, file, op)
  79         register XDR *xdrs;
  80         FILE *file;
  81         enum xdr_op op;
  82 {
  83
  84         xdrs->x_op = op;
  85         xdrs->x_ops = &xdrstdio_ops;
  86         xdrs->x_private = (caddr_t)file;
  87         xdrs->x_handy = 0;
  88         xdrs->x_base = 0;
  89 }
  90
  91 /*
  92  * Destroy a stdio xdr stream.
  93  * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create.
  94  */
  95 static void
  96 xdrstdio_destroy(xdrs)
  97         register XDR *xdrs;
  98 {
  99         (void)fflush((FILE *)xdrs->x_private);
 100         /* xx should we close the file ?? */
 101 };
 102
 103 static bool_t
 104 xdrstdio_getint32(xdrs, lp)
 105         XDR *xdrs;
 106         register afs_int32 *lp;
 107 {
 108
 109         if (fread((caddr_t)lp, sizeof(afs_int32), 1, (FILE *)xdrs->x_private) != 1)
 110                 return (FALSE);
 111 #ifndef mc68000
 112         *lp = ntohl(*lp);
 113 #endif
 114         return (TRUE);
 115 }
 116
 117 static bool_t
 118 xdrstdio_putint32(xdrs, lp)
 119         XDR *xdrs;
 120         afs_int32 *lp;
 121 {
 122
 123 #ifndef mc68000
 124         afs_int32 mycopy = htonl(*lp);
 125         lp = &mycopy;
 126 #endif
 127         if (fwrite((caddr_t)lp, sizeof(afs_int32), 1, (FILE *)xdrs->x_private) != 1)
 128                 return (FALSE);
 129         return (TRUE);
 130 }
 131
 132 static bool_t
 133 xdrstdio_getbytes(xdrs, addr, len)
 134         XDR *xdrs;
 135         caddr_t addr;
 136         u_int len;
 137 {
 138
 139         if ((len != 0) && (fread(addr, (int)len, 1, (FILE *)xdrs->x_private) != 1))
 140                 return (FALSE);
 141         return (TRUE);
 142 }
 143
 144 static bool_t
 145 xdrstdio_putbytes(xdrs, addr, len)
 146         XDR *xdrs;
 147         caddr_t addr;
 148         u_int len;
 149 {
 150
 151         if ((len != 0) && (fwrite(addr, (int)len, 1, (FILE *)xdrs->x_private) != 1))
 152                 return (FALSE);
 153         return (TRUE);
 154 }
 155
 156 static u_int
 157 xdrstdio_getpos(xdrs)
 158         XDR *xdrs;
 159 {
 160
 161         return ((u_int) ftell((FILE *)xdrs->x_private));
 162 }
 163
 164 static bool_t
 165 xdrstdio_setpos(xdrs, pos)
 166         XDR *xdrs;
 167         u_int pos;
 168 {
 169
 170         return ((fseek((FILE *)xdrs->x_private, (afs_int32)pos, 0) < 0) ?
 171                 FALSE : TRUE);
 172 }
 173
 174 static afs_int32 *
 175 xdrstdio_inline(xdrs, len)
 176         XDR *xdrs;
 177         u_int len;
 178 {
 179
 180         /*
 181          * Must do some work to implement this: must insure
 182          * enough data in the underlying stdio buffer,
 183          * that the buffer is aligned so that we can indirect through a
 184          * afs_int32 *, and stuff this pointer in xdrs->x_buf.  Doing
 185          * a fread or fwrite to a scratch buffer would defeat
 186          * most of the gains to be had here and require storage
 187          * management on this buffer, so we don't do this.
 188          */
 189         return (NULL);
 190 }
 191 #endif /* NeXT */