Add eXtensible Data Record (XDR) support

	* configure.host: Build libc/xdr only on cygwin.
	* Makefile.am: Install xdr headers.
	* libc/configure.in: Support new libc/xdr subdirectory.
	* libc/Makefile.am: Support new libc/xdr subdirectory.
	* libc/include/rpc/types.h: New.
	* libc/include/rpc/xdr.h: New.
	* libc/xdr/README: New.
	* libc/xdr/Makefile.am: New.
	* libc/xdr/dummy.c: New.
	* libc/xdr/xdr.c: New.
	* libc/xdr/xdr_array.c: New.
	* libc/xdr/xdr_float.c: New.
	* libc/xdr/xdr_float_vax.c: New.
	* libc/xdr/xdr_mem.c: New.
	* libc/xdr/xdr_private.c: New.
	* libc/xdr/xdr_private.h: New.
	* libc/xdr/xdr_rec.c: New.
	* libc/xdr/xdr_reference.c: New.
	* libc/xdr/xdr_sizeof.c: New.
	* libc/xdr/xdr_stdio.c: New.

	Regenerate using ac-2.63 and am-1.11.1
	* libc/xdr/Makefile.in: New.
	* Makefile.in: Regenerate.
	* libc/configure: Regenerate.
	* libc/Makefile.in: Regenerate.
	* libc/argz/Makefile.in: Regenerate.
	* libc/ctype/Makefile.in: Regenerate.
	* libc/errno/Makefile.in: Regenerate.
	* libc/iconv/ccs/binary/Makefile.in: Regenerate.
	* libc/iconv/ccs/Makefile.in: Regenerate.
	* libc/iconv/ces/Makefile.in: Regenerate.
	* libc/iconv/lib/Makefile.in: Regenerate.
	* libc/iconv/Makefile.in: Regenerate.
	* libc/locale/Makefile.in: Regenerate.
	* libc/misc/Makefile.in: Regenerate.
	* libc/posix/Makefile.in: Regenerate.
	* libc/reent/Makefile.in: Regenerate.
	* libc/search/Makefile.in: Regenerate.
	* libc/signal/Makefile.in: Regenerate.
	* libc/stdio/Makefile.in: Regenerate.
	* libc/stdio64/Makefile.in: Regenerate.
	* libc/stdlib/Makefile.in: Regenerate.
	* libc/string/Makefile.in: Regenerate.
	* libc/syscalls/Makefile.in: Regenerate.
	* libc/time/Makefile.in: Regenerate.
	* libc/unix/Makefile.in: Regenerate.

1 files changed, 254 insertions, 0 deletions

diff --git a/newlib/libc/xdr/xdr_float_vax.c b/newlib/libc/xdr/xdr_float_vax.c
new file mode 100644
index 000000000..323e43ed8
--- /dev/null
+++ b/newlib/libc/xdr/xdr_float_vax.c
@@ -0,0 +1,254 @@
+
+/*
+ * Copyright (c) 2009, Sun Microsystems, Inc.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ * - Redistributions of source code must retain the above copyright notice,
+ *   this list of conditions and the following disclaimer.
+ * - Redistributions in binary form must reproduce the above copyright notice,
+ *   this list of conditions and the following disclaimer in the documentation
+ *   and/or other materials provided with the distribution.
+ * - Neither the name of Sun Microsystems, Inc. nor the names of its
+ *   contributors may be used to endorse or promote products derived
+ *   from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+/*
+ * xdr_float_vax.c, XDR floating point routines for vax.
+ *
+ * Copyright (C) 1984, Sun Microsystems, Inc.
+ *
+ * These are the "floating point" xdr routines used to (de)serialize
+ * most common data items.  See xdr.h for more info on the interface to
+ * xdr.
+ */
+#ifndef XDR_FLOAT_C
+#error "Must be included from xdr_float.c"
+#endif
+
+/* What IEEE single precision floating point looks like on a Vax */
+struct ieee_single
+{
+  unsigned int mantissa:23;
+  unsigned int exp:8;
+  unsigned int sign:1;
+};
+
+/* Vax single precision floating point */
+struct vax_single
+{
+  unsigned int mantissa1:7;
+  unsigned int exp:8;
+  unsigned int sign:1;
+  unsigned int mantissa2:16;
+};
+
+# define VAX_SNG_BIAS   0x81
+# define IEEE_SNG_BIAS  0x7f
+
+/* *INDENT-OFF*
+*/
+static struct sgl_limits
+{
+  struct vax_single s;
+  struct ieee_single ieee;
+} sgl_limits[2] =
+{
+  {
+    {0x7f, 0xff, 0x0, 0xffff},   /* Max Vax */
+    {0x0, 0xff, 0x0}             /* Max IEEE */
+  },
+  {
+    {0x0, 0x0, 0x0, 0x0},        /* Min Vax */
+    {0x0, 0x0, 0x0}              /* Min IEEE */
+  }
+};
+/* *INDENT-ON*
+*/
+
+bool_t
+_DEFUN (xdr_float, (xdrs, fp),
+       XDR * xdrs _AND
+       float *fp)
+{
+  struct ieee_single is;
+  struct vax_single vs, *vsp;
+  struct sgl_limits *lim;
+  int i;
+  switch (xdrs->x_op)
+    {
+
+    case XDR_ENCODE:
+      vs = *((struct vax_single *) fp);
+      for (i = 0, lim = sgl_limits;
+           i < sizeof (sgl_limits) / sizeof (struct sgl_limits); i++, lim++)
+        {
+          if ((vs.mantissa2 == lim->s.mantissa2) &&
+              (vs.exp == lim->s.exp) && (vs.mantissa1 == lim->s.mantissa1))
+            {
+              is = lim->ieee;
+              goto shipit;
+            }
+        }
+      is.exp = vs.exp - VAX_SNG_BIAS + IEEE_SNG_BIAS;
+      is.mantissa = (vs.mantissa1 << 16) | vs.mantissa2;
+    shipit:
+      is.sign = vs.sign;
+      return (XDR_PUTINT32 (xdrs, (int32_t *) & is));
+
+    case XDR_DECODE:
+      vsp = (struct vax_single *) fp;
+      if (!XDR_GETINT32 (xdrs, (int32_t *) & is))
+        return FALSE;
+      for (i = 0, lim = sgl_limits;
+           i < sizeof (sgl_limits) / sizeof (struct sgl_limits); i++, lim++)
+        {
+          if ((is.exp == lim->ieee.exp) &&
+              (is.mantissa == lim->ieee.mantissa))
+            {
+              *vsp = lim->s;
+              goto doneit;
+            }
+        }
+      vsp->exp = is.exp - IEEE_SNG_BIAS + VAX_SNG_BIAS;
+      vsp->mantissa2 = is.mantissa;
+      vsp->mantissa1 = (is.mantissa >> 16);
+    doneit:
+      vsp->sign = is.sign;
+      return TRUE;
+
+    case XDR_FREE:
+      return TRUE;
+    }
+  return FALSE;
+}
+
+#if !defined(_DOUBLE_IS_32BITS)
+
+/* What IEEE double precision floating point looks like on a Vax */
+struct ieee_double
+{
+  unsigned int mantissa1:20;
+  unsigned int exp:11;
+  unsigned int sign:1;
+  unsigned int mantissa2:32;
+};
+
+/* Vax double precision floating point */
+struct vax_double
+{
+  unsigned int mantissa1:7;
+  unsigned int exp:8;
+  unsigned int sign:1;
+  unsigned int mantissa2:16;
+  unsigned int mantissa3:16;
+  unsigned int mantissa4:16;
+};
+
+# define VAX_DBL_BIAS   0x81
+# define IEEE_DBL_BIAS  0x3ff
+# define MASK(nbits)    ((1 << nbits) - 1)
+
+/* *INDENT-OFF*
+*/
+static struct dbl_limits
+{
+  struct vax_double d;
+  struct ieee_double ieee;
+} dbl_limits[2] =
+{
+  {
+    {0x7f, 0xff, 0x0, 0xffff, 0xffff, 0xffff},  /* Max Vax */
+    {0x0, 0x7ff, 0x0, 0x0}                      /* Max IEEE */
+  },
+  {
+    {0x0, 0x0, 0x0, 0x0, 0x0, 0x0},             /* Min Vax */
+    {0x0, 0x0, 0x0, 0x0}                        /* Min IEEE */
+  }
+};
+/* *INDENT-ON*
+*/
+
+bool_t
+_DEFUN (xdr_double, (xdrs, dp),
+        XDR * xdrs _AND
+	double *dp)
+{
+  int32_t *lp;
+  struct ieee_double id;
+  struct vax_double vd;
+  struct dbl_limits *lim;
+  int i;
+
+  switch (xdrs->x_op)
+    {
+
+    case XDR_ENCODE:
+      vd = *((struct vax_double *) dp);
+      for (i = 0, lim = dbl_limits;
+           i < sizeof (dbl_limits) / sizeof (struct dbl_limits); i++, lim++)
+        {
+          if ((vd.mantissa4 == lim->d.mantissa4) &&
+              (vd.mantissa3 == lim->d.mantissa3) &&
+              (vd.mantissa2 == lim->d.mantissa2) &&
+              (vd.mantissa1 == lim->d.mantissa1) && (vd.exp == lim->d.exp))
+            {
+              id = lim->ieee;
+              goto shipit;
+            }
+        }
+      id.exp = vd.exp - VAX_DBL_BIAS + IEEE_DBL_BIAS;
+      id.mantissa1 = (vd.mantissa1 << 13) | (vd.mantissa2 >> 3);
+      id.mantissa2 = ((vd.mantissa2 & MASK (3)) << 29) |
+        (vd.mantissa3 << 13) | ((vd.mantissa4 >> 3) & MASK (13));
+    shipit:
+      id.sign = vd.sign;
+      lp = (int32_t *) & id;
+      return (XDR_PUTINT32 (xdrs, lp++) && XDR_PUTINT32 (xdrs, lp));
+
+    case XDR_DECODE:
+      lp = (int32_t *) & id;
+      if (!XDR_GETINT32 (xdrs, lp++) || !XDR_GETINT32 (xdrs, lp))
+        return FALSE;
+      for (i = 0, lim = dbl_limits;
+           i < sizeof (dbl_limits) / sizeof (struct dbl_limits); i++, lim++)
+        {
+          if ((id.mantissa2 == lim->ieee.mantissa2) &&
+              (id.mantissa1 == lim->ieee.mantissa1) &&
+              (id.exp == lim->ieee.exp))
+            {
+              vd = lim->d;
+              goto doneit;
+            }
+        }
+      vd.exp = id.exp - IEEE_DBL_BIAS + VAX_DBL_BIAS;
+      vd.mantissa1 = (id.mantissa1 >> 13);
+      vd.mantissa2 = ((id.mantissa1 & MASK (13)) << 3) | (id.mantissa2 >> 29);
+      vd.mantissa3 = (id.mantissa2 >> 13);
+      vd.mantissa4 = (id.mantissa2 << 3);
+    doneit:
+      vd.sign = id.sign;
+      *dp = *((double *) &vd);
+      return TRUE;
+
+    case XDR_FREE:
+      return TRUE;
+    }
+  return FALSE;
+}
+#endif /* !_DOUBLE_IS_32BITS */
+