andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Jan Nieuwenhuizen 2018-07-23 19:11:45 +02:00
parent f1778a7a0c
commit a2d54958ff
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
6 changed files with 118 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
mes/module/mes/pretty-print.scm
View File

@ -1,21 +1,25 @@
;;;; -*-scheme-*- ;;;; -*-scheme-*-
;;;;
;;;; Copyright (C) 2001, 2004, 2006 Free Software Foundation, Inc. ;;; GNU Mes --- Maxwell Equations of Software
;;;; ;;; 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 ;;; This file is part of GNU Mes.
;;;; License as published by the Free Software Foundation; either ;;;
;;;; version 2.1 of the License, or (at your option) any later version. ;;; 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
;;;; This library is distributed in the hope that it will be useful, ;;; the Free Software Foundation; either version 3 of the License, or (at
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; your option) any later version.
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;;
;;;; Lesser General Public License for more details. ;;; GNU Mes is distributed in the hope that it will be useful, but
;;;; ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; You should have received a copy of the GNU Lesser General Public ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; License along with this library; if not, write to the Free Software ;;; GNU General Public License for more details.
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;
;;;; ;;; 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) (define-module (ice-9 pretty-print)
:use-module (ice-9 optargs) :use-module (ice-9 optargs)
:export (pretty-print)) :export (pretty-print))
@ -267,7 +271,7 @@ port directly after OBJ, like (pretty-print OBJ PORT)."
(pretty-print-with-keys obj))) (pretty-print-with-keys obj)))
(define* (pretty-print-with-keys obj (define* (pretty-print-with-keys obj
#:key #:key
(port (current-output-port)) (port (current-output-port))
(width 79) (width 79)
(display? #f) (display? #f)

41
mes/module/mes/psyntax.ss
View File

@ -1,21 +1,24 @@
;;;; -*-scheme-*- ;;;; -*-scheme-*-
;;;; ;;; GNU Mes --- Maxwell Equations of Software
;;;; Copyright (C) 2001, 2003, 2006 Free Software Foundation, Inc. ;;; Copyright (C) 2001, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;
;;;; This library is free software; you can redistribute it and/or ;;; This file is part of GNU Mes.
;;;; modify it under the terms of the GNU Lesser General Public ;;;
;;;; License as published by the Free Software Foundation; either ;;; GNU Mes is free software; you can redistribute it and/or modify it
;;;; version 2.1 of the License, or (at your option) any later version. ;;; under the terms of the GNU General Public License as published by
;;;; ;;; the Free Software Foundation; either version 3 of the License, or (at
;;;; This library is distributed in the hope that it will be useful, ;;; your option) any later version.
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; GNU Mes is distributed in the hope that it will be useful, but
;;;; Lesser General Public License for more details. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;;; You should have received a copy of the GNU Lesser General Public ;;; GNU General Public License for more details.
;;;; License along with this library; if not, write to the Free Software ;;;
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; 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
;;; Portable implementation of syntax-case ;;; Portable implementation of syntax-case
@ -190,7 +193,7 @@
;;; In Chez Scheme, the syntactic and procedural forms of these ;;; In Chez Scheme, the syntactic and procedural forms of these
;;; abstractions are equivalent, since the optimizer consistently ;;; abstractions are equivalent, since the optimizer consistently
;;; integrates constants and small procedures. Some Scheme ;;; 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. ;;; of one form or the other.
@ -520,7 +523,7 @@
(define-syntax null-env (identifier-syntax '())) (define-syntax null-env (identifier-syntax '()))
(define extend-env (define extend-env
(lambda (labels bindings r) (lambda (labels bindings r)
(if (null? labels) (if (null? labels)
r r
(extend-env (cdr labels) (cdr bindings) (extend-env (cdr labels) (cdr bindings)

34
mes/module/srfi/srfi-1.scm
View File

@ -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. ;;; From Guile-1.8
;;
;; 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
;;; Author: Martin Grabmueller <mgrabmue@cs.tu-berlin.de> ;;; Author: Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
;;; Date: 2001-06-06 ;;; Date: 2001-06-06

35
mes/module/srfi/srfi-16.scm
View File

@ -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. ;;; From Guile-1.8
;; ;;; srfi-16.scm --- case-lambda
;; 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
;;; Author: Martin Grabmueller ;;; Author: Martin Grabmueller

35
mes/module/srfi/srfi-26.scm
View File

@ -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. ;;; srfi-26.scm --- specializing parameters without currying.
;; ;;; From Guile-1.8
;; 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
(define-module (srfi srfi-26) (define-module (srfi srfi-26)
:export (cut cute)) :export (cut cute))

31
module/mes/getopt-long.scm
View File

@ -1,19 +1,24 @@
;;; GNU Mes --- Maxwell Equations of Software
;;; Copyright (C) 1998, 2001, 2006 Free Software Foundation, Inc. ;;; Copyright (C) 1998, 2001, 2006 Free Software Foundation, Inc.
;;; Copyright (C) 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; 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 ;;; This file is part of GNU Mes.
;; modify it under the terms of the GNU Lesser General Public ;;;
;; License as published by the Free Software Foundation; either ;;; GNU Mes is free software; you can redistribute it and/or modify it
;; version 2.1 of the License, or (at your option) any later version. ;;; under the terms of the GNU General Public License as published by
;; ;;; the Free Software Foundation; either version 3 of the License, or (at
;; This library is distributed in the hope that it will be useful, ;;; your option) any later version.
;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; GNU Mes is distributed in the hope that it will be useful, but
;; Lesser General Public License for more details. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; You should have received a copy of the GNU Lesser General Public ;;; GNU General Public License for more details.
;; License along with this library; if not, write to the Free Software ;;;
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; 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) ;;; Author: Russ McManus (rewritten by Thien-Thi Nguyen)
;;; (regexps removed by Jan (janneke) Nieuwenhuizen) ;;; (regexps removed by Jan (janneke) Nieuwenhuizen)