(float_get_double): New function.

diff --git a/src/libpspp/ChangeLog b/src/libpspp/ChangeLog
index 8c8e30c221b2dc5c398415ad53693caa6156bc69..f66e386c0b7fbc963b41d97926e9dc1aba185086 100644 (file)
--- a/src/libpspp/ChangeLog
+++ b/src/libpspp/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-22  Ben Pfaff  <blp@gnu.org>
+
+       * float-format.c (float_get_double): New function.
+
 2007-07-06  Ben Pfaff  <blp@gnu.org>
 
        * copyleft.c (legal): Update startup notice to use format

diff --git a/src/libpspp/float-format.c b/src/libpspp/float-format.c
index 7d65375ada731657a8ea50c221d843f8dacdb21e..79ba94469fc9fa085f2318d5f48d596f9c6b752f 100644 (file)
--- a/src/libpspp/float-format.c
+++ b/src/libpspp/float-format.c
@@ -106,6 +106,16 @@ float_convert (enum float_format from, const void *src,
     }
 }
 
+/* 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