guile/guile-core/libguile ChangeLog validate.h

[Mikael Djurfeldt]

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

Modified files:
        guile-core/libguile: ChangeLog validate.h 

Log message:
        * validate.h (SCM_NUM2FLOAT, SCM_NUM2DOUBLE,
        SCM_VALIDATE_FLOAT_COPY, SCM_VALIDATE_DOUBLE_COPY): New
        macros. (The NUM names might soon change.)

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.1465.2.29&tr2=1.1465.2.30&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/validate.h.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.34.2.1&tr2=1.34.2.2&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1515 
guile/guile-core/libguile/ChangeLog:1.1516
--- guile/guile-core/libguile/ChangeLog:1.1515  Sat Sep 22 17:39:42 2001
+++ guile/guile-core/libguile/ChangeLog Sun Sep 23 17:25:26 2001
@@ -1,3 +1,11 @@
+2001-09-23  Mikael Djurfeldt  <address@hidden>
+
+       * validate.h (SCM_NUM2FLOAT, SCM_NUM2DOUBLE,
+       SCM_VALIDATE_FLOAT_COPY, SCM_VALIDATE_DOUBLE_COPY): New
+       macros. (The NUM names might soon change.)
+
+       * numbers.h: Added missing declarations.
+
 2001-09-22  Mikael Djurfeldt  <address@hidden>
 
        * Makefile.am: Distribute num2float.i.c.
Index: guile/guile-core/libguile/validate.h
diff -u guile/guile-core/libguile/validate.h:1.36 
guile/guile-core/libguile/validate.h:1.37
--- guile/guile-core/libguile/validate.h:1.36   Fri Aug 31 07:17:06 2001
+++ guile/guile-core/libguile/validate.h        Sun Sep 23 17:25:26 2001
@@ -116,6 +116,12 @@
 #define SCM_NUM2ULONG_LONG_DEF(pos, arg, def) \
   (SCM_UNBNDP (arg) ? def : scm_num2ulong_long (arg, pos, FUNC_NAME))
 
+#define SCM_NUM2FLOAT(pos, arg) \
+  (scm_num2float (arg, pos, FUNC_NAME))
+
+#define SCM_NUM2DOUBLE(pos, arg) \
+  (scm_num2double (arg, pos, FUNC_NAME))
+
 #define SCM_OUT_OF_RANGE(pos, arg) \
   do { scm_out_of_range_pos (FUNC_NAME, arg, SCM_MAKINUM (pos)); } while (0)
 
@@ -230,6 +236,16 @@
 #define SCM_VALIDATE_LONG_COPY(pos, k, cvar) \
   do { \
     cvar = SCM_NUM2LONG (pos, k); \
+  } while (0)
+
+#define SCM_VALIDATE_FLOAT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2FLOAT (pos, k); \
+  } while (0)
+
+#define SCM_VALIDATE_DOUBLE_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2DOUBLE (pos, k); \
   } while (0)
 
 #define SCM_VALIDATE_BIGINT(pos, k) SCM_MAKE_VALIDATE (pos, k, BIGP)