diff options
author | Ludovic Courtès | 2008-01-18 12:36:59 +0100 |
---|---|---|
committer | Ludovic Courtès | 2008-01-18 12:36:59 +0100 |
commit | 7efd05778cddec0293e0d48199f3aeee2aad6178 (patch) | |
tree | 806be6fc0190c511374f15332c4465e27048b111 /src/guile/silex/updateo2.scm | |
parent | a3b7dfffbda5fe148920c7556244ab35b99109a5 (diff) | |
download | skribilo-7efd05778cddec0293e0d48199f3aeee2aad6178.tar.gz skribilo-7efd05778cddec0293e0d48199f3aeee2aad6178.tar.lz skribilo-7efd05778cddec0293e0d48199f3aeee2aad6178.zip |
Add SILex, for simplicity.
Diffstat (limited to 'src/guile/silex/updateo2.scm')
-rw-r--r-- | src/guile/silex/updateo2.scm | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/src/guile/silex/updateo2.scm b/src/guile/silex/updateo2.scm new file mode 100644 index 0000000..6bd5cf5 --- /dev/null +++ b/src/guile/silex/updateo2.scm @@ -0,0 +1,76 @@ +; SILex - Scheme Implementation of Lex +; Copyright (C) 2001 Danny Dube' +; +; 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 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 program; if not, write to the Free Software +; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +; +; Fonction pour reconstituer le module output2.scm a partir du fichier +; multilex.scm +; + +(define update + (let ((entete + '("; SILex - Scheme Implementation of Lex" + "; Copyright (C) 2001 Danny Dube'" + "; " + "; 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 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 program; if not, write to the Free Software" + "; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA." + "" + ";" + "; Fonction de copiage du fichier run-time" + ";" + "" + "(define out-print-run-time-lib" + " (lambda (port)" + " (display \"; *** This file start\" port)" + " (display \"s with a copy of the \" port)" + " (display \"file multilex.scm ***\" port)" + " (newline port)"))) + (lambda () + (let ((in-port (open-input-file "multilex.scm")) + (out-port (open-output-file "output2.scm"))) + (for-each (lambda (str) + (display str out-port) + (newline out-port)) + entete) + (display " (display \"" out-port) + (let loop ((c (read-char in-port))) + (if (eof-object? c) + (begin + (display "\" port)))" out-port) + (newline out-port) + (close-input-port in-port) + (close-output-port out-port)) + (begin + (cond ((char=? c #\") + (write-char #\\ out-port) + (write-char #\" out-port)) + ((char=? c #\\) + (write-char #\\ out-port) + (write-char #\\ out-port)) + (else + (write-char c out-port))) + (loop (read-char in-port))))))))) |