[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[patch] honor SCM_MAGIC_SNARF define
|
From: |
Lars J. Aas |
|
Subject: |
[patch] honor SCM_MAGIC_SNARF define |
|
Date: |
Wed, 15 Nov 2000 23:03:38 +0100 |
|
User-agent: |
Mutt/1.2.5i |
This diff makes sure the snarfer output inclusion is disabled when
the snarfer is run on the file.
Lars J
Index: libguile/alist.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/alist.c,v
retrieving revision 1.31
diff -u -r1.31 alist.c
--- libguile/alist.c 2000/10/25 11:01:03 1.31
+++ libguile/alist.c 2000/11/15 21:51:14
@@ -406,7 +406,9 @@
void
scm_init_alist ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/alist.x"
+#endif
}
Index: libguile/arbiters.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/arbiters.c,v
retrieving revision 1.23
diff -u -r1.23 arbiters.c
--- libguile/arbiters.c 2000/04/21 14:16:30 1.23
+++ libguile/arbiters.c 2000/11/15 21:51:14
@@ -128,7 +128,9 @@
{
scm_tc16_arbiter = scm_make_smob_type_mfpe ("arbiter", 0,
scm_markcdr, NULL, prinarb,
NULL);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/arbiters.x"
+#endif
}
/*
Index: libguile/async.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/async.c,v
retrieving revision 1.50
diff -u -r1.50 async.c
--- libguile/async.c 2000/10/25 11:01:03 1.50
+++ libguile/async.c 2000/11/15 21:51:14
@@ -462,7 +462,9 @@
tc16_async = scm_make_smob_type ("async", 0);
scm_set_smob_mark (tc16_async, mark_async);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/async.x"
+#endif
}
/*
Index: libguile/backtrace.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/backtrace.c,v
retrieving revision 1.56
diff -u -r1.56 backtrace.c
--- libguile/backtrace.c 2000/11/02 10:36:31 1.56
+++ libguile/backtrace.c 2000/11/15 21:51:14
@@ -637,7 +637,9 @@
SCM f = scm_make_fluid ();
scm_the_last_stack_fluid = scm_sysintern ("the-last-stack", f);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/backtrace.x"
+#endif
}
/*
Index: libguile/boolean.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/boolean.c,v
retrieving revision 1.16
diff -u -r1.16 boolean.c
--- libguile/boolean.c 2000/08/18 09:30:54 1.16
+++ libguile/boolean.c 2000/11/15 21:51:14
@@ -76,7 +76,9 @@
void
scm_init_boolean ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/boolean.x"
+#endif
}
Index: libguile/chars.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/chars.c,v
retrieving revision 1.25
diff -u -r1.25 chars.c
--- libguile/chars.c 2000/08/18 09:30:54 1.25
+++ libguile/chars.c 2000/11/15 21:51:14
@@ -407,7 +407,9 @@
void
scm_init_chars ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/chars.x"
+#endif
}
Index: libguile/continuations.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/continuations.c,v
retrieving revision 1.23
diff -u -r1.23 continuations.c
--- libguile/continuations.c 2000/10/09 14:37:35 1.23
+++ libguile/continuations.c 2000/11/15 21:51:15
@@ -235,7 +235,9 @@
void
scm_init_continuations ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/continuations.x"
+#endif
}
Index: libguile/debug-malloc.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/debug-malloc.c,v
retrieving revision 1.4
diff -u -r1.4 debug-malloc.c
--- libguile/debug-malloc.c 2000/06/13 00:49:28 1.4
+++ libguile/debug-malloc.c 2000/11/15 21:51:15
@@ -256,5 +256,8 @@
void
scm_init_debug_malloc ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/debug-malloc.x"
+#endif
}
+
Index: libguile/debug.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/debug.c,v
retrieving revision 1.75
diff -u -r1.75 debug.c
--- libguile/debug.c 2000/08/11 08:42:42 1.75
+++ libguile/debug.c 2000/11/15 21:51:15
@@ -642,7 +642,9 @@
#endif
scm_add_feature ("debug-extensions");
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/debug.x"
+#endif
}
/*
Index: libguile/dynl.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/dynl.c,v
retrieving revision 1.51
diff -u -r1.51 dynl.c
--- libguile/dynl.c 2000/10/30 11:42:26 1.51
+++ libguile/dynl.c 2000/11/15 21:51:15
@@ -511,7 +511,9 @@
scm_set_smob_mark (scm_tc16_dynamic_obj, mark_dynl_obj);
scm_set_smob_print (scm_tc16_dynamic_obj, print_dynl_obj);
sysdep_dynl_init ();
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/dynl.x"
+#endif
}
/*
Index: libguile/dynwind.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/dynwind.c,v
retrieving revision 1.30
diff -u -r1.30 dynwind.c
--- libguile/dynwind.c 2000/04/21 14:16:30 1.30
+++ libguile/dynwind.c 2000/11/15 21:51:15
@@ -273,7 +273,9 @@
{
tc16_guards = scm_make_smob_type_mfpe ("guards", 0,
NULL, scm_free0, printguards, NULL);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/dynwind.x"
+#endif
}
/*
Index: libguile/environments.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/environments.c,v
retrieving revision 1.7
diff -u -r1.7 environments.c
--- libguile/environments.c 2000/11/01 17:55:41 1.7
+++ libguile/environments.c 2000/11/15 21:51:16
@@ -2317,7 +2317,9 @@
void
scm_init_environments ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/environments.x"
+#endif
}
Index: libguile/eq.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/eq.c,v
retrieving revision 1.30
diff -u -r1.30 eq.c
--- libguile/eq.c 2000/08/18 09:30:54 1.30
+++ libguile/eq.c 2000/11/15 21:51:16
@@ -205,7 +205,9 @@
void
scm_init_eq ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/eq.x"
+#endif
}
Index: libguile/error.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/error.c,v
retrieving revision 1.53
diff -u -r1.53 error.c
--- libguile/error.c 2000/10/30 11:42:26 1.53
+++ libguile/error.c 2000/11/15 21:51:16
@@ -362,7 +362,9 @@
scm_init_error ()
{
#include "libguile/cpp_err_symbols.c"
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/error.x"
+#endif
}
Index: libguile/eval.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/eval.c,v
retrieving revision 1.178
diff -u -r1.178 eval.c
--- libguile/eval.c 2000/11/07 02:17:36 1.178
+++ libguile/eval.c 2000/11/15 21:51:17
@@ -3983,7 +3983,9 @@
scm_sym_trace = SCM_CAR (scm_sysintern ("trace", SCM_UNDEFINED));
#endif
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/eval.x"
+#endif
scm_add_feature ("delay");
}
Index: libguile/evalext.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/evalext.c,v
retrieving revision 1.27
diff -u -r1.27 evalext.c
--- libguile/evalext.c 2000/09/22 17:43:57 1.27
+++ libguile/evalext.c 2000/11/15 21:51:17
@@ -148,7 +148,9 @@
scm_init_evalext ()
{
scm_make_synt (scm_s_set_x, scm_makmmacro, scm_m_generalized_set_x);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/evalext.x"
+#endif
}
/*
Index: libguile/feature.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/feature.c,v
retrieving revision 1.42
diff -u -r1.42 feature.c
--- libguile/feature.c 2000/08/18 16:52:15 1.42
+++ libguile/feature.c 2000/11/15 21:51:17
@@ -129,7 +129,9 @@
scm_sysintern ("char-code-limit", SCM_MAKINUM (SCM_CHAR_CODE_LIMIT));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/feature.x"
+#endif
}
/*
Index: libguile/filesys.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/filesys.c,v
retrieving revision 1.85
diff -u -r1.85 filesys.c
--- libguile/filesys.c 2000/11/07 21:34:45 1.85
+++ libguile/filesys.c 2000/11/15 21:51:17
@@ -1478,7 +1478,9 @@
scm_sysintern ("FD_CLOEXEC", scm_long2num (FD_CLOEXEC));
#endif
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/filesys.x"
+#endif
}
/*
Index: libguile/fluids.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/fluids.c,v
retrieving revision 1.27
diff -u -r1.27 fluids.c
--- libguile/fluids.c 2000/10/09 14:37:36 1.27
+++ libguile/fluids.c 2000/11/15 21:51:17
@@ -260,7 +260,9 @@
{
scm_tc16_fluid = scm_make_smob_type_mfpe ("fluid", 0,
NULL, NULL, print_fluid, NULL);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/fluids.x"
+#endif
}
/*
Index: libguile/fports.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/fports.c,v
retrieving revision 1.84
diff -u -r1.84 fports.c
--- libguile/fports.c 2000/11/13 23:16:38 1.84
+++ libguile/fports.c 2000/11/15 21:51:18
@@ -745,7 +745,9 @@
void
scm_init_fports ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/fports.x"
+#endif
scm_sysintern ("_IOFBF", SCM_MAKINUM (_IOFBF));
scm_sysintern ("_IOLBF", SCM_MAKINUM (_IOLBF));
scm_sysintern ("_IONBF", SCM_MAKINUM (_IONBF));
Index: libguile/gc.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/gc.c,v
retrieving revision 1.162
diff -u -r1.162 gc.c
--- libguile/gc.c 2000/11/02 10:36:31 1.162
+++ libguile/gc.c 2000/11/15 21:51:18
@@ -2590,7 +2590,9 @@
scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/gc.x"
+#endif
}
/*
Index: libguile/goops.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/goops.c,v
retrieving revision 1.3
diff -u -r1.3 goops.c
--- libguile/goops.c 2000/11/07 02:17:58 1.3
+++ libguile/goops.c 2000/11/15 21:51:19
@@ -2718,7 +2718,9 @@
goops_rstate = scm_c_make_rstate ("GOOPS", 5);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/goops.x"
+#endif
list_of_no_method = scm_permanent_object (SCM_LIST1 (sym_no_method));
Index: libguile/guardians.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/guardians.c,v
retrieving revision 1.22
diff -u -r1.22 guardians.c
--- libguile/guardians.c 2000/08/25 17:33:00 1.22
+++ libguile/guardians.c 2000/11/15 21:51:19
@@ -334,7 +334,9 @@
scm_c_hook_add (&scm_before_mark_c_hook, scm_guardian_gc_init, 0, 0);
scm_c_hook_add (&scm_before_sweep_c_hook, scm_guardian_zombify, 0, 0);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/guardians.x"
+#endif
}
/*
Index: libguile/hash.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/hash.c,v
retrieving revision 1.34
diff -u -r1.34 hash.c
--- libguile/hash.c 2000/10/25 11:01:03 1.34
+++ libguile/hash.c 2000/11/15 21:51:19
@@ -252,7 +252,9 @@
void
scm_init_hash ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/hash.x"
+#endif
}
Index: libguile/hashtab.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/hashtab.c,v
retrieving revision 1.29
diff -u -r1.29 hashtab.c
--- libguile/hashtab.c 2000/10/09 14:37:36 1.29
+++ libguile/hashtab.c 2000/11/15 21:51:19
@@ -558,7 +558,9 @@
void
scm_init_hashtab ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/hashtab.x"
+#endif
}
/*
Index: libguile/hooks.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/hooks.c,v
retrieving revision 1.6
diff -u -r1.6 hooks.c
--- libguile/hooks.c 2000/07/18 16:59:35 1.6
+++ libguile/hooks.c 2000/11/15 21:51:20
@@ -354,7 +354,9 @@
scm_set_smob_mark (scm_tc16_hook, scm_markcdr);
scm_set_smob_print (scm_tc16_hook, print_hook);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/hooks.x"
+#endif
}
/*
Index: libguile/ioext.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/ioext.c,v
retrieving revision 1.72
diff -u -r1.72 ioext.c
--- libguile/ioext.c 2000/11/07 22:42:35 1.72
+++ libguile/ioext.c 2000/11/15 21:51:20
@@ -562,7 +562,9 @@
{
scm_add_feature ("i/o-extensions");
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/ioext.x"
+#endif
}
Index: libguile/iselect.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/iselect.c,v
retrieving revision 1.23
diff -u -r1.23 iselect.c
--- libguile/iselect.c 2000/08/05 14:33:31 1.23
+++ libguile/iselect.c 2000/11/15 21:51:20
@@ -627,7 +627,9 @@
timeout0.tv_usec = 0;
#endif
init_bc (0x80, 0, 0);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/iselect.x"
+#endif
}
#endif /* GUILE_ISELECT */
Index: libguile/keywords.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/keywords.c,v
retrieving revision 1.25
diff -u -r1.25 keywords.c
--- libguile/keywords.c 2000/09/26 18:37:26 1.25
+++ libguile/keywords.c 2000/11/15 21:51:20
@@ -134,7 +134,9 @@
scm_markcdr, NULL, prin_keyword,
NULL);
scm_keyword_obarray = scm_make_vector (SCM_MAKINUM (256), SCM_EOL);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/keywords.x"
+#endif
}
Index: libguile/lang.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/lang.c,v
retrieving revision 1.17
diff -u -r1.17 lang.c
--- libguile/lang.c 2000/06/12 12:28:23 1.17
+++ libguile/lang.c 2000/11/15 21:51:20
@@ -150,7 +150,9 @@
void
scm_init_lang ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/lang.x"
+#endif
scm_make_synt ("nil-while", scm_makacro, scm_m_while);
}
Index: libguile/list.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/list.c,v
retrieving revision 1.45
diff -u -r1.45 list.c
--- libguile/list.c 2000/10/13 07:55:24 1.45
+++ libguile/list.c 2000/11/15 21:51:20
@@ -827,7 +827,9 @@
void
scm_init_list ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/list.x"
+#endif
}
/*
Index: libguile/load.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/load.c,v
retrieving revision 1.46
diff -u -r1.46 load.c
--- libguile/load.c 2000/10/30 11:42:26 1.46
+++ libguile/load.c 2000/11/15 21:51:20
@@ -517,7 +517,9 @@
init_build_info ();
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/load.x"
+#endif
}
/*
Index: libguile/macros.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/macros.c,v
retrieving revision 1.22
diff -u -r1.22 macros.c
--- libguile/macros.c 2000/08/11 15:12:37 1.22
+++ libguile/macros.c 2000/11/15 21:51:20
@@ -181,7 +181,9 @@
{
scm_tc16_macro = scm_make_smob_type_mfpe ("macro", 0,
scm_markcdr, NULL, NULL, NULL);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/macros.x"
+#endif
}
/*
Index: libguile/modules.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/modules.c,v
retrieving revision 1.15
diff -u -r1.15 modules.c
--- libguile/modules.c 2000/09/10 22:22:36 1.15
+++ libguile/modules.c 2000/11/15 21:51:20
@@ -269,7 +269,9 @@
void
scm_init_modules ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/modules.x"
+#endif
module_make_local_var_x = scm_sysintern ("module-make-local-var!",
SCM_UNDEFINED);
scm_eval_closure_tag = scm_make_smob_type ("eval-closure", 0);
Index: libguile/net_db.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/net_db.c,v
retrieving revision 1.48
diff -u -r1.48 net_db.c
--- libguile/net_db.c 2000/10/30 11:42:26 1.48
+++ libguile/net_db.c 2000/11/15 21:51:21
@@ -569,7 +569,9 @@
#endif
scm_add_feature ("net-db");
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/net_db.x"
+#endif
}
/*
Index: libguile/numbers.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/numbers.c,v
retrieving revision 1.106
diff -u -r1.106 numbers.c
--- libguile/numbers.c 2000/10/30 11:42:26 1.106
+++ libguile/numbers.c 2000/11/15 21:51:22
@@ -4374,7 +4374,9 @@
scm_dblprec = scm_dblprec - 1;
}
#endif /* DBL_DIG */
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/numbers.x"
+#endif
}
/*
Index: libguile/objects.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/objects.c,v
retrieving revision 1.52
diff -u -r1.52 objects.c
--- libguile/objects.c 2000/11/07 02:18:11 1.52
+++ libguile/objects.c 2000/11/15 21:51:22
@@ -484,7 +484,9 @@
SCM_SET_CLASS_DESTRUCTOR (et, scm_struct_free_entity);
scm_sysintern ("<entity>", et);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/objects.x"
+#endif
}
/*
Index: libguile/objprop.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/objprop.c,v
retrieving revision 1.15
diff -u -r1.15 objprop.c
--- libguile/objprop.c 2000/04/21 14:16:31 1.15
+++ libguile/objprop.c 2000/11/15 21:51:22
@@ -121,7 +121,9 @@
scm_init_objprop ()
{
scm_object_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (511));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/objprop.x"
+#endif
}
Index: libguile/options.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/options.c,v
retrieving revision 1.27
diff -u -r1.27 options.c
--- libguile/options.c 2000/06/12 12:28:23 1.27
+++ libguile/options.c 2000/11/15 21:51:22
@@ -233,7 +233,9 @@
scm_init_options ()
{
protected_objects = scm_permanent_object (scm_cons (SCM_UNDEFINED, SCM_EOL));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/options.x"
+#endif
}
/*
Index: libguile/pairs.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/pairs.c,v
retrieving revision 1.18
diff -u -r1.18 pairs.c
--- libguile/pairs.c 2000/06/12 12:28:23 1.18
+++ libguile/pairs.c 2000/11/15 21:51:22
@@ -171,7 +171,9 @@
for (subnr = 0; cxrs [subnr]; subnr++)
scm_make_subr(cxrs [subnr], scm_tc7_cxr, NULL);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/pairs.x"
+#endif
}
Index: libguile/ports.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/ports.c,v
retrieving revision 1.121
diff -u -r1.121 ports.c
--- libguile/ports.c 2000/11/09 22:44:09 1.121
+++ libguile/ports.c 2000/11/15 21:51:22
@@ -1441,7 +1441,9 @@
scm_tc16_void_port = scm_make_port_type ("void", fill_input_void_port,
write_void_port);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/ports.x"
+#endif
}
/*
Index: libguile/posix.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/posix.c,v
retrieving revision 1.76
diff -u -r1.76 posix.c
--- libguile/posix.c 2000/11/01 17:55:41 1.76
+++ libguile/posix.c 2000/11/15 21:51:23
@@ -1314,7 +1314,9 @@
#endif
#include "libguile/cpp_sig_symbols.c"
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/posix.x"
+#endif
}
/*
Index: libguile/print.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/print.c,v
retrieving revision 1.103
diff -u -r1.103 print.c
--- libguile/print.c 2000/11/02 10:36:31 1.103
+++ libguile/print.c 2000/11/15 21:51:23
@@ -1149,7 +1149,9 @@
scm_set_smob_mark (scm_tc16_port_with_ps, scm_markcdr);
scm_set_smob_print (scm_tc16_port_with_ps, print_port_with_ps);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/print.x"
+#endif
}
/*
Index: libguile/procprop.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/procprop.c,v
retrieving revision 1.29
diff -u -r1.29 procprop.c
--- libguile/procprop.c 2000/08/25 04:08:50 1.29
+++ libguile/procprop.c 2000/11/15 21:51:23
@@ -247,7 +247,9 @@
void
scm_init_procprop ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/procprop.x"
+#endif
}
Index: libguile/procs.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/procs.c,v
retrieving revision 1.44
diff -u -r1.44 procs.c
--- libguile/procs.c 2000/09/26 20:11:22 1.44
+++ libguile/procs.c 2000/11/15 21:51:23
@@ -390,7 +390,9 @@
void
scm_init_procs ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/procs.x"
+#endif
}
/*
Index: libguile/properties.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/properties.c,v
retrieving revision 1.1
diff -u -r1.1 properties.c
--- libguile/properties.c 2000/09/03 20:25:19 1.1
+++ libguile/properties.c 2000/11/15 21:51:23
@@ -145,7 +145,9 @@
scm_init_properties ()
{
scm_properties_whash = scm_make_weak_key_hash_table (SCM_MAKINUM (511));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/properties.x"
+#endif
}
Index: libguile/ramap.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/ramap.c,v
retrieving revision 1.58
diff -u -r1.58 ramap.c
--- libguile/ramap.c 2000/10/11 12:50:53 1.58
+++ libguile/ramap.c 2000/11/15 21:51:24
@@ -2049,7 +2049,9 @@
init_raprocs (ra_asubrs);
scm_make_subr (s_array_equal_p, scm_tc7_rpsubr, scm_array_equal_p);
scm_smobs[0x0ff & (scm_tc16_array >> 8)].equalp = scm_raequal;
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/ramap.x"
+#endif
scm_add_feature (s_scm_array_for_each);
}
Index: libguile/random.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/random.c,v
retrieving revision 1.33
diff -u -r1.33 random.c
--- libguile/random.c 2000/10/26 18:18:28 1.33
+++ libguile/random.c 2000/11/15 21:51:24
@@ -584,7 +584,9 @@
for (i = m >> 1; i < m; ++i)
scm_masktab[i] = m - 1;
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/random.x"
+#endif
/* Check that the assumptions about bits per bignum digit are correct. */
#if SIZEOF_INT == 4
Index: libguile/read.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/read.c,v
retrieving revision 1.60
diff -u -r1.60 read.c
--- libguile/read.c 2000/10/25 11:01:03 1.60
+++ libguile/read.c 2000/11/15 21:51:24
@@ -806,7 +806,9 @@
SCM_CDRLOC (scm_sysintern ("read-hash-procedures", SCM_EOL));
scm_init_opts (scm_read_options, scm_read_opts, SCM_N_READ_OPTIONS);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/read.x"
+#endif
}
/*
Index: libguile/regex-posix.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/regex-posix.c,v
retrieving revision 1.44
diff -u -r1.44 regex-posix.c
--- libguile/regex-posix.c 2000/10/30 11:42:26 1.44
+++ libguile/regex-posix.c 2000/11/15 21:51:24
@@ -293,7 +293,9 @@
scm_sysintern ("regexp/notbol", scm_long2num (REG_NOTBOL));
scm_sysintern ("regexp/noteol", scm_long2num (REG_NOTEOL));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/regex-posix.x"
+#endif
scm_add_feature ("regex");
}
Index: libguile/root.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/root.c,v
retrieving revision 1.45
diff -u -r1.45 root.c
--- libguile/root.c 2000/10/25 11:01:03 1.45
+++ libguile/root.c 2000/11/15 21:51:24
@@ -443,7 +443,9 @@
scm_set_smob_mark (scm_tc16_root, mark_root);
scm_set_smob_print (scm_tc16_root, print_root);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/root.x"
+#endif
}
/*
Index: libguile/scmsigs.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/scmsigs.c,v
retrieving revision 1.48
diff -u -r1.48 scmsigs.c
--- libguile/scmsigs.c 2000/06/18 12:06:01 1.48
+++ libguile/scmsigs.c 2000/11/15 21:51:24
@@ -543,7 +543,9 @@
scm_sysintern ("SA_RESTART", scm_long2num (SA_RESTART));
#endif
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/scmsigs.x"
+#endif
}
Index: libguile/script.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/script.c,v
retrieving revision 1.33
diff -u -r1.33 script.c
--- libguile/script.c 2000/09/22 17:17:55 1.33
+++ libguile/script.c 2000/11/15 21:51:25
@@ -652,7 +652,9 @@
void
scm_init_script ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/script.x"
+#endif
}
/*
Index: libguile/simpos.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/simpos.c,v
retrieving revision 1.37
diff -u -r1.37 simpos.c
--- libguile/simpos.c 2000/10/30 11:42:26 1.37
+++ libguile/simpos.c 2000/11/15 21:51:25
@@ -133,7 +133,9 @@
void
scm_init_simpos ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/simpos.x"
+#endif
}
Index: libguile/socket.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/socket.c,v
retrieving revision 1.56
diff -u -r1.56 socket.c
--- libguile/socket.c 2000/10/30 11:42:26 1.56
+++ libguile/socket.c 2000/11/15 21:51:25
@@ -976,7 +976,9 @@
scm_add_feature ("socket");
scm_init_addr_buffer ();
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/socket.x"
+#endif
}
Index: libguile/sort.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/sort.c,v
retrieving revision 1.26
diff -u -r1.26 sort.c
--- libguile/sort.c 2000/10/10 09:22:31 1.26
+++ libguile/sort.c 2000/11/15 21:51:25
@@ -924,7 +924,9 @@
void
scm_init_sort ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/sort.x"
+#endif
scm_add_feature ("sort");
}
Index: libguile/srcprop.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/srcprop.c,v
retrieving revision 1.38
diff -u -r1.38 srcprop.c
--- libguile/srcprop.c 2000/07/18 16:09:09 1.38
+++ libguile/srcprop.c 2000/11/15 21:51:25
@@ -334,7 +334,9 @@
scm_sym_breakpoint = SCM_CAR (scm_sysintern ("breakpoint", SCM_UNDEFINED));
scm_sysintern ("source-whash", scm_source_whash);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/srcprop.x"
+#endif
}
void
Index: libguile/stackchk.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/stackchk.c,v
retrieving revision 1.17
diff -u -r1.17 stackchk.c
--- libguile/stackchk.c 2000/06/12 12:28:24 1.17
+++ libguile/stackchk.c 2000/11/15 21:51:25
@@ -104,7 +104,9 @@
void
scm_init_stackchk ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/stackchk.x"
+#endif
}
/*
Index: libguile/stacks.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/stacks.c,v
retrieving revision 1.49
diff -u -r1.49 stacks.c
--- libguile/stacks.c 2000/10/09 14:37:36 1.49
+++ libguile/stacks.c 2000/11/15 21:51:26
@@ -743,7 +743,9 @@
SCM_EOL)));
scm_set_struct_vtable_name_x (scm_stack_type,
SCM_CAR (scm_intern0 ("stack")));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/stacks.x"
+#endif
}
/*
Index: libguile/stime.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/stime.c,v
retrieving revision 1.59
diff -u -r1.59 stime.c
--- libguile/stime.c 2000/10/30 11:42:26 1.59
+++ libguile/stime.c 2000/11/15 21:51:26
@@ -712,7 +712,9 @@
if (!scm_my_base) scm_my_base = mytime();
scm_add_feature ("current-time");
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/stime.x"
+#endif
}
Index: libguile/strings.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/strings.c,v
retrieving revision 1.42
diff -u -r1.42 strings.c
--- libguile/strings.c 2000/10/25 11:01:03 1.42
+++ libguile/strings.c 2000/11/15 21:51:26
@@ -392,7 +392,9 @@
void
scm_init_strings ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/strings.x"
+#endif
}
Index: libguile/strop.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/strop.c,v
retrieving revision 1.45
diff -u -r1.45 strop.c
--- libguile/strop.c 2000/10/30 11:42:26 1.45
+++ libguile/strop.c 2000/11/15 21:51:26
@@ -477,7 +477,9 @@
void
scm_init_strop ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/strop.x"
+#endif
}
/*
Index: libguile/strorder.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/strorder.c,v
retrieving revision 1.18
diff -u -r1.18 strorder.c
--- libguile/strorder.c 2000/10/26 18:18:28 1.18
+++ libguile/strorder.c 2000/11/15 21:51:26
@@ -256,7 +256,9 @@
void
scm_init_strorder ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/strorder.x"
+#endif
}
Index: libguile/strports.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/strports.c,v
retrieving revision 1.64
diff -u -r1.64 strports.c
--- libguile/strports.c 2000/10/30 11:42:26 1.64
+++ libguile/strports.c 2000/11/15 21:51:26
@@ -432,7 +432,9 @@
void
scm_init_strports ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/strports.x"
+#endif
}
Index: libguile/struct.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/struct.c,v
retrieving revision 1.63
diff -u -r1.63 struct.c
--- libguile/struct.c 2000/10/25 11:01:03 1.63
+++ libguile/struct.c 2000/11/15 21:51:27
@@ -825,7 +825,9 @@
scm_sysintern ("vtable-index-vtable", SCM_MAKINUM (scm_vtable_index_vtable));
scm_sysintern ("vtable-index-printer", SCM_MAKINUM
(scm_vtable_index_printer));
scm_sysintern ("vtable-offset-user", SCM_MAKINUM (scm_vtable_offset_user));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/struct.x"
+#endif
}
/*
Index: libguile/symbols.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/symbols.c,v
retrieving revision 1.63
diff -u -r1.63 symbols.c
--- libguile/symbols.c 2000/11/01 16:59:45 1.63
+++ libguile/symbols.c 2000/11/15 21:51:27
@@ -908,7 +908,9 @@
{
gensym_counter = 0;
gentemp_counter = 0;
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/symbols.x"
+#endif
}
/*
Index: libguile/tag.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/tag.c,v
retrieving revision 1.20
diff -u -r1.20 tag.c
--- libguile/tag.c 2000/09/12 12:30:36 1.20
+++ libguile/tag.c 2000/11/15 21:51:27
@@ -218,7 +218,9 @@
void
scm_init_tag ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/tag.x"
+#endif
}
Index: libguile/threads.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/threads.c,v
retrieving revision 1.17
diff -u -r1.17 threads.c
--- libguile/threads.c 2000/05/30 15:56:55 1.17
+++ libguile/threads.c 2000/11/15 21:51:27
@@ -146,7 +146,9 @@
scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m));
scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof
(coop_c));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/threads.x"
+#endif
/* Initialize implementation specific details of the threads support */
scm_threads_init (i);
}
Index: libguile/throw.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/throw.c,v
retrieving revision 1.71
diff -u -r1.71 throw.c
--- libguile/throw.c 2000/11/13 23:16:38 1.71
+++ libguile/throw.c 2000/11/15 21:51:27
@@ -706,7 +706,9 @@
NULL,
print_lazy_catch,
NULL);
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/throw.x"
+#endif
}
/*
Index: libguile/unif.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/unif.c,v
retrieving revision 1.91
diff -u -r1.91 unif.c
--- libguile/unif.c 2000/10/30 17:47:52 1.91
+++ libguile/unif.c 2000/11/15 21:51:28
@@ -2557,7 +2557,9 @@
scm_raprin1,
scm_array_equal_p);
scm_add_feature ("array");
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/unif.x"
+#endif
}
/*
Index: libguile/variable.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/variable.c,v
retrieving revision 1.28
diff -u -r1.28 variable.c
--- libguile/variable.c 2000/06/04 01:30:32 1.28
+++ libguile/variable.c 2000/11/15 21:51:28
@@ -235,7 +235,9 @@
scm_tc16_variable = scm_make_smob_type_mfpe ("variable", 0,
scm_markvar, NULL, prin_var,
var_equal);
anonymous_variable_sym = SCM_CAR (scm_sysintern ("anonymous-variable",
SCM_UNDEFINED));
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/variable.x"
+#endif
}
Index: libguile/vectors.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/vectors.c,v
retrieving revision 1.38
diff -u -r1.38 vectors.c
--- libguile/vectors.c 2000/10/25 12:58:51 1.38
+++ libguile/vectors.c 2000/11/15 21:51:28
@@ -407,7 +407,9 @@
void
scm_init_vectors ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/vectors.x"
+#endif
}
Index: libguile/version.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/version.c,v
retrieving revision 1.16
diff -u -r1.16 version.c
--- libguile/version.c 2000/06/12 12:28:24 1.16
+++ libguile/version.c 2000/11/15 21:51:28
@@ -100,7 +100,9 @@
void
scm_init_version ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/version.x"
+#endif
}
/*
Index: libguile/vports.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/vports.c,v
retrieving revision 1.39
diff -u -r1.39 vports.c
--- libguile/vports.c 2000/10/30 11:42:26 1.39
+++ libguile/vports.c 2000/11/15 21:51:28
@@ -211,7 +211,9 @@
void
scm_init_vports ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/vports.x"
+#endif
}
/*
Index: libguile/weaks.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/weaks.c,v
retrieving revision 1.28
diff -u -r1.28 weaks.c
--- libguile/weaks.c 2000/10/09 14:37:36 1.28
+++ libguile/weaks.c 2000/11/15 21:51:28
@@ -327,7 +327,9 @@
void
scm_init_weaks ()
{
+#ifndef SCM_MAGIC_SNARFER
#include "libguile/weaks.x"
+#endif
}
- [patch] honor SCM_MAGIC_SNARF define,
Lars J. Aas <=