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

Updated copyrights

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-06-12 12:28:24 +00:00
parent 3d47112cd6
commit f2c9fcb07e
112 changed files with 111 additions and 535 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guile-readline/readline.h
View file

@ -1,7 +1,7 @@
#ifndef READLINEH #ifndef READLINEH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
ice-9/slib.scm
View file

@ -1,6 +1,6 @@
;;;; slib.scm --- definitions needed to get SLIB to work with Guile ;;;; 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. ;;;; This file is part of GUILE.
;;;; ;;;;

2
libguile.h
View file

@ -1,7 +1,7 @@
#ifndef LIBGUILEH #ifndef LIBGUILEH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/alist.h
View file

@ -2,7 +2,7 @@
#ifndef ALISTH #ifndef ALISTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/arbiters.h
View file

@ -2,7 +2,7 @@
#ifndef ARBITERSH #ifndef ARBITERSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/backtrace.c
View file

@ -1,5 +1,5 @@
/* Printing of backtraces and error messages /* 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/backtrace.h
View file

@ -2,7 +2,7 @@
#ifndef BACKTRACEH #ifndef BACKTRACEH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/boolean.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/boolean.h
View file

@ -2,7 +2,7 @@
#ifndef BOOLEANH #ifndef BOOLEANH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/chars.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/chars.h
View file

@ -2,7 +2,7 @@
#ifndef SCM_CHARSH #ifndef SCM_CHARSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/continuations.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/continuations.h
View file

@ -2,7 +2,7 @@
#ifndef CONTINUATIONSH #ifndef CONTINUATIONSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/coop-threads.h
View file

@ -3,7 +3,7 @@
#ifndef COOP_THREADSH #ifndef COOP_THREADSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/debug.c
View file

@ -1,5 +1,5 @@
/* Debugging extensions for Guile /* 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/debug.h
View file

@ -2,7 +2,7 @@
#ifndef DEBUGH #ifndef DEBUGH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/dynl.h
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/dynwind.h
View file

@ -2,7 +2,7 @@
#ifndef DYNWINDH #ifndef DYNWINDH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/eq.h
View file

@ -2,7 +2,7 @@
#ifndef EQH #ifndef EQH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/error.h
View file

@ -2,7 +2,7 @@
#ifndef ERRORH #ifndef ERRORH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/eval.h
View file

@ -2,7 +2,7 @@
#ifndef EVALH #ifndef EVALH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/evalext.h
View file

@ -2,7 +2,7 @@
#ifndef EVALEXTH #ifndef EVALEXTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/filesys.h
View file

@ -2,7 +2,7 @@
#ifndef FILESYSH #ifndef FILESYSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/fluids.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/fluids.h
View file

@ -3,7 +3,7 @@
#ifndef FLUIDSH #ifndef FLUIDSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/fports.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/fports.h
View file

@ -2,7 +2,7 @@
#ifndef FPORTSH #ifndef FPORTSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gdb_interface.h
View file

@ -1,5 +1,5 @@
/* Simple interpreter interface for GDB, the GNU debugger. /* 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. This file is part of GDB.

2
libguile/gdbint.c
View file

@ -1,5 +1,5 @@
/* GDB interface for Guile /* 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gdbint.h
View file

@ -2,7 +2,7 @@
#ifndef GDBINTH #ifndef GDBINTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gh_eval.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gh_funcs.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gh_init.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gh_io.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gh_list.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gh_predicates.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

253
libguile/gh_test_c.c
View file

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

171
libguile/gh_test_repl.c
View file

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

2
libguile/gsubr.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/gsubr.h
View file

@ -2,7 +2,7 @@
#ifndef GSUBRH #ifndef GSUBRH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/guile.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/hash.h
View file

@ -2,7 +2,7 @@
#ifndef HASHH #ifndef HASHH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/hashtab.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/hashtab.h
View file

@ -2,7 +2,7 @@
#ifndef HASHTABH #ifndef HASHTABH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/init.h
View file

@ -2,7 +2,7 @@
#ifndef INITH #ifndef INITH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/ioext.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/ioext.h
View file

@ -2,7 +2,7 @@
#ifndef IOEXTH #ifndef IOEXTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/keywords.h
View file

@ -2,7 +2,7 @@
#ifndef KEYWORDSH #ifndef KEYWORDSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/lang.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/list.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/list.h
View file

@ -2,7 +2,7 @@
#ifndef LISTH #ifndef LISTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/load.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/load.h
View file

@ -2,7 +2,7 @@
#ifndef LOADH #ifndef LOADH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/macros.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/macros.h
View file

@ -2,7 +2,7 @@
#ifndef MACROSH #ifndef MACROSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/mallocs.c
View file

@ -1,5 +1,5 @@
/* classes: src_files /* 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/mallocs.h
View file

@ -2,7 +2,7 @@
#ifndef MALLOCSH #ifndef MALLOCSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/net_db.h
View file

@ -2,7 +2,7 @@
#ifndef NETDBH #ifndef NETDBH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/objprop.h
View file

@ -2,7 +2,7 @@
#ifndef OBJPROPH #ifndef OBJPROPH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/options.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/options.h
View file

@ -2,7 +2,7 @@
#ifndef OPTIONSH #ifndef OPTIONSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/pairs.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/posix.h
View file

@ -2,7 +2,7 @@
#ifndef POSIXH #ifndef POSIXH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/print.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/print.h
View file

@ -2,7 +2,7 @@
#ifndef PRINTH #ifndef PRINTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/procprop.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/procprop.h
View file

@ -2,7 +2,7 @@
#ifndef PROCPROPH #ifndef PROCPROPH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/putenv.c
View file

@ -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 This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by it under the terms of the GNU General Public License as published by

2
libguile/ramap.h
View file

@ -2,7 +2,7 @@
#ifndef RAMAPH #ifndef RAMAPH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/random.h
View file

@ -2,7 +2,7 @@
#ifndef RANDOMH #ifndef RANDOMH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/read.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/read.h
View file

@ -2,7 +2,7 @@
#ifndef READH #ifndef READH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/regex-posix.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/regex-posix.h
View file

@ -3,7 +3,7 @@
#ifndef REGEXPOSIXH #ifndef REGEXPOSIXH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/root.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/root.h
View file

@ -3,7 +3,7 @@
#ifndef ROOTH #ifndef ROOTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/scmsigs.h
View file

@ -2,7 +2,7 @@
#ifndef SCMSIGSH #ifndef SCMSIGSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

4
libguile/script.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option) * 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. */ /* Print version number. */
printf ("Guile %s\n" 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" "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" "certain other uses are permitted as well. For details, see the file\n"
"`COPYING', which is included in the Guile distribution.\n" "`COPYING', which is included in the Guile distribution.\n"

2
libguile/script.h
View file

@ -2,7 +2,7 @@
#ifndef SCRIPTH #ifndef SCRIPTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/simpos.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/simpos.h
View file

@ -2,7 +2,7 @@
#ifndef SIMPOSH #ifndef SIMPOSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/socket.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/socket.h
View file

@ -2,7 +2,7 @@
#ifndef SOCKETH #ifndef SOCKETH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/sort.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option) * the Free Software Foundation; either version 2, or (at your option)

2
libguile/sort.h
View file

@ -2,7 +2,7 @@
#ifndef SORTH #ifndef SORTH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/srcprop.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/srcprop.h
View file

@ -2,7 +2,7 @@
#ifndef SRCPROPH #ifndef SRCPROPH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/stackchk.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/stackchk.h
View file

@ -2,7 +2,7 @@
#ifndef STACKCHKH #ifndef STACKCHKH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/stacks.c
View file

@ -1,5 +1,5 @@
/* Representation of stack frame debug information /* 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/stacks.h
View file

@ -2,7 +2,7 @@
#ifndef STACKSH #ifndef STACKSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/stime.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/stime.h
View file

@ -2,7 +2,7 @@
#ifndef STIMEH #ifndef STIMEH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/strerror.c
View file

@ -1,5 +1,5 @@
/* Turning errno values into English error messages. /* 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. This file is part of GNU Emacs.

2
libguile/strings.h
View file

@ -2,7 +2,7 @@
#ifndef STRINGSH #ifndef STRINGSH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/strop.c
View file

@ -1,6 +1,6 @@
/* classes: src_files */ /* 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 This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by it under the terms of the GNU General Public License as published by

2
libguile/strop.h
View file

@ -2,7 +2,7 @@
#ifndef STROPH #ifndef STROPH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/strorder.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/strorder.h
View file

@ -2,7 +2,7 @@
#ifndef STRORDERH #ifndef STRORDERH
#define 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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

2
libguile/strports.c
View file

@ -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 * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by

Some files were not shown because too many files have changed in this diff Show more