Update from db 2.4.14.
[kopensolaris-gnu/glibc.git] / sunrpc / xdr_stdio.c
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.
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_stdio.c 1.16 87/08/11 Copyr 1984 Sun Micro";
32 #endif
33
34 /*
35  * xdr_stdio.c, XDR implementation on standard i/o file.
36  *
37  * Copyright (C) 1984, Sun Microsystems, Inc.
38  *
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.
42  */
43
44 #include <rpc/types.h>
45 #include <stdio.h>
46 #include <rpc/xdr.h>
47
48 static bool_t xdrstdio_getlong (XDR *, long *);
49 static bool_t xdrstdio_putlong (XDR *, const long *);
50 static bool_t xdrstdio_getbytes (XDR *, caddr_t, u_int);
51 static bool_t xdrstdio_putbytes (XDR *, const char *, u_int);
52 static u_int xdrstdio_getpos (const XDR *);
53 static bool_t xdrstdio_setpos (XDR *, u_int);
54 static long *xdrstdio_inline (XDR *, int);
55 static void xdrstdio_destroy (XDR *);
56
57 /*
58  * Ops vector for stdio type XDR
59  */
60 static const struct xdr_ops xdrstdio_ops =
61 {
62   xdrstdio_getlong,             /* deserialize a long int */
63   xdrstdio_putlong,             /* serialize a long int */
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      XDR *xdrs;
80      FILE *file;
81      enum xdr_op op;
82 {
83
84   xdrs->x_op = op;
85   /* We have to add the const since the `struct xdr_ops' in `struct XDR'
86      is not `const'.  */
87   xdrs->x_ops = (struct xdr_ops *) &xdrstdio_ops;
88   xdrs->x_private = (caddr_t) file;
89   xdrs->x_handy = 0;
90   xdrs->x_base = 0;
91 }
92
93 /*
94  * Destroy a stdio xdr stream.
95  * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create.
96  */
97 static void
98 xdrstdio_destroy (xdrs)
99      XDR *xdrs;
100 {
101   (void) fflush ((FILE *) xdrs->x_private);
102   /* xx should we close the file ?? */
103 };
104
105 static bool_t
106 xdrstdio_getlong (xdrs, lp)
107      XDR *xdrs;
108      long *lp;
109 {
110   int32_t mycopy;
111
112   if (fread ((caddr_t) & mycopy, 4, 1, (FILE *) xdrs->x_private) != 1)
113     return FALSE;
114   *lp = (int32_t) ntohl (mycopy);
115   return TRUE;
116 }
117
118 static bool_t
119 xdrstdio_putlong (XDR *xdrs, const long *lp)
120 {
121
122   long mycopy = htonl (*lp);
123   lp = &mycopy;
124   if (fwrite ((caddr_t) lp, 4, 1, (FILE *) xdrs->x_private) != 1)
125     return FALSE;
126   return TRUE;
127 }
128
129 static bool_t
130 xdrstdio_getbytes (xdrs, addr, len)
131      XDR *xdrs;
132      const caddr_t addr;
133      u_int len;
134 {
135
136   if ((len != 0) && (fread (addr, (int) len, 1, (FILE *) xdrs->x_private) != 1))
137     return FALSE;
138   return TRUE;
139 }
140
141 static bool_t
142 xdrstdio_putbytes (XDR *xdrs, const char *addr, u_int len)
143 {
144   if ((len != 0) && (fwrite (addr, (int) len, 1, (FILE *) xdrs->x_private) != 1))
145     return FALSE;
146   return TRUE;
147 }
148
149 static u_int
150 xdrstdio_getpos (const XDR *xdrs)
151 {
152   return (u_int) ftell ((FILE *) xdrs->x_private);
153 }
154
155 static bool_t
156 xdrstdio_setpos (XDR *xdrs, u_int pos)
157 {
158   return fseek ((FILE *) xdrs->x_private, (long) pos, 0) < 0 ? FALSE : TRUE;
159 }
160
161 static long *
162 xdrstdio_inline (XDR *xdrs, int len)
163 {
164
165   /*
166    * Must do some work to implement this: must insure
167    * enough data in the underlying stdio buffer,
168    * that the buffer is aligned so that we can indirect through a
169    * long *, and stuff this pointer in xdrs->x_buf.  Doing
170    * a fread or fwrite to a scratch buffer would defeat
171    * most of the gains to be had here and require storage
172    * management on this buffer, so we don't do this.
173    */
174   return NULL;
175 }