libc/inet/rpc/xdr_float.c

   1 /* @(#)xdr_float.c      2.1 88/07/29 4.0 RPCSRC */
   2 /*
   3  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
   4  * unrestricted use provided that this legend is included on all tape
   5  * media and as a part of the software program in whole or part.  Users
   6  * may copy or modify Sun RPC without charge, but are not authorized
   7  * to license or distribute it to anyone else except as part of a product or
   8  * program developed by the user.
   9  *
  10  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  11  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  12  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  13  *
  14  * Sun RPC is provided with no support and without any obligation on the
  15  * part of Sun Microsystems, Inc. to assist in its use, correction,
  16  * modification or enhancement.
  17  *
  18  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  19  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  20  * OR ANY PART THEREOF.
  21  *
  22  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  23  * or profits or other special, indirect and consequential damages, even if
  24  * Sun has been advised of the possibility of such damages.
  25  *
  26  * Sun Microsystems, Inc.
  27  * 2550 Garcia Avenue
  28  * Mountain View, California  94043
  29  */
  30 #if 0
  31 static char sccsid[] = "@(#)xdr_float.c 1.12 87/08/11 Copyr 1984 Sun Micro";
  32 #endif
  33
  34 /*
  35  * xdr_float.c, Generic XDR routines implementation.
  36  *
  37  * Copyright (C) 1984, Sun Microsystems, Inc.
  38  *
  39  * These are the "floating point" xdr routines used to (de)serialize
  40  * most common data items.  See xdr.h for more info on the interface to
  41  * xdr.
  42  */
  43
  44 #include <stdio.h>
  45 #include <endian.h>
  46
  47 #include <rpc/types.h>
  48 #include <rpc/xdr.h>
  49
  50 /*
  51  * NB: Not portable.
  52  * This routine works on Suns (Sky / 68000's) and Vaxen.
  53  */
  54
  55 #define LSW     (__FLOAT_WORD_ORDER == __BIG_ENDIAN)
  56
  57 bool_t
  58 xdr_float(XDR *xdrs, float *fp)
  59 {
  60         switch (xdrs->x_op) {
  61
  62         case XDR_ENCODE:
  63                 if (sizeof(float) == sizeof(long))
  64                         return (XDR_PUTLONG(xdrs, (long *)fp));
  65                 else if (sizeof(float) == sizeof(int)) {
  66                         long tmp = *(int *)fp;
  67                         return (XDR_PUTLONG(xdrs, &tmp));
  68                 }
  69                 break;
  70
  71         case XDR_DECODE:
  72                 if (sizeof(float) == sizeof(long))
  73                         return (XDR_GETLONG(xdrs, (long *)fp));
  74                 else if (sizeof(float) == sizeof(int)) {
  75                         long tmp;
  76                         if (XDR_GETLONG(xdrs, &tmp)) {
  77                                 *(int *)fp = tmp;
  78                                 return (TRUE);
  79                         }
  80                 }
  81                 break;
  82
  83         case XDR_FREE:
  84                 return (TRUE);
  85         }
  86         return (FALSE);
  87 }
  88
  89 bool_t
  90 xdr_double(XDR *xdrs, double *dp)
  91 {
  92
  93         switch (xdrs->x_op) {
  94
  95         case XDR_ENCODE:
  96                 if (2*sizeof(long) == sizeof(double)) {
  97                         long *lp = (long *)dp;
  98                         return (XDR_PUTLONG(xdrs, lp+!LSW) &&
  99                                 XDR_PUTLONG(xdrs, lp+LSW));
 100                 } else if (2*sizeof(int) == sizeof(double)) {
 101                         int *ip = (int *)dp;
 102                         long tmp[2];
 103                         tmp[0] = ip[!LSW];
 104                         tmp[1] = ip[LSW];
 105                         return (XDR_PUTLONG(xdrs, tmp) &&
 106                                 XDR_PUTLONG(xdrs, tmp+1));
 107                 }
 108                 break;
 109
 110         case XDR_DECODE:
 111                 if (2*sizeof(long) == sizeof(double)) {
 112                         long *lp = (long *)dp;
 113                         return (XDR_GETLONG(xdrs, lp+!LSW) &&
 114                                 XDR_GETLONG(xdrs, lp+LSW));
 115                 } else if (2*sizeof(int) == sizeof(double)) {
 116                         int *ip = (int *)dp;
 117                         long tmp[2];
 118                         if (XDR_GETLONG(xdrs, tmp+!LSW) &&
 119                             XDR_GETLONG(xdrs, tmp+LSW)) {
 120                                 ip[0] = tmp[0];
 121                                 ip[1] = tmp[1];
 122                                 return (TRUE);
 123                         }
 124                 }
 125                 break;
 126
 127         case XDR_FREE:
 128                 return (TRUE);
 129         }
 130         return (FALSE);
 131 }