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.
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.
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.
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.
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.
25 * Sun Microsystems, Inc.
27 * Mountain View, California 94043
31 * xdr_stdio.c, XDR implementation on standard i/o file.
33 * Copyright (C) 1984, Sun Microsystems, Inc.
35 * This set of routines implements a XDR on a stdio stream.
36 * XDR_ENCODE serializes onto the stream, XDR_DECODE de-serializes
40 #include <rpc/types.h>
45 # include <libio/iolibio.h>
46 # define fflush(s) _IO_fflush (s)
47 # define fread(p, m, n, s) _IO_fread (p, m, n, s)
48 # define ftell(s) _IO_ftell (s)
49 # define fwrite(p, m, n, s) _IO_fwrite (p, m, n, s)
53 static bool_t
xdrstdio_getlong (XDR
*, long *);
54 static bool_t
xdrstdio_putlong (XDR
*, const long *);
55 static bool_t
xdrstdio_getbytes (XDR
*, caddr_t
, u_int
);
56 static bool_t
xdrstdio_putbytes (XDR
*, const char *, u_int
);
57 static u_int
xdrstdio_getpos (const XDR
*);
58 static bool_t
xdrstdio_setpos (XDR
*, u_int
);
59 static int32_t *xdrstdio_inline (XDR
*, u_int
);
60 static void xdrstdio_destroy (XDR
*);
61 static bool_t
xdrstdio_getint32 (XDR
*, int32_t *);
62 static bool_t
xdrstdio_putint32 (XDR
*, const int32_t *);
65 * Ops vector for stdio type XDR
67 static const struct xdr_ops xdrstdio_ops
=
69 xdrstdio_getlong
, /* deserialize a long int */
70 xdrstdio_putlong
, /* serialize a long int */
71 xdrstdio_getbytes
, /* deserialize counted bytes */
72 xdrstdio_putbytes
, /* serialize counted bytes */
73 xdrstdio_getpos
, /* get offset in the stream */
74 xdrstdio_setpos
, /* set offset in the stream */
75 xdrstdio_inline
, /* prime stream for inline macros */
76 xdrstdio_destroy
, /* destroy stream */
77 xdrstdio_getint32
, /* deserialize a int */
78 xdrstdio_putint32
/* serialize a int */
82 * Initialize a stdio xdr stream.
83 * Sets the xdr stream handle xdrs for use on the stream file.
84 * Operation flag is set to op.
87 xdrstdio_create (XDR
*xdrs
, FILE *file
, enum xdr_op op
)
90 /* We have to add the const since the `struct xdr_ops' in `struct XDR'
92 xdrs
->x_ops
= (struct xdr_ops
*) &xdrstdio_ops
;
93 xdrs
->x_private
= (caddr_t
) file
;
99 * Destroy a stdio xdr stream.
100 * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create.
103 xdrstdio_destroy (XDR
*xdrs
)
105 (void) fflush ((FILE *) xdrs
->x_private
);
106 /* xx should we close the file ?? */
110 xdrstdio_getlong (XDR
*xdrs
, long *lp
)
114 if (fread ((caddr_t
) &mycopy
, 4, 1, (FILE *) xdrs
->x_private
) != 1)
116 *lp
= (long) ntohl (mycopy
);
121 xdrstdio_putlong (XDR
*xdrs
, const long *lp
)
123 int32_t mycopy
= htonl ((u_int32_t
) *lp
);
125 if (fwrite ((caddr_t
) &mycopy
, 4, 1, (FILE *) xdrs
->x_private
) != 1)
131 xdrstdio_getbytes (XDR
*xdrs
, const caddr_t addr
, u_int len
)
133 if ((len
!= 0) && (fread (addr
, (int) len
, 1,
134 (FILE *) xdrs
->x_private
) != 1))
140 xdrstdio_putbytes (XDR
*xdrs
, const char *addr
, u_int len
)
142 if ((len
!= 0) && (fwrite (addr
, (int) len
, 1,
143 (FILE *) xdrs
->x_private
) != 1))
149 xdrstdio_getpos (const XDR
*xdrs
)
151 return (u_int
) ftell ((FILE *) xdrs
->x_private
);
155 xdrstdio_setpos (XDR
*xdrs
, u_int pos
)
157 return fseek ((FILE *) xdrs
->x_private
, (long) pos
, 0) < 0 ? FALSE
: TRUE
;
161 xdrstdio_inline (XDR
*xdrs attribute_unused
, u_int len attribute_unused
)
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.
176 xdrstdio_getint32 (XDR
*xdrs
, int32_t *ip
)
180 if (fread ((caddr_t
) &mycopy
, 4, 1, (FILE *) xdrs
->x_private
) != 1)
182 *ip
= ntohl (mycopy
);
187 xdrstdio_putint32 (XDR
*xdrs
, const int32_t *ip
)
189 int32_t mycopy
= htonl (*ip
);
192 if (fwrite ((caddr_t
) ip
, 4, 1, (FILE *) xdrs
->x_private
) != 1)