Commit 228dbc3d authored by pjb's avatar pjb

Added output-substitution to cli-arguments.

parent 21cb8f12
......@@ -46,4 +46,4 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; End of av-printers.l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

\ No newline at end of file

......@@ -4,4 +4,4 @@
(setq zb::*grammar-debug* t)
(zb:read-parser "Program := KB-domain: [(-stmts KB-Sequence)];"
:grammar (zb:find-grammar "zebu-mg"))

\ No newline at end of file

......@@ -915,4 +915,4 @@ year \"1981\"}" :grammar (find-grammar "bibtex"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; End of exercise.lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

\ No newline at end of file

......@@ -53,4 +53,4 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; end of pc1-p.lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

\ No newline at end of file

......@@ -188,4 +188,4 @@ yz" "ab" :invert t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; End of regextst.lisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

\ No newline at end of file

.. comment: -*- mode:rst; coding:utf-8 -*-
0- Install required tools: wget, fossil, git. They should be
available as packages from your system distribution. If not, you
can get them from their respective home sites:
1- Installation from the binaries.
-------------------------------------------------
http://www.gnu.org/software/wget/
http://fossil-scm.org/
http://git-scm.com/
1- Install a Common Lisp implementation. One or more CL
implementatations may also be available thru your system
distribution. If not, you may also install one yourself. Check
http://cliki.net/ for a list of CL implementations and other hints.
2- Compilation and Installation from the sources.
-------------------------------------------------
Development has been done with Clozure CL, so let's install CLozure CL.
See: http://ccl.clozure.com/download.html
::
0- Install required tools: wget, fossil, git. They should be
available as packages from your system distribution. If not, you
can get them from their respective home sites:
# set TARGET to one of darwinx86, linuxx86, freebsdx86,
# solarisx86, windows, linuxppc, or linuxarm.
TARGET=linuxx86
cd /usr/local/src
svn co http://svn.clozure.com/publicsvn/openmcl/release/1.7/$TARGET/ccl
cp ccl/scripts/ccl /usr/local/bin/
chmod 755 /usr/local/bin/ccl
http://www.gnu.org/software/wget/
http://fossil-scm.org/
http://git-scm.com/
2- Install quicklisp:
1- Install a Common Lisp implementation. One or more CL
implementatations may also be available thru your system
distribution. If not, you may also install one yourself. Check
http://cliki.net/ for a list of CL implementations and other hints.
Dependencies and nasium-lse is loaded and compiled with quicklisp and asdf.
See: http://www.quicklisp.org/
::
Development has been done with Clozure CL, so let's install CLozure CL.
See: http://ccl.clozure.com/download.html
::
cd
wget http://beta.quicklisp.org/quicklisp.lisp
ccl -load quicklisp.lisp
# set TARGET to one of darwinx86, linuxx86, freebsdx86,
# solarisx86, windows, linuxppc, or linuxarm.
TARGET=linuxx86
cd /usr/local/src
svn co http://svn.clozure.com/publicsvn/openmcl/release/1.7/$TARGET/ccl
cp ccl/scripts/ccl /usr/local/bin/
chmod 755 /usr/local/bin/ccl
Then in lisp: ::
(quicklisp-quickstart:install)
(ql:add-to-init-file)
(quit)
2- Install quicklisp:
Dependencies and nasium-lse is loaded and compiled with quicklisp and asdf.
See: http://www.quicklisp.org/
::
3- Get the sources of nasium: ::
cd
wget http://beta.quicklisp.org/quicklisp.lisp
ccl -load quicklisp.lisp
cd ~/src/
fossil clone http://fossil.nasium-lse.ogamita.com/nasium-lse nasium-lse.fossil
# take note of the login and password of the admin-user!
Then in lisp: ::
mkdir nasium-lse
cd nasium-lse
fossil open ../nasium-lse.fossil
(quicklisp-quickstart:install)
(ql:add-to-init-file)
(quit)
4- Get required dependencies that are not in quicklisp. We install
them in ~/quicklisp/local-projects/ to integrate with quicklisp
thought. ::
3- Get the sources of nasium: ::
cd ~/quicklisp/local-projects/
git clone https://github.com/marsijanin/iolib.termios.git
cd ~/src/
fossil clone http://fossil.nasium-lse.ogamita.com/nasium-lse nasium-lse.fossil
# take note of the login and password of the admin-user!
There's a bug in the current quicklisp, so we need to remove
system-index.txt and rebuild it from $HOME. ::
mkdir nasium-lse
cd nasium-lse
fossil open ../nasium-lse.fossil
cd ~/
rm ~/quicklisp/local-projects/system-index.txt
ccl --eval '(ql:quickload :alexandria)' --eval '(ccl:quit)'
5- Normally, the dependencies in quicklisp are up-to-date (quicklisp
updates monthly). However, sometimes we need more recent versions
are necessary. In that case, they may be installed in
~/quicklisp/local-projects/.
::
4- Get required dependencies that are not in quicklisp. We install
them in ~/quicklisp/local-projects/ to integrate with quicklisp
thought. ::
cd ~/quicklisp/local-projects/
git clone https://git.gitorious.org/com-informatimago/com-informatimago.git
git clone https://git.gitorious.org/com-informatimago/com-informatimago-rdp.git
cd ~/quicklisp/local-projects/
git clone https://github.com/marsijanin/iolib.termios.git
There's a bug in the current quicklisp, so we need to remove
system-index.txt and rebuild it from $HOME. ::
There's a bug in the current quicklisp, so we need to remove
system-index.txt and rebuild it from $HOME. ::
cd ~/
rm ~/quicklisp/local-projects/system-index.txt
ccl --eval '(ql:quickload :alexandria)' --eval '(ccl:quit)'
cd ~/
rm ~/quicklisp/local-projects/system-index.txt
ccl --eval '(ql:quickload :alexandria)' --eval '(ccl:quit)'
5- Normally, the dependencies in quicklisp are up-to-date (quicklisp
updates monthly). However, sometimes we need more recent versions
are necessary. In that case, they may be installed in
~/quicklisp/local-projects/.
::
Next month, just update quicklisp and remove the old copies in
~/quicklisp/local-projects/:
cd ~/quicklisp/local-projects/
git clone https://git.gitorious.org/com-informatimago/com-informatimago.git
git clone https://git.gitorious.org/com-informatimago/com-informatimago-rdp.git
Next month in lisp: ::
There's a bug in the current quicklisp, so we need to remove
system-index.txt and rebuild it from $HOME. ::
(ql:update-client)
(ql:update-all-dists)
cd ~/
rm ~/quicklisp/local-projects/system-index.txt
ccl --eval '(ql:quickload :alexandria)' --eval '(ccl:quit)'
Next month in shell: ::
rm -rf ~/quicklisp/local-projects/com-informatimago
rm -rf ~/quicklisp/local-projects/com-informatimago-rdp
Next month, just update quicklisp and remove the old copies in
~/quicklisp/local-projects/:
Next month in lisp: ::
6- Compile the executables: ::
(ql:update-client)
(ql:update-all-dists)
cd ~/src/nasium-lse/src/
make UPLOAD=0 cli server html-doc
Next month in shell: ::
rm -rf ~/quicklisp/local-projects/com-informatimago
rm -rf ~/quicklisp/local-projects/com-informatimago-rdp
7- Further questions may be addressed at mailto:pjb@ogamita.com
or bug reports may be posted at http://fossil.nasium-lse.ogamita.com/nasium-lse/reportlist
6- Compile the executables: ::
cd ~/src/nasium-lse/src/
make UPLOAD=0 cli server html-doc
7- Check the executables: ::
$ ls -l lse*
lrwxrwxrwx 1 lse lse 31 Mar 22 13:43 lse -> lse-ccl-linux-debian-6.0.4-i686
-rwxr-xr-x 1 lse lse 58187792 Mar 22 13:43 lse-ccl-linux-debian-6.0.4-i686
-rw-r--r-- 1 lse lse 3117 Mar 22 13:43 lse-ccl-linux-debian-6.0.4-i686.manifest
lrwxrwxrwx 1 lse lse 38 Mar 22 13:44 lse-server -> lse-server-ccl-linux-debian-6.0.4-i686
-rwxr-xr-x 1 lse lse 59400208 Mar 22 13:44 lse-server-ccl-linux-debian-6.0.4-i686
-rw-r--r-- 1 lse lse 3034 Mar 22 13:44 lse-server-ccl-linux-debian-6.0.4-i686.manifest
$ ./lse --help
8- Further questions may be addressed at mailto:pjb@ogamita.com
or bug reports may be posted at http://fossil.nasium-lse.ogamita.com/nasium-lse/reportlist
9- Go to section '1- Installation from the binaries'.
.. comment: the end
-*- coding: utf-8 -*-
http://groups.google.com/group/fr.comp.lang.general/browse_frm/thread/8572301d0869af9b/d729d75738fe81d9?hl=en&lnk=gst&q=LSE#d729d75738fe81d9
http://groups.google.com/group/fr.comp.lang.general/browse_frm/thread/f82cef21e27ea0de/2d8679a638eebcbc?hl=en
news:fr.comp.ordinosaures
From: Luc <ve2lgq@hotmail.com>
Subject: [LSE] Langage LSE
Newsgroups: fr.comp.lang.general
......
......@@ -29,7 +29,7 @@
# 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/>.
# along with this program. If not, see http://www.gnu.org/licenses/
#*****************************************************************************
# If UPLOAD is 1, then documentation is generated in $(UPLOAD_DOC_DIR)
......@@ -50,11 +50,11 @@ SYMLINK_CLI = awk '/Generating/{print $$2}' < $(LOGFILE) | ( read executable
SYMLINK_SERVER = awk '/Generating/{print $$2}' < $(LOGFILE) | ( read executable ; rm -f lse-server ; ln -sf $$executable lse-server )
CCL = ccl
CCL = ccl --no-init
CCL_EVAL = --eval
CCL_LOAD = --load
CLISP = clisp -ansi -q
CLISP = clisp -ansi -q -norc
CLISP_LOAD =
CLISP_EVAL = -repl -x
......@@ -123,6 +123,9 @@ variables:
install:
cp lse /usr/local/bin/nasium-lse-inetd
.PHONY: unix-cli html-doc
#### THE END ####
0.15200433
\ No newline at end of file
0.12800428
\ No newline at end of file
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
......
......@@ -35,7 +35,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......@@ -662,7 +662,7 @@ 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/>.
along with this program. If not, see http://www.gnu.org/licenses/
")
......
This diff is collapsed.
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COM.INFORMATIMAGO.LSE.CLI")
......@@ -54,7 +54,7 @@
(defparameter *cli-banner* "
Ce programme est livré avec ABSOLUMENT AUCUNE GARANTIE; pour plus de
détails utilisez la commande DO GARANTIE. Ce logiciel est libre, et
vous êtes les bienvenus pour redistribuer sous certaines conditions;
vous avez le droit de le redistribuer sous certaines conditions;
utilisez la commande DO LICENSE pour plus de détails.
Tapez AI pour avoir de l'aide.
......@@ -105,58 +105,62 @@ BONJOUR ~8A
(defun main (&optional args)
(push #P "/usr/local/lib/" cffi:*foreign-library-directories*)
(setf *program-name* (or (program-name) *default-program-name*))
(setf *options* (make-default-options))
(let ((encoding (locale-terminal-encoding)))
(set-terminal-encoding encoding)
(let* ((terminal-class (progn
#+swank
(cond
((typep (stream-output-stream *terminal-io*)
'swank-backend::slime-output-stream)
'swank-terminal)
;; #+unix
;; ((member (getenv "TERM") '("emacs" "dumb")
;; :test (function string=))
;; 'standard-terminal)
(t #+unix 'unix-terminal
#-unix 'standard-terminal))
#-swank
(progn #+unix 'unix-terminal
#-unix 'standard-terminal)))
(terminal (make-instance terminal-class
:input-stream (stream-input-stream *terminal-io*)
:output-stream (stream-output-stream *terminal-io*)))
(task (make-instance 'task
:state :active
:case-insensitive t
:upcase-output nil
:unicode (eql encoding :utf-8)
:arrows (if (eql encoding :utf-8)
:unicode-halfwidth
nil)
:terminal terminal)))
(setf *task* task) ; to help debugging, we keep the task in the global binding.
(setf *program-name* (or (program-name) *default-program-name*))
(or (parse-options (or args (arguments)))
(progn
(apply-options *options* *task*)
(terminal-initialize terminal)
(unwind-protect
(let* ((old-debugger-hook *debugger-hook*)
(*debugger-hook*
(lambda (condition debugger-hook)
;; We shouldn't come here.
(when debugger-hook
(terminal-finalize terminal))
(format *debug-io* "~%My advice: exit after debugging.~%")
(when old-debugger-hook
(funcall old-debugger-hook condition debugger-hook)))))
(io-format *task* "~A" *tape-banner*)
(io-format *task* "~?" *title-banner* (list (version)))
(io-format *task* "~?" *cli-banner* (list (subseq (dat) 9)))
(command-repl *task*))
(task-close-all-files *task*)
(terminal-finalize terminal))
ex-ok)))))
(or (parse-options (or args (arguments)))
(let* ((terminal-class (progn
#+swank
(cond
((typep (stream-output-stream *terminal-io*)
'swank-backend::slime-output-stream)
'swank-terminal)
((member (getenv "TERM") '("emacs" "dumb")
:test (function string=))
'standard-terminal)
(t #+unix 'unix-terminal
#-unix 'standard-terminal))
#-swank
(cond
((member (getenv "TERM") '("emacs" "dumb")
:test (function string=))
'standard-terminal)
(t #+unix 'unix-terminal
#-unix 'standard-terminal))))
(terminal (make-instance terminal-class
:input-stream (stream-input-stream *terminal-io*)
:output-stream (stream-output-stream *terminal-io*)))
(task (make-instance 'task
:state :active
:case-insensitive t
:upcase-output nil
:unicode (eql encoding :utf-8)
:arrows (if (eql encoding :utf-8)
:unicode-halfwidth
nil)
:terminal terminal)))
(setf *task* task) ; to help debugging, we keep the task in the global binding.
(apply-options *options* *task*)
(terminal-initialize terminal)
(unwind-protect
(let* ((old-debugger-hook *debugger-hook*)
(*debugger-hook*
(lambda (condition debugger-hook)
;; We shouldn't come here.
(when debugger-hook
(terminal-finalize terminal))
(opt-format *debug-io* "~%My advice: exit after debugging.~%")
(when old-debugger-hook
(funcall old-debugger-hook condition debugger-hook)))))
(io-format *task* "~A" *tape-banner*)
(io-format *task* "~?" *title-banner* (list (version)))
(io-format *task* "~?" *cli-banner* (list (subseq (dat) 9)))
(command-repl *task*))
(task-close-all-files *task*)
(terminal-finalize terminal))
ex-ok))))
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
......
......@@ -32,7 +32,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -32,7 +32,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;****************************************************************************
......@@ -202,7 +202,7 @@
(ecase (token-kind expr)
(tok-identificateur (princ (identificateur-nom expr)))
(tok-procident (princ (identificateur-nom expr)))
(tok-chaine (princ (token-text expr)))
(tok-litchaine (princ (token-text expr)))
(tok-nombre (princ (nombre-valeur expr)))
(tok-numero (princ (numero-valeur expr)))))
(cons
......@@ -300,7 +300,7 @@
(princ expr))
(token
(ecase (token-kind expr)
(tok-chaine (princ (token-text expr)))
(tok-litchaine (princ (token-text expr)))
(tok-identificateur (princ (identificateur-nom expr)))
(tok-nombre (princ (nombre-valeur expr)))
(tok-numero (princ (numero-valeur expr)))
......@@ -494,7 +494,7 @@ POST: (and (cons-position c l) (eq c (nthcdr (cons-position c l) l)))
;; (cons stat next))
;; (token
;; (ecase (token-kind stat)
;; (tok-chaine (gen !pushi (chaine-valeur stat) next))
;; (tok-litchaine (gen !pushi (chaine-valeur stat) next))
;; (tok-nombre (gen !pushi (nombre-valeur stat) next))
;; (tok-numero (gen !pushi (numero-valeur stat) next))
;; (tok-identificateur (gen (identificateur-nom stat) next))
......@@ -943,7 +943,7 @@ POST: (and (cons-position c l) (eq c (nthcdr (cons-position c l) l)))
(gen-code code expression))
(token
(ecase (token-kind expression)
(tok-chaine (gen-code code !pushi (chaine-valeur expression)))
(tok-litchaine (gen-code code !pushi (chaine-valeur expression)))
(tok-nombre (gen-code code !pushi (nombre-valeur expression)))
(tok-numero (gen-code code !pushi (numero-valeur expression)))
(tok-identificateur (gen-code code (identificateur-nom expression)))
......@@ -1835,7 +1835,7 @@ POST: (and (cons-position c l) (eq c (nthcdr (cons-position c l) l)))
;; Local Variables:
;; (cl-indent 'dolist/separator 1)
;; eval: (cl-indent 'dolist/separator 1)
;; End:
;;;; THE END ;;;;
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......@@ -157,7 +157,9 @@
RETURN: A string containing the character without accent
(for accented characters), or a pure ASCII form of the character.
"
(car (character-folding character)))
(or (car (character-folding character))
character))
(defun remove-accents (string)
(if (find-if (function accented-letter-p) string)
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(defpackage "COM.INFORMATIMAGO.ENVIRONMENT"
......
......@@ -36,7 +36,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -39,7 +39,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;****************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......
......@@ -29,10 +29,18 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COMMON-LISP-USER")
#+ccl (setf ccl:*default-external-format* :unix
ccl:*default-file-character-encoding* :utf-8
ccl:*default-line-termination* :unix
ccl:*default-socket-character-encoding* :utf-8)
(load #P"~/quicklisp/setup.lisp")
(setf *print-right-margin* 80
*print-pretty* t
*print-case* :downcase)
......@@ -126,7 +134,7 @@
:norc t
:init-function (lambda ()
(ext:exit (handler-case
(com.informatimago.lse.cli:main)
(com.informatimago.lse.cli:main ext:*args*)
(error ()
1))))
:script t
......
......@@ -29,10 +29,18 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COMMON-LISP-USER")
#+ccl (setf ccl:*default-external-format* :unix
ccl:*default-file-character-encoding* :utf-8
ccl:*default-line-termination* :unix
ccl:*default-socket-character-encoding* :utf-8)
(load #P"~/quicklisp/setup.lisp")
(setf *print-right-margin* 80
*print-pretty* t
*print-case* :downcase)
......
......@@ -29,10 +29,18 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COMMON-LISP-USER")
#+ccl (setf ccl:*default-external-format* :unix
ccl:*default-file-character-encoding* :utf-8
ccl:*default-line-termination* :unix
ccl:*default-socket-character-encoding* :utf-8)
(load #P"~/quicklisp/setup.lisp")
(setf *print-right-margin* 80
*print-pretty* t
*print-case* :downcase)
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(IN-PACKAGE "COM.INFORMATIMAGO.LSE")
......
......@@ -29,7 +29,7 @@
;;;; 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/>.
;;;; along with this program. If not, see http://www.gnu.org/licenses/
;;;;**************************************************************************
(in-package "COM.INFORMATIMAGO.LSE")
......@@ -366,9 +366,10 @@ NOTE: Unclassified chapters are in the category NIL."
(html:html -
(html:head -