Fix typo.
[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   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      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_getlong (xdrs, lp)
105      XDR *xdrs;
106      long *lp;
107 {
108   int32_t mycopy;
109
110   if (fread ((caddr_t) & mycopy, 4, 1, (FILE *) xdrs->x_private) != 1)
111     return FALSE;
112   *lp = (int32_t) ntohl (mycopy);
113   return TRUE;
114 }
115
116 static bool_t
117 xdrstdio_putlong (XDR *xdrs, const long *lp)
118 {
119
120   long mycopy = htonl (*lp);
121   lp = &mycopy;
122   if (fwrite ((caddr_t) lp, 4, 1, (FILE *) xdrs->x_private) != 1)
123     return FALSE;
124   return TRUE;
125 }
126
127 static bool_t
128 xdrstdio_getbytes (xdrs, addr, len)
129      XDR *xdrs;
130      const caddr_t addr;
131      u_int len;
132 {
133
134   if ((len != 0) && (fread (addr, (int) len, 1, (FILE *) xdrs->x_private) != 1))
135     return FALSE;
136   return TRUE;
137 }
138
139 static bool_t
140 xdrstdio_putbytes (XDR *xdrs, const char *addr, u_int len)
141 {
142   if ((len != 0) && (fwrite (addr, (int) len, 1, (FILE *) xdrs->x_private) != 1))
143     return FALSE;
144   return TRUE;
145 }
146
147 static u_int
148 xdrstdio_getpos (const XDR *xdrs)
149 {
150   return (u_int) ftell ((FILE *) xdrs->x_private);
151 }
152
153 static bool_t
154 xdrstdio_setpos (XDR *xdrs, u_int pos)
155 {
156   return fseek ((FILE *) xdrs->x_private, (long) pos, 0) < 0 ? FALSE : TRUE;
157 }
158
159 static long *
160 xdrstdio_inline (XDR *xdrs, int len)
161 {
162
163   /*
164    * Must do some work to implement this: must insure
165    * enough data in the underlying stdio buffer,
166    * that the buffer is aligned so that we can indirect through a
167    * long *, and stuff this pointer in xdrs->x_buf.  Doing
168    * a fread or fwrite to a scratch buffer would defeat
169    * most of the gains to be had here and require storage
170    * management on this buffer, so we don't do this.
171    */
172   return NULL;
173 }