guile/guile-core/libguile validate.h

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Thien-Thi Nguyen <address@hidden>       01/08/25 11:31:56

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

Log message:
        (SCM_VALIDATE_USHORT_COPY, SCM_VALIDATE_SHORT_COPY,
        SCM_VALIDATE_UINT_COPY, SCM_VALIDATE_INT_COPY): New macros.
        Thanks to Chris Cramer.

CVSWeb URLs:
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&tr2=1.34.2.1&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/validate.h
diff -u guile/guile-core/libguile/validate.h:1.34 
guile/guile-core/libguile/validate.h:1.35
--- guile/guile-core/libguile/validate.h:1.34   Tue Jun 26 03:59:34 2001
+++ guile/guile-core/libguile/validate.h        Sat Aug 25 11:22:50 2001
@@ -1,4 +1,3 @@
-/* $Id: validate.h,v 1.34 2001/06/26 10:59:34 dirk Exp $ */
 /* Copyright (C) 1999,2000,2001 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
@@ -197,6 +196,26 @@
   do { \
     SCM_ASSERT (SCM_INUMP (k), k, pos, FUNC_NAME); \
     cvar = SCM_INUM (k); \
+  } while (0)
+
+#define SCM_VALIDATE_USHORT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2USHORT (pos, k); \
+  } while (0)
+
+#define SCM_VALIDATE_SHORT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2SHORT (pos, k); \
+  } while (0)
+
+#define SCM_VALIDATE_UINT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2UINT (pos, k); \
+  } while (0)
+
+#define SCM_VALIDATE_INT_COPY(pos, k, cvar) \
+  do { \
+    cvar = SCM_NUM2INT (pos, k); \
   } while (0)
 
 #define SCM_VALIDATE_ULONG_COPY(pos, k, cvar) \