Relicense some taken-from-GNU Guile LGPLv2+ files to GPLv3+.

* mes/module/mes/pretty-print.scm: Relicense to GPLv3+.
* mes/module/mes/psyntax.ss: Likewise.
* mes/module/srfi/srfi-1.scm: Likewise.
* mes/module/srfi/srfi-16.scm: Likewise.
* mes/module/srfi/srfi-26.scm: Likewise.
* module/mes/getopt-long.scm: Likewise.

diff --git a/mes/module/mes/pretty-print.scm b/mes/module/mes/pretty-print.scm
index bef76ddcb69780ae98046cffaa0c24003ff1359c..8f53d6c2e9746f7f8249439bec56ec1a1b561be2 100644 (file)
--- a/mes/module/mes/pretty-print.scm
+++ b/mes/module/mes/pretty-print.scm
@@ -1,21 +1,25 @@
 ;;;; -*-scheme-*-
-;;;;
-;;;;   Copyright (C) 2001, 2004, 2006 Free Software Foundation, Inc.
-;;;; 
-;;;; This library is free software; you can redistribute it and/or
-;;;; modify it under the terms of the GNU Lesser General Public
-;;;; License as published by the Free Software Foundation; either
-;;;; version 2.1 of the License, or (at your option) any later version.
-;;;; 
-;;;; This library 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
-;;;; Lesser General Public License for more details.
-;;;; 
-;;;; You should have received a copy of the GNU Lesser General Public
-;;;; License along with this library; if not, write to the Free Software
-;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-;;;; 
+
+;;; GNU Mes --- Maxwell Equations of Software
+;;; Copyright (C) 2001, 2004, 2006 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Mes.
+;;;
+;;; GNU Mes 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 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Mes 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 GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Taken from GNU Guile
+
 (define-module (ice-9 pretty-print)
   :use-module (ice-9 optargs)
   :export (pretty-print))
@@ -267,7 +271,7 @@ port directly after OBJ, like (pretty-print OBJ PORT)."
       (pretty-print-with-keys obj)))
 
 (define* (pretty-print-with-keys obj
-                                #:key 
+                                #:key
                                 (port (current-output-port))
                                 (width 79)
                                 (display? #f)

diff --git a/mes/module/mes/psyntax.ss b/mes/module/mes/psyntax.ss
index b0c7fa67e8e3f947d6f51485939a3275d99f0b08..bea90709b4f553b8e0f15d66410bf43ae20046ec 100644 (file)
--- a/mes/module/mes/psyntax.ss
+++ b/mes/module/mes/psyntax.ss
@@ -1,21 +1,24 @@
 ;;;; -*-scheme-*-
-;;;;
-;;;;   Copyright (C) 2001, 2003, 2006 Free Software Foundation, Inc.
-;;;; 
-;;;; This library is free software; you can redistribute it and/or
-;;;; modify it under the terms of the GNU Lesser General Public
-;;;; License as published by the Free Software Foundation; either
-;;;; version 2.1 of the License, or (at your option) any later version.
-;;;; 
-;;;; This library 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
-;;;; Lesser General Public License for more details.
-;;;; 
-;;;; You should have received a copy of the GNU Lesser General Public
-;;;; License along with this library; if not, write to the Free Software
-;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-;;;; 
+;;; GNU Mes --- Maxwell Equations of Software
+;;; Copyright (C) 2001, 2003, 2006 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Mes.
+;;;
+;;; GNU Mes 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 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Mes 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 GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Taken from GNU Guile
+
 \f
 
 ;;; Portable implementation of syntax-case
@@ -190,7 +193,7 @@
 ;;; In Chez Scheme, the syntactic and procedural forms of these
 ;;; abstractions are equivalent, since the optimizer consistently
 ;;; integrates constants and small procedures.  Some Scheme
-;;; implementations, however, may benefit from more consistent use 
+;;; implementations, however, may benefit from more consistent use
 ;;; of one form or the other.
 
 
@@ -520,7 +523,7 @@
 (define-syntax null-env (identifier-syntax '()))
 
 (define extend-env
-  (lambda (labels bindings r) 
+  (lambda (labels bindings r)
     (if (null? labels)
         r
         (extend-env (cdr labels) (cdr bindings)

diff --git a/mes/module/srfi/srfi-1.scm b/mes/module/srfi/srfi-1.scm
index f509d0eb127932912a7bbe6ac07e7de21d2c02d2..f76d6f05ce6e6971b1f869dac9e1b09182e0c3b3 100644 (file)
--- a/mes/module/srfi/srfi-1.scm
+++ b/mes/module/srfi/srfi-1.scm
@@ -1,20 +1,22 @@
-;;; From Guile-1.8
+;;; GNU Mes --- Maxwell Equations of Software
+;;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Mes.
+;;;
+;;; GNU Mes 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 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Mes 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 GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-;;     Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
-;;
-;; This library is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU Lesser General Public
-;; License as published by the Free Software Foundation; either
-;; version 2.1 of the License, or (at your option) any later version.
-;; 
-;; This library 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
-;; Lesser General Public License for more details.
-;; 
-;; You should have received a copy of the GNU Lesser General Public
-;; License along with this library; if not, write to the Free Software
-;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+;;; From Guile-1.8
 
 ;;; Author: Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
 ;;; Date: 2001-06-06

diff --git a/mes/module/srfi/srfi-16.scm b/mes/module/srfi/srfi-16.scm
index f4ae0e05cde3ba1daceae92ee80fd0e387431efb..607fb2e1adb9834b343b31f3f9c46e91f6981c77 100644 (file)
--- a/mes/module/srfi/srfi-16.scm
+++ b/mes/module/srfi/srfi-16.scm
@@ -1,20 +1,23 @@
-;;; srfi-16.scm --- case-lambda
+;;; GNU Mes --- Maxwell Equations of Software
+;;; Copyright (C) 2001, 2002, 2006 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Mes.
+;;;
+;;; GNU Mes 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 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Mes 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 GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-;; Copyright (C) 2001, 2002, 2006 Free Software Foundation, Inc.
-;;
-;; This library is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU Lesser General Public
-;; License as published by the Free Software Foundation; either
-;; version 2.1 of the License, or (at your option) any later version.
-;;
-;; This library 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
-;; Lesser General Public License for more details.
-;;
-;; You should have received a copy of the GNU Lesser General Public
-;; License along with this library; if not, write to the Free Software
-;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+;;; From Guile-1.8
+;;; srfi-16.scm --- case-lambda
 
 ;;; Author: Martin Grabmueller
 

diff --git a/mes/module/srfi/srfi-26.scm b/mes/module/srfi/srfi-26.scm
index 410d2e2f89a3b4cde8210eaaa176ba874129c1b4..f3b503271c7a78fca985a90a9dd2d6b6f6e8a0ac 100644 (file)
--- a/mes/module/srfi/srfi-26.scm
+++ b/mes/module/srfi/srfi-26.scm
@@ -1,20 +1,23 @@
-;;; srfi-26.scm --- specializing parameters without currying.
+;;; GNU Mes --- Maxwell Equations of Software
+;;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Mes.
+;;;
+;;; GNU Mes 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 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Mes 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 GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
-;;
-;; This library is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU Lesser General Public
-;; License as published by the Free Software Foundation; either
-;; version 2.1 of the License, or (at your option) any later version.
-;; 
-;; This library 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
-;; Lesser General Public License for more details.
-;; 
-;; You should have received a copy of the GNU Lesser General Public
-;; License along with this library; if not, write to the Free Software
-;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+;;; srfi-26.scm --- specializing parameters without currying.
+;;; From Guile-1.8
 
 (define-module (srfi srfi-26)
   :export (cut cute))

diff --git a/module/mes/getopt-long.scm b/module/mes/getopt-long.scm
index 71e0443892e08c1faf42b26e61c7b957f2047f08..eaa9337af5ac50c3eb3a14da764f056f79106a35 100644 (file)
--- a/module/mes/getopt-long.scm
+++ b/module/mes/getopt-long.scm
@@ -1,19 +1,24 @@
+;;; GNU Mes --- Maxwell Equations of Software
 ;;; Copyright (C) 1998, 2001, 2006 Free Software Foundation, Inc.
 ;;; Copyright (C) 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 ;;;
-;; This library is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU Lesser General Public
-;; License as published by the Free Software Foundation; either
-;; version 2.1 of the License, or (at your option) any later version.
-;;
-;; This library 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
-;; Lesser General Public License for more details.
-;;
-;; You should have received a copy of the GNU Lesser General Public
-;; License along with this library; if not, write to the Free Software
-;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+;;; This file is part of GNU Mes.
+;;;
+;;; GNU Mes 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 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Mes 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 GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; From Guile-1.8
 
 ;;; Author: Russ McManus (rewritten by Thien-Thi Nguyen)
 ;;;                      (regexps removed by Jan (janneke) Nieuwenhuizen)