diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2001-08-25 18:22:50 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2001-08-25 18:22:50 +0000 |
commit | d098d810cfbe3c7052f1c0291e582cf8b5c47b03 (patch) | |
tree | c11c60479e3d0bca31614c7ea0358552e3b512ef /libguile/validate.h | |
parent | 9ec1e7705c553141cc48429cd9acec9f1c7b78d7 (diff) | |
download | guile-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.h | 21 |
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); \ |