xdr_float.c revision 1.5
1 /* 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. 8 * 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. 12 * 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. 16 * 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. 20 * 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. 24 * 25 * Sun Microsystems, Inc. 26 * 2550 Garcia Avenue 27 * Mountain View, California 94043 28 */ 29 30 #if defined(LIBC_SCCS) && !defined(lint) 31 /*static char *sccsid = "from: @(#)xdr_float.c 1.12 87/08/11 Copyr 1984 Sun Micro";*/ 32 /*static char *sccsid = "from: @(#)xdr_float.c 2.1 88/07/29 4.0 RPCSRC";*/ 33 static char *rcsid = "$Id: xdr_float.c,v 1.5 1994/12/22 15:02:58 cgd Exp $"; 34 #endif 35 36 /* 37 * xdr_float.c, Generic XDR routines impelmentation. 38 * 39 * Copyright (C) 1984, Sun Microsystems, Inc. 40 * 41 * These are the "floating point" xdr routines used to (de)serialize 42 * most common data items. See xdr.h for more info on the interface to 43 * xdr. 44 */ 45 46 #include <stdio.h> 47 #include <sys/types.h> 48 #include <sys/param.h> 49 #include <rpc/types.h> 50 #include <rpc/xdr.h> 51 52 /* 53 * NB: Not portable. 54 * This routine works on Suns (Sky / 68000's), i386's, MIPS, NS32k and Vaxen, 55 * Sparcs, and Alphas 56 */ 57 58 #if defined(__m68k__) || defined(__sparc__) || defined(__i386__) || \ 59 defined(__mips__) || defined(__ns32k__) || defined(__alpha__) 60 #define IEEEFP 61 #endif 62 63 #ifdef vax 64 65 /* What IEEE single precision floating point looks like on a Vax */ 66 struct ieee_single { 67 unsigned int mantissa: 23; 68 unsigned int exp : 8; 69 unsigned int sign : 1; 70 }; 71 72 /* Vax single precision floating point */ 73 struct vax_single { 74 unsigned int mantissa1 : 7; 75 unsigned int exp : 8; 76 unsigned int sign : 1; 77 unsigned int mantissa2 : 16; 78 }; 79 80 #define VAX_SNG_BIAS 0x81 81 #define IEEE_SNG_BIAS 0x7f 82 83 static struct sgl_limits { 84 struct vax_single s; 85 struct ieee_single ieee; 86 } sgl_limits[2] = { 87 {{ 0x7f, 0xff, 0x0, 0xffff }, /* Max Vax */ 88 { 0x0, 0xff, 0x0 }}, /* Max IEEE */ 89 {{ 0x0, 0x0, 0x0, 0x0 }, /* Min Vax */ 90 { 0x0, 0x0, 0x0 }} /* Min IEEE */ 91 }; 92 #endif /* vax */ 93 94 bool_t 95 xdr_float(xdrs, fp) 96 register XDR *xdrs; 97 register float *fp; 98 { 99 #ifdef IEEEFP 100 bool_t rv; 101 long tmpl; 102 #else 103 struct ieee_single is; 104 struct vax_single vs, *vsp; 105 struct sgl_limits *lim; 106 int i; 107 #endif 108 switch (xdrs->x_op) { 109 110 case XDR_ENCODE: 111 #ifdef IEEEFP 112 tmpl = *(int32_t *)fp; 113 return (XDR_PUTLONG(xdrs, &tmpl)); 114 #else 115 vs = *((struct vax_single *)fp); 116 for (i = 0, lim = sgl_limits; 117 i < sizeof(sgl_limits)/sizeof(struct sgl_limits); 118 i++, lim++) { 119 if ((vs.mantissa2 == lim->s.mantissa2) && 120 (vs.exp == lim->s.exp) && 121 (vs.mantissa1 == lim->s.mantissa1)) { 122 is = lim->ieee; 123 goto shipit; 124 } 125 } 126 is.exp = vs.exp - VAX_SNG_BIAS + IEEE_SNG_BIAS; 127 is.mantissa = (vs.mantissa1 << 16) | vs.mantissa2; 128 shipit: 129 is.sign = vs.sign; 130 return (XDR_PUTLONG(xdrs, (long *)&is)); 131 #endif 132 133 case XDR_DECODE: 134 #ifdef IEEEFP 135 rv = XDR_GETLONG(xdrs, &tmpl); 136 *(int32_t *)fp = tmpl; 137 return (rv); 138 #else 139 vsp = (struct vax_single *)fp; 140 if (!XDR_GETLONG(xdrs, (long *)&is)) 141 return (FALSE); 142 for (i = 0, lim = sgl_limits; 143 i < sizeof(sgl_limits)/sizeof(struct sgl_limits); 144 i++, lim++) { 145 if ((is.exp == lim->ieee.exp) && 146 (is.mantissa == lim->ieee.mantissa)) { 147 *vsp = lim->s; 148 goto doneit; 149 } 150 } 151 vsp->exp = is.exp - IEEE_SNG_BIAS + VAX_SNG_BIAS; 152 vsp->mantissa2 = is.mantissa; 153 vsp->mantissa1 = (is.mantissa >> 16); 154 doneit: 155 vsp->sign = is.sign; 156 return (TRUE); 157 #endif 158 159 case XDR_FREE: 160 return (TRUE); 161 } 162 return (FALSE); 163 } 164 165 /* 166 * This routine works on Suns (Sky / 68000's), i386's, MIPS and Vaxen. 167 */ 168 169 #ifdef vax 170 /* What IEEE double precision floating point looks like on a Vax */ 171 struct ieee_double { 172 unsigned int mantissa1 : 20; 173 unsigned int exp : 11; 174 unsigned int sign : 1; 175 unsigned int mantissa2 : 32; 176 }; 177 178 /* Vax double precision floating point */ 179 struct vax_double { 180 unsigned int mantissa1 : 7; 181 unsigned int exp : 8; 182 unsigned int sign : 1; 183 unsigned int mantissa2 : 16; 184 unsigned int mantissa3 : 16; 185 unsigned int mantissa4 : 16; 186 }; 187 188 #define VAX_DBL_BIAS 0x81 189 #define IEEE_DBL_BIAS 0x3ff 190 #define MASK(nbits) ((1 << nbits) - 1) 191 192 static struct dbl_limits { 193 struct vax_double d; 194 struct ieee_double ieee; 195 } dbl_limits[2] = { 196 {{ 0x7f, 0xff, 0x0, 0xffff, 0xffff, 0xffff }, /* Max Vax */ 197 { 0x0, 0x7ff, 0x0, 0x0 }}, /* Max IEEE */ 198 {{ 0x0, 0x0, 0x0, 0x0, 0x0, 0x0}, /* Min Vax */ 199 { 0x0, 0x0, 0x0, 0x0 }} /* Min IEEE */ 200 }; 201 202 #endif /* vax */ 203 204 205 bool_t 206 xdr_double(xdrs, dp) 207 register XDR *xdrs; 208 double *dp; 209 { 210 #ifdef IEEEFP 211 register int32_t *i32p; 212 bool_t rv; 213 long tmpl; 214 #else 215 register long *lp; 216 struct ieee_double id; 217 struct vax_double vd; 218 register struct dbl_limits *lim; 219 int i; 220 #endif 221 222 switch (xdrs->x_op) { 223 224 case XDR_ENCODE: 225 #ifdef IEEEFP 226 i32p = (int32_t *)dp; 227 #if BYTE_ORDER == BIG_ENDIAN 228 tmpl = *i32p++; 229 rv = XDR_PUTLONG(xdrs, &tmpl); 230 if (!rv) 231 return (rv); 232 tmpl = *i32p; 233 rv = XDR_PUTLONG(xdrs, &tmpl); 234 #else 235 tmpl = *i32p+1; 236 rv = XDR_PUTLONG(xdrs, &tmpl); 237 if (!rv) 238 return (rv); 239 tmpl = *i32p; 240 rv = XDR_PUTLONG(xdrs, &tmpl); 241 #endif 242 return (rv); 243 #else 244 vd = *((struct vax_double *)dp); 245 for (i = 0, lim = dbl_limits; 246 i < sizeof(dbl_limits)/sizeof(struct dbl_limits); 247 i++, lim++) { 248 if ((vd.mantissa4 == lim->d.mantissa4) && 249 (vd.mantissa3 == lim->d.mantissa3) && 250 (vd.mantissa2 == lim->d.mantissa2) && 251 (vd.mantissa1 == lim->d.mantissa1) && 252 (vd.exp == lim->d.exp)) { 253 id = lim->ieee; 254 goto shipit; 255 } 256 } 257 id.exp = vd.exp - VAX_DBL_BIAS + IEEE_DBL_BIAS; 258 id.mantissa1 = (vd.mantissa1 << 13) | (vd.mantissa2 >> 3); 259 id.mantissa2 = ((vd.mantissa2 & MASK(3)) << 29) | 260 (vd.mantissa3 << 13) | 261 ((vd.mantissa4 >> 3) & MASK(13)); 262 shipit: 263 id.sign = vd.sign; 264 lp = (long *)&id; 265 return (XDR_PUTLONG(xdrs, lp++) && XDR_PUTLONG(xdrs, lp)); 266 #endif 267 268 case XDR_DECODE: 269 #ifdef IEEEFP 270 i32p = (int32_t *)dp; 271 #if BYTE_ORDER == BIG_ENDIAN 272 rv = XDR_GETLONG(xdrs, &tmpl); 273 *i32p++ = tmpl; 274 if (!rv) 275 return (rv); 276 rv = XDR_GETLONG(xdrs, &tmpl); 277 *i32p = tmpl; 278 #else 279 rv = XDR_GETLONG(xdrs, &tmpl); 280 *(i32p+1) = tmpl; 281 if (!rv) 282 return (rv); 283 rv = XDR_GETLONG(xdrs, &tmpl); 284 *i32p = tmpl; 285 #endif 286 return (rv); 287 #else 288 lp = (long *)&id; 289 if (!XDR_GETLONG(xdrs, lp++) || !XDR_GETLONG(xdrs, lp)) 290 return (FALSE); 291 for (i = 0, lim = dbl_limits; 292 i < sizeof(dbl_limits)/sizeof(struct dbl_limits); 293 i++, lim++) { 294 if ((id.mantissa2 == lim->ieee.mantissa2) && 295 (id.mantissa1 == lim->ieee.mantissa1) && 296 (id.exp == lim->ieee.exp)) { 297 vd = lim->d; 298 goto doneit; 299 } 300 } 301 vd.exp = id.exp - IEEE_DBL_BIAS + VAX_DBL_BIAS; 302 vd.mantissa1 = (id.mantissa1 >> 13); 303 vd.mantissa2 = ((id.mantissa1 & MASK(13)) << 3) | 304 (id.mantissa2 >> 29); 305 vd.mantissa3 = (id.mantissa2 >> 13); 306 vd.mantissa4 = (id.mantissa2 << 3); 307 doneit: 308 vd.sign = id.sign; 309 *dp = *((double *)&vd); 310 return (TRUE); 311 #endif 312 313 case XDR_FREE: 314 return (TRUE); 315 } 316 return (FALSE); 317 } 318
Indexes created Mon Sep 22 05:09:51 GMT 2025