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

* Renamed header macros to the SCM_<filename>_H format.

Browse source
This commit is contained in:
Dirk Herrmann 2001-08-31 10:42:19 +00:00
parent 431e2ac105
commit 0527e68763
55 changed files with 470 additions and 416 deletions
Download patch file Download diff file Expand all files Collapse all files

34
libguile/ChangeLog
View file

@ -1,3 +1,37 @@
2001-08-31 Dirk Herrmann <D.Herrmann@tu-bs.de>
* _scm.h (_SCMH, SCM__SCM_H), alist.h (ALISTH, SCM_ALIST_H),
arbiters.h (ARBITERSH, SCM_ARBITERS_H), backtrace.h (BACKTRACEH,
SCM_BACKTRACE_H), boolean.h (BOOLEANH, SCM_BOOLEAN_H), chars.h
(SCM_CHARSH, SCM_CHARS_H), coop-defs.h (COOP_DEFSH,
SCM_COOP_DEFS_H), coop-threads.h (COOP_THREADSH,
SCM_COOP_THREADS_H), debug-malloc.h (DEBUGMALLOCH,
SCM_DEBUG_MALLOC_H), dynwind.h (DYNWINDH, SCM_DYNWIND_H),
environments.h (ENVIRONMENTS_H, SCM_ENVIRONMENTS_H), eq.h (EQH,
SCM_EQ_H), evalext.h (EVALEXTH, SCM_EVALEXT_H), extensions.h
(LIBGUILE_EXTENSIONS_H, SCM_EXTENSIONS_H), feature.h (FEATUREH,
SCM_FEATURE_H), gdbint.h (GDBINTH, SCM_GDBINT_H), guardians.h
(SCM_GUARDIANH, SCM_GUARDIANS_H), hash.h (HASHH, SCM_HASH_H),
hashtab.h (HASHTABH, SCM_HASHTAB_H), init.h (INITH, SCM_INIT_H),
ioext.h (IOEXTH, SCM_IOEXT_H), iselect.h (ISELECTH,
SCM_ISELECT_H), keywords.h (KEYWORDSH, SCM_KEYWORDS_H), lang.h
(LANGH, SCM_LANG_H), mallocs.h (MALLOCSH, SCM_MALLOCS_H), net_db.h
(SCM_NETDBH, SCM_NET_DB_H), objprop.h (OBJPROPH, SCM_OBJPROP_H),
posix.h (POSIXH, SCM_POSIX_H), procprop.h (PROCPROPH,
SCM_PROCPROP_H), properties.h (PROPERTIES_H, SCM_PROPERTIES_H),
ramap.h (RAMAPH, SCM_RAMAP_H), rdelim.h (SCM_RDELIM,
SCM_RDELIM_H), read.h (READH, SCM_READ_H), rw.h (SCM_RW,
SCM_RW_H), scmsigs.h (SCMSIGSH, SCM_SCMSIGS_H), script.h (SCRIPTH,
SCM_SCRIPT_H), simpos.h (SIMPOSH, SCM_SIMPOS_H), socket.h
(SCM_SOCKETH, SCM_SOCKET_H), sort.h (SORTH, SCM_SORT_H),
stackchk.h (STACKCHKH, SCM_STACKCHK_H), stime.h (STIMEH,
SCM_STIME_H), strop.h (STROPH, SCM_STROP_H), strorder.h
(STRORDERH, SCM_STRORDER_H), threads.h (THREADSH, SCM_THREADS_H),
throw.h (THROWH, SCM_THROW_H), version.h (VERSIONH,
SCM_VERSION_H), vports.h (VPORTSH, SCM_VPORTS_H): Renamed
the macros that are defined to inhibit double inclusion of the
same headers to the SCM_<filename>_H format.
2001-08-27 Marius Vollmer <mvo@zagadka.ping.de> 2001-08-27 Marius Vollmer <mvo@zagadka.ping.de>
* ports.c, ports.h, fprots.c, gc.c, ioext.c: Replaced * ports.c, ports.h, fprots.c, gc.c, ioext.c: Replaced

9
libguile/_scm.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef _SCMH #ifndef SCM__SCM_H
#define _SCMH #define SCM__SCM_H
/* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -128,8 +130,7 @@
#define max(A,B) ((A) >= (B) ? (A) : (B)) #define max(A,B) ((A) >= (B) ? (A) : (B))
#endif #endif
#endif /* _SCMH */ #endif /* SCM__SCM_H */
/* /*
Local Variables: Local Variables:

8
libguile/alist.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef ALISTH #ifndef SCM_ALIST_H
#define ALISTH #define SCM_ALIST_H
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -66,7 +68,7 @@ extern SCM scm_assv_remove_x (SCM alist, SCM key);
extern SCM scm_assoc_remove_x (SCM alist, SCM key); extern SCM scm_assoc_remove_x (SCM alist, SCM key);
extern void scm_init_alist (void); extern void scm_init_alist (void);
#endif /* ALISTH */ #endif /* SCM_ALIST_H */
/* /*
Local Variables: Local Variables:

8
libguile/arbiters.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef ARBITERSH #ifndef SCM_ARBITERS_H
#define ARBITERSH #define SCM_ARBITERS_H
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -53,7 +55,7 @@ extern SCM scm_try_arbiter (SCM arb);
extern SCM scm_release_arbiter (SCM arb); extern SCM scm_release_arbiter (SCM arb);
extern void scm_init_arbiters (void); extern void scm_init_arbiters (void);
#endif /* ARBITERSH */ #endif /* SCM_ARBITERS_H */
/* /*
Local Variables: Local Variables:

3
libguile/async.h
View file

@ -2,7 +2,8 @@
#ifndef SCM_ASYNC_H #ifndef SCM_ASYNC_H
#define SCM_ASYNC_H #define SCM_ASYNC_H
/* Copyright (C) 1995, 96, 97, 98, 2000, 2001 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * 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 * it under the terms of the GNU General Public License as published by

10
libguile/backtrace.h
View file

@ -1,8 +1,9 @@
/* classes: h_files */ /* classes: h_files */
#ifndef BACKTRACEH #ifndef SCM_BACKTRACE_H
#define BACKTRACEH #define SCM_BACKTRACE_H
/* Copyright (C) 1996, 1998, 1999, 2000, 2001 Free Software Foundation
/* Copyright (C) 1996,1998,1999,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * 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 * it under the terms of the GNU General Public License as published by
@ -45,6 +46,7 @@
* *
* The author can be reached at djurfeldt@nada.kth.se * The author can be reached at djurfeldt@nada.kth.se
* Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -63,7 +65,7 @@ SCM scm_set_print_params_x (SCM params);
void scm_init_backtrace (void); void scm_init_backtrace (void);
#endif /* BACKTRACEH */ #endif /* SCM_BACKTRACE_H */
/* /*
Local Variables: Local Variables:

9
libguile/boolean.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef BOOLEANH #ifndef SCM_BOOLEAN_H
#define BOOLEANH #define SCM_BOOLEAN_H
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -74,7 +77,7 @@ extern SCM scm_not (SCM x);
extern SCM scm_boolean_p (SCM obj); extern SCM scm_boolean_p (SCM obj);
extern void scm_init_boolean (void); extern void scm_init_boolean (void);
#endif /* BOOLEANH */ #endif /* SCM_BOOLEAN_H */
/* /*
Local Variables: Local Variables:

8
libguile/chars.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SCM_CHARSH #ifndef SCM_CHARS_H
#define SCM_CHARSH #define SCM_CHARS_H
/* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -87,7 +89,7 @@ extern int scm_upcase (unsigned int c);
extern int scm_downcase (unsigned int c); extern int scm_downcase (unsigned int c);
extern void scm_init_chars (void); extern void scm_init_chars (void);
#endif /* SCM_CHARSH */ #endif /* SCM_CHARS_H */
/* /*
Local Variables: Local Variables:

6
libguile/coop-defs.h
View file

@ -1,7 +1,7 @@
/* classes: h_files */ /* classes: h_files */
#ifndef COOP_DEFSH #ifndef SCM_COOP_DEFS_H
#define COOP_DEFSH #define SCM_COOP_DEFS_H
/* Copyright (C) 1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc.
* *
@ -272,7 +272,7 @@ do { \
#define SCM_THREAD_LOCAL_DATA (coop_global_curr->data) #define SCM_THREAD_LOCAL_DATA (coop_global_curr->data)
#define SCM_SET_THREAD_LOCAL_DATA(ptr) (coop_global_curr->data = (ptr)) #define SCM_SET_THREAD_LOCAL_DATA(ptr) (coop_global_curr->data = (ptr))
#endif /* COOP_DEFSH */ #endif /* SCM_COOP_DEFS_H */
/* /*
Local Variables: Local Variables:

7
libguile/coop-threads.h
View file

@ -1,7 +1,7 @@
/* classes: h_files */ /* classes: h_files */
#ifndef COOP_THREADSH #ifndef SCM_COOP_THREADS_H
#define COOP_THREADSH #define SCM_COOP_THREADS_H
/* Copyright (C) 1996,1997,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1996,1997,1998,2000 Free Software Foundation, Inc.
* *
@ -43,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
/* This file is only included by coop-threads.c while coop-defs.h is /* This file is only included by coop-threads.c while coop-defs.h is
@ -121,7 +122,7 @@ extern coop_q_t coop_tmp_queue;
extern coop_q_t coop_global_allq; /* A queue of all threads. */ extern coop_q_t coop_global_allq; /* A queue of all threads. */
extern coop_t *coop_global_curr; /* Currently-executing thread. */ extern coop_t *coop_global_curr; /* Currently-executing thread. */
#endif /* COOP_THREADSH */ #endif /* SCM_COOP_THREADS_H */
/* /*
Local Variables: Local Variables:

7
libguile/debug-malloc.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef DEBUGMALLOCH #ifndef SCM_DEBUG_MALLOC_H
#define DEBUGMALLOCH #define SCM_DEBUG_MALLOC_H
/* Copyright (C) 2000,2001 Free Software Foundation, Inc. /* Copyright (C) 2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -58,7 +59,7 @@ extern SCM scm_malloc_stats (void);
extern void scm_debug_malloc_prehistory (void); extern void scm_debug_malloc_prehistory (void);
extern void scm_init_debug_malloc (void); extern void scm_init_debug_malloc (void);
#endif /* DEBUGMALLOCH */ #endif /* SCM_DEBUG_MALLOC_H */
/* /*
Local Variables: Local Variables:

9
libguile/dynwind.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef DYNWINDH #ifndef SCM_DYNWIND_H
#define DYNWINDH #define SCM_DYNWIND_H
/* Copyright (C) 1995,1996,1998,1999,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,1999,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -65,7 +68,7 @@ extern void scm_swap_bindings (SCM vars, SCM vals);
extern SCM scm_wind_chain (void); extern SCM scm_wind_chain (void);
#endif /*GUILE_DEBUG*/ #endif /*GUILE_DEBUG*/
#endif /* DYNWINDH */ #endif /* SCM_DYNWIND_H */
/* /*
Local Variables: Local Variables:

10
libguile/environments.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef ENVIRONMENTS_H #ifndef SCM_ENVIRONMENTS_H
#define ENVIRONMENTS_H #define SCM_ENVIRONMENTS_H
/* Copyright (C) 1999,2000 Free Software Foundation, Inc. /* Copyright (C) 1999,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -201,9 +203,7 @@ extern SCM scm_export_environment_set_private_x (SCM env, SCM private);
extern SCM scm_export_environment_signature (SCM env); extern SCM scm_export_environment_signature (SCM env);
extern SCM scm_export_environment_set_signature_x (SCM env, SCM signature); extern SCM scm_export_environment_set_signature_x (SCM env, SCM signature);
#endif /* SCM_ENVIRONMENTS_H */
#endif
/* /*
Local Variables: Local Variables:

9
libguile/eq.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef EQH #ifndef SCM_EQ_H
#define EQH #define SCM_EQ_H
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -52,7 +55,7 @@ extern SCM scm_eqv_p (SCM x, SCM y);
extern SCM scm_equal_p (SCM x, SCM y); extern SCM scm_equal_p (SCM x, SCM y);
extern void scm_init_eq (void); extern void scm_init_eq (void);
#endif /* EQH */ #endif /* SCM_EQ_H */
/* /*
Local Variables: Local Variables:

8
libguile/evalext.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef EVALEXTH #ifndef SCM_EVALEXT_H
#define EVALEXTH #define SCM_EVALEXT_H
/* Copyright (C) 1998,1999,2000 Free Software Foundation, Inc. /* Copyright (C) 1998,1999,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -53,7 +55,7 @@ extern SCM scm_definedp (SCM sym, SCM env);
extern SCM scm_m_undefine (SCM x, SCM env); extern SCM scm_m_undefine (SCM x, SCM env);
extern void scm_init_evalext (void); extern void scm_init_evalext (void);
#endif /* EVALEXTH */ #endif /* SCM_EVALEXT_H */
/* /*
Local Variables: Local Variables:

11
libguile/extensions.h
View file

@ -1,3 +1,8 @@
/* classes: h_files */
#ifndef SCM_EXTENSIONS_H
#define SCM_EXTENSIONS_H
/* Copyright (C) 2001 Free Software Foundation, Inc. /* Copyright (C) 2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -38,10 +43,8 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#ifndef LIBGUILE_EXTENSIONS_H
#define LIBGUILE_EXTENSIONS_H
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -55,7 +58,7 @@ extern SCM scm_load_extension (SCM lib, SCM init);
void scm_init_extensions (void); void scm_init_extensions (void);
#endif /* LIBGUILE_EXTENSIONS_H */ #endif /* SCM_EXTENSIONS_H */
/* /*
Local Variables: Local Variables:

7
libguile/feature.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef FEATUREH #ifndef SCM_FEATURE_H
#define FEATUREH #define SCM_FEATURE_H
/* Copyright (C) 1995,1996,1999,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1999,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -52,7 +53,7 @@ extern SCM scm_program_arguments (void);
extern void scm_set_program_arguments (int argc, char **argv, char *first); extern void scm_set_program_arguments (int argc, char **argv, char *first);
extern void scm_init_feature (void); extern void scm_init_feature (void);
#endif /* FEATUREH */ #endif /* SCM_FEATURE_H */
/* /*
Local Variables: Local Variables:

7
libguile/gdb_interface.h
View file

@ -1,3 +1,7 @@
/* classes: h_files */
#ifndef GDB_INTERFACE_H
#define GDB_INTERFACE_H
/* Simple interpreter interface for GDB, the GNU debugger. /* Simple interpreter interface for GDB, the GNU debugger.
Copyright (C) 1996, 2000, 2001 Free Software Foundation Copyright (C) 1996, 2000, 2001 Free Software Foundation
@ -44,9 +48,6 @@ If you do not wish that, delete this exception notice.
The author can be reached at djurfeldt@nada.kth.se The author can be reached at djurfeldt@nada.kth.se
Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */
#ifndef GDB_INTERFACE_H
#define GDB_INTERFACE_H
/* This is the header file for GDB's interpreter interface. The /* This is the header file for GDB's interpreter interface. The
interpreter must supply definitions of all symbols declared in this interpreter must supply definitions of all symbols declared in this
file. file.

10
libguile/gdbint.h
View file

@ -1,8 +1,9 @@
/* classes: h_files */ /* classes: h_files */
#ifndef GDBINTH #ifndef SCM_GDBINT_H
#define GDBINTH #define SCM_GDBINT_H
/* Copyright (C) 1996, 2000 Free Software Foundation
/* Copyright (C) 1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * 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 * it under the terms of the GNU General Public License as published by
@ -45,6 +46,7 @@
* *
* The author can be reached at djurfeldt@nada.kth.se * The author can be reached at djurfeldt@nada.kth.se
* Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ * Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -55,7 +57,7 @@ extern int scm_print_carefully_p;
extern void scm_init_gdbint (void); extern void scm_init_gdbint (void);
#endif /* GDBINTH */ #endif /* SCM_GDBINT_H */
/* /*
Local Variables: Local Variables:

8
libguile/guardians.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SCM_GUARDIANH #ifndef SCM_GUARDIANS_H
#define SCM_GUARDIANH #define SCM_GUARDIANS_H
/* Copyright (C) 1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1998,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -58,7 +60,7 @@ SCM scm_get_one_zombie (SCM guardian);
void scm_init_guardians (void); void scm_init_guardians (void);
#endif /* !SCM_GUARDIANH */ #endif /* SCM_GUARDIANS_H */
/* /*
Local Variables: Local Variables:

8
libguile/hash.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef HASHH #ifndef SCM_HASH_H
#define HASHH #define SCM_HASH_H
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -58,7 +60,7 @@ extern unsigned long scm_ihash (SCM obj, unsigned long n);
extern SCM scm_hash (SCM obj, SCM n); extern SCM scm_hash (SCM obj, SCM n);
extern void scm_init_hash (void); extern void scm_init_hash (void);
#endif /* HASHH */ #endif /* SCM_HASH_H */
/* /*
Local Variables: Local Variables:

9
libguile/hashtab.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef HASHTABH #ifndef SCM_HASHTAB_H
#define HASHTABH #define SCM_HASHTAB_H
/* Copyright (C) 1995,1996,1999,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1999,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -85,7 +88,7 @@ extern SCM scm_hashx_remove_x (SCM hash, SCM assoc, SCM del, SCM table, SCM obj)
extern SCM scm_hash_fold (SCM proc, SCM init, SCM hash); extern SCM scm_hash_fold (SCM proc, SCM init, SCM hash);
extern void scm_init_hashtab (void); extern void scm_init_hashtab (void);
#endif /* HASHTABH */ #endif /* SCM_HASHTAB_H */
/* /*
Local Variables: Local Variables:

8
libguile/init.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef INITH #ifndef SCM_INIT_H
#define INITH #define SCM_INIT_H
/* Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -59,7 +61,7 @@ extern void scm_boot_guile (int argc, char **argv,
extern void scm_load_startup_files (void); extern void scm_load_startup_files (void);
#endif /* INITH */ #endif /* SCM_INIT_H */
/* /*
Local Variables: Local Variables:

8
libguile/ioext.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef IOEXTH #ifndef SCM_IOEXT_H
#define IOEXTH #define SCM_IOEXT_H
/* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -59,7 +61,7 @@ extern SCM scm_primitive_move_to_fdes (SCM port, SCM fd);
extern SCM scm_fdes_to_ports (SCM fd); extern SCM scm_fdes_to_ports (SCM fd);
extern void scm_init_ioext (void); extern void scm_init_ioext (void);
#endif /* IOEXTH */ #endif /* SCM_IOEXT_H */
/* /*
Local Variables: Local Variables:

11
libguile/iselect.h
View file

@ -1,7 +1,7 @@
/* classes: h_files */ /* classes: h_files */
#ifndef ISELECTH #ifndef SCM_ISELECT_H
#define ISELECTH #define SCM_ISELECT_H
/* Copyright (C) 1997,1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1997,1998,2000,2001 Free Software Foundation, Inc.
* *
@ -42,8 +42,9 @@
* *
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. * If you do not wish that, delete this exception notice. */
*/
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -103,7 +104,7 @@ extern void scm_init_iselect (void);
#endif /* GUILE_ISELECT */ #endif /* GUILE_ISELECT */
#endif #endif /* SCM_ISELECT_H */
/* /*
Local Variables: Local Variables:

7
libguile/keywords.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef KEYWORDSH #ifndef SCM_KEYWORDS_H
#define KEYWORDSH #define SCM_KEYWORDS_H
/* Copyright (C) 1995,1996,1999,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1999,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -63,7 +64,7 @@ extern SCM scm_keyword_p (SCM obj);
extern SCM scm_keyword_dash_symbol (SCM keyword); extern SCM scm_keyword_dash_symbol (SCM keyword);
extern void scm_init_keywords (void); extern void scm_init_keywords (void);
#endif /* KEYWORDSH */ #endif /* SCM_KEYWORDS_H */
/* /*
Local Variables: Local Variables:

8
libguile/lang.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef LANGH #ifndef SCM_LANG_H
#define LANGH #define SCM_LANG_H
/* Copyright (C) 1998 Free Software Foundation, Inc. /* Copyright (C) 1998 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -68,7 +70,7 @@ extern SCM scm_m_while (SCM exp, SCM env);
extern SCM scm_nil_eq (SCM x, SCM y); extern SCM scm_nil_eq (SCM x, SCM y);
extern void scm_init_lang (void); extern void scm_init_lang (void);
#endif /* PAIRSH */ #endif /* SCM_LANG_H */
/* /*
Local Variables: Local Variables:

2
libguile/macros.h
View file

@ -2,6 +2,7 @@
#ifndef SCM_MACROS_H #ifndef SCM_MACROS_H
#define SCM_MACROS_H #define SCM_MACROS_H
/* Copyright (C) 1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1998,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"

9
libguile/mallocs.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef MALLOCSH #ifndef SCM_MALLOCS_H
#define MALLOCSH #define SCM_MALLOCS_H
/* Copyright (C) 1995,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -57,7 +60,7 @@ extern scm_t_bits scm_tc16_malloc;
extern SCM scm_malloc_obj (size_t n); extern SCM scm_malloc_obj (size_t n);
extern void scm_init_mallocs (void); extern void scm_init_mallocs (void);
#endif /* MALLOCSH */ #endif /* SCM_MALLOCS_H */
/* /*
Local Variables: Local Variables:

11
libguile/net_db.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SCM_NETDBH #ifndef SCM_NET_DB_H
#define SCM_NETDBH #define SCM_NET_DB_H
/* Copyright (C) 1995,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,13 +43,11 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
extern SCM scm_gethost (SCM host); extern SCM scm_gethost (SCM host);
@ -61,7 +60,7 @@ extern SCM scm_setproto (SCM arg);
extern SCM scm_setserv (SCM arg); extern SCM scm_setserv (SCM arg);
extern void scm_init_net_db (void); extern void scm_init_net_db (void);
#endif /* SCM_NETDBH */ #endif /* SCM_NET_DB_H */
/* /*
Local Variables: Local Variables:

1
libguile/objects.h
View file

@ -43,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
/* This file and objects.c contains those minimal pieces of the Guile /* This file and objects.c contains those minimal pieces of the Guile

12
libguile/objprop.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef OBJPROPH #ifndef SCM_OBJPROP_H
#define OBJPROPH #define SCM_OBJPROP_H
/* Copyright (C) 1995,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,14 +43,11 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
extern SCM scm_object_properties (SCM obj); extern SCM scm_object_properties (SCM obj);
@ -58,7 +56,7 @@ extern SCM scm_object_property (SCM obj, SCM key);
extern SCM scm_set_object_property_x (SCM obj, SCM key, SCM val); extern SCM scm_set_object_property_x (SCM obj, SCM key, SCM val);
extern void scm_init_objprop (void); extern void scm_init_objprop (void);
#endif /* OBJPROPH */ #endif /* SCM_OBJPROP_H */
/* /*
Local Variables: Local Variables:

2
libguile/pairs.h
View file

@ -2,6 +2,7 @@
#ifndef SCM_PAIRS_H #ifndef SCM_PAIRS_H
#define SCM_PAIRS_H #define SCM_PAIRS_H
/* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -43,7 +44,6 @@
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"

2
libguile/print.h
View file

@ -2,6 +2,7 @@
#ifndef SCM_PRINT_H #ifndef SCM_PRINT_H
#define SCM_PRINT_H #define SCM_PRINT_H
/* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -122,6 +123,7 @@ extern void scm_init_print (void);
#ifdef GUILE_DEBUG #ifdef GUILE_DEBUG
extern SCM scm_current_pstate (void); extern SCM scm_current_pstate (void);
#endif #endif
#endif /* SCM_PRINT_H */ #endif /* SCM_PRINT_H */
/* /*

8
libguile/procprop.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef PROCPROPH #ifndef SCM_PROCPROP_H
#define PROCPROPH #define SCM_PROCPROP_H
/* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -61,7 +63,7 @@ extern SCM scm_procedure_property (SCM p, SCM k);
extern SCM scm_set_procedure_property_x (SCM p, SCM k, SCM v); extern SCM scm_set_procedure_property_x (SCM p, SCM k, SCM v);
extern void scm_init_procprop (void); extern void scm_init_procprop (void);
#endif /* PROCPROPH */ #endif /* SCM_PROCPROP_H */
/* /*
Local Variables: Local Variables:

8
libguile/properties.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef PROPERTIES_H #ifndef SCM_PROPERTIES_H
#define PROPERTIES_H #define SCM_PROPERTIES_H
/* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -53,7 +55,7 @@ SCM scm_primitive_property_del_x (SCM prop, SCM obj);
void scm_init_properties (void); void scm_init_properties (void);
#endif /* PROPERTIES_H */ #endif /* SCM_PROPERTIES_H */
/* /*
Local Variables: Local Variables:

8
libguile/ramap.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef RAMAPH #ifndef SCM_RAMAP_H
#define RAMAPH #define SCM_RAMAP_H
/* Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -71,7 +73,7 @@ extern SCM scm_raequal (SCM ra0, SCM ra1);
extern SCM scm_array_equal_p (SCM ra0, SCM ra1); extern SCM scm_array_equal_p (SCM ra0, SCM ra1);
extern void scm_init_ramap (void); extern void scm_init_ramap (void);
#endif /* RAMAPH */ #endif /* SCM_RAMAP_H */
/* /*
Local Variables: Local Variables:

8
libguile/rdelim.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SCM_RDELIM #ifndef SCM_RDELIM_H
#define SCM_RDELIM #define SCM_RDELIM_H
/* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -54,7 +56,7 @@ extern SCM scm_init_rdelim_builtins (void);
void scm_init_rdelim (void); void scm_init_rdelim (void);
#endif #endif /* SCM_RDELIM_H */
/* /*
Local Variables: Local Variables:

8
libguile/read.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef READH #ifndef SCM_READ_H
#define READH #define SCM_READ_H
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -89,7 +91,7 @@ extern SCM scm_lreadrecparen (SCM * tok_buf, SCM port, char *name, SCM *copy);
extern SCM scm_read_hash_extend (SCM chr, SCM proc); extern SCM scm_read_hash_extend (SCM chr, SCM proc);
extern void scm_init_read (void); extern void scm_init_read (void);
#endif /* READH */ #endif /* SCM_READ_H */
/* /*
Local Variables: Local Variables:

8
libguile/rw.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SCM_RW #ifndef SCM_RW_H
#define SCM_RW #define SCM_RW_H
/* Copyright (C) 2001 Free Software Foundation, Inc. /* Copyright (C) 2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -54,7 +56,7 @@ extern SCM scm_write_string_partial (SCM str, SCM port_or_fdes, SCM start,
SCM scm_init_rw_builtins (void); SCM scm_init_rw_builtins (void);
void scm_init_rw (void); void scm_init_rw (void);
#endif #endif /* SCM_RW_H */
/* /*
Local Variables: Local Variables:

9
libguile/scmsigs.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SCMSIGSH #ifndef SCM_SCMSIGS_H
#define SCMSIGSH #define SCM_SCMSIGS_H
/* Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -60,7 +63,7 @@ extern SCM scm_usleep (SCM i);
extern SCM scm_raise (SCM sig); extern SCM scm_raise (SCM sig);
extern void scm_init_scmsigs (void); extern void scm_init_scmsigs (void);
#endif /* SCMSIGSH */ #endif /* SCM_SCMSIGS_H */
/* /*
Local Variables: Local Variables:

9
libguile/script.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SCRIPTH #ifndef SCM_SCRIPT_H
#define SCRIPTH #define SCM_SCRIPT_H
/* Copyright (C) 1997,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1997,1998,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -59,7 +62,7 @@ extern void scm_shell (int argc, char **argv);
extern char *scm_usage_name; extern char *scm_usage_name;
extern void scm_init_script (void); extern void scm_init_script (void);
#endif /* SCRIPTH */ #endif /* SCM_SCRIPT_H */
/* /*
Local Variables: Local Variables:

9
libguile/simpos.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SIMPOSH #ifndef SCM_SIMPOS_H
#define SIMPOSH #define SCM_SIMPOS_H
/* Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -52,7 +55,7 @@ extern SCM scm_getenv (SCM nam);
extern SCM scm_primitive_exit (SCM status); extern SCM scm_primitive_exit (SCM status);
extern void scm_init_simpos (void); extern void scm_init_simpos (void);
#endif /* SIMPOSH */ #endif /* SCM_SIMPOS_H */
/* /*
Local Variables: Local Variables:

8
libguile/socket.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SCM_SOCKETH #ifndef SCM_SOCKET_H
#define SCM_SOCKETH #define SCM_SOCKET_H
/* Copyright (C) 1995,1996,1997,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -77,7 +79,7 @@ extern SCM scm_recvfrom (SCM sockfd, SCM buff_or_size, SCM flags, SCM offset, SC
extern SCM scm_sendto (SCM sockfd, SCM message, SCM fam, SCM address, SCM args_and_flags); extern SCM scm_sendto (SCM sockfd, SCM message, SCM fam, SCM address, SCM args_and_flags);
extern void scm_init_socket (void); extern void scm_init_socket (void);
#endif /* SCM_SOCKETH */ #endif /* SCM_SOCKET_H */
/* /*
Local Variables: Local Variables:

11
libguile/sort.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef SORTH #ifndef SCM_SORT_H
#define SORTH #define SCM_SORT_H
/* Copyright (C) 1999,2000 Free Software Foundation, Inc. /* Copyright (C) 1999,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -63,10 +65,7 @@ extern SCM scm_sort_list (SCM ls, SCM less);
extern SCM scm_sort_list_x (SCM ls, SCM less); extern SCM scm_sort_list_x (SCM ls, SCM less);
extern void scm_init_sort (void); extern void scm_init_sort (void);
#endif /* SORTH */ #endif /* SCM_SORT_H */
/* /*
Local Variables: Local Variables:

9
libguile/stackchk.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef STACKCHKH #ifndef SCM_STACKCHK_H
#define STACKCHKH #define SCM_STACKCHK_H
/* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,7 +43,9 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
#include "libguile/continuations.h" #include "libguile/continuations.h"
@ -89,7 +92,7 @@ extern long scm_stack_size (SCM_STACKITEM *start);
extern void scm_stack_report (void); extern void scm_stack_report (void);
extern void scm_init_stackchk (void); extern void scm_init_stackchk (void);
#endif /* STACKCHKH */ #endif /* SCM_STACKCHK_H */
/* /*
Local Variables: Local Variables:

8
libguile/stime.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef STIMEH #ifndef SCM_STIME_H
#define STIMEH #define SCM_STIME_H
/* Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -61,7 +63,7 @@ extern SCM scm_strftime (SCM format, SCM stime);
extern SCM scm_strptime (SCM format, SCM string); extern SCM scm_strptime (SCM format, SCM string);
extern void scm_init_stime (void); extern void scm_init_stime (void);
#endif /* STIMEH */ #endif /* SCM_STIME_H */
/* /*
Local Variables: Local Variables:

8
libguile/strop.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef STROPH #ifndef SCM_STROP_H
#define STROPH #define SCM_STROP_H
/* Copyright (C) 1995,1996,1997,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -70,7 +72,7 @@ extern SCM scm_string_ci_to_symbol (SCM v);
#define scm_substring_move_left_x scm_substring_move_x #define scm_substring_move_left_x scm_substring_move_x
#define scm_substring_move_right_x scm_substring_move_x #define scm_substring_move_right_x scm_substring_move_x
#endif /* STROPH */ #endif /* SCM_STROP_H */
/* /*
Local Variables: Local Variables:

13
libguile/strorder.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef STRORDERH #ifndef SCM_STRORDER_H
#define STRORDERH #define SCM_STRORDER_H
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,15 +43,11 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
extern SCM scm_string_equal_p (SCM s1, SCM s2); extern SCM scm_string_equal_p (SCM s1, SCM s2);
@ -65,7 +62,7 @@ extern SCM scm_string_ci_gr_p (SCM s1, SCM s2);
extern SCM scm_string_ci_geq_p (SCM s1, SCM s2); extern SCM scm_string_ci_geq_p (SCM s1, SCM s2);
extern void scm_init_strorder (void); extern void scm_init_strorder (void);
#endif /* STRORDERH */ #endif /* SCM_STRORDER_H */
/* /*
Local Variables: Local Variables:

6
libguile/threads.h
View file

@ -1,7 +1,7 @@
/* classes: h_files */ /* classes: h_files */
#ifndef THREADSH #ifndef SCM_THREADS_H
#define THREADSH #define SCM_THREADS_H
/* Copyright (C) 1996,1997,1998,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1996,1997,1998,2000,2001 Free Software Foundation, Inc.
* *
@ -104,7 +104,7 @@ extern SCM scm_signal_condition_variable (SCM cond);
#include "libguile/coop-defs.h" #include "libguile/coop-defs.h"
#endif #endif
#endif /* THREADSH */ #endif /* SCM_THREADS_H */
/* /*
Local Variables: Local Variables:

9
libguile/throw.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef THROWH #ifndef SCM_THROW_H
#define THROWH #define SCM_THROW_H
/* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -100,7 +102,8 @@ extern SCM scm_ithrow (SCM key, SCM args, int noreturn);
extern SCM scm_throw (SCM key, SCM args); extern SCM scm_throw (SCM key, SCM args);
extern void scm_init_throw (void); extern void scm_init_throw (void);
#endif /* THROWH */
#endif /* SCM_THROW_H */
/* /*
Local Variables: Local Variables:

1
libguile/values.h
View file

@ -2,6 +2,7 @@
#ifndef SCM_VALUES_H #ifndef SCM_VALUES_H
#define SCM_VALUES_H #define SCM_VALUES_H
/* Copyright (C) 2000,2001 Free Software Foundation, Inc. /* Copyright (C) 2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify

63
libguile/version.h
View file

@ -1,63 +0,0 @@
/* classes: h_files */
#ifndef VERSIONH
#define VERSIONH
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001 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/__scm.h"
extern SCM scm_major_version (void);
extern SCM scm_minor_version (void);
extern SCM scm_micro_version (void);
extern SCM scm_version (void);
extern void scm_init_version (void);
#endif /* VERSIONH */
/*
Local Variables:
c-file-style: "gnu"
End:
*/

8
libguile/vports.h
View file

@ -1,7 +1,8 @@
/* classes: h_files */ /* classes: h_files */
#ifndef VPORTSH #ifndef SCM_VPORTS_H
#define VPORTSH #define SCM_VPORTS_H
/* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -42,6 +43,7 @@
* If you write modifications of your own for GUILE, it is your choice * If you write modifications of your own for GUILE, it is your choice
* whether to permit this exception to apply to your modifications. * whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */ * If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h" #include "libguile/__scm.h"
@ -51,7 +53,7 @@
extern SCM scm_make_soft_port (SCM pv, SCM modes); extern SCM scm_make_soft_port (SCM pv, SCM modes);
extern void scm_init_vports (void); extern void scm_init_vports (void);
#endif /* VPORTSH */ #endif /* SCM_VPORTS_H */
/* /*
Local Variables: Local Variables:

1
libguile/weaks.h
View file

@ -2,6 +2,7 @@
#ifndef SCM_WEAKS_H #ifndef SCM_WEAKS_H
#define SCM_WEAKS_H #define SCM_WEAKS_H
/* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify