Commit 894685b8 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Updated copyright date. Improved server command handling.

parent 7e1df2f8
(FILTER APPEND ALLOW "127.0.0.1")
(FILTER APPEND DENY ALL)
(CONNECTIONS MAX-NUMBER 40)
(CONNECTIONS MAX-NUMBER 22)
(CONNECTIONS ENABLE)
......@@ -50,7 +50,7 @@ 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 = /data/languages/ccl/bin/ccl --no-init
CCL = ccl --no-init
CCL_EVAL = --eval
CCL_LOAD = --load
......
0.06300415
\ No newline at end of file
0.0130042005
\ No newline at end of file
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -22,7 +22,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2000 - 2004
;;;; Copyright Pascal J. Bourguignon 2000 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -649,7 +649,7 @@ http://fr.wikipedia.org/wiki/LSE_(langage_de_programmation)
"
Système L.S.E
Copyright (C) 2012 Pascal Bourguignon
Copyright (C) 2013 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -249,7 +249,7 @@ BODY: The body of the option processing function.
(opt-format t "
L.S.E.
VERSION ~A
COPYRIGHT 1984 - 2012 PASCAL BOURGUIGNON
~A
DISTRIBUE SELON LES TERMES DE LA LICENCE AGPLv3.
......@@ -259,7 +259,8 @@ vous êtes les bienvenus pour redistribuer sous certaines conditions;
utilisez la commande DO LICENSE pour plus de détails.
"
(version))
(version)
*copyright*)
(parse-options-finish ex-ok))
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -35,27 +35,6 @@
(in-package "COMMON-LISP-USER")
(defpackage "COM.INFORMATIMAGO.LSE.UNIX-TERMINAL"
(:use "COMMON-LISP"
"TRIVIAL-GRAY-STREAMS"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.ASCII"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
"COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST"
"COM.INFORMATIMAGO.RDP"
"COM.INFORMATIMAGO.SIGNAL"
"COM.INFORMATIMAGO.LSE.OS"
"COM.INFORMATIMAGO.LSE")
(:export "UNIX-TERMINAL"
"TERMINAL-MODERN-MODE" "TERMINAL-CR-AS-XOFF"
"TERMINAL-VINTR" "TERMINAL-VQUIT" "TERMINAL-VSUSP"
"TERMINAL-VKILL" "TERMINAL-VEOF" "TERMINAL-VEOL"
"TERMINAL-VEOL2" "TERMINAL-VERASE" "TERMINAL-VWERASE"
"TERMINAL-VREPRINT" "TERMINAL-VSTART" "TERMINAL-VSTOP"
))
(defpackage "COM.INFORMATIMAGO.LSE.CLI"
(:nicknames "LSE-CLI")
(:use "COMMON-LISP"
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -170,7 +170,7 @@ BONJOUR ~8A
(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* "~?" *title-banner* (list (version) *copyright*))
(io-format *task* "~?" *cli-banner* (list (subseq (dat) 9)))
(command-repl *task*))
(task-close-all-files *task*)
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -98,7 +98,7 @@
"error" "byte-code" "compiler"
"variables" "functions" "file"))
(:file "task" :depends-on ("packages" "file" "vm" ))
(:file "task" :depends-on ("packages" "file" "vm" "environment"))
(:file "io" :depends-on ("packages" "file" "task"))
(:file "commands" :depends-on ("packages"
"error" "version"
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -57,6 +57,8 @@
"iolib.syscalls"
"iolib"
"trivial-gray-streams"
#+clisp "com.informatimago.clisp"
#+clisp "com.informatimago.susv3"
......@@ -66,10 +68,11 @@
)
:components (
(:file "environment")
;;---------------------
(:file "iolib-message" :depends-on ())
(:file "iolib-end-point")
(:file "iolib-utils" :depends-on ("iolib-message" "iolib-end-point"))
(:file "iolib-utils" :depends-on ("iolib-message" "iolib-end-point" "environment"))
(:file "iolib-server" :depends-on ("iolib-utils" "iolib-message"))
(:file "iolib-client" :depends-on ("iolib-utils" "iolib-message"))
;;---------------------
......@@ -81,6 +84,7 @@
(:file "server-commands" :depends-on ("server-package"))
(:file "server-arguments" :depends-on ("server-package"))
(:file "server" :depends-on ("server-package"
"iolib-end-point"
"iolib-utils"
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -19,7 +19,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -1884,7 +1884,7 @@ Voir les commandes TABLE DES FICHIERS, SUPPRIMER."
(error (function invoke-debugger)))
(do-it))
(do-it)))
(scanner-error-invalid-character (err)
(lse-scanner-error-invalid-character (err)
(io-format task "~%ERREUR: ~?~%"
"CARACTÈRE INVALIDE ~A~:[~*~; (~D~)~] EN POSITION ~D"
(destructuring-bind (ch pos) (scanner-error-format-arguments err)
......
......@@ -19,7 +19,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2005
;;;; Copyright Pascal Bourguignon 2005 - 2013
;;;;
;;;; 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
......@@ -1430,7 +1430,7 @@ POST: (and (cons-position c l) (eq c (nthcdr (cons-position c l) l)))
(defmacro converting-parser-errors (&body body)
;; We convert parser and scanner errors into lse-parser and
;; lse-scanner errors, rewriting the error messages.
`(handler-bind ((scanner-error-invalid-character
`(handler-bind ((lse-scanner-error-invalid-character
(lambda (err)
(error 'lse-scanner-error-invalid-character
:line (scanner-error-line err)
......@@ -1447,7 +1447,7 @@ POST: (and (cons-position c l) (eq c (nthcdr (cons-position c l) l)))
(format nil ".~A." (char-code ch)))
(<= 32 (char-code ch))
(char-code ch))))))
(parser-end-of-source-not-reached
(lse-parser-error-end-of-source-not-reached
(lambda (err)
(error 'lse-parser-error-end-of-source-not-reached
:line (parser-error-line err)
......@@ -1463,7 +1463,7 @@ POST: (and (cons-position c l) (eq c (nthcdr (cons-position c l) l)))
(token-text token))
(token-kind-label (token-kind token))
(token-text token))))))
(parser-error-unexpected-token
(lse-parser-error-unexpected-token
(lambda (err)
(error 'lse-parser-error-unexpected-token
:line (parser-error-line err)
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2005
;;;; Copyright Pascal Bourguignon 2005 - 2013
;;;;
;;;; 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
......@@ -64,7 +64,7 @@
(defparameter *password* "MAYER")
(defparameter *header* "EMULSE : L.S.E. [ EMULATION MITRA-15 ]")
(defparameter *copyright* "COPYRIGHT 1984 - 2012 PASCAL BOURGUIGNON")
(defparameter *copyright* "COPYRIGHT 1984 - 2013 PASCAL BOURGUIGNON")
;; (map nil (function ensure-directories-exist)
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -42,10 +42,8 @@
text)
(defmethod print-object ((self chapter) stream)
(print-unreadable-object (self stream :identity t :type t)
(format stream ":title ~S :category ~S"
(chapter-title self) (chapter-category self)))
self)
(print-parseable-object (self stream :type t :identity t)
title category))
(defparameter *chapters* (make-hash-table :test (function equalp)))
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -34,10 +34,12 @@
(defpackage "COM.INFORMATIMAGO.ENVIRONMENT"
(:use "COMMON-LISP")
(:export "MAKE-DEFAULT-ENVIRONMENT" "WITH-ENVIRONMENT")
(:export "MAKE-DEFAULT-ENVIRONMENT" "WITH-ENVIRONMENT" "ENVIRONMENT")
(:documentation "This package binds Common Lisp dynamic variables in a user environment."))
(in-package "COM.INFORMATIMAGO.ENVIRONMENT")
(defstruct environment
bindings)
(defun make-default-environment ()
"
......@@ -50,49 +52,50 @@ are configured specifically.
(flet ((capture (special-variables)
(mapcar (lambda (var) (cons var (symbol-value var)))
special-variables)))
(list* (cons '*package* (load-time-value (find-package "COMMON-LISP-USER")))
(cons '*READTABLE* (copy-readtable *READTABLE*))
(cons '*RANDOM-STATE* (make-random-state *RANDOM-STATE*))
(cons '*FEATURES* (copy-list *FEATURES*))
(cons '*MODULES* (copy-list *MODULES*))
(cons '*LOAD-PATHNAME* nil)
(cons '*LOAD-TRUENAME* nil)
(cons '*PRINT-RIGHT-MARGIN* 80)
(capture '(#+ecl SI:*PRINT-PACKAGE*
#+ecl SI:*PRINT-STRUCTURE*
* ** ***
+ ++ +++
-
/ // ///
*BREAK-ON-SIGNALS*
*COMPILE-FILE-PATHNAME*
*COMPILE-FILE-TRUENAME*
*COMPILE-PRINT*
*COMPILE-VERBOSE*
*DEBUGGER-HOOK*
*DEFAULT-PATHNAME-DEFAULTS*
*GENSYM-COUNTER*
*LOAD-PRINT*
*LOAD-VERBOSE*
*MACROEXPAND-HOOK*
*PRINT-ARRAY*
*PRINT-BASE*
*PRINT-CASE*
*PRINT-CIRCLE*
*PRINT-ESCAPE*
*PRINT-GENSYM*
*PRINT-LENGTH*
*PRINT-LEVEL*
*PRINT-LINES*
*PRINT-MISER-WIDTH*
*PRINT-PPRINT-DISPATCH*
*PRINT-PRETTY*
*PRINT-RADIX*
*PRINT-READABLY*
*READ-BASE*
*READ-DEFAULT-FLOAT-FORMAT*
*READ-EVAL*
*READ-SUPPRESS*)))))
(make-environment
:bindings (list* (cons '*package* (load-time-value (find-package "COMMON-LISP-USER")))
(cons '*READTABLE* (copy-readtable *READTABLE*))
(cons '*RANDOM-STATE* (make-random-state *RANDOM-STATE*))
(cons '*FEATURES* (copy-list *FEATURES*))
(cons '*MODULES* (copy-list *MODULES*))
(cons '*LOAD-PATHNAME* nil)
(cons '*LOAD-TRUENAME* nil)
(cons '*PRINT-RIGHT-MARGIN* 80)
(capture '(#+ecl SI:*PRINT-PACKAGE*
#+ecl SI:*PRINT-STRUCTURE*
* ** ***
+ ++ +++
-
/ // ///
*BREAK-ON-SIGNALS*
*COMPILE-FILE-PATHNAME*
*COMPILE-FILE-TRUENAME*
*COMPILE-PRINT*
*COMPILE-VERBOSE*
*DEBUGGER-HOOK*
*DEFAULT-PATHNAME-DEFAULTS*
*GENSYM-COUNTER*
*LOAD-PRINT*
*LOAD-VERBOSE*
*MACROEXPAND-HOOK*
*PRINT-ARRAY*
*PRINT-BASE*
*PRINT-CASE*
*PRINT-CIRCLE*
*PRINT-ESCAPE*
*PRINT-GENSYM*
*PRINT-LENGTH*
*PRINT-LEVEL*
*PRINT-LINES*
*PRINT-MISER-WIDTH*
*PRINT-PPRINT-DISPATCH*
*PRINT-PRETTY*
*PRINT-RADIX*
*PRINT-READABLY*
*READ-BASE*
*READ-DEFAULT-FLOAT-FORMAT*
*READ-EVAL*
*READ-SUPPRESS*))))))
(defmacro with-environment (environment &body body)
......@@ -102,11 +105,11 @@ Executes the BODY in the given ENVIRONMENT.
The environment is updated when the BODY exits (locally or not) with
the new values. However, *PACKAGE* and *RANDOM-STATE* are reset to
default values if they are not of the right type."
(let ((venv (gensym)))
`(let ((,venv ,environment))
(let ((vbindings (gensym)))
`(let ((,vbindings (environment-bindings ,environment)))
(progv
(mapcar (function car) ,venv)
(mapcar (function cdr) ,venv)
(mapcar (function car) ,vbindings)
(mapcar (function cdr) ,vbindings)
(unwind-protect
(progn ,@body)
......@@ -116,7 +119,7 @@ default values if they are not of the right type."
(unless (random-state-p *random-state*)
(setf *random-state* (make-random-state *RANDOM-STATE*)))
;; Save the changes:
(dolist (binding ,venv)
(dolist (binding ,vbindings)
(setf (cdr binding) (symbol-value (car binding)))))))))
......
......@@ -23,7 +23,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2000 - 2004
;;;; Copyright Pascal J. Bourguignon 2000 - 2013
;;;;
;;;; 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
......
......@@ -26,7 +26,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2005
;;;; Copyright Pascal Bourguignon 2005 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -458,7 +458,7 @@ NOTE: Unclassified chapters are in the category NIL."
(html:a (:href "../") (html:pcdata "Maison")))
(html:hr)
(html:pre -
(html:pcdata *title-banner* (version)))
(html:pcdata *title-banner* (version) *copyright*))
(html:ol -
(let ((chapters (chapters-per-category)))
(dolist (category *indexed-categories*)
......
......@@ -22,7 +22,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2000 - 2004
;;;; Copyright Pascal J. Bourguignon 2000 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -38,6 +38,7 @@
"IOLIB.MULTIPLEX"
"COM.INFORMATIMAGO.LOGGER"
"COM.INFORMATIMAGO.SIGNAL"
"COM.INFORMATIMAGO.ENVIRONMENT"
"COM.INFORMATIMAGO.IOLIB.END-POINT"
"COM.INFORMATIMAGO.IOLIB.MESSAGE")
(:export "*EVENT-BASE*" "EVENT-BASE"
......
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2005
;;;; Copyright Pascal Bourguignon 2005 - 2013
;;;;
;;;; 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
......
......@@ -18,7 +18,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......
......@@ -24,7 +24,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2000 - 2012
;;;; Copyright Pascal J. Bourguignon 2000 - 2013
;;;;
;;;; 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
......
......@@ -21,7 +21,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal Bourguignon 2005 - 2012
;;;; Copyright Pascal Bourguignon 2005 - 2013
;;;;
;;;; 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
......@@ -88,8 +88,11 @@
(defmethod print-object ((self lse-token) stream)
(if *print-escape*
(print-unreadable-object (self stream :type t :identity t)
(format stream "~D:~D: ~:[~A ~S~;~S~*~]"
(token-line self) (token-column self)
(format stream "~@[~D:~]~@[~D:~] ~:[~A ~S~;~S~*~]"
(and (slot-boundp self 'com.informatimago.common-lisp.parser.scanner::line)
(token-line self))
(and (slot-boundp self 'com.informatimago.common-lisp.parser.scanner::column)
(token-column self))
(string= (token-kind-label (token-kind self))
(token-text self))
(token-kind-label (token-kind self))
......@@ -403,16 +406,21 @@
self)
(defmethod print-object ((self lse-scanner) out)
(print-unreadable-object (self out :type t :identity t)
(format out "~{~S~^ ~}"
(list :line (scanner-line self)
:column (scanner-column self)
:current-token (scanner-current-token self)
:source (scanner-source self)
:buffer (scanner-buffer self)
:previous-token-kind (scanner-previous-token-kind self))))
self)
(print-parseable-object (self out :type t :identity t)
(:line (scanner-line self))
(:column (scanner-column self))
(:current-token (scanner-current-token self))
(:source (scanner-source self))
(:buffer (scanner-buffer self))
(:previous-token-kind (scanner-previous-token-kind self))))
(macroexpand '(print-parseable-object (self out :type t :identity t)
(:line (scanner-line self))
(:column (scanner-column self))
(:current-token (scanner-current-token self))
(:source (scanner-source self))
(:buffer (scanner-buffer self))
(:previous-token-kind (scanner-previous-token-kind self))))
(eval-when (:compile-toplevel :load-toplevel :execute)
;; (defconstant +code-limit+ 128 "Number of characters in the LSE charset") ; ASCII
......
1.0.0-0.065-CCL-LINUX
\ No newline at end of file
1.0.0-0.015-CCL-LINUX
\ No newline at end of file
1.0.0-0.065-CCL-LINUX, compiled 2013-07-12 22:12:43 on kuiper
\ No newline at end of file
1.0.0-0.015-CCL-LINUX, compiled 2013-07-14 23:44:33 on kuiper
\ No newline at end of file
1.0.0-0.065
\ No newline at end of file
1.0.0-0.015
\ No newline at end of file
......@@ -16,7 +16,7 @@
;;;;LEGAL
;;;; AGPL3
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2012
;;;; Copyright Pascal J. Bourguignon 2012 - 2013
;;;;
;;;; 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
......@@ -73,8 +73,15 @@
(delete (string-downcase system)
(let ((system (asdf:find-system system)))
(delete-duplicates
(mapcar 'string-downcase
(mapcan (lambda (x) (copy-seq (rest x)))
(mapcar (lambda (system)
(etypecase system
(asdf:system (asdf:component-name system))
(string system)
(symbol (string-downcase system))))
(mapcan (lambda (x)
(delete-if-not (lambda (component)
(typep component 'asdf:system))
(copy-seq (rest x))))
(asdf:component-depends-on 'asdf:load-op system)))