diff options
| author | Jim Blandy <jimb@red-bean.com> | 1996-10-29 20:49:56 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@red-bean.com> | 1996-10-29 20:49:56 +0000 |
| commit | 5b4215a8b578bd898271490115b9e76184f25ee7 (patch) | |
| tree | d97afac9bd2d69c8eef4048575a8b0bb1e44227e /libguile/_scm.h | |
| parent | 581a242ba5fab52bc66686bdc4d8cd79d7f0842d (diff) | |
| download | guile-5b4215a8b578bd898271490115b9e76184f25ee7.tar.gz | |
* snarf.h: New file.
* guile-snarf.sh: New file.
* Makefile.in (inner_h_files): Added snarf.h
(ancillary, install, uninstall, distclean): Added actions for
guile-snarf.
(.c.x): Use guile-snarf.
(guile-snarf): New rule, to produce guile-snarf from guile-snarf.sh.
(gen_c_files): Note that these depend on guile-snarf.
* _scm.h: Removed the snarfing macros (SCM_PROC, etc). They are
now in "snarf.h". Added #include "snarf.h" to get them.
* configure.in: Added guile-snarf to AC_OUTPUT
* libguile.h: Added #include "snarf.h".
(Patches applied and tweaked by Jim Blandy.)
Diffstat (limited to 'libguile/_scm.h')
| -rw-r--r-- | libguile/_scm.h | 39 |
1 files changed, 1 insertions, 38 deletions
diff --git a/libguile/_scm.h b/libguile/_scm.h index 350246a15..16d87c66b 100644 --- a/libguile/_scm.h +++ b/libguile/_scm.h @@ -69,6 +69,7 @@ #include "../threads/threads.h" /* Some thread packages does switching at async ticks. */ #endif +#include "snarf.h" /* Everyone snarfs. */ /* On VMS, GNU C's errno.h contains a special hack to get link attributes * for errno correct for linking to the C RTL. @@ -112,44 +113,6 @@ -#ifndef SCM_MAGIC_SNARFER -#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ - static char RANAME[]=STR -#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ - static char RANAME[]=STR -#else -#define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN) \ -%%% scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN) -#define SCM_PROC1(RANAME, STR, TYPE, CFN) \ -%%% scm_make_subr(RANAME, TYPE, CFN) -#endif - -#ifndef SCM_MAGIC_SNARFER -#define SCM_SYMBOL(c_name, scheme_name) \ - static SCM c_name = SCM_BOOL_F -#else -#define SCM_SYMBOL(C_NAME, SCHEME_NAME) \ -%%% C_NAME = scm_permanent_object (SCM_CAR (scm_intern0 (SCHEME_NAME))) -#endif - - -#ifndef SCM_MAGIC_SNARFER -#define SCM_GLOBAL(c_name, scheme_name) \ - static SCM c_name = SCM_BOOL_F -#else -#define SCM_GLOBAL(C_NAME, SCHEME_NAME) \ -%%% 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 -#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)) -#endif - #define min(A,B) ((A) <= (B) ? (A) : (B)) #define max(A,B) ((A) >= (B) ? (A) : (B)) |