diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-12 11:59:57 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-12 11:59:57 +0000 |
commit | 94a708591fb73fd4bfa719d8453cba7217f3f141 (patch) | |
tree | dae74585ca3e84e1e2e7d1cc09b5287aa18e0ad7 | |
parent | ffdcbb3f8d507dc70b1f786ed9c4c70c0759e8af (diff) | |
download | guile-94a708591fb73fd4bfa719d8453cba7217f3f141.tar.gz |
* snarf.h (SCM_SNARF_HERE, SCM_SNARF_INIT, SCM_SNARF_DOCS):
Renamed from SCM_HERE, SCM_INIT, SCM_DOCS.
-rw-r--r-- | libguile/snarf.h | 99 |
1 files changed, 52 insertions, 47 deletions
diff --git a/libguile/snarf.h b/libguile/snarf.h index 688762e68..ee6d91597 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -63,116 +63,121 @@ * initializes them to the result of foo (), do: * * #define SCM_FOO(NAME) \ - * SCM_HERE (int NAME) \ - * SCM_INIT (NAME = foo ()) + * SCM_SNARF_HERE (int NAME) \ + * SCM_SNARF_INIT (NAME = foo ()) * - * The SCM_INIT text goes into the corresponding .x file + * The SCM_SNARF_INIT text goes into the corresponding .x file * up through the first occurrence of SCM__D on that line, if any. */ #ifndef SCM_MAGIC_SNARFER -# define SCM_HERE(X) X -# define SCM_INIT(X) -# define SCM_DOCS(X) +# define SCM_SNARF_HERE(X) X +# define SCM_SNARF_INIT(X) +# define SCM_SNARF_DOCS(X) #else -# define SCM_HERE(X) -# define SCM_INIT(X) SCM__I X -# define SCM_DOCS(X) X +# define SCM_SNARF_HERE(X) +# define SCM_SNARF_INIT(X) SCM__I X +# define SCM_SNARF_DOCS(X) X #endif #define SCM_DEFINE(FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) \ -SCM_HERE(\ +SCM_SNARF_HERE(\ static const char s_ ## FNAME [] = PRIMNAME; \ SCM FNAME ARGLIST\ )\ -SCM_INIT(\ -scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) FNAME); \ +SCM_SNARF_INIT(\ +scm_make_gsubr (s_ ## FNAME, REQ, OPT, VAR, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) FNAME); \ )\ -SCM_DOCS(\ +SCM_SNARF_DOCS(\ SCM__DP PRIMNAME #ARGLIST | REQ | OPT | VAR | __FILE__:__LINE__ | SCM__S DOCSTRING SCM__E \ ) #define SCM_DEFINE1(FNAME, PRIMNAME, TYPE, ARGLIST, DOCSTRING) \ -SCM_HERE(\ +SCM_SNARF_HERE(\ static const char s_ ## FNAME [] = PRIMNAME; \ SCM FNAME ARGLIST\ )\ -SCM_INIT(scm_make_subr (s_ ## FNAME, TYPE, FNAME); ) \ -SCM_DOCS(\ +SCM_SNARF_INIT(scm_make_subr (s_ ## FNAME, TYPE, FNAME); ) \ +SCM_SNARF_DOCS(\ SCM__D1 PRIMNAME #ARGLIST | 2 | 0 | 0 | __FILE__:__LINE__ | SCM__S DOCSTRING SCM__E \ ) #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ -SCM_HERE(static const char RANAME[]=STR) \ -SCM_INIT(scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN)) +SCM_SNARF_HERE(static const char RANAME[]=STR) \ +SCM_SNARF_INIT(scm_make_gsubr (RANAME, REQ, OPT, VAR, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN)) #define SCM_REGISTER_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ -SCM_HERE(static const char RANAME[]=STR) \ -SCM_INIT(scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN);) \ -SCM_DOCS(\ +SCM_SNARF_HERE(static const char RANAME[]=STR) \ +SCM_SNARF_INIT(scm_make_gsubr (RANAME, REQ, OPT, VAR, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN);) \ +SCM_SNARF_DOCS(\ SCM__DR STR | REQ | OPT | VAR | __FILE__:__LINE__ | SCM__S CFN SCM__E \ ) #define SCM_GPROC(RANAME, STR, REQ, OPT, VAR, CFN, GF) \ -SCM_HERE(\ +SCM_SNARF_HERE(\ static const char RANAME[]=STR;\ static SCM GF \ -)SCM_INIT(\ +)SCM_SNARF_INIT(\ GF = SCM_PACK (0); /* Dirk:FIXME:: Can we safely use #f instead of 0? */ \ -scm_make_gsubr_with_generic (RANAME, REQ, OPT, VAR, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \ +scm_make_gsubr_with_generic (RANAME, REQ, OPT, VAR, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \ ) #define SCM_PROC1(RANAME, STR, TYPE, CFN) \ -SCM_HERE(static const char RANAME[]=STR) \ -SCM_INIT(\ +SCM_SNARF_HERE(static const char RANAME[]=STR) \ +SCM_SNARF_INIT(\ scm_make_subr (RANAME, TYPE, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN) \ ) #define SCM_GPROC1(RANAME, STR, TYPE, CFN, GF) \ -SCM_HERE(\ +SCM_SNARF_HERE(\ static const char RANAME[]=STR; \ static SCM GF \ -)SCM_INIT(\ +)SCM_SNARF_INIT(\ GF = SCM_PACK (0); /* Dirk:FIXME:: Can we safely use #f instead of 0? */ \ -scm_make_subr_with_generic (RANAME, TYPE, (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \ +scm_make_subr_with_generic (RANAME, TYPE, \ + (SCM_FUNC_CAST_ARBITRARY_ARGS) CFN, &GF) \ ) #define SCM_SYNTAX(RANAME, STR, TYPE, CFN) \ -SCM_HERE(static const char RANAME[]=STR)\ -SCM_INIT(scm_make_synt (RANAME, TYPE, CFN)) +SCM_SNARF_HERE(static const char RANAME[]=STR)\ +SCM_SNARF_INIT(scm_make_synt (RANAME, TYPE, CFN)) #define SCM_SYMBOL(c_name, scheme_name) \ -SCM_HERE(static SCM c_name) \ -SCM_INIT(c_name = scm_permanent_object (SCM_CAR (scm_intern0 (scheme_name)))) +SCM_SNARF_HERE(static SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (SCM_CAR (scm_intern0 (scheme_name)))) #define SCM_GLOBAL_SYMBOL(c_name, scheme_name) \ -SCM_HERE(SCM c_name) \ -SCM_INIT(c_name = scm_permanent_object (SCM_CAR (scm_intern0 (scheme_name)))) +SCM_SNARF_HERE(SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (SCM_CAR (scm_intern0 (scheme_name)))) #define SCM_KEYWORD(c_name, scheme_name) \ -SCM_HERE(static SCM c_name) \ -SCM_INIT(c_name = scm_permanent_object (scm_c_make_keyword (scheme_name))) +SCM_SNARF_HERE(static SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (scm_c_make_keyword (scheme_name))) #define SCM_GLOBAL_KEYWORD(c_name, scheme_name) \ -SCM_HERE(SCM c_name) \ -SCM_INIT(c_name = scm_permanent_object (scm_c_make_keyword (scheme_name))) +SCM_SNARF_HERE(SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (scm_c_make_keyword (scheme_name))) #define SCM_VCELL(c_name, scheme_name) \ -SCM_HERE(static SCM c_name) \ -SCM_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, SCM_BOOL_F)) +SCM_SNARF_HERE(static SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, SCM_BOOL_F)) #define SCM_GLOBAL_VCELL(c_name, scheme_name) \ -SCM_HERE(SCM c_name) \ -SCM_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, SCM_BOOL_F)) +SCM_SNARF_HERE(SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, SCM_BOOL_F)) #define SCM_VCELL_INIT(c_name, scheme_name, init_val) \ -SCM_HERE(static SCM c_name) \ -SCM_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, init_val)) +SCM_SNARF_HERE(static SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, init_val)) #define SCM_GLOBAL_VCELL_INIT(c_name, scheme_name, init_val) \ -SCM_HERE(SCM c_name) \ -SCM_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, init_val)) +SCM_SNARF_HERE(SCM c_name) \ +SCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, init_val)) #define SCM_CONST_LONG(c_name, scheme_name,value) \ SCM_VCELL_INIT(c_name, scheme_name, scm_long2num(value)) |