mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

(SCM_VALIDATE_USHORT_COPY, SCM_VALIDATE_SHORT_COPY,

Browse source 
SCM_VALIDATE_UINT_COPY, SCM_VALIDATE_INT_COPY): New macros.
Thanks to Chris Cramer.
This commit is contained in:
Thien-Thi Nguyen 2001-08-25 18:22:50 +00:00
parent 9ec1e7705c
commit d098d810cf
1 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/validate.h
View file

@ -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. /* Copyright (C) 1999,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -199,6 +198,26 @@
cvar = SCM_INUM (k); \ cvar = SCM_INUM (k); \
} while (0) } 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) \ #define SCM_VALIDATE_ULONG_COPY(pos, k, cvar) \
do { \ do { \
cvar = SCM_NUM2ULONG (pos, k); \ cvar = SCM_NUM2ULONG (pos, k); \