guile/guile-core/libguile numbers.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Mikael Djurfeldt <address@hidden>       01/09/22 17:42:14

Modified files:
        guile-core/libguile: numbers.c 

Log message:
        * num2float.i.c: New file, multiply included by numbers.c, used
        to "templatize" the float <-> num conversion routines.
        
        * numbers.c: New functions: scm_num2float, scm_float2num,
        scm_num2double, scm_double2num.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/numbers.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.135.2.5&tr2=1.135.2.6&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/numbers.c
diff -u guile/guile-core/libguile/numbers.c:1.142 
guile/guile-core/libguile/numbers.c:1.143
--- guile/guile-core/libguile/numbers.c:1.142   Fri Sep 21 13:56:31 2001
+++ guile/guile-core/libguile/numbers.c Sat Sep 22 17:39:42 2001
@@ -4365,6 +4365,16 @@
 
 #endif /* HAVE_LONG_LONGS */
 
+#define NUM2FLOAT scm_num2float
+#define FLOAT2NUM scm_float2num
+#define FTYPE float
+#include "libguile/num2float.i.c"
+
+#define NUM2FLOAT scm_num2double
+#define FLOAT2NUM scm_double2num
+#define FTYPE double
+#include "libguile/num2float.i.c"
+
 #ifdef GUILE_DEBUG
 
 #define CHECK(type, v) \