summaryrefslogtreecommitdiff
path: root/libguile/validate.h
diff options
context:
space:
mode:
authorThien-Thi Nguyen <ttn@gnuvola.org>2001-08-25 18:22:50 +0000
committerThien-Thi Nguyen <ttn@gnuvola.org>2001-08-25 18:22:50 +0000
commitd098d810cfbe3c7052f1c0291e582cf8b5c47b03 (patch)
treec11c60479e3d0bca31614c7ea0358552e3b512ef /libguile/validate.h
parent9ec1e7705c553141cc48429cd9acec9f1c7b78d7 (diff)
downloadguile-d098d810cfbe3c7052f1c0291e582cf8b5c47b03.tar.gz
(SCM_VALIDATE_USHORT_COPY, SCM_VALIDATE_SHORT_COPY,
SCM_VALIDATE_UINT_COPY, SCM_VALIDATE_INT_COPY): New macros. Thanks to Chris Cramer.
Diffstat (limited to 'libguile/validate.h')
-rw-r--r--libguile/validate.h21
1 files changed, 20 insertions, 1 deletions
diff --git a/libguile/validate.h b/libguile/validate.h
index 51a9708cf..869ae97a4 100644
--- a/libguile/validate.h
+++ b/libguile/validate.h
@@ -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
@@ -199,6 +198,26 @@
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) \
do { \
cvar = SCM_NUM2ULONG (pos, k); \