mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Devolve variable snarfers

Browse source 
* libguile/snarf.h:
* libguile/variable.h (SCM_VARIABLE, SCM_GLOBAL_VARIABLE):
  (SCM_VARIABLE_INIT, SCM_GLOBAL_VARIABLE_INIT): Move here.
This commit is contained in:
Andy Wingo 2018-06-20 09:26:26 +02:00
parent af32bf8ff1
commit 5ee73e7def
2 changed files with 21 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/snarf.h
View file

@ -85,22 +85,6 @@ DOCSTRING ^^ }
# endif # endif
#endif #endif
#define SCM_VARIABLE(c_name, scheme_name) \
SCM_SNARF_HERE(static SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, SCM_BOOL_F);)
#define SCM_GLOBAL_VARIABLE(c_name, scheme_name) \
SCM_SNARF_HERE(SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, SCM_BOOL_F);)
#define SCM_VARIABLE_INIT(c_name, scheme_name, init_val) \
SCM_SNARF_HERE(static SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, init_val);)
#define SCM_GLOBAL_VARIABLE_INIT(c_name, scheme_name, init_val) \
SCM_SNARF_HERE(SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, init_val);)
#define SCM_MUTEX(c_name) \ #define SCM_MUTEX(c_name) \
SCM_SNARF_HERE(static scm_t_mutex c_name) \ SCM_SNARF_HERE(static scm_t_mutex c_name) \
SCM_SNARF_INIT(scm_i_plugin_mutex_init (&c_name, &scm_i_plugin_mutex)) SCM_SNARF_INIT(scm_i_plugin_mutex_init (&c_name, &scm_i_plugin_mutex))

21
libguile/variable.h
View file

@ -27,6 +27,7 @@
#include "libguile/__scm.h" #include "libguile/__scm.h"
#include <libguile/error.h> #include <libguile/error.h>
#include <libguile/gc.h> #include <libguile/gc.h>
#include <libguile/snarf.h>
@ -40,6 +41,26 @@
#define SCM_VALIDATE_VARIABLE(pos, var) \ #define SCM_VALIDATE_VARIABLE(pos, var) \
SCM_MAKE_VALIDATE_MSG (pos, var, VARIABLEP, "variable") SCM_MAKE_VALIDATE_MSG (pos, var, VARIABLEP, "variable")
#define SCM_VARIABLE(c_name, scheme_name) \
SCM_SNARF_HERE(static SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, SCM_BOOL_F);)
#define SCM_GLOBAL_VARIABLE(c_name, scheme_name) \
SCM_SNARF_HERE(SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, SCM_BOOL_F);)
#define SCM_VARIABLE_INIT(c_name, scheme_name, init_val) \
SCM_SNARF_HERE(static SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, init_val);)
#define SCM_GLOBAL_VARIABLE_INIT(c_name, scheme_name, init_val) \
SCM_SNARF_HERE(SCM c_name) \
SCM_SNARF_INIT(c_name = scm_c_define (scheme_name, init_val);)
SCM_API SCM scm_make_variable (SCM init); SCM_API SCM scm_make_variable (SCM init);