Commit 0d42b635 by Pascal J. Bourguignon

Changed to AGPL3 license.

parent bdb05858
0.5780003
\ No newline at end of file
0.56600046
\ No newline at end of file
......@@ -14,24 +14,22 @@
;;;; 2012-02-15 <PJB> Extracted from compiler.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
......
......@@ -20,26 +20,22 @@
;;;; 2000-12-09 <PJB> Added this header comment.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; This file is part of EMULSE : L.S.E. [ EMULATION MITRA-15 ]
;;;;
;;;; Copyright Pascal J. Bourguignon 2000 - 2004
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -14,32 +14,30 @@
;;;; 2012-02-01 <PJB> Created this .asd file.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(asdf:defsystem :com.informatimago.lse
:description "LSE interpreter."
:description "This system implements a L.S.E. interpreter."
:author "<PJB> Pascal J. Bourguignon <pjb@informatimago.com>"
:version "1.0.8"
:licence "GPL"
:version "1.1.1"
:licence "AGPLv3"
:properties ((#:author-email . "pjb@informatimago.com")
(#:date . "Winter 2012")
((#:albert #:output-dir) . "/tmp/documentation/com.informatimago.lse/")
......@@ -48,19 +46,14 @@
((#:albert #:docbook #:bgcolor) . "white")
((#:albert #:docbook #:textcolor) . "black"))
:depends-on (:split-sequence
:depends-on (
:split-sequence
:alexandria
:babel
:iolib.base
:iolib
#+clisp :com.informatimago.clisp
#+clisp :com.informatimago.susv3
:com.informatimago.common-lisp
:com.informatimago.rdp
;; :com.hp.zebu
)
:components (
;; Some generic utility
......@@ -68,26 +61,11 @@
(:file "signal")
(:file "environment")
(:file "iolib-message" :depends-on ("logger"))
(:file "iolib-end-point")
(:file "iolib-utils" :depends-on ("logger" "signal" "iolib-message" "iolib-end-point"))
(:file "iolib-server" :depends-on ("logger" "iolib-utils" "iolib-message"))
(:file "iolib-client" :depends-on ("logger" "iolib-utils" "iolib-message"))
;;---------------------
;; LSE language
(:file "packages" :depends-on ("signal"
"logger"
"iolib-message"
"iolib-end-point"
"iolib-utils"
"iolib-server"))
;; (:file "patch-zebu")
;; (:file "grammar")
;; (:file "lse-domain")
(:file "packages" :depends-on ("signal" "logger"))
(:file "version" :depends-on ("packages"))
(:file "configuration" :depends-on ("packages"))
(:file "error" :depends-on ("packages"))
......@@ -95,37 +73,24 @@
(:file "file" :depends-on ("packages"
"configuration" "error"))
(:file "catalog" :depends-on ("packages"))
(:file "functions" :depends-on ("packages" "error"))
(:file "catalog" :depends-on ("packages"))
(:file "variables" :depends-on ("packages"))
(:file "functions" :depends-on ("packages" "error" "variables"))
(:file "lse-scanner" :depends-on ("packages" "error"))
(:file "lse-parser" :depends-on ("packages" "lse-scanner"))
(:file "byte-code" :depends-on ("packages"))
(:file "compiler" :depends-on ("packages" "lse-parser" "byte-code"))
(:file "compiler" :depends-on ("packages"
"version"
"lse-parser" "byte-code"))
(:file "vm" :depends-on ("packages"
"error" "byte-code"
"functions" "file"))
"variables" "functions" "file"))
(:file "commands" :depends-on ("packages" "error"))
(:file "task" :depends-on ("packages" "file" "vm" ))
(:file "io" :depends-on ("packages" "file" "task"))
(:file "commands" :depends-on ("packages" "error" "io" "task"))
;; LSE cli
(:file "swank-terminal" :depends-on ("packages" "io"))
(:file "unix-cli" :depends-on ("packages"
"version" "configuration"
"commands" "vm" "compiler"
"io" "swank-terminal"))
;; LSE server
(:file "server-commands" :depends-on ("packages"))
(:file "server" :depends-on ("packages"
"iolib-end-point" "iolib-utils" "iolib-server"
"server-commands"
"version" "configuration"
"task" "commands" "vm" "compiler"))
;; (:file "simple-server")
;; (:file "main")
))
......
......@@ -17,26 +17,22 @@
;;;; 2002-02-12 <PJB> Extracted from lse_main.c
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2000 - 2005
;;;;
;;;; This file is part of EMULSE : L.S.E. [ EMULATION MITRA-15 ]
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......@@ -326,6 +322,7 @@
;;; LSE Documentation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defparameter *chapters* (make-hash-table :test (function equalp)))
(defun find-chapter (title) (gethash title *chapters*))
......@@ -339,7 +336,38 @@
:text ',(unsplit-string text #\Newline))))
;; (find-chapter"instructions")
(defchapter "GARANTIE"
"
Système L.S.E
Copyright (C) 2012 Pascal Bourguignon
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as
published by the Free Software Foundation, either version 3 of the
License, 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 Affero General Public License for more details.
You should have received a copy of the GNU Affero General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
"
)
(defchapter "COPIE"
#.*license*
)
(defchapter "SOURCES"
"
Les sources de ce programme sont disponibles sous license AGPLv3
à l'adresse suivante:
http://www.ogamita.com/lse/
")
(defchapter "INSTRUCTIONS"
"Voici la liste des instructions disponibles.
......@@ -565,9 +593,11 @@ GRL GRL(ch,de), groupe de lettres;
(define-command-group common ()
(defcommand "AIDER" nil ()
"Affiche la liste des commandes."
(io-format *task* "~%LES COMMANDES DISPONIBLES SONT:~2%")
......@@ -583,7 +613,7 @@ GRL GRL(ch,de), groupe de lettres;
~&POUR ANNULER UN CARACTERE, TAPEZ \\.~%"))
(defcommand "DOCUMENTATION" un-fichier (what)
(defcommand "DOCUMENTATION" ligne (what)
"Affiche la documentation d'une commande ou d'une instruction."
(cond
((let ((command (find-command what *command-group*)))
......@@ -604,11 +634,15 @@ GRL GRL(ch,de), groupe de lettres;
(split-sequence #\Newline (chapter-text chapter))))
t)))
(t
(io-format *task* "~%Il n'y a pas de documentation pour ~S~
~%Essayez les commandes suivantes:~
~%AI)DE donne la liste des commandes;~
~%DO)CUMENTATION INSTRUCTIONS donne la liste des instructions;~
~%DO)CUMENTATION FONCTIONS donne la liste des fonctions.~2%"
(io-format *task*
"~%Il n'y a pas de documentation pour ~S~
~%Essayez les commandes suivantes:~
~%DO)CUMENTATION GARANTIE indique qu'aucune garantie n'est assurée;~
~%DO)CUMENTATION COPIE donne la license et votre liberté de copier;~
~%DO)CUMENTATION SOURCES où trouver les sources de ce programme;~
~%DO)CUMENTATION INSTRUCTIONS donne la liste des instructions;~
~%DO)CUMENTATION FONCTIONS donne la liste des fonctions;~
~%AI)DE donne la liste des commandes.~2%"
what))))
......@@ -703,8 +737,11 @@ GRL GRL(ch,de), groupe de lettres;
(defun account-set-right (account fictype right)
(values))
(define-command-group sleeping (common)
(defcommand "DROITS" nil ()
"Gestion des droits d'accès des comptes."
......@@ -1102,9 +1139,9 @@ GRL GRL(ch,de), groupe de lettres;
(defparameter *xoff* (code-char +xoff+))
(defparameter *nul* (code-char +nul+))
(eval-when (:compile-toplevel :load-toplevel :execute)
(defparameter *xoff* (code-char +xoff+))
(defparameter *nul* (code-char +nul+)))
(defun split-size (string size)
(loop
......
......@@ -16,24 +16,22 @@
;;;;BUGS
;;;; LIRE must take into account the type of the variable.
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2005
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
......
......@@ -14,24 +14,22 @@
;;;; 2005-08-24 <PJB> Added this header.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2005
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -14,24 +14,22 @@
;;;; 2012-02-01 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.ENVIRONMENT"
......
......@@ -21,26 +21,22 @@
;;;;BUGS
;;;; Needs some more work to convert error handling to lisp condition system.
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; This file is part of EMULSE : L.S.E. [ EMULATION MITRA-15 ]
;;;;
;;;; Copyright Pascal J. Bourguignon 2000 - 2004
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -24,24 +24,22 @@
;;;; (eg. for console to console communication).
;;;;
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -14,24 +14,22 @@
;;;; 2005-08-24 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2005
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -14,24 +14,22 @@
;;;; 2012-02-01 <PJB> Extracted from loader.lisp.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(IN-PACKAGE "COM.INFORMATIMAGO.LSE")
......
......@@ -20,26 +20,22 @@
;;;; 2000-12-09 <PJB> Added this header comment.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; This file is part of EMULSE : L.S.E. [ EMULATION MITRA-15 ]
;;;;
;;;; Copyright Pascal J. Bourguignon 2000 - 2004
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -14,24 +14,22 @@
;;;; 2012-02-01 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.IOLIB.CLIENT"
......
......@@ -14,24 +14,22 @@
;;;; 2012-02-01 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public
;;;; License along with this program; if not, write to the Free
;;;; Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.IOLIB.END-POINT"
......
......@@ -14,24 +14,22 @@
;;;; 2012-02-01 <PJB> Created.
;;;;BUGS
;;;;LEGAL
;;;; GPL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;;
;;;; This 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 of the License, or (at your option) any later version.
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, 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.
;;;; This program is distributed in the hope that it will be useful,