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