xdr_stdio.c revision 273188 
1/*	$NetBSD: xdr_stdio.c,v 1.14 2000/01/22 22:19:19 mycroft Exp $	*/
2
3/*-
4 * Copyright (c) 2010, Oracle America, Inc.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions are
8 * met:
9 *
10 *     * Redistributions of source code must retain the above copyright
11 *       notice, this list of conditions and the following disclaimer.
12 *     * Redistributions in binary form must reproduce the above
13 *       copyright notice, this list of conditions and the following
14 *       disclaimer in the documentation and/or other materials
15 *       provided with the distribution.
16 *     * Neither the name of the "Oracle America, Inc." nor the names of its
17 *       contributors may be used to endorse or promote products derived
18 *       from this software without specific prior written permission.
19 *
20 *   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
21 *   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
22 *   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
23 *   FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
24 *   COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
25 *   INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 *   DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
27 *   GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
28 *   INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29 *   WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
30 *   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
31 *   OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 */
33
34#if defined(LIBC_SCCS) && !defined(lint)
35static char *sccsid2 = "@(#)xdr_stdio.c 1.16 87/08/11 Copyr 1984 Sun Micro";
36static char *sccsid = "@(#)xdr_stdio.c	2.1 88/07/29 4.0 RPCSRC";
37#endif
38#include <sys/cdefs.h>
39__FBSDID("$FreeBSD: releng/10.1/lib/libc/xdr/xdr_stdio.c 273188 2014-10-16 22:00:24Z hrs $");
40
41/*
42 * xdr_stdio.c, XDR implementation on standard i/o file.
43 *
44 * This set of routines implements a XDR on a stdio stream.
45 * XDR_ENCODE serializes onto the stream, XDR_DECODE de-serializes
46 * from the stream.
47 */
48
49#include "namespace.h"
50#include <stdio.h>
51
52#include <arpa/inet.h>
53#include <rpc/types.h>
54#include <rpc/xdr.h>
55#include "un-namespace.h"
56
57static void xdrstdio_destroy(XDR *);
58static bool_t xdrstdio_getlong(XDR *, long *);
59static bool_t xdrstdio_putlong(XDR *, const long *);
60static bool_t xdrstdio_getbytes(XDR *, char *, u_int);
61static bool_t xdrstdio_putbytes(XDR *, const char *, u_int);
62static u_int xdrstdio_getpos(XDR *);
63static bool_t xdrstdio_setpos(XDR *, u_int);
64static int32_t *xdrstdio_inline(XDR *, u_int);
65
66/*
67 * Ops vector for stdio type XDR
68 */
69static const struct xdr_ops	xdrstdio_ops = {
70	xdrstdio_getlong,	/* deseraialize a long int */
71	xdrstdio_putlong,	/* seraialize 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 */
78};
79
80/*
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.
84 */
85void
86xdrstdio_create(xdrs, file, op)
87	XDR *xdrs;
88	FILE *file;
89	enum xdr_op op;
90{
91
92	xdrs->x_op = op;
93	xdrs->x_ops = &xdrstdio_ops;
94	xdrs->x_private = file;
95	xdrs->x_handy = 0;
96	xdrs->x_base = 0;
97}
98
99/*
100 * Destroy a stdio xdr stream.
101 * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create.
102 */
103static void
104xdrstdio_destroy(xdrs)
105	XDR *xdrs;
106{
107	(void)fflush((FILE *)xdrs->x_private);
108		/* XXX: should we close the file ?? */
109}
110
111static bool_t
112xdrstdio_getlong(xdrs, lp)
113	XDR *xdrs;
114	long *lp;
115{
116	u_int32_t temp;
117
118	if (fread(&temp, sizeof(int32_t), 1, (FILE *)xdrs->x_private) != 1)
119		return (FALSE);
120	*lp = (long)ntohl(temp);
121	return (TRUE);
122}
123
124static bool_t
125xdrstdio_putlong(xdrs, lp)
126	XDR *xdrs;
127	const long *lp;
128{
129	int32_t mycopy = htonl((u_int32_t)*lp);
130
131	if (fwrite(&mycopy, sizeof(int32_t), 1, (FILE *)xdrs->x_private) != 1)
132		return (FALSE);
133	return (TRUE);
134}
135
136static bool_t
137xdrstdio_getbytes(xdrs, addr, len)
138	XDR *xdrs;
139	char *addr;
140	u_int len;
141{
142
143	if ((len != 0) && (fread(addr, (size_t)len, 1, (FILE *)xdrs->x_private) != 1))
144		return (FALSE);
145	return (TRUE);
146}
147
148static bool_t
149xdrstdio_putbytes(xdrs, addr, len)
150	XDR *xdrs;
151	const char *addr;
152	u_int len;
153{
154
155	if ((len != 0) && (fwrite(addr, (size_t)len, 1,
156	    (FILE *)xdrs->x_private) != 1))
157		return (FALSE);
158	return (TRUE);
159}
160
161static u_int
162xdrstdio_getpos(xdrs)
163	XDR *xdrs;
164{
165
166	return ((u_int) ftell((FILE *)xdrs->x_private));
167}
168
169static bool_t
170xdrstdio_setpos(xdrs, pos)
171	XDR *xdrs;
172	u_int pos;
173{
174
175	return ((fseek((FILE *)xdrs->x_private, (long)pos, 0) < 0) ?
176		FALSE : TRUE);
177}
178
179/* ARGSUSED */
180static int32_t *
181xdrstdio_inline(xdrs, len)
182	XDR *xdrs;
183	u_int len;
184{
185
186	/*
187	 * Must do some work to implement this: must insure
188	 * enough data in the underlying stdio buffer,
189	 * that the buffer is aligned so that we can indirect through a
190	 * long *, and stuff this pointer in xdrs->x_buf.  Doing
191	 * a fread or fwrite to a scratch buffer would defeat
192	 * most of the gains to be had here and require storage
193	 * management on this buffer, so we don't do this.
194	 */
195	return (NULL);
196}
197