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

* snarf.h: Add SCM_VCELL_INIT and SCM_GLOBAL_VCELL_INIT macros;

Browse source 
these are analogous to SCM_VCELL and SCM_GLOBAL_VCELL but take a
third argument, a C expression that should result in a SCM value,
which is used to initialize the variable. Reimplemented
SCM_CONST_LONG in terms of SCM_VCELL_INIT.  (Thanks to Maciej
Stachowiak.)
This commit is contained in:
Jim Blandy 1998-09-29 19:57:22 +00:00
parent 9a3c114901
commit 2e07d03336
1 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/snarf.h
View file

@ -1,3 +1,4 @@
/* classes: h_files */
/* Macros for snarfing initialization actions from C source. */
@ -109,13 +110,22 @@
%%% C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, SCM_BOOL_F)
#endif
#ifndef SCM_MAGIC_SNARFER
#define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) \
static SCM C_NAME = SCM_BOOL_F
#define SCM_VCELL_INIT(c_name, scheme_name, init_val) \
static SCM c_name = SCM_BOOL_F
#else
#define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) \
%%% C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, scm_long2num (VALUE))
#define SCM_VCELL_INIT(C_NAME, SCHEME_NAME, init_val) \
%%% C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, init_val)
#endif
#ifndef SCM_MAGIC_SNARFER
#define SCM_GLOBAL_VCELL_INIT(c_name, scheme_name, init_val) \
SCM c_name = SCM_BOOL_F
#else
#define SCM_GLOBAL_VCELL_INIT(C_NAME, SCHEME_NAME, init_val) \
%%% C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, init_val)
#endif
#define SCM_CONST_LONG(C_NAME, SCHEME_NAME,VALUE) SCM_VCELL_INIT(C_NAME, SCHEME_NAME, scm_long2num(VALUE));
#endif /* LIBGUILE_SNARF_H */