From 89e00824a036e0490aa91d50401450059d9b1dd2 Mon Sep 17 00:00:00 2001 From: Michael Livshin Date: Sun, 19 Mar 2000 19:01:16 +0000 Subject: [PATCH] * *.[hc]: add Emacs magic at the end of file, to ensure GNU indentation style. --- guile-readline/ChangeLog | 5 + guile-readline/readline.c | 6 + guile-readline/readline.h | 6 + libguile/ChangeLog | 5 + libguile/__scm.h | 6 + libguile/_scm.h | 6 + libguile/alist.c | 6 + libguile/alist.h | 6 + libguile/alloca.c | 6 + libguile/arbiters.c | 6 + libguile/arbiters.h | 6 + libguile/async.c | 6 + libguile/async.h | 6 + libguile/backtrace.c | 6 + libguile/backtrace.h | 6 + libguile/boolean.c | 6 + libguile/boolean.h | 6 + libguile/chars.c | 6 + libguile/chars.h | 6 + libguile/continuations.c | 6 + libguile/continuations.h | 6 + libguile/coop-defs.h | 6 + libguile/coop-threads.c | 6 + libguile/coop-threads.h | 6 + libguile/coop.c | 8 +- libguile/cpp_errno.c | 6 + libguile/cpp_signal.c | 6 + libguile/debug.c | 6 + libguile/debug.h | 6 + libguile/dynl.c | 6 + libguile/dynl.h | 6 + libguile/dynwind.c | 6 + libguile/dynwind.h | 6 + libguile/eq.c | 6 + libguile/eq.h | 6 + libguile/error.c | 6 + libguile/error.h | 6 + libguile/eval.c | 6 + libguile/eval.h | 6 + libguile/evalext.c | 6 + libguile/evalext.h | 6 + libguile/feature.c | 6 + libguile/feature.h | 6 + libguile/filesys.c | 6 + libguile/filesys.h | 6 + libguile/fluids.c | 6 + libguile/fluids.h | 6 + libguile/fports.c | 6 + libguile/fports.h | 6 + libguile/fsu-pthreads.h | 169 ---------------- libguile/gc.c | 6 + libguile/gc.h | 6 + libguile/gdb_interface.h | 6 + libguile/gdbint.c | 6 + libguile/gdbint.h | 6 + libguile/gh.h | 6 + libguile/gh_data.c | 6 + libguile/gh_eval.c | 6 + libguile/gh_funcs.c | 6 + libguile/gh_init.c | 6 + libguile/gh_io.c | 6 + libguile/gh_list.c | 6 + libguile/gh_predicates.c | 6 + libguile/gh_test_c.c | 6 + libguile/gh_test_repl.c | 6 + libguile/gsubr.c | 6 + libguile/gsubr.h | 6 + libguile/guardians.c | 6 + libguile/guardians.h | 6 + libguile/guile.c | 6 + libguile/hash.c | 6 + libguile/hash.h | 6 + libguile/hashtab.c | 6 + libguile/hashtab.h | 6 + libguile/inet_aton.c | 6 + libguile/init.c | 6 + libguile/init.h | 6 + libguile/ioext.c | 6 + libguile/ioext.h | 6 + libguile/iselect.c | 6 + libguile/iselect.h | 6 + libguile/keywords.c | 6 + libguile/keywords.h | 6 + libguile/kw.h | 53 ----- libguile/lang.c | 6 + libguile/lang.h | 6 + libguile/libguile.h | 142 -------------- libguile/list.c | 6 + libguile/list.h | 6 + libguile/load.c | 6 + libguile/load.h | 6 + libguile/macros.c | 6 + libguile/macros.h | 6 + libguile/mallocs.c | 6 + libguile/mallocs.h | 6 + libguile/memmove.c | 6 + libguile/mit-pthreads.c | 400 -------------------------------------- libguile/mit-pthreads.h | 190 ------------------ libguile/modules.c | 6 + libguile/modules.h | 6 + libguile/net_db.c | 6 + libguile/net_db.h | 6 + libguile/numbers.c | 6 + libguile/numbers.h | 6 + libguile/objects.c | 6 + libguile/objects.h | 6 + libguile/objprop.c | 6 + libguile/objprop.h | 6 + libguile/options.c | 6 + libguile/options.h | 6 + libguile/pairs.c | 6 + libguile/pairs.h | 6 + libguile/ports.c | 6 + libguile/ports.h | 6 + libguile/posix.c | 6 + libguile/posix.h | 6 + libguile/print.c | 6 + libguile/print.h | 6 + libguile/procprop.c | 6 + libguile/procprop.h | 6 + libguile/procs.c | 6 + libguile/procs.h | 6 + libguile/putenv.c | 6 + libguile/ramap.c | 6 + libguile/ramap.h | 6 + libguile/random.c | 6 + libguile/random.h | 6 + libguile/read.c | 6 + libguile/read.h | 6 + libguile/regex-posix.c | 6 + libguile/regex-posix.h | 6 + libguile/root.c | 6 + libguile/root.h | 6 + libguile/scmsigs.c | 6 + libguile/scmsigs.h | 6 + libguile/script.c | 6 + libguile/script.h | 6 + libguile/simpos.c | 6 + libguile/simpos.h | 6 + libguile/smob.c | 6 + libguile/smob.h | 6 + libguile/snarf.h | 6 + libguile/socket.c | 6 + libguile/socket.h | 6 + libguile/sort.c | 6 + libguile/sort.h | 6 + libguile/srcprop.c | 6 + libguile/srcprop.h | 6 + libguile/stackchk.c | 6 + libguile/stackchk.h | 6 + libguile/stacks.c | 6 + libguile/stacks.h | 6 + libguile/stime.c | 6 + libguile/stime.h | 6 + libguile/strerror.c | 6 + libguile/strings.c | 6 + libguile/strings.h | 6 + libguile/strop.c | 6 + libguile/strop.h | 6 + libguile/strorder.c | 6 + libguile/strorder.h | 6 + libguile/strports.c | 6 + libguile/strports.h | 6 + libguile/struct.c | 6 + libguile/struct.h | 6 + libguile/symbols.c | 6 + libguile/symbols.h | 6 + libguile/tag.c | 6 + libguile/tag.h | 6 + libguile/tags.h | 6 + libguile/threads.c | 6 + libguile/threads.h | 6 + libguile/throw.c | 6 + libguile/throw.h | 6 + libguile/unif.c | 6 + libguile/unif.h | 6 + libguile/validate.h | 8 +- libguile/variable.c | 6 + libguile/variable.h | 6 + libguile/vectors.c | 6 + libguile/vectors.h | 6 + libguile/version.c | 6 + libguile/version.h | 6 + libguile/vports.c | 6 + libguile/vports.h | 6 + libguile/weaks.c | 6 + libguile/weaks.h | 6 + 187 files changed, 1092 insertions(+), 956 deletions(-) rewrite libguile/fsu-pthreads.h (100%) rewrite libguile/kw.h (100%) rewrite libguile/libguile.h (100%) rewrite libguile/mit-pthreads.c (100%) rewrite libguile/mit-pthreads.h (100%) diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog index 12d87faf0..15152e3f8 100644 --- a/guile-readline/ChangeLog +++ b/guile-readline/ChangeLog @@ -1,3 +1,8 @@ +2000-03-19 Michael Livshin + + * *.[hc]: add Emacs magic at the end of file, to ensure GNU + indentation style. + 2000-03-12 Mikael Djurfeldt * readline.c (current_input_getc): Don't pass int values through diff --git a/guile-readline/readline.c b/guile-readline/readline.c index 9480b3d88..b74abe405 100644 --- a/guile-readline/readline.c +++ b/guile-readline/readline.c @@ -523,3 +523,9 @@ scm_init_readline () } #endif + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/guile-readline/readline.h b/guile-readline/readline.h index 4378d0167..ccc0e8031 100644 --- a/guile-readline/readline.h +++ b/guile-readline/readline.h @@ -44,3 +44,9 @@ void rl_free_line_state (); #endif #endif + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/ChangeLog b/libguile/ChangeLog index db56eafaa..01e6a4c56 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2000-03-19 Michael Livshin + + * *.[hc]: add Emacs magic at the end of file, to ensure GNU + indentation style. + 2000-03-19 Mikael Djurfeldt * threads.h: Added #include "libguile/throw.h". (Thanks to diff --git a/libguile/__scm.h b/libguile/__scm.h index 889572bbb..a8e030806 100644 --- a/libguile/__scm.h +++ b/libguile/__scm.h @@ -547,3 +547,9 @@ extern struct errdesc scm_errmsgs[]; #endif /* __SCMH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/_scm.h b/libguile/_scm.h index 1abeed791..6ed63c033 100644 --- a/libguile/_scm.h +++ b/libguile/_scm.h @@ -139,3 +139,9 @@ #endif /* _SCMH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/alist.c b/libguile/alist.c index 17b92a12b..4e11781cd 100644 --- a/libguile/alist.c +++ b/libguile/alist.c @@ -394,3 +394,9 @@ scm_init_alist () #include "alist.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/alist.h b/libguile/alist.h index f04610a7a..0d6de15c5 100644 --- a/libguile/alist.h +++ b/libguile/alist.h @@ -67,3 +67,9 @@ extern SCM scm_assoc_remove_x (SCM alist, SCM key); extern void scm_init_alist (void); #endif /* ALISTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/alloca.c b/libguile/alloca.c index 55e2a861f..1f9b29d07 100644 --- a/libguile/alloca.c +++ b/libguile/alloca.c @@ -492,3 +492,9 @@ i00afunc (long address) #endif /* no alloca */ #endif /* not GCC version 2 */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/arbiters.c b/libguile/arbiters.c index 7decd486e..efab09848 100644 --- a/libguile/arbiters.c +++ b/libguile/arbiters.c @@ -130,3 +130,9 @@ scm_init_arbiters () scm_markcdr, NULL, prinarb, NULL); #include "arbiters.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/arbiters.h b/libguile/arbiters.h index d7a0ccaa5..8da0a0bee 100644 --- a/libguile/arbiters.h +++ b/libguile/arbiters.h @@ -54,3 +54,9 @@ extern SCM scm_release_arbiter (SCM arb); extern void scm_init_arbiters (void); #endif /* ARBITERSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/async.c b/libguile/async.c index 6a31a0958..39d6f6296 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -474,3 +474,9 @@ scm_init_async () #include "async.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/async.h b/libguile/async.h index 1b2981fbf..b1be78295 100644 --- a/libguile/async.h +++ b/libguile/async.h @@ -82,3 +82,9 @@ extern SCM scm_mask_signals (void); extern void scm_init_async (void); #endif /* ASYNCH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/backtrace.c b/libguile/backtrace.c index 16b6a4793..f3927d5f4 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -642,3 +642,9 @@ scm_init_backtrace () #include "backtrace.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/backtrace.h b/libguile/backtrace.h index af9f137ee..44012f6a8 100644 --- a/libguile/backtrace.h +++ b/libguile/backtrace.h @@ -63,3 +63,9 @@ SCM scm_set_print_params_x (SCM params); void scm_init_backtrace (void); #endif /* BACKTRACEH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/boolean.c b/libguile/boolean.c index 7b4267b30..a2353459e 100644 --- a/libguile/boolean.c +++ b/libguile/boolean.c @@ -79,3 +79,9 @@ scm_init_boolean () #include "boolean.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/boolean.h b/libguile/boolean.h index fe2184823..8408a968a 100644 --- a/libguile/boolean.h +++ b/libguile/boolean.h @@ -73,3 +73,9 @@ extern SCM scm_boolean_p (SCM obj); extern void scm_init_boolean (void); #endif /* BOOLEANH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/chars.c b/libguile/chars.c index bfa96ef0f..a7d8d195a 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -400,3 +400,9 @@ scm_init_chars () #include "chars.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/chars.h b/libguile/chars.h index 1cf0f01d7..45850faeb 100644 --- a/libguile/chars.h +++ b/libguile/chars.h @@ -92,3 +92,9 @@ extern int scm_downcase (unsigned int c); extern void scm_init_chars (void); #endif /* SCM_CHARSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/continuations.c b/libguile/continuations.c index 6c7a537d7..08248ff50 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -208,3 +208,9 @@ scm_init_continuations () #include "continuations.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/continuations.h b/libguile/continuations.h index e1b494cb2..b29994547 100644 --- a/libguile/continuations.h +++ b/libguile/continuations.h @@ -76,3 +76,9 @@ extern SCM scm_call_continuation (SCM cont, SCM val); extern void scm_init_continuations (void); #endif /* CONTINUATIONSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/coop-defs.h b/libguile/coop-defs.h index e1631109d..30516c3ab 100644 --- a/libguile/coop-defs.h +++ b/libguile/coop-defs.h @@ -283,3 +283,9 @@ do { \ #define SCM_SET_THREAD_LOCAL_DATA(ptr) (coop_global_curr->data = (ptr)) #endif /* COOP_DEFSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c index 7d4b73570..cf28fc4dd 100644 --- a/libguile/coop-threads.c +++ b/libguile/coop-threads.c @@ -467,3 +467,9 @@ scm_signal_condition_variable (SCM c) coop_condition_variable_signal (SCM_CONDVAR_DATA (c)); return SCM_BOOL_T; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/coop-threads.h b/libguile/coop-threads.h index 435fb6b8a..5dd0fcbda 100644 --- a/libguile/coop-threads.h +++ b/libguile/coop-threads.h @@ -122,3 +122,9 @@ extern coop_q_t coop_global_allq; /* A queue of all threads. */ extern coop_t *coop_global_curr; /* Currently-executing thread. */ #endif /* COOP_THREADSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/coop.c b/libguile/coop.c index f676ea0c0..5d9ae5deb 100644 --- a/libguile/coop.c +++ b/libguile/coop.c @@ -40,7 +40,7 @@ * If you do not wish that, delete this exception notice. */ -/* $Id: coop.c,v 1.18 2000-03-12 01:48:04 mdj Exp $ */ +/* $Id: coop.c,v 1.19 2000-03-19 19:01:10 cmm Exp $ */ /* Cooperative thread library, based on QuickThreads */ @@ -739,3 +739,9 @@ scm_thread_usleep (unsigned long usec) } #endif /* GUILE_ISELECT */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/cpp_errno.c b/libguile/cpp_errno.c index 8ee25bad9..32556a36c 100644 --- a/libguile/cpp_errno.c +++ b/libguile/cpp_errno.c @@ -1,3 +1,9 @@ /* this file is processed by gcc with special options to extract a list of errno codes. */ #include + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/cpp_signal.c b/libguile/cpp_signal.c index eb4ed9667..e740ba564 100644 --- a/libguile/cpp_signal.c +++ b/libguile/cpp_signal.c @@ -1,3 +1,9 @@ /* this file is processed by gcc with special options to extract a list of signal numbers. */ #include + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/debug.c b/libguile/debug.c index ad32953ee..f9001df3e 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -642,3 +642,9 @@ scm_init_debug () #include "debug.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/debug.h b/libguile/debug.h index 685800c63..bae78b406 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -216,3 +216,9 @@ extern SCM scm_debug_hang (SCM obj); #endif /*GUILE_DEBUG*/ #endif /* DEBUGH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/dynl.c b/libguile/dynl.c index c3f2d2b51..69f2050d2 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -561,3 +561,9 @@ scm_init_dynamic_linking () #include "dynl.x" kw_global = scm_make_keyword_from_dash_symbol (sym_global); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/dynl.h b/libguile/dynl.h index a271a3d87..69b2ae8ae 100644 --- a/libguile/dynl.h +++ b/libguile/dynl.h @@ -61,3 +61,9 @@ SCM scm_dynamic_args_call (SCM symb, SCM dobj, SCM args); void scm_init_dynamic_linking (void); #endif /* LIBGUILE_DYNL_H */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/dynwind.c b/libguile/dynwind.c index 3816a9812..304ba7711 100644 --- a/libguile/dynwind.c +++ b/libguile/dynwind.c @@ -273,3 +273,9 @@ scm_init_dynwind () NULL, scm_free0, printguards, NULL); #include "dynwind.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/dynwind.h b/libguile/dynwind.h index 247f24ddb..80251c945 100644 --- a/libguile/dynwind.h +++ b/libguile/dynwind.h @@ -64,3 +64,9 @@ extern SCM scm_wind_chain (void); #endif /*GUILE_DEBUG*/ #endif /* DYNWINDH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/eq.c b/libguile/eq.c index 1273a76ac..73e5f1fa8 100644 --- a/libguile/eq.c +++ b/libguile/eq.c @@ -207,3 +207,9 @@ scm_init_eq () #include "eq.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/eq.h b/libguile/eq.h index 82977c0e3..f2c6616b9 100644 --- a/libguile/eq.h +++ b/libguile/eq.h @@ -53,3 +53,9 @@ extern SCM scm_equal_p (SCM x, SCM y); extern void scm_init_eq (void); #endif /* EQH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/error.c b/libguile/error.c index 07b6d8968..239bf3bb0 100644 --- a/libguile/error.c +++ b/libguile/error.c @@ -319,3 +319,9 @@ scm_init_error () #include "error.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/error.h b/libguile/error.h index 11924dcea..ac2a8d4da 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -87,3 +87,9 @@ extern SCM scm_wta (SCM arg, const char *pos, const char *s_subr); extern void scm_init_error (void); #endif /* ERRORH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/eval.c b/libguile/eval.c index 590ab13a1..f99a80e36 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -3894,3 +3894,9 @@ scm_init_eval () } #endif /* !DEVAL */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/eval.h b/libguile/eval.h index cc1ecffcd..4d5ef02b9 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -227,3 +227,9 @@ extern SCM scm_eval_x (SCM obj); extern void scm_init_eval (void); #endif /* EVALH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/evalext.c b/libguile/evalext.c index c719670b5..447f6f90d 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -160,3 +160,9 @@ scm_init_evalext () scm_make_synt (scm_s_set_x, scm_makmmacro, scm_m_generalized_set_x); #include "evalext.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/evalext.h b/libguile/evalext.h index c1cd7b46f..cb09736bc 100644 --- a/libguile/evalext.h +++ b/libguile/evalext.h @@ -54,3 +54,9 @@ extern SCM scm_m_undefine (SCM x, SCM env); extern void scm_init_evalext (void); #endif /* EVALEXTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/feature.c b/libguile/feature.c index a7c65563f..0e7daefe0 100644 --- a/libguile/feature.c +++ b/libguile/feature.c @@ -350,3 +350,9 @@ scm_init_feature() #include "feature.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/feature.h b/libguile/feature.h index 5161db9c0..125e88324 100644 --- a/libguile/feature.h +++ b/libguile/feature.h @@ -76,3 +76,9 @@ extern SCM scm_hook_to_list (SCM hook); extern void scm_init_feature (void); #endif /* FEATUREH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/filesys.c b/libguile/filesys.c index ee8516a10..185038999 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -1464,3 +1464,9 @@ scm_sysintern ("FD_CLOEXEC", scm_long2num (FD_CLOEXEC)); #include "filesys.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/filesys.h b/libguile/filesys.h index 6d3ea1fcd..7573b6332 100644 --- a/libguile/filesys.h +++ b/libguile/filesys.h @@ -89,3 +89,9 @@ extern SCM scm_basename (SCM filename, SCM suffix); extern void scm_init_filesys (void); #endif /* FILESYSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/fluids.c b/libguile/fluids.c index fa3d926e0..752ef9c29 100644 --- a/libguile/fluids.c +++ b/libguile/fluids.c @@ -262,3 +262,9 @@ scm_init_fluids () NULL, NULL, print_fluid, NULL); #include "fluids.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/fluids.h b/libguile/fluids.h index d2f3d5dde..0058cfd86 100644 --- a/libguile/fluids.h +++ b/libguile/fluids.h @@ -107,3 +107,9 @@ void scm_swap_fluids_reverse (SCM fluids, SCM vals); void scm_init_fluids (void); #endif /* !FLUIDSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/fports.c b/libguile/fports.c index 01ae5556f..36f37fab1 100644 --- a/libguile/fports.c +++ b/libguile/fports.c @@ -735,3 +735,9 @@ scm_init_fports () scm_sysintern ("_IOLBF", SCM_MAKINUM (_IOLBF)); scm_sysintern ("_IONBF", SCM_MAKINUM (_IONBF)); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/fports.h b/libguile/fports.h index d490f3b83..455c293c5 100644 --- a/libguile/fports.h +++ b/libguile/fports.h @@ -79,3 +79,9 @@ extern SCM scm_fdes_to_port (int fdes, char *mode, SCM name); extern void scm_init_fports (void); #endif /* FPORTSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/fsu-pthreads.h b/libguile/fsu-pthreads.h dissimilarity index 100% index a012b1eb2..e69de29bb 100644 --- a/libguile/fsu-pthreads.h +++ b/libguile/fsu-pthreads.h @@ -1,169 +0,0 @@ -/* Copyright (C) 1995, 1996 Free Software Foundation, Inc. - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - * - * As a special exception, the Free Software Foundation gives permission - * for additional uses of the text contained in its release of GUILE. - * - * The exception is that, if you link the GUILE library with other files - * to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the GUILE library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the - * Free Software Foundation under the name GUILE. If you copy - * code from other Free Software Foundation releases into a copy of - * GUILE, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for GUILE, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. */ - -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ - - -#ifndef SCM_FSU_PTHREADS_H -#define SCM_FSU_PTHREADS_H - -#define PTHREAD_KERNEL -#include - -/* Identify where the stack pointer can be found in a jmpbuf. - */ - -#if defined(__sparc_setjmp_h) -# define THREAD_SP machdep_data.machdep_state[2] -#endif - -#if defined(linux) -# define THREAD_SP machdep_data.machdep_state[0].__sp -#endif - -#if defined(sgi) -# define THREAD_SP machdep_data.machdep_state[JB_SP] -#endif - -/* ...define THREAD_SP for your architecture here... - */ - -#if !defined(THREAD_SP) ---> where is your stack pointer? -#endif - - - -#define PTHREAD_MAX_PRIORITY 64 - - - -/* Boost the priority of this thread so that it is the only - one running. PTHREAD_MAX_PRIORITY is reserved for this - purpose */ - -#define SCM_THREAD_CRITICAL_SECTION_START \ - struct sched_param param; \ - int previous_prio; \ - int policy; \ - pthread_getschedparam(pthread_self(), &policy, ¶m); \ - previous_prio = param.prio; \ - param.prio = PTHREAD_MAX_PRIORITY; \ - pthread_setschedparam(pthread_self(), policy, ¶m) - -#define SCM_THREAD_CRITICAL_SECTION_END \ - param.prio = previous_prio; \ - pthread_setschedparam(pthread_self(), policy, ¶m) - -#define SCM_THREAD_INITIALIZE_STORAGE \ - scm_threads_init_mit_pthreads () - - - -#define SCM_NO_CRITICAL_SECTION_OWNER 0 - -#define SCM_DEFER_INTS \ -do { \ - SCM_IASSERT(scm_critical_section_owner != pthread_self()); \ - pthread_mutex_lock(&scm_critical_section_mutex); \ - scm_critical_section_owner = pthread_self(); \ - scm_ints_disabled = 1; \ -} while (0) - -#define SCM_ALLOW_INTS \ -do { \ - SCM_IASSERT(scm_critical_section_owner == pthread_self()); \ - scm_ints_disabled = 0; \ - scm_critical_section_owner = SCM_NO_CRITICAL_SECTION_OWNER; \ - pthread_mutex_unlock(&scm_critical_section_mutex); \ - SCM_CHECK_INTS; \ -} while (0) - -#define SCM_REDEFER_INTS \ -do { \ - if ((scm_critical_section_owner != pthread_self()) || \ - (scm_critical_section_owner == SCM_NO_CRITICAL_SECTION_OWNER)) \ - { \ - pthread_mutex_lock(&scm_critical_section_mutex); \ - scm_critical_section_owner = pthread_self(); \ - } \ - ++scm_ints_disabled; \ -} while (0) - -#define SCM_REALLOW_INTS \ -do { \ - SCM_IASSERT(scm_critical_section_owner == pthread_self()); \ - --scm_ints_disabled; \ - if (!scm_ints_disabled) \ - { \ - scm_critical_section_owner = SCM_NO_CRITICAL_SECTION_OWNER; \ - pthread_mutex_unlock(&scm_critical_section_mutex); \ - SCM_CHECK_INTS; \ - } \ -} while (0) - -*fixme* -#define scm_root ((scm_root_state *) pthread_self()->prots) -#define scm_set_root(new_root) (pthread_self()->prots = (new_root)) - - - -void scm_threads_init_mit_pthreads (); - -typedef struct QUEUE { - struct QUEUE *flink, *blink; -} queue; - -extern pthread_mutex_t scm_critical_section_mutex; -extern pthread_t scm_critical_section_owner; - -/* Key to thread specific data */ -extern pthread_key_t info_key; - -struct scm_pthread_create_info_type -{ - SCM thunk; - SCM error; - SCM *prots; -} scm_pthread_create_info; - -#endif diff --git a/libguile/gc.c b/libguile/gc.c index 806f19ae0..cccb07a47 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -2600,3 +2600,9 @@ scm_init_gc () { #include "gc.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gc.h b/libguile/gc.h index cb64d7d18..c1e82dbf2 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -139,3 +139,9 @@ extern int scm_init_storage (scm_sizet init_heap_size, #endif extern void scm_init_gc (void); #endif /* GCH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gdb_interface.h b/libguile/gdb_interface.h index 2fcbf9507..e06c706a6 100644 --- a/libguile/gdb_interface.h +++ b/libguile/gdb_interface.h @@ -124,3 +124,9 @@ extern int gdb_print (GDB_TYPE value); extern int gdb_binding (GDB_TYPE name, GDB_TYPE value); #endif /* GDB_INTERFACE_H */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gdbint.c b/libguile/gdbint.c index 52df23c06..435afb559 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -326,3 +326,9 @@ scm_init_gdbint () tok_buf = scm_permanent_object (scm_makstr (30L, 0)); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gdbint.h b/libguile/gdbint.h index 65f6ebfb9..c0983a584 100644 --- a/libguile/gdbint.h +++ b/libguile/gdbint.h @@ -56,3 +56,9 @@ extern int scm_print_carefully_p; extern void scm_init_gdbint (void); #endif /* GDBINTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh.h b/libguile/gh.h index 32e1d27d0..389174d75 100644 --- a/libguile/gh.h +++ b/libguile/gh.h @@ -246,3 +246,9 @@ void gh_newline (void); #endif #endif /* __GH_H */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_data.c b/libguile/gh_data.c index 39d467c63..ab837ef9e 100644 --- a/libguile/gh_data.c +++ b/libguile/gh_data.c @@ -692,3 +692,9 @@ gh_module_lookup (SCM vec, char *sname) else return SCM_UNDEFINED; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_eval.c b/libguile/gh_eval.c index 468434a44..007e6a033 100644 --- a/libguile/gh_eval.c +++ b/libguile/gh_eval.c @@ -119,3 +119,9 @@ gh_eval_file_with_standard_handler (const char *scheme_code) { return gh_eval_file_with_catch (scheme_code, gh_standard_handler); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_funcs.c b/libguile/gh_funcs.c index 179798582..8400334f4 100644 --- a/libguile/gh_funcs.c +++ b/libguile/gh_funcs.c @@ -167,3 +167,9 @@ gh_call3 (SCM proc, SCM arg1, SCM arg2, SCM arg3) { return scm_apply (proc, arg1, scm_cons2 (arg2, arg3, scm_listofnull)); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_init.c b/libguile/gh_init.c index 8661f3650..5b373b870 100644 --- a/libguile/gh_init.c +++ b/libguile/gh_init.c @@ -103,3 +103,9 @@ gh_standard_handler (void *data, SCM tag, SCM throw_args) return SCM_BOOL_F; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_io.c b/libguile/gh_io.c index 9e19f4d47..28d8103a6 100644 --- a/libguile/gh_io.c +++ b/libguile/gh_io.c @@ -61,3 +61,9 @@ gh_newline () { scm_newline (scm_current_output_port ()); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_list.c b/libguile/gh_list.c index 044176d41..5d85e5570 100644 --- a/libguile/gh_list.c +++ b/libguile/gh_list.c @@ -187,3 +187,9 @@ gh_set_cdr_x(SCM pair, SCM value) { return scm_set_cdr_x(pair, value); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_predicates.c b/libguile/gh_predicates.c index 6d06fdb62..f7f2ad9be 100644 --- a/libguile/gh_predicates.c +++ b/libguile/gh_predicates.c @@ -135,3 +135,9 @@ gh_null_p(SCM l) { return (SCM_NFALSEP(scm_null_p(l))); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_test_c.c b/libguile/gh_test_c.c index 9a2a71cb7..9b4e37eb9 100644 --- a/libguile/gh_test_c.c +++ b/libguile/gh_test_c.c @@ -245,3 +245,9 @@ c_vector_test (SCM s_length) return xvec; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gh_test_repl.c b/libguile/gh_test_repl.c index ed9b57e21..7fd3939aa 100644 --- a/libguile/gh_test_repl.c +++ b/libguile/gh_test_repl.c @@ -163,3 +163,9 @@ c_vector_test (SCM s_length) return xvec; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 8d2a10723..db41d2098 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -212,3 +212,9 @@ scm_init_gsubr() scm_make_gsubr("gsubr-2-1-l", 2, 1, 1, gsubr_21l); /* example */ #endif } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/gsubr.h b/libguile/gsubr.h index 2a0c47de4..bf08f54f5 100644 --- a/libguile/gsubr.h +++ b/libguile/gsubr.h @@ -71,3 +71,9 @@ extern SCM scm_gsubr_apply (SCM args); extern void scm_init_gsubr (void); #endif /* GSUBRH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/guardians.c b/libguile/guardians.c index 4cc92c283..563ac0abb 100644 --- a/libguile/guardians.c +++ b/libguile/guardians.c @@ -276,3 +276,9 @@ scm_init_guardian() #include "guardians.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/guardians.h b/libguile/guardians.h index 15345ccdf..eb8eda477 100644 --- a/libguile/guardians.h +++ b/libguile/guardians.h @@ -59,3 +59,9 @@ SCM scm_get_one_zombie (SCM guardian); void scm_init_guardian (void); #endif /* !SCM_GUARDIANH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/guile.c b/libguile/guile.c index 868442377..2439be08e 100644 --- a/libguile/guile.c +++ b/libguile/guile.c @@ -76,3 +76,9 @@ main (int argc, char **argv) scm_boot_guile (argc, argv, inner_main, 0); return 0; /* never reached */ } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/hash.c b/libguile/hash.c index aee3144ae..4883aba2f 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -247,3 +247,9 @@ scm_init_hash () #include "hash.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/hash.h b/libguile/hash.h index 0ad0f3a5b..aa97f7ed6 100644 --- a/libguile/hash.h +++ b/libguile/hash.h @@ -58,3 +58,9 @@ extern SCM scm_hash (SCM obj, SCM n); extern void scm_init_hash (void); #endif /* HASHH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/hashtab.c b/libguile/hashtab.c index c78718f2d..f78d0b79a 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -565,3 +565,9 @@ scm_init_hashtab () { #include "hashtab.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/hashtab.h b/libguile/hashtab.h index 46fd91511..538bf6e76 100644 --- a/libguile/hashtab.h +++ b/libguile/hashtab.h @@ -84,3 +84,9 @@ extern SCM scm_hash_fold (SCM proc, SCM init, SCM hash); extern void scm_init_hashtab (void); #endif /* HASHTABH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/inet_aton.c b/libguile/inet_aton.c index 82b4e8852..af203abde 100644 --- a/libguile/inet_aton.c +++ b/libguile/inet_aton.c @@ -160,3 +160,9 @@ inet_aton(const char *cp_arg, struct in_addr *addr) addr->s_addr = htonl(val); return (1); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/init.c b/libguile/init.c index eb5936783..15535635f 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -620,3 +620,9 @@ invoke_main_func (void *body_data) /* never reached */ return SCM_UNDEFINED; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/init.h b/libguile/init.h index 16e2e2b83..412a47ed9 100644 --- a/libguile/init.h +++ b/libguile/init.h @@ -56,3 +56,9 @@ extern void scm_boot_guile (int argc, char **argv, extern void scm_load_startup_files (void); #endif /* INITH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/ioext.c b/libguile/ioext.c index 99aeef048..a529169e9 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -533,3 +533,9 @@ scm_init_ioext () #include "ioext.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/ioext.h b/libguile/ioext.h index 4e1b38eaf..95b2d1e3a 100644 --- a/libguile/ioext.h +++ b/libguile/ioext.h @@ -63,3 +63,9 @@ extern SCM scm_fdes_to_ports (SCM fd); extern void scm_init_ioext (void); #endif /* IOEXTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/iselect.c b/libguile/iselect.c index 6874da8ef..585b90faf 100644 --- a/libguile/iselect.c +++ b/libguile/iselect.c @@ -693,3 +693,9 @@ scm_internal_select (int nfds, return coop_global_curr->retval; #endif /* GUILE_ISELECT */ } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/iselect.h b/libguile/iselect.h index ebf3327f8..eb87927c0 100644 --- a/libguile/iselect.h +++ b/libguile/iselect.h @@ -100,3 +100,9 @@ extern void scm_init_iselect (void); #endif /* GUILE_ISELECT */ #endif + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/keywords.c b/libguile/keywords.c index 6d032fcfa..d722e2de4 100644 --- a/libguile/keywords.c +++ b/libguile/keywords.c @@ -141,3 +141,9 @@ scm_init_keywords () #include "keywords.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/keywords.h b/libguile/keywords.h index 6270125cf..0eda0e8ac 100644 --- a/libguile/keywords.h +++ b/libguile/keywords.h @@ -65,3 +65,9 @@ extern SCM scm_keyword_dash_symbol (SCM keyword); extern void scm_init_keywords (void); #endif /* KEYWORDSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/kw.h b/libguile/kw.h dissimilarity index 100% index 763142d4a..e69de29bb 100644 --- a/libguile/kw.h +++ b/libguile/kw.h @@ -1,53 +0,0 @@ -/* classes: h_files */ - -#ifndef KWH -#define KWH -/* Copyright (C) 1995,1996,1999 Free Software Foundation, Inc. - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - * - * As a special exception, the Free Software Foundation gives permission - * for additional uses of the text contained in its release of GUILE. - * - * The exception is that, if you link the GUILE library with other files - * to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the GUILE library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the - * Free Software Foundation under the name GUILE. If you copy - * code from other Free Software Foundation releases into a copy of - * GUILE, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for GUILE, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. */ - - -#include "libguile/keywords.h" - - - -extern int scm_tc16_kw; - -#endif /* KWH */ diff --git a/libguile/lang.c b/libguile/lang.c index 21cb6fb21..21bd3ff8d 100644 --- a/libguile/lang.c +++ b/libguile/lang.c @@ -153,3 +153,9 @@ scm_init_lang () #include "lang.x" scm_make_synt ("nil-while", scm_makacro, scm_m_while); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/lang.h b/libguile/lang.h index f0d6bf7c9..4062c779f 100644 --- a/libguile/lang.h +++ b/libguile/lang.h @@ -69,3 +69,9 @@ extern SCM scm_nil_eq (SCM x, SCM y); extern void scm_init_lang (void); #endif /* PAIRSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/libguile.h b/libguile/libguile.h dissimilarity index 100% index c7cd9dfd3..e69de29bb 100644 --- a/libguile/libguile.h +++ b/libguile/libguile.h @@ -1,142 +0,0 @@ -#ifndef LIBGUILEH -#define LIBGUILEH - -/* Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc. - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - * - * As a special exception, the Free Software Foundation gives permission - * for additional uses of the text contained in its release of GUILE. - * - * The exception is that, if you link the GUILE library with other files - * to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the GUILE library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the - * Free Software Foundation under the name GUILE. If you copy - * code from other Free Software Foundation releases into a copy of - * GUILE, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for GUILE, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. */ - - -#ifdef __cplusplus -extern "C" { -#endif - -#include "libguile/__scm.h" - -/* These files define typedefs used by later files, so they need to - come first. */ -#include "libguile/print.h" -#include "libguile/smob.h" -#include "libguile/pairs.h" - -#include "libguile/alist.h" -#include "libguile/arbiters.h" -#include "libguile/async.h" -#include "libguile/boolean.h" -#include "libguile/chars.h" -#include "libguile/continuations.h" -#ifdef DEBUG_EXTENSIONS -#include "libguile/backtrace.h" -#include "libguile/debug.h" -#include "libguile/stacks.h" -#endif -#include "libguile/dynl.h" -#include "libguile/dynwind.h" -#include "libguile/eq.h" -#include "libguile/error.h" -#include "libguile/eval.h" -#include "libguile/evalext.h" -#include "libguile/feature.h" -#include "libguile/filesys.h" -#include "libguile/fluids.h" -#include "libguile/fports.h" -#include "libguile/gc.h" -#include "libguile/gdbint.h" -#include "libguile/gsubr.h" -#include "libguile/guardians.h" -#include "libguile/hash.h" -#include "libguile/hashtab.h" -#include "libguile/init.h" -#include "libguile/ioext.h" -#include "libguile/keywords.h" -#include "libguile/kw.h" -#include "libguile/list.h" -#include "libguile/load.h" -#include "libguile/macros.h" -#include "libguile/mallocs.h" -#include "libguile/modules.h" -#include "libguile/net_db.h" -#include "libguile/numbers.h" -#include "libguile/objects.h" -#include "libguile/objprop.h" -#include "libguile/options.h" -#include "libguile/ports.h" -#include "libguile/posix.h" -#include "libguile/procprop.h" -#include "libguile/procs.h" -#include "libguile/ramap.h" -#include "libguile/random.h" -#include "libguile/read.h" -#include "libguile/root.h" -#include "libguile/scmsigs.h" -#include "libguile/script.h" -#include "libguile/simpos.h" -#include "libguile/snarf.h" -#include "libguile/socket.h" -#include "libguile/sort.h" -#include "libguile/srcprop.h" -#include "libguile/stackchk.h" -#include "libguile/stime.h" -#include "libguile/strings.h" -#include "libguile/strop.h" -#include "libguile/strorder.h" -#include "libguile/strports.h" -#include "libguile/struct.h" -#include "libguile/symbols.h" -#include "libguile/tag.h" -#include "libguile/tags.h" -#include "libguile/throw.h" -#include "libguile/unif.h" -#include "libguile/validate.h" -#include "libguile/variable.h" -#include "libguile/vectors.h" -#include "libguile/version.h" -#include "libguile/vports.h" -#include "libguile/weaks.h" -#ifdef USE_THREADS -#include "libguile/threads.h" -#endif - -#ifdef __cplusplus -} -#endif - - - -#endif /* LIBGUILEH */ diff --git a/libguile/list.c b/libguile/list.c index e9e30ec11..c5695991a 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -784,3 +784,9 @@ scm_init_list () { #include "list.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/list.h b/libguile/list.h index d9b3dea95..606cf495c 100644 --- a/libguile/list.h +++ b/libguile/list.h @@ -102,3 +102,9 @@ extern SCM scm_delete1_x (SCM item, SCM lst); extern void scm_init_list (void); #endif /* LISTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/load.c b/libguile/load.c index f4355607d..450badda4 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -510,3 +510,9 @@ scm_init_load () #include "load.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/load.h b/libguile/load.h index 1800f2d29..73c8ee949 100644 --- a/libguile/load.h +++ b/libguile/load.h @@ -60,3 +60,9 @@ extern SCM scm_read_and_eval_x (SCM port); extern void scm_init_load (void); #endif /* LOADH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/macros.c b/libguile/macros.c index d3fd7b425..86dea1479 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -183,3 +183,9 @@ scm_init_macros () scm_markcdr, NULL, NULL, NULL); #include "macros.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/macros.h b/libguile/macros.h index beef5aa5e..3e8cd073e 100644 --- a/libguile/macros.h +++ b/libguile/macros.h @@ -65,3 +65,9 @@ extern SCM scm_make_synt (const char *name, extern void scm_init_macros (void); #endif /* MACROSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/mallocs.c b/libguile/mallocs.c index 8cf331ade..00ef56956 100644 --- a/libguile/mallocs.c +++ b/libguile/mallocs.c @@ -89,3 +89,9 @@ scm_init_mallocs () scm_tc16_malloc = scm_make_smob_type_mfpe ("malloc", 0, NULL, fmalloc, prinmalloc, NULL); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/mallocs.h b/libguile/mallocs.h index 99504c853..1f3240b63 100644 --- a/libguile/mallocs.h +++ b/libguile/mallocs.h @@ -58,3 +58,9 @@ extern SCM scm_malloc_obj (scm_sizet n); extern void scm_init_mallocs (void); #endif /* MALLOCSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/memmove.c b/libguile/memmove.c index 5efc30b23..adc7bd725 100644 --- a/libguile/memmove.c +++ b/libguile/memmove.c @@ -22,3 +22,9 @@ memmove (PTR s1, CPTR s2, size_t n) bcopy (s2, s1, n); return s1; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/mit-pthreads.c b/libguile/mit-pthreads.c dissimilarity index 100% index 7a8d4e7fe..e69de29bb 100644 --- a/libguile/mit-pthreads.c +++ b/libguile/mit-pthreads.c @@ -1,400 +0,0 @@ -/* Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc. - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - * - * As a special exception, the Free Software Foundation gives permission - * for additional uses of the text contained in its release of GUILE. - * - * The exception is that, if you link the GUILE library with other files - * to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the GUILE library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the - * Free Software Foundation under the name GUILE. If you copy - * code from other Free Software Foundation releases into a copy of - * GUILE, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for GUILE, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. */ - - -typedef struct scm_pthread_info { - queue q; /* the dequeue on which this structure exists */ - /* reqired to be the first element */ - pthread_t thread; /* the corresponding thread structure */ - void *stack_top; /* the highest address in this thread's stack */ - scm_root_state *root; /* root for this thread */ -} scm_pthread_info; - -pthread_mutex_t scm_critical_section_mutex; -pthread_t scm_critical_section_owner; - -static queue infos = { &infos, &infos }; /* the dequeue of info structures */ - -/* Key to thread specific data */ -pthread_key_t info_key; - -size_t -scm_threads_free_thread (SCM t) -{ - scm_must_free (SCM_THREAD_DATA (t)); - return sizeof (pthread_t); -} - -size_t -scm_threads_free_mutex (SCM m) -{ - pthread_mutex_destroy (SCM_MUTEX_DATA (m)); - scm_must_free (SCM_MUTEX_DATA (m)); - return sizeof (pthread_mutex_t); -} - -size_t -scm_threads_free_condvar (SCM c) -{ - pthread_cond_destroy (SCM_CONDVAR_DATA (c)); - scm_must_free (SCM_CONDVAR_DATA (c)); - return sizeof (pthread_cond_t); -} - -/* cleanup for info structure - */ -static void -scm_pthread_delete_info (void *ptr) -{ - scm_pthread_info *info = (scm_pthread_info *) ptr; - info->q.blink->flink = info->q.flink; - info->q.flink->blink = info->q.blink; - scm_must_free ((char *) info); -} - -void -scm_threads_init (SCM_STACKITEM *i) -{ - /* - * each info structure is made thread-specific, so that the cleanup - * mechanism can be used to reclaim the space in a timely fashion. - */ - pthread_key_create (&info_key, scm_pthread_delete_info); - - /* initialize various mutex variables */ - pthread_mutex_init (&scm_critical_section_mutex, NULL); - - /* - * create an info structure for the initial thread and push it onto - * the info dequeue - */ - { - scm_pthread_info *info; - info = (scm_pthread_info *) scm_must_malloc (sizeof (scm_pthread_info), - "threads_init"); - infos.flink = infos.blink = &info->q; - info->q.flink = info->q.blink = &infos; - info->thread = pthread_initial; - info->stack_top = (void *) i; - pthread_setspecific(info_key, info); - } - /* The root state pointer gets initialized in init.c. */ -} - -/* given some thread, find the corresponding info - */ -static scm_pthread_info *pthreads_find_info (pthread_t target) -{ - queue *ptr = infos.flink; - - while (ptr != &infos) - { - scm_pthread_info *info = (scm_pthread_info *) ptr; - - if (info->thread == target) - { - return (info); - } - ptr = ptr->flink; - } -} - -void -scm_threads_mark_stacks () -{ - scm_pthread_info *info; - pthread_t thread; - int j; - - for (info = (scm_pthread_info *) infos.flink; - info != (scm_pthread_info *) &infos; - info = (scm_pthread_info *) info->q.flink) - { - thread = info->thread; - if (thread == pthread_run) - { - /* Active thread */ - /* stack_len is long rather than sizet in order to guarantee - that &stack_len is long aligned */ -#ifdef STACK_GROWS_UP - long stack_len = ((SCM_STACKITEM *) (&thread) - - (SCM_STACKITEM *) info->stack_top); - - /* Protect from the C stack. This must be the first marking - * done because it provides information about what objects - * are "in-use" by the C code. "in-use" objects are those - * for which the values from SCM_LENGTH and SCM_CHARS must remain - * usable. This requirement is stricter than a liveness - * requirement -- in particular, it constrains the implementation - * of scm_resizuve. - */ - SCM_FLUSH_REGISTER_WINDOWS; - /* This assumes that all registers are saved into the jmp_buf */ - setjmp (scm_save_regs_gc_mark); - scm_mark_locations ((SCM_STACKITEM *) scm_save_regs_gc_mark, - ((scm_sizet) sizeof scm_save_regs_gc_mark - / sizeof (SCM_STACKITEM))); - - scm_mark_locations (((size_t) info->stack_top, - (sizet) stack_len)); -#else - long stack_len = ((SCM_STACKITEM *) info->stack_top - - (SCM_STACKITEM *) (&thread)); - - /* Protect from the C stack. This must be the first marking - * done because it provides information about what objects - * are "in-use" by the C code. "in-use" objects are those - * for which the values from SCM_LENGTH and SCM_CHARS must remain - * usable. This requirement is stricter than a liveness - * requirement -- in particular, it constrains the implementation - * of scm_resizuve. - */ - SCM_FLUSH_REGISTER_WINDOWS; - /* This assumes that all registers are saved into the jmp_buf */ - setjmp (scm_save_regs_gc_mark); - scm_mark_locations ((SCM_STACKITEM *) scm_save_regs_gc_mark, - ((scm_sizet) sizeof scm_save_regs_gc_mark - / sizeof (SCM_STACKITEM))); - - scm_mark_locations ((SCM_STACKITEM *) &thread, - stack_len); -#endif - } - else - { - /* Suspended thread */ -#ifdef STACK_GROWS_UP - long stack_len = ((SCM_STACKITEM *) (thread->THREAD_SP) - - (SCM_STACKITEM *) info->stack_top); - - scm_mark_locations ((size_t)info->stack_top, - (sizet) stack_len); -#else - long stack_len = ((SCM_STACKITEM *) info->stack_top - - (SCM_STACKITEM *) (thread->THREAD_SP)); - - scm_mark_locations ((SCM_STACKITEM *) thread->machdep_data.machdep_state, - ((scm_sizet) sizeof (*thread->machdep_data.machdep_state) - / sizeof (SCM_STACKITEM))); - scm_mark_locations ((SCM_STACKITEM *) (size_t) thread->THREAD_SP, - stack_len); -#endif - } - - /* Mark this thread's root */ - scm_gc_mark (((scm_root_state *) info->root) -> handle); - } -} - -void * -launch_thread (void *p) -{ - /* The thread object will be GC protected by being a member of the - list given as argument to launch_thread. It will be marked - during the conservative sweep of the stack. */ - SCM args = (SCM) p; - pthread_attr_setcleanup (&pthread_self () -> attr, - NULL, - SCM_ROOT_STATE (SCM_CAR (args))); - scm_call_with_dynamic_root (SCM_CADDR (args), SCM_CADDDR (args)); - return NULL; -} - -SCM -scm_call_with_new_thread (SCM argl) -{ - SCM thread; - - /* Check arguments. */ - { - register SCM args = argl; - SCM thunk, handler; - SCM_ASSERT (SCM_NIMP (args), - scm_makfrom0str (s_call_with_new_thread), - SCM_WNA, NULL); - thunk = SCM_CAR (args); - SCM_ASSERT (SCM_NFALSEP (scm_thunk_p (thunk)), - thunk, - SCM_ARG1, - s_call_with_new_thread); - args = SCM_CDR (args); - SCM_ASSERT (SCM_NIMP (args), - scm_makfrom0str (s_call_with_new_thread), - SCM_WNA, NULL); - handler = SCM_CAR (args); - SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (handler)), - handler, - SCM_ARG2, - s_call_with_new_thread); - SCM_ASSERT (SCM_NULLP (SCM_CDR (args)), - scm_makfrom0str (s_call_with_new_thread), - SCM_WNA, NULL); - } - - /* Make new thread. */ - { - pthread_attr_t attr; - pthread_t t; - scm_pthread_info *info = - (scm_pthread_info *) scm_must_malloc (sizeof (scm_pthread_info), - "pthread_info"); - SCM root, old_winds; - - /* Unwind wind chain. */ - old_winds = scm_dynwinds; - scm_dowinds (SCM_EOL, scm_ilength (scm_root->dynwinds)); - - /* Allocate thread locals. */ - root = scm_make_root (scm_root->handle); - /* Make thread. */ - SCM_NEWCELL (thread); - SCM_DEFER_INTS; - SCM_SETCAR (thread, scm_tc16_thread); - argl = scm_cons2 (root, thread, argl); - - /* thread mustn't start until we've built the info struct */ - pthread_kernel_lock++; - - /* initialize and create the thread. */ - pthread_attr_init (&attr); - pthread_attr_setschedpolicy (&attr, SCHED_RR); - - pthread_create (&t, &attr, launch_thread, (void *) argl); - pthread_attr_destroy (&attr); - - /* push the info onto the dequeue */ - info->q.flink = infos.flink; - info->q.blink = &infos; - infos.flink->blink = &info->q; - infos.flink = &info->q; - /* pthread_create filled in the initial SP -- profitons-en ! */ - info->stack_top = (void *) (t->THREAD_SP); - info->thread = t; - info->root = SCM_ROOT_STATE (root); - SCM_SETCDR (thread, t); - SCM_ALLOW_INTS; - - /* we're now ready for the thread to begin */ - pthread_kernel_lock--; - - /* Return to old dynamic context. */ - scm_dowinds (old_winds, - scm_ilength (old_winds)); - } - - return thread; -} - -SCM -scm_join_thread (SCM t) -{ - void *value; - pthread_join (SCM_THREAD_DATA (t), &value); - return SCM_BOOL_T; -} - -SCM -scm_yield () -{ - pthread_yield (); - return SCM_BOOL_T; -} - -SCM -scm_make_mutex () -{ - SCM m; - pthread_mutex_t *data = (pthread_mutex_t *) scm_must_malloc (sizeof (pthread_mutex_t), "mutex"); - SCM_NEWSMOB (m,scm_tc16_mutex, data); - pthread_mutex_init (SCM_MUTEX_DATA (m), NULL); - return m; -} - -SCM -scm_lock_mutex (SCM m) -{ - SCM_ASSERT (SCM_MUTEXP (m), m, SCM_ARG1, s_lock_mutex); - pthread_mutex_lock (SCM_MUTEX_DATA (m)); - return SCM_BOOL_T; -} - -SCM -scm_unlock_mutex (SCM m) -{ - SCM_ASSERT (SCM_MUTEXP (m), m, SCM_ARG1, s_unlock_mutex); - pthread_mutex_unlock (SCM_MUTEX_DATA (m)); - return SCM_BOOL_T; -} - -SCM -scm_make_condition_variable () -{ - SCM c; - pthread_cond_t *data = (pthread_cond_t *) scm_must_malloc (sizeof (pthread_cond_t), "condvar"); - SCM_NEWSMOB (c, scm_tc16_condvar, data); - pthread_cond_init (SCM_CONDVAR_DATA (c), NULL); - return c; -} - -SCM -scm_wait_condition_variable (SCM c, SCM m) -{ - SCM_ASSERT (SCM_CONDVARP (c), - c, - SCM_ARG1, - s_wait_condition_variable); - SCM_ASSERT (SCM_MUTEXP (m), - m, - SCM_ARG2, - s_wait_condition_variable); - pthread_cond_wait (SCM_CONDVAR_DATA (m), SCM_MUTEX_DATA (c)); - return SCM_BOOL_T; -} - -SCM -scm_signal_condition_variable (SCM c) -{ - SCM_ASSERT (SCM_CONDVARP (c), - c, - SCM_ARG1, - s_signal_condition_variable); - pthread_cond_signal (SCM_CONDVAR_DATA (c)); - return SCM_BOOL_T; -} diff --git a/libguile/mit-pthreads.h b/libguile/mit-pthreads.h dissimilarity index 100% index ecd21cdd9..e69de29bb 100644 --- a/libguile/mit-pthreads.h +++ b/libguile/mit-pthreads.h @@ -1,190 +0,0 @@ -/* classes: h_files */ - -#ifndef MIT_PTHREADSH -#define MIT_PTHREADSH - -/* Copyright (C) 1996 Free Software Foundation, Inc. - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - * - * As a special exception, the Free Software Foundation gives permission - * for additional uses of the text contained in its release of GUILE. - * - * The exception is that, if you link the GUILE library with other files - * to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the GUILE library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the - * Free Software Foundation under the name GUILE. If you copy - * code from other Free Software Foundation releases into a copy of - * GUILE, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for GUILE, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. */ - -/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999, - gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */ - - -#include "libguile/__scm.h" - -#define PTHREAD_KERNEL -#include - -/* Identify where the stack pointer can be found in a jmpbuf. - */ - -/* Solaris 2.4 */ -#if defined(__sparc_setjmp_h) -# define THREAD_SP machdep_data.machdep_state[2] -#endif - -/* Solaris 2.5 */ -#if defined(__sparc) -#ifndef THREAD_SP -# define THREAD_SP machdep_data.machdep_state[2] -#endif -#endif - -#if defined(linux) -# define THREAD_SP machdep_data.machdep_state[0].__sp -#endif - -#if defined(sgi) -# define THREAD_SP machdep_data.machdep_state[JB_SP] -#endif - -/* ...define THREAD_SP for your architecture here... - */ - -#if !defined(THREAD_SP) ---> where is your stack pointer? -#endif - - - -/* Boost the priority of this thread so that it is the only - one running. PTHREAD_MAX_PRIORITY is reserved for this - purpose */ - -#define SCM_THREAD_CRITICAL_SECTION_START \ - struct sched_param param; \ - int previous_prio; \ - int policy; \ - pthread_getschedparam(pthread_self(), &policy, ¶m); \ - previous_prio = param.prio; \ - param.prio = PTHREAD_MAX_PRIORITY; \ - pthread_setschedparam(pthread_self(), policy, ¶m) - -#define SCM_THREAD_CRITICAL_SECTION_END \ - param.prio = previous_prio; \ - pthread_setschedparam(pthread_self(), policy, ¶m) - - - -#if 1 - -#define SCM_NO_CRITICAL_SECTION_OWNER 0 - -#define SCM_THREAD_DEFER pthread_kernel_lock++ -#define SCM_THREAD_ALLOW pthread_kernel_lock-- - -#define SCM_THREAD_REDEFER pthread_kernel_lock++ -#define SCM_THREAD_REALLOW_1 pthread_kernel_lock-- -#define SCM_THREAD_REALLOW_2 \ -do { \ - scm_critical_section_owner = SCM_NO_CRITICAL_SECTION_OWNER; \ - pthread_mutex_unlock(&scm_critical_section_mutex); \ -} while (0) - -#else - -#define SCM_NO_CRITICAL_SECTION_OWNER 0 - -#define SCM_THREAD_DEFER \ -do { \ - pthread_mutex_lock (&scm_critical_section_mutex); \ - scm_critical_section_owner = pthread_self(); \ -} while (0) - -#define SCM_THREAD_ALLOW \ -do { \ - scm_critical_section_owner = SCM_NO_CRITICAL_SECTION_OWNER; \ - pthread_mutex_unlock (&scm_critical_section_mutex); \ -} while (0) - -#define SCM_THREAD_REDEFER \ -do { \ - if ((scm_critical_section_owner != pthread_self()) || \ - (scm_critical_section_owner == SCM_NO_CRITICAL_SECTION_OWNER)) \ - { \ - pthread_mutex_lock(&scm_critical_section_mutex); \ - scm_critical_section_owner = pthread_self(); \ - } \ -} while (0) - -#define SCM_THREAD_REALLOW_1 -#define SCM_THREAD_REALLOW_2 \ -do { \ - scm_critical_section_owner = SCM_NO_CRITICAL_SECTION_OWNER; \ - pthread_mutex_unlock (&scm_critical_section_mutex); \ -} while (0) - -#endif - -#define SCM_THREAD_SWITCHING_CODE - -#define SCM_THREAD_LOCAL_DATA (pthread_self () -> attr.arg_attr) -#define SCM_SET_THREAD_LOCAL_DATA(new_root) \ -do { \ - pthread_t t = pthread_self (); \ - void *r = (new_root); \ - pthread_attr_setcleanup (&t -> attr, NULL, r); \ - pthreads_find_info (t) -> root = r; \ -} while (0) - - - - -void scm_threads_init_mit_pthreads (); - -typedef struct QUEUE { - struct QUEUE *flink, *blink; -} queue; - -extern pthread_mutex_t scm_critical_section_mutex; -extern pthread_t scm_critical_section_owner; - -/* Key to thread specific data */ -extern pthread_key_t info_key; - -struct scm_pthread_create_info_type -{ - SCM thunk; - SCM error; - SCM *prots; -} scm_pthread_create_info; - -#endif /* MIT_PTHREADSH */ diff --git a/libguile/modules.c b/libguile/modules.c index bcada07e3..f8d5b3714 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -198,3 +198,9 @@ scm_post_boot_init_modules () resolve_module = scm_intern0 ("resolve-module"); try_module_autoload = scm_intern0 ("try-module-autoload"); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/modules.h b/libguile/modules.h index 3983f068a..7657af71b 100644 --- a/libguile/modules.h +++ b/libguile/modules.h @@ -63,3 +63,9 @@ extern void scm_init_modules (void); extern void scm_post_boot_init_modules (void); #endif /* MODULESH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/net_db.c b/libguile/net_db.c index 797d33d08..26e8b21f8 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -570,3 +570,9 @@ scm_init_net_db () scm_add_feature ("net-db"); #include "net_db.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/net_db.h b/libguile/net_db.h index 7ea8620ff..9421808a8 100644 --- a/libguile/net_db.h +++ b/libguile/net_db.h @@ -67,3 +67,9 @@ extern SCM scm_setserv (SCM arg); extern void scm_init_net_db (void); #endif /* NETDBH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/numbers.c b/libguile/numbers.c index 8bd370958..2ec33c12d 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -4629,3 +4629,9 @@ scm_init_numbers () #endif /* DBL_DIG */ #include "numbers.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/numbers.h b/libguile/numbers.h index b376446a2..da4b7a26c 100644 --- a/libguile/numbers.h +++ b/libguile/numbers.h @@ -389,3 +389,9 @@ extern unsigned long scm_num2ulong (SCM num, char *pos, extern void scm_init_numbers (void); #endif /* NUMBERSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/objects.c b/libguile/objects.c index 837a8f408..6421e1032 100644 --- a/libguile/objects.c +++ b/libguile/objects.c @@ -492,3 +492,9 @@ scm_init_objects () #include "objects.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/objects.h b/libguile/objects.h index dab20a467..1c863bd9f 100644 --- a/libguile/objects.h +++ b/libguile/objects.h @@ -240,3 +240,9 @@ extern SCM scm_i_make_class_object (SCM metaclass, SCM layout_string, extern void scm_init_objects (void); #endif /* OBJECTSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/objprop.c b/libguile/objprop.c index b05ced8eb..1da9c1b99 100644 --- a/libguile/objprop.c +++ b/libguile/objprop.c @@ -124,3 +124,9 @@ scm_init_objprop () #include "objprop.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/objprop.h b/libguile/objprop.h index f04c140c2..2097f903c 100644 --- a/libguile/objprop.h +++ b/libguile/objprop.h @@ -60,3 +60,9 @@ extern SCM scm_set_object_property_x (SCM obj, SCM key, SCM val); extern void scm_init_objprop (void); #endif /* OBJPROPH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/options.c b/libguile/options.c index d8c2baae8..cc56c94c7 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -237,3 +237,9 @@ scm_init_options () protected_objects = scm_permanent_object (scm_cons (SCM_UNDEFINED, SCM_EOL)); #include "options.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/options.h b/libguile/options.h index 5fefab060..57b552d38 100644 --- a/libguile/options.h +++ b/libguile/options.h @@ -74,3 +74,9 @@ extern void scm_init_opts (SCM (*func) (SCM), scm_option options[], int n); extern void scm_init_options (void); #endif /* OPTIONSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/pairs.c b/libguile/pairs.c index 780f53734..1a090b075 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -167,3 +167,9 @@ scm_init_pairs () #include "pairs.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/pairs.h b/libguile/pairs.h index 30bea4f4f..8c36a2804 100644 --- a/libguile/pairs.h +++ b/libguile/pairs.h @@ -245,3 +245,9 @@ extern SCM scm_set_cdr_x (SCM pair, SCM value); extern void scm_init_pairs (void); #endif /* PAIRSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/ports.c b/libguile/ports.c index 58bfe4ee0..2215b4529 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -1376,3 +1376,9 @@ scm_init_ports () write_void_port); #include "ports.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/ports.h b/libguile/ports.h index 1183ecb4d..cb3426323 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -302,3 +302,9 @@ extern SCM scm_pt_member (SCM member); #endif /* GUILE_DEBUG */ #endif /* PORTSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/posix.c b/libguile/posix.c index d8ee0d4cf..554a7297e 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1325,3 +1325,9 @@ scm_sysintern ("PIPE_BUF", scm_long2num (PIPE_BUF)); #include "cpp_sig_symbols.c" #include "posix.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/posix.h b/libguile/posix.h index 4b4369315..2347df707 100644 --- a/libguile/posix.h +++ b/libguile/posix.h @@ -98,3 +98,9 @@ extern SCM scm_sync (void); extern void scm_init_posix (void); #endif /* POSIXH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/print.c b/libguile/print.c index 079c4a66c..1696a8d85 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1121,3 +1121,9 @@ scm_init_print () #include "print.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/print.h b/libguile/print.h index f15d3303c..dbb61860b 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -127,3 +127,9 @@ extern void scm_init_print (void); extern SCM scm_current_pstate (void); #endif #endif /* PRINTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/procprop.c b/libguile/procprop.c index 419d8fe7a..999af9994 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -242,3 +242,9 @@ scm_init_procprop () #include "procprop.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/procprop.h b/libguile/procprop.h index 9ee393a2b..d59e9a062 100644 --- a/libguile/procprop.h +++ b/libguile/procprop.h @@ -62,3 +62,9 @@ extern SCM scm_set_procedure_property_x (SCM p, SCM k, SCM v); extern void scm_init_procprop (void); #endif /* PROCPROPH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/procs.c b/libguile/procs.c index 8b7614799..b90eace0a 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -394,3 +394,9 @@ scm_init_procs () { #include "procs.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/procs.h b/libguile/procs.h index 32516fe4b..8fe7fa1c6 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -199,3 +199,9 @@ extern SCM scm_make_cclo (SCM proc, SCM len); #endif /* PROCSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/putenv.c b/libguile/putenv.c index 11cbae51c..68f2a59b7 100644 --- a/libguile/putenv.c +++ b/libguile/putenv.c @@ -112,3 +112,9 @@ putenv (const char *string) return 0; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/ramap.c b/libguile/ramap.c index 2eca2332f..8ef9eedde 100644 --- a/libguile/ramap.c +++ b/libguile/ramap.c @@ -1997,3 +1997,9 @@ scm_init_ramap () #include "ramap.x" scm_add_feature (s_scm_array_for_each); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/ramap.h b/libguile/ramap.h index 49df4acf2..b081593d2 100644 --- a/libguile/ramap.h +++ b/libguile/ramap.h @@ -72,3 +72,9 @@ extern SCM scm_array_equal_p (SCM ra0, SCM ra1); extern void scm_init_ramap (void); #endif /* RAMAPH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/random.c b/libguile/random.c index 2161635f1..16b810aad 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -601,3 +601,9 @@ scm_init_random () scm_add_feature ("random"); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/random.h b/libguile/random.h index 04651dcfe..d519d1ca6 100644 --- a/libguile/random.h +++ b/libguile/random.h @@ -127,3 +127,9 @@ extern SCM scm_random_exp (SCM state); extern void scm_init_random (void); #endif /* RANDOMH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/read.c b/libguile/read.c index 346705f1e..7af3b735d 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -787,3 +787,9 @@ scm_init_read () scm_init_opts (scm_read_options, scm_read_opts, SCM_N_READ_OPTIONS); #include "read.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/read.h b/libguile/read.h index 847f080ce..aab2b6b8e 100644 --- a/libguile/read.h +++ b/libguile/read.h @@ -90,3 +90,9 @@ extern SCM scm_read_hash_extend (SCM chr, SCM proc); extern void scm_init_read (void); #endif /* READH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index 0cf3a8b59..2a1678be4 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -296,3 +296,9 @@ scm_init_regex_posix () scm_add_feature ("regex"); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/regex-posix.h b/libguile/regex-posix.h index fffbd249a..3750f2647 100644 --- a/libguile/regex-posix.h +++ b/libguile/regex-posix.h @@ -60,3 +60,9 @@ extern SCM scm_regexp_exec (SCM rx, SCM str, SCM start, SCM flags); extern void scm_init_regex_posix (void); #endif + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/root.c b/libguile/root.c index 8b4ed1db0..4767527fd 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -446,3 +446,9 @@ scm_init_root () #include "root.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/root.h b/libguile/root.h index c9fc4a751..682cacae5 100644 --- a/libguile/root.h +++ b/libguile/root.h @@ -170,3 +170,9 @@ extern SCM scm_call_catching_errors (SCM (*thunk)(), SCM (*err_filter)(), void * extern void scm_init_root (void); #endif /* ROOTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index 7e63e7212..0a767603b 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -525,3 +525,9 @@ scm_init_scmsigs () #include "scmsigs.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/scmsigs.h b/libguile/scmsigs.h index 22ac5c054..a3bfd9b57 100644 --- a/libguile/scmsigs.h +++ b/libguile/scmsigs.h @@ -57,3 +57,9 @@ extern SCM scm_raise (SCM sig); extern void scm_init_scmsigs (void); #endif /* SCMSIGSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/script.c b/libguile/script.c index 064f50275..9e428f3b8 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -644,3 +644,9 @@ scm_init_script () { #include "script.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/script.h b/libguile/script.h index 33509b813..8593a6442 100644 --- a/libguile/script.h +++ b/libguile/script.h @@ -60,3 +60,9 @@ extern char *scm_usage_name; extern void scm_init_script (void); #endif /* SCRIPTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/simpos.c b/libguile/simpos.c index 2d7bdbf88..841108ff3 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -138,3 +138,9 @@ scm_init_simpos () #include "simpos.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/simpos.h b/libguile/simpos.h index b3a5c949e..9e483403d 100644 --- a/libguile/simpos.h +++ b/libguile/simpos.h @@ -53,3 +53,9 @@ extern SCM scm_primitive_exit (SCM status); extern void scm_init_simpos (void); #endif /* SIMPOSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/smob.c b/libguile/smob.c index bb4f99b10..8ffae882b 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -278,3 +278,9 @@ scm_smob_prehistory () scm_make_smob_type ("allocated", 0); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/smob.h b/libguile/smob.h index 4bdb816b1..f7a2433a0 100644 --- a/libguile/smob.h +++ b/libguile/smob.h @@ -174,3 +174,9 @@ extern void scm_smob_prehistory (void); extern long scm_newsmob (const scm_smobfuns *smob); #endif /* SMOBH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/snarf.h b/libguile/snarf.h index 12806108f..9115fe1dd 100644 --- a/libguile/snarf.h +++ b/libguile/snarf.h @@ -182,3 +182,9 @@ SCM_VCELL_INIT(c_name, scheme_name, scm_long2num(value)) #endif /* LIBGUILE_SNARF_H */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/socket.c b/libguile/socket.c index 1bdc61e05..4e5cc3820 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -979,3 +979,9 @@ scm_init_socket () #include "socket.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/socket.h b/libguile/socket.h index 911670128..1a96ee348 100644 --- a/libguile/socket.h +++ b/libguile/socket.h @@ -70,3 +70,9 @@ extern SCM scm_sendto (SCM sockfd, SCM message, SCM fam, SCM address, SCM args_a extern void scm_init_socket (void); #endif /* SOCKETH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/sort.c b/libguile/sort.c index 70f6a1016..28decf028 100644 --- a/libguile/sort.c +++ b/libguile/sort.c @@ -953,3 +953,9 @@ scm_init_sort () scm_add_feature ("sort"); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/sort.h b/libguile/sort.h index cbf2f0347..701b5e4e2 100644 --- a/libguile/sort.h +++ b/libguile/sort.h @@ -67,3 +67,9 @@ extern void scm_init_sort (void); + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/srcprop.c b/libguile/srcprop.c index 831fbe008..59c1fdc6e 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -351,3 +351,9 @@ scm_finish_srcprop () ptr = next; } } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/srcprop.h b/libguile/srcprop.h index c7de9a1e3..2d92044f4 100644 --- a/libguile/srcprop.h +++ b/libguile/srcprop.h @@ -135,3 +135,9 @@ extern void scm_finish_srcprop (void); extern void scm_init_srcprop (void); #endif /* SRCPROPH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/stackchk.c b/libguile/stackchk.c index b7fc61d37..3f3633beb 100644 --- a/libguile/stackchk.c +++ b/libguile/stackchk.c @@ -106,3 +106,9 @@ scm_init_stackchk () { #include "stackchk.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/stackchk.h b/libguile/stackchk.h index 44d3d9309..18c6b50e5 100644 --- a/libguile/stackchk.h +++ b/libguile/stackchk.h @@ -90,3 +90,9 @@ extern void scm_stack_report (void); extern void scm_init_stackchk (void); #endif /* STACKCHKH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/stacks.c b/libguile/stacks.c index 2a1abeeae..355bd8fe4 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -755,3 +755,9 @@ scm_init_stacks () SCM_CAR (scm_intern0 ("stack"))); #include "stacks.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/stacks.h b/libguile/stacks.h index 747ebcc16..ca941e0db 100644 --- a/libguile/stacks.h +++ b/libguile/stacks.h @@ -139,3 +139,9 @@ SCM scm_frame_overflow_p (SCM frame); void scm_init_stacks (void); #endif /* STACKSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/stime.c b/libguile/stime.c index 08ccadbc7..c408dd4d3 100644 --- a/libguile/stime.c +++ b/libguile/stime.c @@ -654,3 +654,9 @@ scm_init_stime() #include "stime.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/stime.h b/libguile/stime.h index bb57ab631..64dc8ecad 100644 --- a/libguile/stime.h +++ b/libguile/stime.h @@ -61,3 +61,9 @@ extern SCM scm_strptime (SCM format, SCM string); extern void scm_init_stime (void); #endif /* STIMEH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strerror.c b/libguile/strerror.c index ce7380d5f..0d05f4b32 100644 --- a/libguile/strerror.c +++ b/libguile/strerror.c @@ -31,3 +31,9 @@ strerror (int errnum) return sys_errlist[errnum]; return (char *) "Unknown error"; } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strings.c b/libguile/strings.c index f4bba65e2..783bfd4f9 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -380,3 +380,9 @@ scm_init_strings () #include "strings.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strings.h b/libguile/strings.h index b91aba0c9..c4289da82 100644 --- a/libguile/strings.h +++ b/libguile/strings.h @@ -82,3 +82,9 @@ extern SCM scm_make_shared_substring (SCM str, SCM frm, SCM to); extern void scm_init_strings (void); #endif /* STRINGSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strop.c b/libguile/strop.c index d220125f6..633553a00 100644 --- a/libguile/strop.c +++ b/libguile/strop.c @@ -494,3 +494,9 @@ scm_init_strop () { #include "strop.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strop.h b/libguile/strop.h index 634b0a7f0..f5c988f7f 100644 --- a/libguile/strop.h +++ b/libguile/strop.h @@ -70,3 +70,9 @@ extern SCM scm_string_ci_to_symbol (SCM v); #define scm_substring_move_right_x scm_substring_move_x #endif /* STROPH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strorder.c b/libguile/strorder.c index 4695b4279..edaff6dc2 100644 --- a/libguile/strorder.c +++ b/libguile/strorder.c @@ -236,3 +236,9 @@ scm_init_strorder () #include "strorder.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strorder.h b/libguile/strorder.h index 7b45f8a94..0ee64ed0c 100644 --- a/libguile/strorder.h +++ b/libguile/strorder.h @@ -66,3 +66,9 @@ extern SCM scm_string_ci_geq_p (SCM s1, SCM s2); extern void scm_init_strorder (void); #endif /* STRORDERH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strports.c b/libguile/strports.c index 1f4acec17..31d92f36d 100644 --- a/libguile/strports.c +++ b/libguile/strports.c @@ -425,3 +425,9 @@ scm_init_strports () #include "strports.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/strports.h b/libguile/strports.h index 5cdf910d7..14a9242c3 100644 --- a/libguile/strports.h +++ b/libguile/strports.h @@ -59,3 +59,9 @@ extern SCM scm_eval_string (SCM string); extern void scm_init_strports (void); #endif /* STRPORTSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/struct.c b/libguile/struct.c index 62e319de1..f6d8b9dd6 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -778,3 +778,9 @@ scm_init_struct () scm_sysintern ("vtable-offset-user", SCM_MAKINUM (scm_vtable_offset_user)); #include "struct.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/struct.h b/libguile/struct.h index 9e7bfba47..f1a9e065e 100644 --- a/libguile/struct.h +++ b/libguile/struct.h @@ -120,3 +120,9 @@ extern void scm_print_struct (SCM exp, SCM port, scm_print_state *); extern void scm_init_struct (void); #endif /* STRUCTH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/symbols.c b/libguile/symbols.c index 5a9ea47a1..776f2f3e1 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -896,3 +896,9 @@ scm_init_symbols () gensym_prefix = scm_permanent_object (scm_makfrom0str ("%%gensym")); #include "symbols.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/symbols.h b/libguile/symbols.h index 5495d61e4..8f12f1329 100644 --- a/libguile/symbols.h +++ b/libguile/symbols.h @@ -144,3 +144,9 @@ extern void scm_init_symbols (void); extern int scm_can_use_top_level_lookup_closure_var; #endif /* SYMBOLSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/tag.c b/libguile/tag.c index 17dd260fb..d6044c71d 100644 --- a/libguile/tag.c +++ b/libguile/tag.c @@ -218,3 +218,9 @@ scm_init_tag () #include "tag.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/tag.h b/libguile/tag.h index e42730c6e..69afb3539 100644 --- a/libguile/tag.h +++ b/libguile/tag.h @@ -56,3 +56,9 @@ extern SCM scm_tag (SCM x); extern void scm_init_tag (void); #endif /* TAGH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/tags.h b/libguile/tags.h index 5288bd3ff..af0d1d578 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -582,3 +582,9 @@ extern char *scm_isymnames[]; /* defined in print.c */ #define scm_tcs_symbols scm_tc7_ssymbol:case scm_tc7_msymbol #endif /* TAGSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/threads.c b/libguile/threads.c index b9c8974eb..e94b72b28 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -155,3 +155,9 @@ scm_init_threads (SCM_STACKITEM *i) /* Initialize implementation specific details of the threads support */ scm_threads_init (i); } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/threads.h b/libguile/threads.h index bbba34671..f210d9562 100644 --- a/libguile/threads.h +++ b/libguile/threads.h @@ -116,3 +116,9 @@ extern SCM scm_signal_condition_variable (SCM cond); #endif #endif /* THREADSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/throw.c b/libguile/throw.c index 8d303cff6..2976b8fae 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -734,3 +734,9 @@ scm_init_throw () NULL); #include "throw.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/throw.h b/libguile/throw.h index e0ef204bb..d8f6deda1 100644 --- a/libguile/throw.h +++ b/libguile/throw.h @@ -101,3 +101,9 @@ extern SCM scm_ithrow (SCM key, SCM args, int noreturn); extern SCM scm_throw (SCM key, SCM args); extern void scm_init_throw (void); #endif /* THROWH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/unif.c b/libguile/unif.c index 216482e5f..0bab178c0 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -2522,3 +2522,9 @@ scm_init_unif () scm_add_feature ("array"); #include "unif.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/unif.h b/libguile/unif.h index 550909e21..86312b3fa 100644 --- a/libguile/unif.h +++ b/libguile/unif.h @@ -130,3 +130,9 @@ extern SCM scm_array_prototype (SCM ra); extern void scm_init_unif (void); #endif /* UNIFH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/validate.h b/libguile/validate.h index c22640d68..bc773f441 100644 --- a/libguile/validate.h +++ b/libguile/validate.h @@ -1,4 +1,4 @@ -/* $Id: validate.h,v 1.1 2000-03-03 00:11:46 gjb Exp $ */ +/* $Id: validate.h,v 1.2 2000-03-19 19:01:14 cmm Exp $ */ /* Copyright (C) 1999 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify @@ -289,3 +289,9 @@ do { SCM_ASSERT (SCM_VECTORP (v) && len == SCM_LENGTH(v), v, pos, FUNC_NAME); } while (0) #endif + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/variable.c b/libguile/variable.c index 4d35bb4ff..f453ce3ce 100644 --- a/libguile/variable.c +++ b/libguile/variable.c @@ -238,3 +238,9 @@ scm_init_variable () #include "variable.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/variable.h b/libguile/variable.h index e69d86c39..8d4abc028 100644 --- a/libguile/variable.h +++ b/libguile/variable.h @@ -72,3 +72,9 @@ extern SCM scm_variable_bound_p (SCM var); extern void scm_init_variable (void); #endif /* VARIABLEH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/vectors.c b/libguile/vectors.c index d6d6eb5d8..f4e992e14 100644 --- a/libguile/vectors.c +++ b/libguile/vectors.c @@ -386,3 +386,9 @@ scm_init_vectors () scm_make_subr (s_resizuve, scm_tc7_subr_2, scm_vector_set_length_x); */ } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/vectors.h b/libguile/vectors.h index 7fd8df06a..6245fb02c 100644 --- a/libguile/vectors.h +++ b/libguile/vectors.h @@ -86,3 +86,9 @@ extern SCM scm_vector_move_right_x (SCM vec1, SCM start1, SCM end1, extern void scm_init_vectors (void); #endif /* VECTORSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/version.c b/libguile/version.c index 7efb68277..605c2d9a7 100644 --- a/libguile/version.c +++ b/libguile/version.c @@ -102,3 +102,9 @@ scm_init_version () { #include "version.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/version.h b/libguile/version.h index 147677204..7c9babf74 100644 --- a/libguile/version.h +++ b/libguile/version.h @@ -54,3 +54,9 @@ extern SCM scm_version (void); extern void scm_init_version (void); #endif /* VERSIONH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/vports.c b/libguile/vports.c index 70164ec74..3a7cd99cc 100644 --- a/libguile/vports.c +++ b/libguile/vports.c @@ -213,3 +213,9 @@ scm_init_vports () { #include "vports.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/vports.h b/libguile/vports.h index 0e8aad183..39209cb68 100644 --- a/libguile/vports.h +++ b/libguile/vports.h @@ -52,3 +52,9 @@ extern SCM scm_make_soft_port (SCM pv, SCM modes); extern void scm_init_vports (void); #endif /* VPORTSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/weaks.c b/libguile/weaks.c index 8ef6cb641..6816bfa5e 100644 --- a/libguile/weaks.c +++ b/libguile/weaks.c @@ -216,3 +216,9 @@ scm_init_weaks () #include "weaks.x" } + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ diff --git a/libguile/weaks.h b/libguile/weaks.h index 26f9a0257..e450ab0df 100644 --- a/libguile/weaks.h +++ b/libguile/weaks.h @@ -73,3 +73,9 @@ extern SCM scm_doubly_weak_hash_table_p (SCM x); extern void scm_init_weaks (void); #endif /* WEAKSH */ + +/* + Local Variables: + c-file-style: "gnu" + End: +*/ -- 2.20.1