diff options
112 files changed, 111 insertions, 535 deletions
diff --git a/guile-readline/readline.h b/guile-readline/readline.h index ccc0e8031..05ab78cb0 100644 --- a/guile-readline/readline.h +++ b/guile-readline/readline.h @@ -1,7 +1,7 @@ #ifndef READLINEH #define READLINEH -/* Copyright (C) 1997, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1997, 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 diff --git a/ice-9/slib.scm b/ice-9/slib.scm index 44fbdf6e7..ba80f8535 100644 --- a/ice-9/slib.scm +++ b/ice-9/slib.scm @@ -1,6 +1,6 @@ ;;;; slib.scm --- definitions needed to get SLIB to work with Guile ;;;; -;;;; Copyright (C) 1997, 1998 Free Software Foundation, Inc. +;;;; Copyright (C) 1997, 1998, 2000 Free Software Foundation, Inc. ;;;; ;;;; This file is part of GUILE. ;;;; diff --git a/libguile.h b/libguile.h index e14219229..b90bdf89c 100644 --- a/libguile.h +++ b/libguile.h @@ -1,7 +1,7 @@ #ifndef LIBGUILEH #define LIBGUILEH -/* Copyright (C) 1995, 1996, 1997, 1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/alist.h b/libguile/alist.h index 0d6de15c5..9005ae18a 100644 --- a/libguile/alist.h +++ b/libguile/alist.h @@ -2,7 +2,7 @@ #ifndef ALISTH #define ALISTH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/arbiters.h b/libguile/arbiters.h index 8da0a0bee..b7f282ae0 100644 --- a/libguile/arbiters.h +++ b/libguile/arbiters.h @@ -2,7 +2,7 @@ #ifndef ARBITERSH #define ARBITERSH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/backtrace.c b/libguile/backtrace.c index b9eafe612..ae26dc01d 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -1,5 +1,5 @@ /* Printing of backtraces and error messages - * Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation + * Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation * * 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 diff --git a/libguile/backtrace.h b/libguile/backtrace.h index 44012f6a8..49e5475e8 100644 --- a/libguile/backtrace.h +++ b/libguile/backtrace.h @@ -2,7 +2,7 @@ #ifndef BACKTRACEH #define BACKTRACEH -/* Copyright (C) 1996, 1998, 1999 Free Software Foundation +/* Copyright (C) 1996, 1998, 1999, 2000 Free Software Foundation * * 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 diff --git a/libguile/boolean.c b/libguile/boolean.c index 3e953a913..00d6a165a 100644 --- a/libguile/boolean.c +++ b/libguile/boolean.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/boolean.h b/libguile/boolean.h index ddbd69da9..bc80e9f82 100644 --- a/libguile/boolean.h +++ b/libguile/boolean.h @@ -2,7 +2,7 @@ #ifndef BOOLEANH #define BOOLEANH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/chars.c b/libguile/chars.c index 0ab7c6540..a21b4cb2c 100644 --- a/libguile/chars.c +++ b/libguile/chars.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/chars.h b/libguile/chars.h index 6b7a896fe..74b57866a 100644 --- a/libguile/chars.h +++ b/libguile/chars.h @@ -2,7 +2,7 @@ #ifndef SCM_CHARSH #define SCM_CHARSH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/continuations.c b/libguile/continuations.c index 0d027c39c..40a863cef 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/continuations.h b/libguile/continuations.h index 94628a6fa..133eb9804 100644 --- a/libguile/continuations.h +++ b/libguile/continuations.h @@ -2,7 +2,7 @@ #ifndef CONTINUATIONSH #define CONTINUATIONSH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/coop-threads.h b/libguile/coop-threads.h index 7519ea2f5..11cb392d5 100644 --- a/libguile/coop-threads.h +++ b/libguile/coop-threads.h @@ -3,7 +3,7 @@ #ifndef COOP_THREADSH #define COOP_THREADSH -/* Copyright (C) 1996, 1997, 1998 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 diff --git a/libguile/debug.c b/libguile/debug.c index f9db1da3d..74129a17f 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -1,5 +1,5 @@ /* Debugging extensions for Guile - * Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation + * Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation * * 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 diff --git a/libguile/debug.h b/libguile/debug.h index d5ae681dd..85a0c0d09 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -2,7 +2,7 @@ #ifndef DEBUGH #define DEBUGH -/* Copyright (C) 1995,1996,1998, 1999 Free Software Foundation +/* Copyright (C) 1995,1996,1998, 1999, 2000 Free Software Foundation * * 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 diff --git a/libguile/dynl.h b/libguile/dynl.h index 4fbf4e9cd..e9b0a2d8a 100644 --- a/libguile/dynl.h +++ b/libguile/dynl.h @@ -1,4 +1,4 @@ -/* Copyright (C) 1996, 1998 Free Software Foundation, Inc. +/* Copyright (C) 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 diff --git a/libguile/dynwind.h b/libguile/dynwind.h index 80251c945..a8e888b23 100644 --- a/libguile/dynwind.h +++ b/libguile/dynwind.h @@ -2,7 +2,7 @@ #ifndef DYNWINDH #define DYNWINDH -/* Copyright (C) 1995, 1996, 1998, 1999 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/eq.h b/libguile/eq.h index f2c6616b9..2bfcd2d8b 100644 --- a/libguile/eq.h +++ b/libguile/eq.h @@ -2,7 +2,7 @@ #ifndef EQH #define EQH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/error.h b/libguile/error.h index 34a2abd48..1c10fd8c3 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -2,7 +2,7 @@ #ifndef ERRORH #define ERRORH -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/eval.h b/libguile/eval.h index 25e12e36e..7f3abc6de 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -2,7 +2,7 @@ #ifndef EVALH #define EVALH -/* Copyright (C) 1995, 1996 ,1998, 1999 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/evalext.h b/libguile/evalext.h index cb09736bc..3fafa6e5e 100644 --- a/libguile/evalext.h +++ b/libguile/evalext.h @@ -2,7 +2,7 @@ #ifndef EVALEXTH #define EVALEXTH -/* Copyright (C) 1998, 1999 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/filesys.h b/libguile/filesys.h index 7859cf97b..f20240a8c 100644 --- a/libguile/filesys.h +++ b/libguile/filesys.h @@ -2,7 +2,7 @@ #ifndef FILESYSH #define FILESYSH -/* Copyright (C) 1995,1997,1998, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1997,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 diff --git a/libguile/fluids.c b/libguile/fluids.c index 29e732660..88897ab73 100644 --- a/libguile/fluids.c +++ b/libguile/fluids.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1996, 1997 Free Software Foundation, Inc. +/* Copyright (C) 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 diff --git a/libguile/fluids.h b/libguile/fluids.h index 1031cbad0..ea509417d 100644 --- a/libguile/fluids.h +++ b/libguile/fluids.h @@ -3,7 +3,7 @@ #ifndef FLUIDSH #define FLUIDSH -/* Copyright (C) 1996 Free Software Foundation, Inc. +/* 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 diff --git a/libguile/fports.c b/libguile/fports.c index 2294de967..0632186f2 100644 --- a/libguile/fports.c +++ b/libguile/fports.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,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 diff --git a/libguile/fports.h b/libguile/fports.h index d3c304b4f..13c823536 100644 --- a/libguile/fports.h +++ b/libguile/fports.h @@ -2,7 +2,7 @@ #ifndef FPORTSH #define FPORTSH -/* Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,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 diff --git a/libguile/gdb_interface.h b/libguile/gdb_interface.h index e06c706a6..9598c35bb 100644 --- a/libguile/gdb_interface.h +++ b/libguile/gdb_interface.h @@ -1,5 +1,5 @@ /* Simple interpreter interface for GDB, the GNU debugger. - Copyright (C) 1996 Free Software Foundation + Copyright (C) 1996, 2000 Free Software Foundation This file is part of GDB. diff --git a/libguile/gdbint.c b/libguile/gdbint.c index 3bdb7c7a5..1e459e511 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -1,5 +1,5 @@ /* GDB interface for Guile - * Copyright (C) 1996, 1997, 1999 Free Software Foundation + * Copyright (C) 1996, 1997, 1999, 2000 Free Software Foundation * * 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 diff --git a/libguile/gdbint.h b/libguile/gdbint.h index c0983a584..623bf93ec 100644 --- a/libguile/gdbint.h +++ b/libguile/gdbint.h @@ -2,7 +2,7 @@ #ifndef GDBINTH #define GDBINTH -/* Copyright (C) 1996 Free Software Foundation +/* Copyright (C) 1996, 2000 Free Software Foundation * * 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 diff --git a/libguile/gh_eval.c b/libguile/gh_eval.c index 0d0a1fa9e..46f6f97ac 100644 --- a/libguile/gh_eval.c +++ b/libguile/gh_eval.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/gh_funcs.c b/libguile/gh_funcs.c index 676d1cdb6..5374a0143 100644 --- a/libguile/gh_funcs.c +++ b/libguile/gh_funcs.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/gh_init.c b/libguile/gh_init.c index 7b5efee3f..5dbc7daad 100644 --- a/libguile/gh_init.c +++ b/libguile/gh_init.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/gh_io.c b/libguile/gh_io.c index 01e196e50..c60032ee2 100644 --- a/libguile/gh_io.c +++ b/libguile/gh_io.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/gh_list.c b/libguile/gh_list.c index 9ca1d0cae..4054dc5d9 100644 --- a/libguile/gh_list.c +++ b/libguile/gh_list.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/gh_predicates.c b/libguile/gh_predicates.c index 20a1ab113..fe5fc140a 100644 --- a/libguile/gh_predicates.c +++ b/libguile/gh_predicates.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/gh_test_c.c b/libguile/gh_test_c.c index 076041a30..e69de29bb 100644 --- a/libguile/gh_test_c.c +++ b/libguile/gh_test_c.c @@ -1,253 +0,0 @@ -/* Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. - - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - * - * As a special exception, the Free Software Foundation gives permission - * for additional uses of the text contained in its release of GUILE. - * - * The exception is that, if you link the GUILE library with other files - * to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the GUILE library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the - * Free Software Foundation under the name GUILE. If you copy - * code from other Free Software Foundation releases into a copy of - * GUILE, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for GUILE, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. */ - - -#include <stdio.h> -#include <math.h> -#include <assert.h> - -#include "libguile/gh.h" - -SCM c_factorial (SCM s_n); -SCM c_sin (SCM s_x); -SCM c_vector_test (SCM s_length); - -/* the gh_enter() routine, the standard entry point for the gh_ - interface, makes you use a separate main function */ -void -main_prog (int argc, char *argv[]) -{ - int done; - char input_str[1000]; - SCM cf; - SCM result_dummy; - - result_dummy = gh_eval_str ("(display \"hello guile\n\")"); - gh_display (result_dummy); - - printf ("\ntesting gh_define\n"); - gh_define ("test_symbol", gh_double2scm (2.5)); - gh_eval_str ("(display test_symbol) (newline)"); - - /* test playing with symbols */ - { - SCM sym; - char *sym_string; - sym = gh_symbol2scm ("a-test-symbol"); - sym_string = gh_symbol2newstr (sym, NULL); - printf ("the symbol was <%s>; after converting to Scheme and back to\n", - "a-test-symbol"); - printf (" a C string it is now <%s>", sym_string); - if (strcmp("a-test-symbol", sym_string) == 0) { - printf("...PASS\n"); - } else { - printf("...FAIL\n"); - } - free (sym_string); - } - - /* here result dummy should be a string object */ - result_dummy = gh_eval_str ("\"test_string\""); - assert (gh_string_p (result_dummy)); - { - char *s; - s = gh_scm2newstr (result_dummy, NULL); - printf ("result of converting \"test_string\" from SCM to C is <%s>\n", s); - free (s); /* remember to free s!! */ - } - - gh_eval_str ("(define (square x) (* x x))"); - gh_eval_str ("(define (fact n) (if (= n 1) 1 (* n (fact (- n 1)))))"); - - gh_eval_str ("(display (square 9)) (newline)"); - gh_eval_str ("(display (fact 100)) (newline)"); - - gh_eval_str_with_standard_handler ("(display \"dude!\n\")"); - - /* in this next test I have a wilful typo: dosplay is not a defined - procedure, so it should throw an error */ - printf("We should now get an error which should be trapped by a handler\n"); - gh_eval_str_with_standard_handler ("(dosplay \"dude!\n\")"); - printf("now we will display a backtrace of that error; this should not\n"); - printf(" work because the handler did not save the stack\n"); - gh_eval_str("(backtrace)"); - - /* now do that test with a stack saving handler */ - printf("Redo last test with stack-saving handler\n"); - gh_eval_str_with_stack_saving_handler ("(dosplay \"dude!\n\")"); - printf("now we will display a backtrace of that error; this should work:\n"); - gh_eval_str("(backtrace)"); - - /* now define some new primitives in C */ - cf = gh_new_procedure1_0 ("c-factorial", c_factorial); - gh_display (cf); - gh_newline (); - gh_new_procedure1_0 ("c-sin", c_sin); - gh_new_procedure1_0 ("c-vector-test", c_vector_test); - - /* now try some (eval ...) action from C */ - { - SCM l = SCM_EOL; - l = gh_cons (gh_str02scm ("hello world"), l); - l = gh_cons (gh_symbol2scm ("display"), l); - printf ("expression is: "); - gh_display (l); - gh_newline (); - /* Don't have a function for evaluating sexps yet. */ - } - - printf ("testing the predicates for procedure? and vector?\n"); - printf ("gh_procedure_p(c_factorial)->%d, gh_vector_p(c_factorial)->%d\n", - gh_procedure_p (cf), gh_vector_p (cf)); - gh_eval_str("(c-vector-test 200)"); - - /* Test calling procedures. */ - { - SCM list = gh_eval_str ("list"); - - printf ("testing gh_apply\n"); - printf ("gh_apply (list, '(1 2)) => "); - gh_display (gh_apply (list, gh_cons (gh_int2scm (1), - gh_cons (gh_int2scm (2), - SCM_EOL)))); - gh_newline (); - - printf ("gh_call0 (list) => "); - gh_display (gh_call0 (list)); - gh_newline (); - - printf ("gh_call1 (list, 1) => "); - gh_display (gh_call1 (list, gh_int2scm (1))); - gh_newline (); - - printf ("gh_call2 (list, 1, 2) => "); - gh_display (gh_call2 (list, gh_int2scm (1), gh_int2scm (2))); - gh_newline (); - - printf ("gh_call3 (list, 1, 2, 3) => "); - gh_display (gh_call3 (list, - gh_int2scm (1), gh_int2scm (2), gh_int2scm (3))); - gh_newline (); - } - - /* now sit in a scheme eval loop: I input the expressions, have - guile evaluate them, and then get another expression. */ - done = 0; - while (!done) - { - printf ("\n%s> ", argv[0]); - if (gets (input_str) == NULL) - { - done = 1; - } - else - { -/* gh_display(gh_eval_str_with_standard_handler(input_str)); */ - gh_display (gh_eval_str_with_stack_saving_handler (input_str)); - } - } -} - -int -main (int argc, char *argv[]) -{ - gh_enter (argc, argv, main_prog); - return 0; -} - -SCM -c_factorial (SCM s_n) -{ - int i, n; - unsigned long result = 1; - - n = gh_scm2ulong (s_n); - - for (i = 1; i <= n; ++i) - { - result = result * i; - } - return gh_ulong2scm (result); -} - -/* a sin routine in C, callable from scheme. it is named c_sin() to - distinguish it from the default scheme sin function */ -SCM -c_sin (SCM s_x) -{ - double x = gh_scm2double (s_x); - - return gh_double2scm (sin (x)); -} - -/* play around with vectors in guile: this routine creates a vector of - the given length, initializes it all to zero except element 2 which - is set to 1.9. */ -SCM -c_vector_test (SCM s_length) -{ - SCM xvec; - unsigned long c_length; - - c_length = gh_scm2ulong (s_length); - printf ("VECTOR test (length for vector %ld)", c_length); - - /* create a vector filled witth 0.0 entries */ - xvec = gh_make_vector (s_length, gh_double2scm (0.0)); - /* set the second element in it to some floating point value */ - gh_vector_set_x (xvec, gh_int2scm(2), gh_double2scm (1.9)); - - /* I think I can use == because Scheme's doubles should be the same - as C doubles, with no operations in between */ - if (gh_scm2double(gh_vector_ref (xvec, gh_int2scm(2))) == 1.9) { - printf("... PASS\n"); - } else { - printf("... FAIL\n"); - } - - return xvec; -} - -/* - Local Variables: - c-file-style: "gnu" - End: -*/ diff --git a/libguile/gh_test_repl.c b/libguile/gh_test_repl.c index 670d33511..e69de29bb 100644 --- a/libguile/gh_test_repl.c +++ b/libguile/gh_test_repl.c @@ -1,171 +0,0 @@ -/* Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. - - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA - * - * As a special exception, the Free Software Foundation gives permission - * for additional uses of the text contained in its release of GUILE. - * - * The exception is that, if you link the GUILE library with other files - * to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the GUILE library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the - * Free Software Foundation under the name GUILE. If you copy - * code from other Free Software Foundation releases into a copy of - * GUILE, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for GUILE, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. */ - - -/* gh_test_repl -- a program that demonstrates starting Guile, adding - some privmitive procedures and entering a REPL form C */ - -#include <stdio.h> -#include <math.h> - -#include "libguile/gh.h" - -SCM c_factorial (SCM s_n); -SCM c_sin (SCM s_x); -SCM c_vector_test (SCM s_length); - -/* the gh_enter() routine, the standard entryp point for the gh_ - interface, makes you use a separate main function */ -void -main_prog (int argc, char *argv[]) -{ - SCM cf; - - gh_eval_str ("(display \"hello guile\n\")"); - - gh_eval_str ("(define (square x) (* x x))"); - gh_eval_str ("(define (fact n) (if (= n 1) 1 (* n (fact (- n 1)))))"); - - gh_eval_str ("(display (square 9)) (newline)"); - gh_eval_str ("(display (fact 100)) (newline)"); - - gh_eval_str ("(define s \"A string\")"); - gh_eval_str ("(define p '(A . pair))"); - gh_eval_str ("(display s)"); - gh_eval_str ("(display p)"); - gh_eval_str ("(display (string? s))"); - gh_eval_str ("(display (pair? s))"); - - /* now define some new primitives in C */ - cf = gh_new_procedure1_0 ("c-factorial", c_factorial); - gh_new_procedure1_0 ("c-sin", c_sin); - gh_new_procedure1_0 ("c-vector-test", c_vector_test); - - /* now try some (eval ...) action from C */ - { - SCM l = SCM_EOL; - l = gh_cons (gh_str02scm ("hello world"), l); - l = gh_cons (gh_symbol2scm ("'display"), l); - gh_display (l); - } - - { - SCM a_string; - a_string = gh_str02scm ("A string"); - - printf ("testing the predicates for pair? and string?\n"); - printf ("gh_pair_p(a_string) is %d, gh_string_p(a_string) is %d\n", - gh_pair_p (a_string), gh_string_p (a_string)); - } - - printf ("testing the predicates for procedure? and vector?\n"); - printf ("gh_procedure_p(c_factorial) is %d, gh_vector_p(c_factorial) is %d\n", - gh_procedure_p (cf), gh_vector_p (cf)); - gh_eval_str("(c-vector-test 200)"); - - gh_repl (argc, argv); -} - -int -main (int argc, char *argv[]) -{ - gh_enter (argc, argv, main_prog); - return 0; -} - -SCM -c_factorial (SCM s_n) -{ - int i, n; - unsigned long result = 1; - - n = gh_scm2ulong (s_n); - - for (i = 1; i <= n; ++i) - { - result = result * i; - } - return gh_ulong2scm (result); -} - -/* a sin routine in C, callable from scheme. it is named c_sin() to - distinguish it from the default scheme sin function */ -SCM -c_sin (SCM s_x) -{ - double x = gh_scm2double (s_x); - - return gh_double2scm (sin (x)); -} - -/* play around with vectors in guile: this routine creates a vector of - the given length, initializes it all to zero except element 2 which - is set to 1.9. */ -SCM -c_vector_test (SCM s_length) -{ - SCM xvec; - unsigned long c_length; - - c_length = gh_scm2ulong (s_length); - printf ("VECTOR test -- requested length for vector: %ld", c_length); - - /* create a vector filled witth 0.0 entries */ - xvec = gh_make_vector (s_length, gh_double2scm (0.0)); - /* set the second element in it to some floating point value */ - gh_vector_set_x (xvec, gh_int2scm(2), gh_double2scm (1.9)); - - /* I think I can use == because Scheme's doubles should be the same - as C doubles, with no operations in between */ - if (gh_scm2double(gh_vector_ref (xvec, gh_int2scm(2))) == 1.9) { - printf("... PASS\n"); - } else { - printf("... FAIL\n"); - } - - return xvec; -} - -/* - Local Variables: - c-file-style: "gnu" - End: -*/ diff --git a/libguile/gsubr.c b/libguile/gsubr.c index eae4283c2..3b77dee1b 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,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 diff --git a/libguile/gsubr.h b/libguile/gsubr.h index bf08f54f5..be7b4d5af 100644 --- a/libguile/gsubr.h +++ b/libguile/gsubr.h @@ -2,7 +2,7 @@ #ifndef GSUBRH #define GSUBRH -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/guile.c b/libguile/guile.c index 27be7a9dd..aed12f4f8 100644 --- a/libguile/guile.c +++ b/libguile/guile.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1996, 1997 Free Software Foundation, Inc. +/* Copyright (C) 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 diff --git a/libguile/hash.h b/libguile/hash.h index aa97f7ed6..6017a5e93 100644 --- a/libguile/hash.h +++ b/libguile/hash.h @@ -2,7 +2,7 @@ #ifndef HASHH #define HASHH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/hashtab.c b/libguile/hashtab.c index 8c67692ab..f8e20e8de 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995, 1996, 1998, 1999 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/hashtab.h b/libguile/hashtab.h index 538bf6e76..b05979a3a 100644 --- a/libguile/hashtab.h +++ b/libguile/hashtab.h @@ -2,7 +2,7 @@ #ifndef HASHTABH #define HASHTABH -/* Copyright (C) 1995, 1996, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995, 1996, 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 diff --git a/libguile/init.h b/libguile/init.h index 412a47ed9..7c40a6032 100644 --- a/libguile/init.h +++ b/libguile/init.h @@ -2,7 +2,7 @@ #ifndef INITH #define INITH -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/ioext.c b/libguile/ioext.c index 07a9efb6a..11d8ab5ae 100644 --- a/libguile/ioext.c +++ b/libguile/ioext.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995, 1996, 1997, 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 diff --git a/libguile/ioext.h b/libguile/ioext.h index 8394941c9..37aa09559 100644 --- a/libguile/ioext.h +++ b/libguile/ioext.h @@ -2,7 +2,7 @@ #ifndef IOEXTH #define IOEXTH -/* Copyright (C) 1995, 1996, 1997, 1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/keywords.h b/libguile/keywords.h index 5858cdaa4..b4f5d7811 100644 --- a/libguile/keywords.h +++ b/libguile/keywords.h @@ -2,7 +2,7 @@ #ifndef KEYWORDSH #define KEYWORDSH -/* Copyright (C) 1995,1996,1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,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 diff --git a/libguile/lang.c b/libguile/lang.c index 2b4314c3b..5182ea619 100644 --- a/libguile/lang.c +++ b/libguile/lang.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1999 Free Software Foundation, Inc. +/* 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 diff --git a/libguile/list.c b/libguile/list.c index d31d90c01..dab7747be 100644 --- a/libguile/list.c +++ b/libguile/list.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/list.h b/libguile/list.h index 606cf495c..eca4f5c76 100644 --- a/libguile/list.h +++ b/libguile/list.h @@ -2,7 +2,7 @@ #ifndef LISTH #define LISTH -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/load.c b/libguile/load.c index cdbd3c942..af640e31f 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1998,1999 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/load.h b/libguile/load.h index 73c8ee949..6d5ceb9ec 100644 --- a/libguile/load.h +++ b/libguile/load.h @@ -2,7 +2,7 @@ #ifndef LOADH #define LOADH -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/macros.c b/libguile/macros.c index 00cffcf07..9cc280c22 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/macros.h b/libguile/macros.h index 3e8cd073e..7871be156 100644 --- a/libguile/macros.h +++ b/libguile/macros.h @@ -2,7 +2,7 @@ #ifndef MACROSH #define MACROSH -/* Copyright (C) 1998 Free Software Foundation, Inc. +/* Copyright (C) 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 diff --git a/libguile/mallocs.c b/libguile/mallocs.c index 5b96d9815..fd58a2f4c 100644 --- a/libguile/mallocs.c +++ b/libguile/mallocs.c @@ -1,5 +1,5 @@ /* classes: src_files - * Copyright (C) 1995, 1997, 1998 Free Software Foundation, Inc. + * Copyright (C) 1995, 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 diff --git a/libguile/mallocs.h b/libguile/mallocs.h index 0a1dbad0d..c2f5556cc 100644 --- a/libguile/mallocs.h +++ b/libguile/mallocs.h @@ -2,7 +2,7 @@ #ifndef MALLOCSH #define MALLOCSH -/* Copyright (C) 1995 Free Software Foundation, Inc. +/* 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 diff --git a/libguile/net_db.h b/libguile/net_db.h index 9421808a8..74c7d7c04 100644 --- a/libguile/net_db.h +++ b/libguile/net_db.h @@ -2,7 +2,7 @@ #ifndef NETDBH #define NETDBH -/* Copyright (C) 1995 Free Software Foundation, Inc. +/* 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 diff --git a/libguile/objprop.h b/libguile/objprop.h index 2097f903c..4d94bbcd2 100644 --- a/libguile/objprop.h +++ b/libguile/objprop.h @@ -2,7 +2,7 @@ #ifndef OBJPROPH #define OBJPROPH -/* Copyright (C) 1995 Free Software Foundation, Inc. +/* 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 diff --git a/libguile/options.c b/libguile/options.c index 0242c62ed..030cc2f7b 100644 --- a/libguile/options.c +++ b/libguile/options.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995, 1996, 1998 Free Software Foundation +/* Copyright (C) 1995, 1996, 1998, 2000 Free Software Foundation * * 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 diff --git a/libguile/options.h b/libguile/options.h index a40a6a575..7b36fc21c 100644 --- a/libguile/options.h +++ b/libguile/options.h @@ -2,7 +2,7 @@ #ifndef OPTIONSH #define OPTIONSH -/* Copyright (C) 1995,1996 Free Software Foundation +/* Copyright (C) 1995,1996, 2000 Free Software Foundation * * 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 diff --git a/libguile/pairs.c b/libguile/pairs.c index 8fa082a47..1b885c789 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/posix.h b/libguile/posix.h index 2347df707..a39930846 100644 --- a/libguile/posix.h +++ b/libguile/posix.h @@ -2,7 +2,7 @@ #ifndef POSIXH #define POSIXH -/* Copyright (C) 1995, 1996, 1997, 1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/print.c b/libguile/print.c index d0079560f..9c03035da 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995-1999 Free Software Foundation, Inc. +/* Copyright (C) 1995-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 diff --git a/libguile/print.h b/libguile/print.h index f72c62832..d516afdfc 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -2,7 +2,7 @@ #ifndef PRINTH #define PRINTH -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/procprop.c b/libguile/procprop.c index c71ef3826..cd3d56720 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/procprop.h b/libguile/procprop.h index d59e9a062..98331465a 100644 --- a/libguile/procprop.h +++ b/libguile/procprop.h @@ -2,7 +2,7 @@ #ifndef PROCPROPH #define PROCPROPH -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/putenv.c b/libguile/putenv.c index 68f2a59b7..1c185502a 100644 --- a/libguile/putenv.c +++ b/libguile/putenv.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1991 Free Software Foundation, Inc. +/* Copyright (C) 1991, 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 diff --git a/libguile/ramap.h b/libguile/ramap.h index b081593d2..a71cfca86 100644 --- a/libguile/ramap.h +++ b/libguile/ramap.h @@ -2,7 +2,7 @@ #ifndef RAMAPH #define RAMAPH -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/random.h b/libguile/random.h index a765b2af9..38aba09ff 100644 --- a/libguile/random.h +++ b/libguile/random.h @@ -2,7 +2,7 @@ #ifndef RANDOMH #define RANDOMH -/* Copyright (C) 1999 Free Software Foundation, Inc. +/* 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 diff --git a/libguile/read.c b/libguile/read.c index 3ab736af2..5aa743e69 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997, 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 diff --git a/libguile/read.h b/libguile/read.h index aab2b6b8e..3b5c37902 100644 --- a/libguile/read.h +++ b/libguile/read.h @@ -2,7 +2,7 @@ #ifndef READH #define READH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c index 5ca9e3b10..b714bb7a7 100644 --- a/libguile/regex-posix.c +++ b/libguile/regex-posix.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1997, 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 diff --git a/libguile/regex-posix.h b/libguile/regex-posix.h index c56e5d205..ab979b799 100644 --- a/libguile/regex-posix.h +++ b/libguile/regex-posix.h @@ -3,7 +3,7 @@ #ifndef REGEXPOSIXH #define REGEXPOSIXH -/* Copyright (C) 1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/root.c b/libguile/root.c index bc62c0013..e350a9cb9 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,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 diff --git a/libguile/root.h b/libguile/root.h index 02929b7ba..51f0528a6 100644 --- a/libguile/root.h +++ b/libguile/root.h @@ -3,7 +3,7 @@ #ifndef ROOTH #define ROOTH -/* Copyright (C) 1996,1998 Free Software Foundation, Inc. +/* Copyright (C) 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 diff --git a/libguile/scmsigs.h b/libguile/scmsigs.h index a3bfd9b57..347ed8b03 100644 --- a/libguile/scmsigs.h +++ b/libguile/scmsigs.h @@ -2,7 +2,7 @@ #ifndef SCMSIGSH #define SCMSIGSH -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/script.c b/libguile/script.c index 29b6c18e0..6e225f6e8 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc. +/* Copyright (C) 1994, 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) @@ -552,7 +552,7 @@ scm_compile_shell_switches (int argc, char **argv) { /* Print version number. */ printf ("Guile %s\n" - "Copyright (c) 1995, 1996, 1997 Free Software Foundation\n" + "Copyright (c) 1995, 1996, 1997, 2000 Free Software Foundation\n" "Guile may be distributed under the terms of the GNU General Public Licence;\n" "certain other uses are permitted as well. For details, see the file\n" "`COPYING', which is included in the Guile distribution.\n" diff --git a/libguile/script.h b/libguile/script.h index 8593a6442..655307aa9 100644 --- a/libguile/script.h +++ b/libguile/script.h @@ -2,7 +2,7 @@ #ifndef SCRIPTH #define SCRIPTH -/* Copyright (C) 1997, 1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/simpos.c b/libguile/simpos.c index 89428d197..8b6b744b6 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/simpos.h b/libguile/simpos.h index 9e483403d..bd843f975 100644 --- a/libguile/simpos.h +++ b/libguile/simpos.h @@ -2,7 +2,7 @@ #ifndef SIMPOSH #define SIMPOSH -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/socket.c b/libguile/socket.c index c50daa831..c78c954b1 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1996,1997,1998 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 diff --git a/libguile/socket.h b/libguile/socket.h index 1a96ee348..d2b93d60e 100644 --- a/libguile/socket.h +++ b/libguile/socket.h @@ -2,7 +2,7 @@ #ifndef SOCKETH #define SOCKETH -/* Copyright (C) 1995, 1996, 1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/sort.c b/libguile/sort.c index 91f79f274..b5034b46d 100644 --- a/libguile/sort.c +++ b/libguile/sort.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1999 Free Software Foundation, Inc. +/* 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) diff --git a/libguile/sort.h b/libguile/sort.h index 701b5e4e2..6aa941c0b 100644 --- a/libguile/sort.h +++ b/libguile/sort.h @@ -2,7 +2,7 @@ #ifndef SORTH #define SORTH -/* Copyright (C) 1999 Free Software Foundation, Inc. +/* 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 diff --git a/libguile/srcprop.c b/libguile/srcprop.c index 54afae7a7..f3aebe800 100644 --- a/libguile/srcprop.c +++ b/libguile/srcprop.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation +/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation * * 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 diff --git a/libguile/srcprop.h b/libguile/srcprop.h index ca51a704f..023ee8b16 100644 --- a/libguile/srcprop.h +++ b/libguile/srcprop.h @@ -2,7 +2,7 @@ #ifndef SRCPROPH #define SRCPROPH -/* Copyright (C) 1995,1996 Free Software Foundation +/* Copyright (C) 1995,1996, 2000 Free Software Foundation * * 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 diff --git a/libguile/stackchk.c b/libguile/stackchk.c index 86bd1d399..a2b0e4dcd 100644 --- a/libguile/stackchk.c +++ b/libguile/stackchk.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/stackchk.h b/libguile/stackchk.h index 18c6b50e5..bdbe69009 100644 --- a/libguile/stackchk.h +++ b/libguile/stackchk.h @@ -2,7 +2,7 @@ #ifndef STACKCHKH #define STACKCHKH -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/stacks.c b/libguile/stacks.c index 7595abff8..880b59305 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -1,5 +1,5 @@ /* Representation of stack frame debug information - * Copyright (C) 1996,1997 Free Software Foundation + * Copyright (C) 1996,1997, 2000 Free Software Foundation * * 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 diff --git a/libguile/stacks.h b/libguile/stacks.h index cbe27bbe4..fda1f1b00 100644 --- a/libguile/stacks.h +++ b/libguile/stacks.h @@ -2,7 +2,7 @@ #ifndef STACKSH #define STACKSH -/* Copyright (C) 1995,1996 Free Software Foundation +/* Copyright (C) 1995,1996, 2000 Free Software Foundation * * 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 diff --git a/libguile/stime.c b/libguile/stime.c index 03095d1a1..d5dbeecf3 100644 --- a/libguile/stime.c +++ b/libguile/stime.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,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 diff --git a/libguile/stime.h b/libguile/stime.h index 64dc8ecad..2bfd77525 100644 --- a/libguile/stime.h +++ b/libguile/stime.h @@ -2,7 +2,7 @@ #ifndef STIMEH #define STIMEH -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/strerror.c b/libguile/strerror.c index 0d05f4b32..8445f6ff1 100644 --- a/libguile/strerror.c +++ b/libguile/strerror.c @@ -1,5 +1,5 @@ /* Turning errno values into English error messages. - Copyright (C) 1985, 86, 87, 88, 93, 94, 95 Free Software Foundation, Inc. + Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 2000 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/libguile/strings.h b/libguile/strings.h index f9a77a121..1b8189850 100644 --- a/libguile/strings.h +++ b/libguile/strings.h @@ -2,7 +2,7 @@ #ifndef STRINGSH #define STRINGSH -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/strop.c b/libguile/strop.c index 15d0b4ed9..0a3ea54ce 100644 --- a/libguile/strop.c +++ b/libguile/strop.c @@ -1,6 +1,6 @@ /* classes: src_files */ -/* Copyright (C) 1994, 1996, 1997, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1994, 1996, 1997, 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 diff --git a/libguile/strop.h b/libguile/strop.h index f5c988f7f..acd1928ed 100644 --- a/libguile/strop.h +++ b/libguile/strop.h @@ -2,7 +2,7 @@ #ifndef STROPH #define STROPH -/* Copyright (C) 1995,1996,1997 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/strorder.c b/libguile/strorder.c index 402732fe5..d2a4347ec 100644 --- a/libguile/strorder.c +++ b/libguile/strorder.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995, 1996, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995, 1996, 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 diff --git a/libguile/strorder.h b/libguile/strorder.h index 0ee64ed0c..c145a1d94 100644 --- a/libguile/strorder.h +++ b/libguile/strorder.h @@ -2,7 +2,7 @@ #ifndef STRORDERH #define STRORDERH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/strports.c b/libguile/strports.c index 127dc1d77..0040adc57 100644 --- a/libguile/strports.c +++ b/libguile/strports.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1998,1999 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/strports.h b/libguile/strports.h index 14a9242c3..28bae69b4 100644 --- a/libguile/strports.h +++ b/libguile/strports.h @@ -2,7 +2,7 @@ #ifndef STRPORTSH #define STRPORTSH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/symbols.h b/libguile/symbols.h index aab8b90f3..41f291461 100644 --- a/libguile/symbols.h +++ b/libguile/symbols.h @@ -2,7 +2,7 @@ #ifndef SYMBOLSH #define SYMBOLSH -/* Copyright (C) 1995,1996,1997,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/tag.c b/libguile/tag.c index 41ddb5b84..b33dc7545 100644 --- a/libguile/tag.c +++ b/libguile/tag.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1996, 1997 Free Software Foundation, Inc. +/* Copyright (C) 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 diff --git a/libguile/tag.h b/libguile/tag.h index be5e00f40..d2fb1fcb7 100644 --- a/libguile/tag.h +++ b/libguile/tag.h @@ -2,7 +2,7 @@ #ifndef TAGH #define TAGH -/* Copyright (C) 1995 Free Software Foundation, Inc. +/* 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 diff --git a/libguile/throw.c b/libguile/throw.c index 325a9b501..17e046c57 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995, 1996, 1997, 1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/throw.h b/libguile/throw.h index d8f6deda1..b422dbd23 100644 --- a/libguile/throw.h +++ b/libguile/throw.h @@ -2,7 +2,7 @@ #ifndef THROWH #define THROWH -/* Copyright (C) 1995,1996,1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/variable.h b/libguile/variable.h index a8e9efc18..93b3383f4 100644 --- a/libguile/variable.h +++ b/libguile/variable.h @@ -2,7 +2,7 @@ #ifndef VARIABLEH #define VARIABLEH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/vectors.h b/libguile/vectors.h index aefeb086b..fef91cfa5 100644 --- a/libguile/vectors.h +++ b/libguile/vectors.h @@ -2,7 +2,7 @@ #ifndef VECTORSH #define VECTORSH -/* Copyright (C) 1995, 1996, 1998 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/version.c b/libguile/version.c index 48c0ad8ca..053df21f2 100644 --- a/libguile/version.c +++ b/libguile/version.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996, 1999 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996, 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 diff --git a/libguile/version.h b/libguile/version.h index 7c9babf74..1a4efa776 100644 --- a/libguile/version.h +++ b/libguile/version.h @@ -2,7 +2,7 @@ #ifndef VERSIONH #define VERSIONH -/* Copyright (C) 1995, 1996, 1998, 1999 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/vports.c b/libguile/vports.c index b9d1884b7..264c1c032 100644 --- a/libguile/vports.c +++ b/libguile/vports.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1998,1999 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 * it under the terms of the GNU General Public License as published by diff --git a/libguile/vports.h b/libguile/vports.h index 39209cb68..52e6b7a45 100644 --- a/libguile/vports.h +++ b/libguile/vports.h @@ -2,7 +2,7 @@ #ifndef VPORTSH #define VPORTSH -/* Copyright (C) 1995,1996 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 * it under the terms of the GNU General Public License as published by |