mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-03 18:50:19 +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>
* ports.c, ports.h, fprots.c, gc.c, ioext.c: Replaced

17
libguile/_scm.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef _SCMH
#define _SCMH
/* Copyright (C) 1995,1996, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM__SCM_H
#define SCM__SCM_H
/* Copyright (C) 1995,1996,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,
@ -42,6 +43,7 @@
* 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"
@ -128,8 +130,7 @@
#define max(A,B) ((A) >= (B) ? (A) : (B))
#endif
#endif /* _SCMH */
#endif /* SCM__SCM_H */
/*
Local Variables:

16
libguile/alist.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef ALISTH
#define ALISTH
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_ALIST_H
#define SCM_ALIST_H
/* Copyright (C) 1995,1996,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -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 void scm_init_alist (void);
#endif /* ALISTH */
#endif /* SCM_ALIST_H */
/*
Local Variables:

16
libguile/arbiters.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef ARBITERSH
#define ARBITERSH
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_ARBITERS_H
#define SCM_ARBITERS_H
/* Copyright (C) 1995,1996,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -53,7 +55,7 @@ extern SCM scm_try_arbiter (SCM arb);
extern SCM scm_release_arbiter (SCM arb);
extern void scm_init_arbiters (void);
#endif /* ARBITERSH */
#endif /* SCM_ARBITERS_H */
/*
Local Variables:

3
libguile/async.h
View file

@ -2,7 +2,8 @@
#ifndef 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
* it under the terms of the GNU General Public License as published by

16
libguile/backtrace.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef BACKTRACEH
#define BACKTRACEH
/* Copyright (C) 1996, 1998, 1999, 2000, 2001 Free Software Foundation
*
#ifndef SCM_BACKTRACE_H
#define SCM_BACKTRACE_H
/* Copyright (C) 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,
@ -45,6 +46,7 @@
*
* The author can be reached at djurfeldt@nada.kth.se
* Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */
#include "libguile/__scm.h"
@ -63,7 +65,7 @@ SCM scm_set_print_params_x (SCM params);
void scm_init_backtrace (void);
#endif /* BACKTRACEH */
#endif /* SCM_BACKTRACE_H */
/*
Local Variables:

17
libguile/boolean.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef BOOLEANH
#define BOOLEANH
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_BOOLEAN_H
#define SCM_BOOLEAN_H
/* Copyright (C) 1995,1996,2000 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,
@ -42,7 +43,9 @@
* 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"
@ -74,7 +77,7 @@ extern SCM scm_not (SCM x);
extern SCM scm_boolean_p (SCM obj);
extern void scm_init_boolean (void);
#endif /* BOOLEANH */
#endif /* SCM_BOOLEAN_H */
/*
Local Variables:

16
libguile/chars.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SCM_CHARSH
#define SCM_CHARSH
/* Copyright (C) 1995,1996, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_CHARS_H
#define SCM_CHARS_H
/* Copyright (C) 1995,1996,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,
@ -42,6 +43,7 @@
* 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"
@ -87,7 +89,7 @@ extern int scm_upcase (unsigned int c);
extern int scm_downcase (unsigned int c);
extern void scm_init_chars (void);
#endif /* SCM_CHARSH */
#endif /* SCM_CHARS_H */
/*
Local Variables:

12
libguile/coop-defs.h
View file

@ -1,20 +1,20 @@
/* classes: h_files */
#ifndef COOP_DEFSH
#define COOP_DEFSH
#ifndef SCM_COOP_DEFS_H
#define SCM_COOP_DEFS_H
/* Copyright (C) 1996,1997,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,
@ -272,7 +272,7 @@ do { \
#define SCM_THREAD_LOCAL_DATA (coop_global_curr->data)
#define SCM_SET_THREAD_LOCAL_DATA(ptr) (coop_global_curr->data = (ptr))
#endif /* COOP_DEFSH */
#endif /* SCM_COOP_DEFS_H */
/*
Local Variables:

15
libguile/coop-threads.h
View file

@ -1,20 +1,20 @@
/* classes: h_files */
#ifndef COOP_THREADSH
#define COOP_THREADSH
#ifndef SCM_COOP_THREADS_H
#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.
*
* 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,
@ -43,6 +43,7 @@
* 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. */
/* 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_t *coop_global_curr; /* Currently-executing thread. */
#endif /* COOP_THREADSH */
#endif /* SCM_COOP_THREADS_H */
/*
Local Variables:

9
libguile/debug-malloc.h
View file

@ -1,8 +1,9 @@
/* classes: h_files */
#ifndef DEBUGMALLOCH
#define DEBUGMALLOCH
/* Copyright (C) 2000, 2001 Free Software Foundation, Inc.
#ifndef SCM_DEBUG_MALLOC_H
#define SCM_DEBUG_MALLOC_H
/* Copyright (C) 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
@ -58,7 +59,7 @@ extern SCM scm_malloc_stats (void);
extern void scm_debug_malloc_prehistory (void);
extern void scm_init_debug_malloc (void);
#endif /* DEBUGMALLOCH */
#endif /* SCM_DEBUG_MALLOC_H */
/*
Local Variables:

17
libguile/dynwind.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef DYNWINDH
#define DYNWINDH
/* Copyright (C) 1995, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_DYNWIND_H
#define SCM_DYNWIND_H
/* Copyright (C) 1995,1996,1998,1999,2000 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,
@ -42,7 +43,9 @@
* 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"
@ -65,7 +68,7 @@ extern void scm_swap_bindings (SCM vars, SCM vals);
extern SCM scm_wind_chain (void);
#endif /*GUILE_DEBUG*/
#endif /* DYNWINDH */
#endif /* SCM_DYNWIND_H */
/*
Local Variables:

12
libguile/environments.h
View file

@ -1,8 +1,9 @@
/* classes: h_files */
#ifndef ENVIRONMENTS_H
#define ENVIRONMENTS_H
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
#ifndef SCM_ENVIRONMENTS_H
#define SCM_ENVIRONMENTS_H
/* Copyright (C) 1999,2000 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
@ -42,6 +43,7 @@
* 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"
@ -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_set_signature_x (SCM env, SCM signature);
#endif
#endif /* SCM_ENVIRONMENTS_H */
/*
Local Variables:

17
libguile/eq.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef EQH
#define EQH
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_EQ_H
#define SCM_EQ_H
/* Copyright (C) 1995,1996,2000 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,
@ -42,7 +43,9 @@
* 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"
@ -52,7 +55,7 @@ extern SCM scm_eqv_p (SCM x, SCM y);
extern SCM scm_equal_p (SCM x, SCM y);
extern void scm_init_eq (void);
#endif /* EQH */
#endif /* SCM_EQ_H */
/*
Local Variables:

16
libguile/evalext.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef EVALEXTH
#define EVALEXTH
/* Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_EVALEXT_H
#define SCM_EVALEXT_H
/* Copyright (C) 1998,1999,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -53,7 +55,7 @@ extern SCM scm_definedp (SCM sym, SCM env);
extern SCM scm_m_undefine (SCM x, SCM env);
extern void scm_init_evalext (void);
#endif /* EVALEXTH */
#endif /* SCM_EVALEXT_H */
/*
Local Variables:

19
libguile/extensions.h
View file

@ -1,15 +1,20 @@
/* Copyright (C) 2001 Free Software Foundation, Inc.
*
/* classes: h_files */
#ifndef SCM_EXTENSIONS_H
#define SCM_EXTENSIONS_H
/* Copyright (C) 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,
@ -38,10 +43,8 @@
* 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. */
#ifndef LIBGUILE_EXTENSIONS_H
#define LIBGUILE_EXTENSIONS_H
#include "libguile/__scm.h"
@ -55,7 +58,7 @@ extern SCM scm_load_extension (SCM lib, SCM init);
void scm_init_extensions (void);
#endif /* LIBGUILE_EXTENSIONS_H */
#endif /* SCM_EXTENSIONS_H */
/*
Local Variables:

15
libguile/feature.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef FEATUREH
#define FEATUREH
/* Copyright (C) 1995, 1996, 1999, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_FEATURE_H
#define SCM_FEATURE_H
/* Copyright (C) 1995,1996,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,
@ -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_init_feature (void);
#endif /* FEATUREH */
#endif /* SCM_FEATURE_H */
/*
Local Variables:

9
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.
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
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
interpreter must supply definitions of all symbols declared in this
file.
@ -169,7 +170,7 @@ extern int gdb_print (GDB_TYPE value);
extern int gdb_binding (GDB_TYPE name, GDB_TYPE value);
#endif /* GDB_INTERFACE_H */
#endif /* GDB_INTERFACE_H */
/*
Local Variables:

16
libguile/gdbint.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef GDBINTH
#define GDBINTH
/* Copyright (C) 1996, 2000 Free Software Foundation
*
#ifndef SCM_GDBINT_H
#define SCM_GDBINT_H
/* Copyright (C) 1996,2000 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,
@ -45,6 +46,7 @@
*
* The author can be reached at djurfeldt@nada.kth.se
* Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */
#include "libguile/__scm.h"
@ -55,7 +57,7 @@ extern int scm_print_carefully_p;
extern void scm_init_gdbint (void);
#endif /* GDBINTH */
#endif /* SCM_GDBINT_H */
/*
Local Variables:

16
libguile/guardians.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SCM_GUARDIANH
#define SCM_GUARDIANH
/* Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_GUARDIANS_H
#define SCM_GUARDIANS_H
/* Copyright (C) 1998,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,
@ -42,6 +43,7 @@
* 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"
@ -58,7 +60,7 @@ SCM scm_get_one_zombie (SCM guardian);
void scm_init_guardians (void);
#endif /* !SCM_GUARDIANH */
#endif /* SCM_GUARDIANS_H */
/*
Local Variables:

16
libguile/hash.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef HASHH
#define HASHH
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_HASH_H
#define SCM_HASH_H
/* Copyright (C) 1995,1996,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -58,7 +60,7 @@ extern unsigned long scm_ihash (SCM obj, unsigned long n);
extern SCM scm_hash (SCM obj, SCM n);
extern void scm_init_hash (void);
#endif /* HASHH */
#endif /* SCM_HASH_H */
/*
Local Variables:

17
libguile/hashtab.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef HASHTABH
#define HASHTABH
/* Copyright (C) 1995, 1996, 1999, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_HASHTAB_H
#define SCM_HASHTAB_H
/* Copyright (C) 1995,1996,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,
@ -42,7 +43,9 @@
* 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"
@ -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 void scm_init_hashtab (void);
#endif /* HASHTABH */
#endif /* SCM_HASHTAB_H */
/*
Local Variables:

16
libguile/init.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef INITH
#define INITH
/* Copyright (C) 1995,1996,1997, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_INIT_H
#define SCM_INIT_H
/* Copyright (C) 1995,1996,1997,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -59,7 +61,7 @@ extern void scm_boot_guile (int argc, char **argv,
extern void scm_load_startup_files (void);
#endif /* INITH */
#endif /* SCM_INIT_H */
/*
Local Variables:

16
libguile/ioext.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef IOEXTH
#define IOEXTH
/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_IOEXT_H
#define SCM_IOEXT_H
/* Copyright (C) 1995,1996,1997,1998,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,
@ -42,6 +43,7 @@
* 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"
@ -59,7 +61,7 @@ extern SCM scm_primitive_move_to_fdes (SCM port, SCM fd);
extern SCM scm_fdes_to_ports (SCM fd);
extern void scm_init_ioext (void);
#endif /* IOEXTH */
#endif /* SCM_IOEXT_H */
/*
Local Variables:

19
libguile/iselect.h
View file

@ -1,20 +1,20 @@
/* classes: h_files */
#ifndef ISELECTH
#define ISELECTH
#ifndef SCM_ISELECT_H
#define SCM_ISELECT_H
/* Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
*
/* Copyright (C) 1997,1998,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,
@ -42,8 +42,9 @@
*
* 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.
*/
* If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h"
@ -103,7 +104,7 @@ extern void scm_init_iselect (void);
#endif /* GUILE_ISELECT */
#endif
#endif /* SCM_ISELECT_H */
/*
Local Variables:

15
libguile/keywords.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef KEYWORDSH
#define KEYWORDSH
/* Copyright (C) 1995,1996,1999, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_KEYWORDS_H
#define SCM_KEYWORDS_H
/* Copyright (C) 1995,1996,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,
@ -63,7 +64,7 @@ extern SCM scm_keyword_p (SCM obj);
extern SCM scm_keyword_dash_symbol (SCM keyword);
extern void scm_init_keywords (void);
#endif /* KEYWORDSH */
#endif /* SCM_KEYWORDS_H */
/*
Local Variables:

16
libguile/lang.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef LANGH
#define LANGH
/* Copyright (C) 1998 Free Software Foundation, Inc.
*
#ifndef SCM_LANG_H
#define SCM_LANG_H
/* Copyright (C) 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,
@ -42,6 +43,7 @@
* 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"
@ -68,7 +70,7 @@ extern SCM scm_m_while (SCM exp, SCM env);
extern SCM scm_nil_eq (SCM x, SCM y);
extern void scm_init_lang (void);
#endif /* PAIRSH */
#endif /* SCM_LANG_H */
/*
Local Variables:

10
libguile/macros.h
View file

@ -2,18 +2,19 @@
#ifndef SCM_MACROS_H
#define SCM_MACROS_H
/* Copyright (C) 1998,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,
@ -42,6 +43,7 @@
* 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"
@ -69,7 +71,7 @@ extern SCM scm_make_synt (const char *name,
SCM (*fcn) ());
extern void scm_init_macros (void);
#endif /* SCM_MACROS_H */
#endif /* SCM_MACROS_H */
/*
Local Variables:

17
libguile/mallocs.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef MALLOCSH
#define MALLOCSH
/* Copyright (C) 1995, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_MALLOCS_H
#define SCM_MALLOCS_H
/* Copyright (C) 1995,2000 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,
@ -42,7 +43,9 @@
* 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"
@ -57,7 +60,7 @@ extern scm_t_bits scm_tc16_malloc;
extern SCM scm_malloc_obj (size_t n);
extern void scm_init_mallocs (void);
#endif /* MALLOCSH */
#endif /* SCM_MALLOCS_H */
/*
Local Variables:

19
libguile/net_db.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SCM_NETDBH
#define SCM_NETDBH
/* Copyright (C) 1995, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_NET_DB_H
#define SCM_NET_DB_H
/* Copyright (C) 1995,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,
@ -42,13 +43,11 @@
* 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_gethost (SCM host);
@ -61,7 +60,7 @@ extern SCM scm_setproto (SCM arg);
extern SCM scm_setserv (SCM arg);
extern void scm_init_net_db (void);
#endif /* SCM_NETDBH */
#endif /* SCM_NET_DB_H */
/*
Local Variables:

9
libguile/objects.h
View file

@ -4,17 +4,17 @@
#define SCM_OBJECTS_H
/* Copyright (C) 1996,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,
@ -43,6 +43,7 @@
* 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. */
/* This file and objects.c contains those minimal pieces of the Guile
@ -240,7 +241,7 @@ extern SCM scm_i_make_class_object (SCM metaclass, SCM layout_string,
unsigned long flags);
extern void scm_init_objects (void);
#endif /* SCM_OBJECTS_H */
#endif /* SCM_OBJECTS_H */
/*
Local Variables:

20
libguile/objprop.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef OBJPROPH
#define OBJPROPH
/* Copyright (C) 1995, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_OBJPROP_H
#define SCM_OBJPROP_H
/* Copyright (C) 1995,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,
@ -42,14 +43,11 @@
* 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_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 void scm_init_objprop (void);
#endif /* OBJPROPH */
#endif /* SCM_OBJPROP_H */
/*
Local Variables:

8
libguile/pairs.h
View file

@ -2,18 +2,19 @@
#ifndef SCM_PAIRS_H
#define SCM_PAIRS_H
/* Copyright (C) 1995,1996,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,
@ -43,7 +44,6 @@
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice. */
#include "libguile/__scm.h"

8
libguile/print.h
View file

@ -2,18 +2,19 @@
#ifndef SCM_PRINT_H
#define SCM_PRINT_H
/* Copyright (C) 1995,1996,1998,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,
@ -122,6 +123,7 @@ extern void scm_init_print (void);
#ifdef GUILE_DEBUG
extern SCM scm_current_pstate (void);
#endif
#endif /* SCM_PRINT_H */
/*

16
libguile/procprop.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef PROCPROPH
#define PROCPROPH
/* Copyright (C) 1995,1996,1998, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_PROCPROP_H
#define SCM_PROCPROP_H
/* Copyright (C) 1995,1996,1998,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -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 void scm_init_procprop (void);
#endif /* PROCPROPH */
#endif /* SCM_PROCPROP_H */
/*
Local Variables:

16
libguile/properties.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef PROPERTIES_H
#define PROPERTIES_H
/* Copyright (C) 1995,1996,1998, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_PROPERTIES_H
#define SCM_PROPERTIES_H
/* Copyright (C) 1995,1996,1998,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -53,7 +55,7 @@ SCM scm_primitive_property_del_x (SCM prop, SCM obj);
void scm_init_properties (void);
#endif /* PROPERTIES_H */
#endif /* SCM_PROPERTIES_H */
/*
Local Variables:

16
libguile/ramap.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef RAMAPH
#define RAMAPH
/* Copyright (C) 1995,1996,1997, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_RAMAP_H
#define SCM_RAMAP_H
/* Copyright (C) 1995,1996,1997,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -71,7 +73,7 @@ extern SCM scm_raequal (SCM ra0, SCM ra1);
extern SCM scm_array_equal_p (SCM ra0, SCM ra1);
extern void scm_init_ramap (void);
#endif /* RAMAPH */
#endif /* SCM_RAMAP_H */
/*
Local Variables:

16
libguile/rdelim.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SCM_RDELIM
#define SCM_RDELIM
/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_RDELIM_H
#define SCM_RDELIM_H
/* Copyright (C) 1995,1996,1997,1998,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,
@ -42,6 +43,7 @@
* 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"
@ -54,7 +56,7 @@ extern SCM scm_init_rdelim_builtins (void);
void scm_init_rdelim (void);
#endif
#endif /* SCM_RDELIM_H */
/*
Local Variables:

16
libguile/read.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef READH
#define READH
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_READ_H
#define SCM_READ_H
/* Copyright (C) 1995,1996,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -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 void scm_init_read (void);
#endif /* READH */
#endif /* SCM_READ_H */
/*
Local Variables:

14
libguile/rw.h
View file

@ -1,14 +1,15 @@
/* classes: h_files */
#ifndef SCM_RW
#define SCM_RW
/* Copyright (C) 2001 Free Software Foundation, Inc.
*
#ifndef SCM_RW_H
#define SCM_RW_H
/* Copyright (C) 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
@ -42,6 +43,7 @@
* 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"
@ -54,7 +56,7 @@ extern SCM scm_write_string_partial (SCM str, SCM port_or_fdes, SCM start,
SCM scm_init_rw_builtins (void);
void scm_init_rw (void);
#endif
#endif /* SCM_RW_H */
/*
Local Variables:

17
libguile/scmsigs.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SCMSIGSH
#define SCMSIGSH
/* Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_SCMSIGS_H
#define SCM_SCMSIGS_H
/* Copyright (C) 1995,1996,1997,1998,2000 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,
@ -42,7 +43,9 @@
* 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"
@ -60,7 +63,7 @@ extern SCM scm_usleep (SCM i);
extern SCM scm_raise (SCM sig);
extern void scm_init_scmsigs (void);
#endif /* SCMSIGSH */
#endif /* SCM_SCMSIGS_H */
/*
Local Variables:

17
libguile/script.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SCRIPTH
#define SCRIPTH
/* Copyright (C) 1997, 1998, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_SCRIPT_H
#define SCM_SCRIPT_H
/* Copyright (C) 1997,1998,2000 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,
@ -42,7 +43,9 @@
* 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"
@ -59,7 +62,7 @@ extern void scm_shell (int argc, char **argv);
extern char *scm_usage_name;
extern void scm_init_script (void);
#endif /* SCRIPTH */
#endif /* SCM_SCRIPT_H */
/*
Local Variables:

17
libguile/simpos.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SIMPOSH
#define SIMPOSH
/* Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_SIMPOS_H
#define SCM_SIMPOS_H
/* Copyright (C) 1995,1996,1997,1998,2000 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,
@ -42,7 +43,9 @@
* 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"
@ -52,7 +55,7 @@ extern SCM scm_getenv (SCM nam);
extern SCM scm_primitive_exit (SCM status);
extern void scm_init_simpos (void);
#endif /* SIMPOSH */
#endif /* SCM_SIMPOS_H */
/*
Local Variables:

16
libguile/socket.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SCM_SOCKETH
#define SCM_SOCKETH
/* Copyright (C) 1995, 1996, 1997, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_SOCKET_H
#define SCM_SOCKET_H
/* Copyright (C) 1995,1996,1997,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,
@ -42,6 +43,7 @@
* 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"
@ -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 void scm_init_socket (void);
#endif /* SCM_SOCKETH */
#endif /* SCM_SOCKET_H */
/*
Local Variables:

19
libguile/sort.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef SORTH
#define SORTH
/* Copyright (C) 1999, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_SORT_H
#define SCM_SORT_H
/* Copyright (C) 1999,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -63,10 +65,7 @@ extern SCM scm_sort_list (SCM ls, SCM less);
extern SCM scm_sort_list_x (SCM ls, SCM less);
extern void scm_init_sort (void);
#endif /* SORTH */
#endif /* SCM_SORT_H */
/*
Local Variables:

17
libguile/stackchk.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef STACKCHKH
#define STACKCHKH
/* Copyright (C) 1995,1996,1998, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_STACKCHK_H
#define SCM_STACKCHK_H
/* Copyright (C) 1995,1996,1998,2000 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,
@ -42,7 +43,9 @@
* 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"
#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_init_stackchk (void);
#endif /* STACKCHKH */
#endif /* SCM_STACKCHK_H */
/*
Local Variables:

10
libguile/stime.h
View file

@ -1,8 +1,9 @@
/* classes: h_files */
#ifndef STIMEH
#define STIMEH
/* Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc.
#ifndef SCM_STIME_H
#define SCM_STIME_H
/* Copyright (C) 1995,1996,1997,1998,2000 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
@ -42,6 +43,7 @@
* 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"
@ -61,7 +63,7 @@ extern SCM scm_strftime (SCM format, SCM stime);
extern SCM scm_strptime (SCM format, SCM string);
extern void scm_init_stime (void);
#endif /* STIMEH */
#endif /* SCM_STIME_H */
/*
Local Variables:

16
libguile/strop.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef STROPH
#define STROPH
/* Copyright (C) 1995,1996,1997, 2000, 2001 Free Software Foundation, Inc.
*
#ifndef SCM_STROP_H
#define SCM_STROP_H
/* Copyright (C) 1995,1996,1997,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,
@ -42,6 +43,7 @@
* 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"
@ -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_right_x scm_substring_move_x
#endif /* STROPH */
#endif /* SCM_STROP_H */
/*
Local Variables:

21
libguile/strorder.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef STRORDERH
#define STRORDERH
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_STRORDER_H
#define SCM_STRORDER_H
/* Copyright (C) 1995,1996,2000 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,
@ -42,15 +43,11 @@
* 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_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 void scm_init_strorder (void);
#endif /* STRORDERH */
#endif /* SCM_STRORDER_H */
/*
Local Variables:

14
libguile/threads.h
View file

@ -1,20 +1,20 @@
/* classes: h_files */
#ifndef THREADSH
#define THREADSH
#ifndef SCM_THREADS_H
#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.
*
* 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,
@ -104,7 +104,7 @@ extern SCM scm_signal_condition_variable (SCM cond);
#include "libguile/coop-defs.h"
#endif
#endif /* THREADSH */
#endif /* SCM_THREADS_H */
/*
Local Variables:

17
libguile/throw.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef THROWH
#define THROWH
/* Copyright (C) 1995,1996,1998, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_THROW_H
#define SCM_THROW_H
/* Copyright (C) 1995,1996,1998,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -100,7 +102,8 @@ 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 */
#endif /* SCM_THROW_H */
/*
Local Variables:

9
libguile/values.h
View file

@ -2,18 +2,19 @@
#ifndef 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
* 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,

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:
*/

16
libguile/vports.h
View file

@ -1,19 +1,20 @@
/* classes: h_files */
#ifndef VPORTSH
#define VPORTSH
/* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
*
#ifndef SCM_VPORTS_H
#define SCM_VPORTS_H
/* Copyright (C) 1995,1996,2000 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,
@ -42,6 +43,7 @@
* 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"
@ -51,7 +53,7 @@
extern SCM scm_make_soft_port (SCM pv, SCM modes);
extern void scm_init_vports (void);
#endif /* VPORTSH */
#endif /* SCM_VPORTS_H */
/*
Local Variables:

9
libguile/weaks.h
View file

@ -2,18 +2,19 @@
#ifndef 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
* 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,