===================================================================
RCS file: /home/cvs/OpenXM_contrib/gmp/mpfr/Attic/print_raw.c,v
retrieving revision 1.1
retrieving revision 1.1.1.2
diff -u -p -r1.1 -r1.1.1.2
--- OpenXM_contrib/gmp/mpfr/Attic/print_raw.c	2000/09/09 14:12:19	1.1
+++ OpenXM_contrib/gmp/mpfr/Attic/print_raw.c	2003/08/25 16:06:07	1.1.1.2
@@ -1,21 +1,21 @@
-/* mpfr_print_raw -- print the internal binary representation of a 
+/* mpfr_print_binary -- print the internal binary representation of a 
                      floating-point number
 
-Copyright (C) 1999 PolKA project, Inria Lorraine and Loria
+Copyright 1999, 2000, 2001 Free Software Foundation, Inc.
 
 This file is part of the MPFR Library.
 
 The MPFR Library is free software; you can redistribute it and/or modify
-it under the terms of the GNU Library General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at your
+it under the terms of the GNU Lesser General Public License as published by
+the Free Software Foundation; either version 2.1 of the License, or (at your
 option) any later version.
 
 The MPFR Library is distributed in the hope that it will be useful, but
 WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
+or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
 License for more details.
 
-You should have received a copy of the GNU Library General Public License
+You should have received a copy of the GNU Lesser General Public License
 along with the MPFR Library; see the file COPYING.LIB.  If not, write to
 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 MA 02111-1307, USA. */
@@ -24,30 +24,27 @@ MA 02111-1307, USA. */
 #include "gmp.h"
 #include "gmp-impl.h"
 #include "mpfr.h"
+#include "mpfr-impl.h"
 
-void
-#if __STDC__
-mpfr_get_str_raw(char *digit_ptr, mpfr_srcptr x)
-#else
-mpfr_get_str_raw(digit_ptr, x)
-     char *digit_ptr; 
-     mpfr_srcptr x; 
-#endif
+static void mpfr_get_str_raw _PROTO ((char *, mpfr_srcptr));
+
+static void
+mpfr_get_str_raw (char *digit_ptr, mpfr_srcptr x)
 {
   mp_limb_t *mx, wd, t; long ex, sx, k, l, p;
 
-  mx = MANT(x); 
-  ex = EXP(x); 
-  p = PREC(x); 
+  mx = MPFR_MANT(x); 
+  ex = MPFR_EXP(x); 
+  p = MPFR_PREC(x); 
 
-  if (SIGN(x) < 0) { *digit_ptr = '-'; digit_ptr++; }
+  if (MPFR_SIGN(x) < 0) { *digit_ptr = '-'; digit_ptr++; }
   sprintf(digit_ptr, "0."); digit_ptr += 2; 
 
-  sx = 1+(p-1)/mp_bits_per_limb; /* number of significant limbs */
+  sx = 1+(p-1)/BITS_PER_MP_LIMB; /* number of significant limbs */
   for (k = sx - 1; k >= 0 ; k--)
     { 
       wd = mx[k]; 
-      t = ((mp_limb_t)1) << (BITS_PER_MP_LIMB - 1); 
+      t = GMP_LIMB_HIGHBIT;
       for (l = BITS_PER_MP_LIMB - 1; l>=0; l--)
 	{
 	  if (wd & t) 
@@ -62,30 +59,33 @@ mpfr_get_str_raw(digit_ptr, x)
 }
  
 void
-#if __STDC__
-mpfr_print_raw(mpfr_srcptr x)
-#else
-mpfr_print_raw(x)
-     mpfr_srcptr x; 
-#endif
+mpfr_print_binary (mpfr_srcptr x)
 {
-  char *str; 
+  char *str;
+  unsigned long alloc_size;
 
-  if (FLAG_NAN(x)) printf("NaN");
-  else if (!NOTZERO(x)) printf("0");
+  if (MPFR_IS_NAN(x)) printf("NaN");
+  else if (MPFR_IS_INF(x)) {
+    if (MPFR_SIGN(x) == 1) { printf("Inf"); } else printf("-Inf"); 
+  }
+  else if (!MPFR_NOTZERO(x)) {
+    if (MPFR_SIGN(x) < 0) printf("-");
+    printf("0");
+  }
   else {
      /* 3 char for sign + 0 + binary point
-	+ ABSSIZE(x) * BITS_PER_MP_LIMB for mantissa
+	+ MPFR_ABSSIZE(x) * BITS_PER_MP_LIMB for mantissa
 	+ 2 for brackets in mantissa
 	+ 1 for 'E'
 	+ 11 for exponent (including sign)
-	= 17 + ABSSIZE(x) * BITS_PER_MP_LIMB
+	= 17 + MPFR_ABSSIZE(x) * BITS_PER_MP_LIMB
       */
-     str = (char *) malloc((17 + ABSSIZE(x) * BITS_PER_MP_LIMB)*sizeof(char));
+    alloc_size = 17 + MPFR_ABSSIZE(x) * BITS_PER_MP_LIMB;
+     str = (char *) (*__gmp_allocate_func) (alloc_size * sizeof(char));
      mpfr_get_str_raw(str, x);
 
      printf("%s", str); 
-     free(str); 
+     (*__gmp_free_func) (str, alloc_size * sizeof(char));
   }
 }