Update.
[glibc.git] / sunrpc / xdr_stdio.c
blob8588042eeb214b1384b6f78680974aa64c1fe3af
1 /* @(#)xdr_stdio.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.
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.
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.
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.
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.
26 * Sun Microsystems, Inc.
27 * 2550 Garcia Avenue
28 * Mountain View, California 94043
30 #if !defined(lint) && defined(SCCSIDS)
31 static char sccsid[] = "@(#)xdr_stdio.c 1.16 87/08/11 Copyr 1984 Sun Micro";
32 #endif
35 * xdr_stdio.c, XDR implementation on standard i/o file.
37 * Copyright (C) 1984, Sun Microsystems, Inc.
39 * This set of routines implements a XDR on a stdio stream.
40 * XDR_ENCODE serializes onto the stream, XDR_DECODE de-serializes
41 * from the stream.
44 #include <rpc/types.h>
45 #include <stdio.h>
46 #include <rpc/xdr.h>
48 #ifdef USE_IN_LIBIO
49 # include <libio/iolibio.h>
50 # define fflush(s) _IO_fflush (s)
51 # define fread(p, m, n, s) _IO_fread (p, m, n, s)
52 # define ftell(s) _IO_ftell (s)
53 # define fwrite(p, m, n, s) _IO_fwrite (p, m, n, s)
54 #endif
56 static bool_t xdrstdio_getlong (XDR *, long *);
57 static bool_t xdrstdio_putlong (XDR *, const long *);
58 static bool_t xdrstdio_getbytes (XDR *, caddr_t, u_int);
59 static bool_t xdrstdio_putbytes (XDR *, const char *, u_int);
60 static u_int xdrstdio_getpos (const XDR *);
61 static bool_t xdrstdio_setpos (XDR *, u_int);
62 static long *xdrstdio_inline (XDR *, int);
63 static void xdrstdio_destroy (XDR *);
66 * Ops vector for stdio type XDR
68 static const struct xdr_ops xdrstdio_ops =
70 xdrstdio_getlong, /* deserialize a long int */
71 xdrstdio_putlong, /* serialize a long int */
72 xdrstdio_getbytes, /* deserialize counted bytes */
73 xdrstdio_putbytes, /* serialize counted bytes */
74 xdrstdio_getpos, /* get offset in the stream */
75 xdrstdio_setpos, /* set offset in the stream */
76 xdrstdio_inline, /* prime stream for inline macros */
77 xdrstdio_destroy /* destroy stream */
81 * Initialize a stdio xdr stream.
82 * Sets the xdr stream handle xdrs for use on the stream file.
83 * Operation flag is set to op.
85 void
86 xdrstdio_create (xdrs, file, op)
87 XDR *xdrs;
88 FILE *file;
89 enum xdr_op op;
92 xdrs->x_op = op;
93 /* We have to add the const since the `struct xdr_ops' in `struct XDR'
94 is not `const'. */
95 xdrs->x_ops = (struct xdr_ops *) &xdrstdio_ops;
96 xdrs->x_private = (caddr_t) file;
97 xdrs->x_handy = 0;
98 xdrs->x_base = 0;
102 * Destroy a stdio xdr stream.
103 * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create.
105 static void
106 xdrstdio_destroy (xdrs)
107 XDR *xdrs;
109 (void) fflush ((FILE *) xdrs->x_private);
110 /* xx should we close the file ?? */
113 static bool_t
114 xdrstdio_getlong (xdrs, lp)
115 XDR *xdrs;
116 long *lp;
118 int32_t mycopy;
120 if (fread ((caddr_t) & mycopy, 4, 1, (FILE *) xdrs->x_private) != 1)
121 return FALSE;
122 *lp = (int32_t) ntohl (mycopy);
123 return TRUE;
126 static bool_t
127 xdrstdio_putlong (XDR *xdrs, const long *lp)
130 long mycopy = htonl (*lp);
131 lp = &mycopy;
132 if (fwrite ((caddr_t) lp, 4, 1, (FILE *) xdrs->x_private) != 1)
133 return FALSE;
134 return TRUE;
137 static bool_t
138 xdrstdio_getbytes (xdrs, addr, len)
139 XDR *xdrs;
140 const caddr_t addr;
141 u_int len;
144 if ((len != 0) && (fread (addr, (int) len, 1, (FILE *) xdrs->x_private) != 1))
145 return FALSE;
146 return TRUE;
149 static bool_t
150 xdrstdio_putbytes (XDR *xdrs, const char *addr, u_int len)
152 if ((len != 0) && (fwrite (addr, (int) len, 1, (FILE *) xdrs->x_private) != 1))
153 return FALSE;
154 return TRUE;
157 static u_int
158 xdrstdio_getpos (const XDR *xdrs)
160 return (u_int) ftell ((FILE *) xdrs->x_private);
163 static bool_t
164 xdrstdio_setpos (XDR *xdrs, u_int pos)
166 return fseek ((FILE *) xdrs->x_private, (long) pos, 0) < 0 ? FALSE : TRUE;
169 static long *
170 xdrstdio_inline (XDR *xdrs, int len)
174 * Must do some work to implement this: must insure
175 * enough data in the underlying stdio buffer,
176 * that the buffer is aligned so that we can indirect through a
177 * long *, and stuff this pointer in xdrs->x_buf. Doing
178 * a fread or fwrite to a scratch buffer would defeat
179 * most of the gains to be had here and require storage
180 * management on this buffer, so we don't do this.
182 return NULL;