1/* Copyright (c) 1998-2021 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Thorsten Kukuk <kukuk@vt.uni-paderborn.de>, 1998.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
18
19#include <rpc/types.h>
20
21/* We play dirty tricks with aliases. */
22#include <rpc/xdr.h>
23
24#include <stdint.h>
25#include <shlib-compat.h>
26
27/* XDR 64bit integers */
28bool_t
29xdr_int64_t (XDR *xdrs, int64_t *ip)
30{
31 int32_t t1, t2;
32
33 switch (xdrs->x_op)
34 {
35 case XDR_ENCODE:
36 t1 = (int32_t) ((*ip) >> 32);
37 t2 = (int32_t) (*ip);
38 return (XDR_PUTINT32(xdrs, &t1) && XDR_PUTINT32(xdrs, &t2));
39 case XDR_DECODE:
40 if (!XDR_GETINT32(xdrs, &t1) || !XDR_GETINT32(xdrs, &t2))
41 return FALSE;
42 *ip = ((int64_t) t1) << 32;
43 *ip |= (uint32_t) t2; /* Avoid sign extension. */
44 return TRUE;
45 case XDR_FREE:
46 return TRUE;
47 default:
48 return FALSE;
49 }
50}
51libc_hidden_nolink_sunrpc (xdr_int64_t, GLIBC_2_1_1)
52
53bool_t
54xdr_quad_t (XDR *xdrs, quad_t *ip)
55{
56 return xdr_int64_t (xdrs, (int64_t *) ip);
57}
58libc_hidden_nolink_sunrpc (xdr_quad_t, GLIBC_2_3_4)
59
60/* XDR 64bit unsigned integers */
61bool_t
62xdr_uint64_t (XDR *xdrs, uint64_t *uip)
63{
64 uint32_t t1;
65 uint32_t t2;
66
67 switch (xdrs->x_op)
68 {
69 case XDR_ENCODE:
70 t1 = (uint32_t) ((*uip) >> 32);
71 t2 = (uint32_t) (*uip);
72 return (XDR_PUTINT32 (xdrs, (int32_t *) &t1) &&
73 XDR_PUTINT32(xdrs, (int32_t *) &t2));
74 case XDR_DECODE:
75 if (!XDR_GETINT32(xdrs, (int32_t *) &t1) ||
76 !XDR_GETINT32(xdrs, (int32_t *) &t2))
77 return FALSE;
78 *uip = ((uint64_t) t1) << 32;
79 *uip |= t2;
80 return TRUE;
81 case XDR_FREE:
82 return TRUE;
83 default:
84 return FALSE;
85 }
86}
87libc_hidden_nolink_sunrpc (xdr_uint64_t, GLIBC_2_1_1)
88
89bool_t
90xdr_u_quad_t (XDR *xdrs, u_quad_t *ip)
91{
92 return xdr_uint64_t (xdrs, (uint64_t *) ip);
93}
94libc_hidden_nolink_sunrpc (xdr_u_quad_t, GLIBC_2_3_4)
95
96/* XDR 32bit integers */
97bool_t
98xdr_int32_t (XDR *xdrs, int32_t *lp)
99{
100 switch (xdrs->x_op)
101 {
102 case XDR_ENCODE:
103 return XDR_PUTINT32 (xdrs, lp);
104 case XDR_DECODE:
105 return XDR_GETINT32 (xdrs, lp);
106 case XDR_FREE:
107 return TRUE;
108 default:
109 return FALSE;
110 }
111}
112libc_hidden_nolink_sunrpc (xdr_int32_t, GLIBC_2_1)
113
114/* XDR 32bit unsigned integers */
115bool_t
116xdr_uint32_t (XDR *xdrs, uint32_t *ulp)
117{
118 switch (xdrs->x_op)
119 {
120 case XDR_ENCODE:
121 return XDR_PUTINT32 (xdrs, (int32_t *) ulp);
122 case XDR_DECODE:
123 return XDR_GETINT32 (xdrs, (int32_t *) ulp);
124 case XDR_FREE:
125 return TRUE;
126 default:
127 return FALSE;
128 }
129}
130#ifdef EXPORT_RPC_SYMBOLS
131libc_hidden_def (xdr_uint32_t)
132#else
133libc_hidden_nolink_sunrpc (xdr_uint32_t, GLIBC_2_1)
134#endif
135
136/* XDR 16bit integers */
137bool_t
138xdr_int16_t (XDR *xdrs, int16_t *ip)
139{
140 int32_t t;
141
142 switch (xdrs->x_op)
143 {
144 case XDR_ENCODE:
145 t = (int32_t) *ip;
146 return XDR_PUTINT32 (xdrs, &t);
147 case XDR_DECODE:
148 if (!XDR_GETINT32 (xdrs, &t))
149 return FALSE;
150 *ip = (int16_t) t;
151 return TRUE;
152 case XDR_FREE:
153 return TRUE;
154 default:
155 return FALSE;
156 }
157}
158libc_hidden_nolink_sunrpc (xdr_int16_t, GLIBC_2_1)
159
160/* XDR 16bit unsigned integers */
161bool_t
162xdr_uint16_t (XDR *xdrs, uint16_t *uip)
163{
164 uint32_t ut;
165
166 switch (xdrs->x_op)
167 {
168 case XDR_ENCODE:
169 ut = (uint32_t) *uip;
170 return XDR_PUTINT32 (xdrs, (int32_t *) &ut);
171 case XDR_DECODE:
172 if (!XDR_GETINT32 (xdrs, (int32_t *) &ut))
173 return FALSE;
174 *uip = (uint16_t) ut;
175 return TRUE;
176 case XDR_FREE:
177 return TRUE;
178 default:
179 return FALSE;
180 }
181}
182libc_hidden_nolink_sunrpc (xdr_uint16_t, GLIBC_2_1)
183
184/* XDR 8bit integers */
185bool_t
186xdr_int8_t (XDR *xdrs, int8_t *ip)
187{
188 int32_t t;
189
190 switch (xdrs->x_op)
191 {
192 case XDR_ENCODE:
193 t = (int32_t) *ip;
194 return XDR_PUTINT32 (xdrs, &t);
195 case XDR_DECODE:
196 if (!XDR_GETINT32 (xdrs, &t))
197 return FALSE;
198 *ip = (int8_t) t;
199 return TRUE;
200 case XDR_FREE:
201 return TRUE;
202 default:
203 return FALSE;
204 }
205}
206libc_hidden_nolink_sunrpc (xdr_int8_t, GLIBC_2_1)
207
208/* XDR 8bit unsigned integers */
209bool_t
210xdr_uint8_t (XDR *xdrs, uint8_t *uip)
211{
212 uint32_t ut;
213
214 switch (xdrs->x_op)
215 {
216 case XDR_ENCODE:
217 ut = (uint32_t) *uip;
218 return XDR_PUTINT32 (xdrs, (int32_t *) &ut);
219 case XDR_DECODE:
220 if (!XDR_GETINT32 (xdrs, (int32_t *) &ut))
221 return FALSE;
222 *uip = (uint8_t) ut;
223 return TRUE;
224 case XDR_FREE:
225 return TRUE;
226 default:
227 return FALSE;
228 }
229}
230libc_hidden_nolink_sunrpc (xdr_uint8_t, GLIBC_2_1)
231