[Pspp-cvs] pspp/src/libpspp ChangeLog float-format.c

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 07/07/23 04:46:31

Modified files:
        src/libpspp    : ChangeLog float-format.c 

Log message:
        (float_get_double): New function.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/libpspp/ChangeLog?cvsroot=pspp&r1=1.73&r2=1.74
http://cvs.savannah.gnu.org/viewcvs/pspp/src/libpspp/float-format.c?cvsroot=pspp&r1=1.4&r2=1.5

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/src/libpspp/ChangeLog,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -b -r1.73 -r1.74
--- ChangeLog   12 Jul 2007 04:30:12 -0000      1.73
+++ ChangeLog   23 Jul 2007 04:46:30 -0000      1.74
@@ -1,3 +1,7 @@
+2007-07-22  Ben Pfaff  <address@hidden>
+
+       * float-format.c (float_get_double): New function.
+
 2007-07-06  Ben Pfaff  <address@hidden>
 
        * copyleft.c (legal): Update startup notice to use format

Index: float-format.c
===================================================================
RCS file: /cvsroot/pspp/pspp/src/libpspp/float-format.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- float-format.c      7 Jul 2007 06:14:20 -0000       1.4
+++ float-format.c      23 Jul 2007 04:46:31 -0000      1.5
@@ -106,6 +106,16 @@
     }
 }
 
+/* Converts SRC from format FROM to a native double and returns
+   the double. */
+double
+float_get_double (enum float_format from, const void *src)
+{
+  double dst;
+  float_convert (from, src, FLOAT_NATIVE_DOUBLE, &dst);
+  return dst;
+}
+
 /* Returns the number of bytes in a number in the given
    FORMAT. */
 size_t