[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile validate.h
From: |
Thien-Thi Nguyen |
Subject: |
guile/guile-core/libguile validate.h |
Date: |
Sat, 25 Aug 2001 11:22:50 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Thien-Thi Nguyen <address@hidden> 01/08/25 11:22:50
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&tr1=1.34&tr2=1.35&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) \
- guile/guile-core/libguile validate.h,
Thien-Thi Nguyen <=