Commit 85a43200 by Pascal J. Bourguignon

Merged.

parents 3013a467 96539f53
......@@ -7,3 +7,7 @@ git clone https://github.com/sionescu/libfixposix.git
git clone http://git.informatimago.com/public/iolib.termios
# git clone ssh://pjb@git.informatimago.com/srv/git/public/iolib.termios
# NOT YET; we may freeze the dependency on a specific version of com-informatimago…
# git clone git@git.framasoft.org:com-informatimago/com-informatimago.git
# ( cd com-informatimago && git checkout 00911cca3266dac279f4cad960d6f11dad1b9dfa )
......@@ -135,7 +135,7 @@ DE LA LIGNE DE SAISIE). ON PEUT CEPENDANT COMMANDER LA SUPPRESSION DU
OU DES CARACTERES PRECEDEMENT SAISSIS EN TAPANT UN OU PLUSIEURS
CARACTERES ANTI-SLASH:
TAPER: BON\\\SALE\UT!
TAPER: BON\\\SALE\UT!
EQUIVAUT A TAPER: SALUT!
......@@ -164,7 +164,7 @@ COMMANDES DISPONIBLES DANS L'ETAT OU ON SE TROUVE.
EXEMPLE DE SESSION.
RAPPEL : LES LIGNES SE TERMINENT PAR CTRL-S, PAS PAR ENTREE/RETURN ;
RAPPEL : LES LIGNES SE TERMINENT PAR CTRL-S, PAS PAR ENTREE/RETURN ;
LES COMMANDES SE TAPENT AVEC LEURS DEUX PREMIERS CARACTERES ET
CTRL-S, LSE COMPLETANT : B O CTRL-S --> BONJOUR.
......@@ -182,14 +182,14 @@ CTRL-S, LSE COMPLETANT : B O CTRL-S --> BONJOUR.
|| EMULSE : L.S.E. [ EMULATION MITRA-15 ]
|| VERSION : 1.0-0.584-DEV
|| COPYRIGHT 1984 - 2002 PASCAL BOURGUIGNON
||
||
|| CONSOLE NO. 00
||
||
>| BONJOUR
||
|| LSE-M15 CONSOLE NO. 0 23/02/02 04:06:55
||
||
||
||
>> 1*TEST
>> 10 AFFICHER 'QUI EST\ TU ? '
>> 20 CHAINE NOM;LIRE NOM
......@@ -215,10 +215,10 @@ CTRL-S, LSE COMPLETANT : B O CTRL-S --> BONJOUR.
|> QUI ES TU ? PASCAL
|| ENCHANTE PASCAL !
|> PASCAL, DONNE MOI UN NOMBRE, S'IL TE PLAIT : 12
|| 12 * 12 = 144
|| 12 * 12 = 144
>| AU REVOIR, PASCAL
|| TERMINE
||
||
>| AU REVOIR 04:09:21
......@@ -264,7 +264,7 @@ ET NON RETURN !
ON PEUT AUSSI ACCEDER A UN SYSTEME L.S.E. VIA UNE PAGE WEB A :
http://nasium-lse.ogamita.com:8117
UTILISANT shellinaboxd COMME EMULATEUR DE TERMINAL.
UTILISANT shellinaboxd COMME EMULATEUR DE TERMINAL.
*** PAS ENCORE IMPLEMENTE ***
......@@ -311,7 +311,7 @@ DRTS PRO/GRP CHEMIN DESCRIPTION
0700 lse.lse $(BASE)/perma FICHIERS PERMANENTS DE L.S.E.
0700 lse.lse $(BASE)/tempo FICHIERS TEMPORAIRES DE L.S.E.
0700 lse.lse $(BASE)/tempo/00 UN SOUS REPERTOIRE PAR CONSOLE
0700 lse.lse $(BASE)/tempo/01 (LES FICHIERS TEMPORAIRES SONT LIES
0700 lse.lse $(BASE)/tempo/01 (LES FICHIERS TEMPORAIRES SONT LIES
0700 lse.lse $(BASE)/tempo/02 A LA CONSOLE PAR LAQUELLE ON ACCEDE
0700 lse.lse $(BASE)/tempo/03 A L'ENVIRONNEMENT L.S.E.)
0700 lse.lse $(BASE)/tempo/04 CES FICHIERS SONT PRIVES POUR CHAQUE
......@@ -389,7 +389,7 @@ POIDS FAIBLE SONT UTILISES SELON LA TABLE SUIVANTE :
[8 = D: ALLOCATION D'UN ESPACE TEMPORAIRE FIXE SUPERIEUR ]
COMBINAISON DE DROITS : 0 A B AB C AC BC ABC D BD ABD
CODES A UTILISER
CODES A UTILISER
EN QUATRIEME COLONE : 0 1 2 3 4 5 6 7 8 : ;
OU : @ A B C D E F G H J K
......@@ -440,8 +440,8 @@ L'EMULATEUR DE TERMINAL UTILISE AFFICHER UN CURSEUR.
COMMANDES SUPPLEMENTAIRES
-------------------------
DR(OITS) MOT-DE-PASSE
DR(OITS) MOT-DE-PASSE
(HORS-SESSION)
PERMET DE DEFINIR LES DROITS D'ACCES DES COMPTES.
......@@ -450,7 +450,7 @@ DR(OITS) MOT-DE-PASSE
AI(DE)
DONNE LA LISTE DES COMMANDES DISPONIBLES.
......@@ -535,8 +535,8 @@ http://wwwsi.supelec.fr/yn/sagaLSx.html
"LSE83"
Jacques Arsac
Bulletin de l'EPI n° 38
http://archive-edutice.ccsd.cnrs.fr/docs/00/03/06/74/PDF/b38p116.pdf
Bulletin de l'EPI n° 38
http://archive-edutice.ccsd.cnrs.fr/docs/00/03/06/74/PDF/b38p116.pdf
http://fr.wikipedia.org/wiki/LSE_(langage_de_programmation)
......
......@@ -26,7 +26,7 @@ OPERATEUR 'XIT(EA)'
-------------------
OPERATEUR FACILITANT LA PROGRAMMATION STRUCTUREE;EXECUTE A L'INTERIEUR
D'UNE BOUCLE FAIRE (OU DE PLUSIEUR BOUCLES FAIRE IMBRIQUEES),IL PERMET
DE SORTIR DE LA BOUCLE (OU DE N NIVEAU DE BOUCLES,N ETANT LA VALEUR
DE SORTIR DE LA BOUCLE (OU DE N NIVEAU DE BOUCLES,N ETANT LA VALEUR
ABSOLUE DE L'EXPRESSION ARITHMETIQUE E.A.);SI N=0 CET OPERATEUR NE FAIT
RIEN;SI N EST SUPERIEUR AU NOMBRE DE BOUCLES IMBRIQUEES,ON SORT DE TOUTE
LES BOUCLES.
......@@ -46,9 +46,9 @@ FONCTIONS LOGIQUES
POUR PERMETRE D'EFFECTUER LES OPERATIONS LOGIQUES ET , OU INCLUSIF ,
OU EXCLUSIF ,IL A ETE AJOUTE TROIS FONCTIONS :
- ETL(A,B)
- OUL(A,B)
- OUL(A,B)
- OXL(A,B)
QUI SONT CONSIDEREE COMME DES FONCTIONS ARITHMETIQUES A PARAMETRES
QUI SONT CONSIDEREE COMME DES FONCTIONS ARITHMETIQUES A PARAMETRES
ARITHMETIQUE,ET DONT LE RESULTAT EST RESPECTIVEMENT LE ET, LE OU INCLU-
SIF ET LE OU EXCLUSIF DE LEUR DEUX PARAMETRES SI CEUX CI SONT DES NOM-
BRES ENTIERS POSITIFS INFERIEURS A 2^23.
......@@ -102,5 +102,5 @@ UN LA PREMIERE FOIS QU'ON L'APPELLE ,APRES QUE LE CARACTERE (CTRL-A)
AIT ETE FRAPPE AU CLAVIER,PUIS ELLE REDONNE LA VALEUR ZERO (JUSQUA CE
QU'ON FRAPPE A NOUVEAU LE CARACTERE (CTRL-A).CETTE FONCTION PERMET DONC
A UN UTILISATEUR DE PASSER UN SIGNAL A UN PROGRAMME EN COURS D'EXECUTION
ELLE N'EST PAS UTILISABLE SUR LA MAE OPRATEUR QUI NE TRAVAILLE PAS EN
ELLE N'EST PAS UTILISABLE SUR LA MAE OPRATEUR QUI NE TRAVAILLE PAS EN
FULL-DUPLEX
......@@ -3,7 +3,7 @@
Systèmes L.S.E.
###############
On dérive deux grands modes de fonctionnement du système L.S.E.
On dérive deux grands modes de fonctionnement du système L.S.E.
D'une part, une commande unix permettant de développer et utiliser
interactivement des programmes L.S.E, et permettant de les executer
......@@ -77,7 +77,7 @@ Interactif
PRET
Le système passe directement en mode actif ("BONJOUR" est affiché par
le système). L'utilisateur peut alors utiliser le système normalement,
le système). L'utilisateur peut alors utiliser le système normalement,
en tapant RET à la fin de chaque ligne ou commande.
......@@ -145,7 +145,7 @@ Dans les scripts, les fonctions suivantes sont disponible:
- `NARG()` retourne le nombre d'arguments;
- `ARG(I)` retourne l'argument à l'index indiqué, ou le
chemin du script pour `ARG(0)`.
chemin du script pour `ARG(0)`.
- `ENV(N)` retourne la variable d'environnement `N`.
......@@ -197,16 +197,16 @@ TABLE DES FICHIERS
Cette commande affiche le listing du répertoire courant (voir ci-dessous).
Les fichiers listés dans la section FICHIERS-PROGRAMME sont ceux dont
l'extension est '.lse'.
l'extension est '.lse'.
Les fichiers listés dans la section FICHIER-DONNEE PERMANENTS sont
ceux dont l'extension est '.don'.
ceux dont l'extension est '.don'.
Les fichiers listés dans la section FICHIER-DONNEE TEMPORAIRES sont
ceux dont l'extension est '.don' et dont le propriétaire est
l'utilisateur courant.
Les noms de fichiers sont les noms unix.
Les noms de fichiers sont les noms unix.
UTILISATION DISQUE
......@@ -216,7 +216,7 @@ UTILISATION DISQUE
disque disponible dans '/tmp/lse$UID/'.
CHANGER REPEROIRE '/un/chemin/unix'
CHANGER REPEROIRE '/un/chemin/unix'
Cette commande change le répertoire de travail courant. Les
commandes et instructions de fichiers auxquelles on fourni des
......@@ -262,7 +262,7 @@ DECODER ec[,ea1[,ea2]]
APPELER ec
Remplace le programme courant par le programme chargé du fichier
ec.
ec.
RUBAN ec
......@@ -418,7 +418,7 @@ Exemple : ::
LE RUBAN EXAMPLE (Example de script) EST MIS EN PLACE.
RUBAN
RUBAN
1*AUTEUR: PASCAL BOURGUIGNON
2*PROGRAMME EXAMPLE
10 AFFICHER[/,'PROGRAMME EXEMPLE',/]
......@@ -426,7 +426,7 @@ Exemple : ::
20 TERMINER
PROGRAMME EXEMPLE
20/02/12 04:20:31
20/02/12 04:20:31
TERMINE
......@@ -473,7 +473,7 @@ numéro dans le fichier.
Le fichier commence par un entête (quelques lignes de texte dans le
premier bloc.
premier bloc.
Les 4 octets du premier bloc de position 1016 à 1019 contiennent la
position de la liste des bloc libres, ou 0 s'il n'y en a pas.
......@@ -499,7 +499,7 @@ en premier.
Les enregistrements ont le format suivant:
| numero : type | donnée … |
Le numéro d'enregistrement est stocké dans les trois premiers octets,
......@@ -538,7 +538,7 @@ Enregistrement Tableau à deux dimensions
Les nombres sont des nombre flottant IEEE 754 avec l'octet le
plus signifiant en premier. Les nombres sont enregistrés dans
l'ordre: T[1,1] T[1,2] T[1,3] T[2,1] T[2,2] T[2,3] T[3,1] T[3,2]
T[3,3] T[4,1] T[4,2] T[4,3]
T[3,3] T[4,1] T[4,2] T[4,3]
Enregistrement Chaîne
......@@ -596,7 +596,7 @@ local.
Pour se connecter au serveur de système L.S.E, il faut utiliser un
tunnel ssh, afin de sécuriser la communication du mot de passe de la
machine virtuelle.
machine virtuelle.
::
......@@ -604,7 +604,7 @@ machine virtuelle.
user@unix$ xterm -e ssh -L 15001:localhost:15001 lse@ogamita.org &
user@unix$ telnet localhost 15001
SYSTEMES L.S.E.
SELECTION DU SYSTEME.
NOM: lycee charlemagne
......@@ -634,9 +634,9 @@ machine virtuelle.
ORDINATEUR: LYCEE CHARLEMAGNE
PRET
deCONNECTER
user@unix$
user@unix$
.. comment: THE END
.. comment: THE END
......@@ -59,7 +59,7 @@ NASIUM-LSE: An Implementation of the L.S.E. programming language written in Comm
3- Get the sources of nasium: ::
cd ~/src/
git clone https://git.gitorious.org/nasium-lse/nasium-lse.git
git clone https://framagit.org/nasium-lse/nasium-lse.git
cd nasium-lse
NASIUM_LSE="$(pwd)"
......@@ -88,7 +88,7 @@ NASIUM-LSE: An Implementation of the L.S.E. programming language written in Comm
~/quicklisp/local-projects/. ::
cd ~/quicklisp/local-projects/
git clone https://git.gitorious.org/com-informatimago/com-informatimago.git
git clone https://framagit.org/com-informatimago/com-informatimago.git
There's a bug in the current quicklisp, so we need to remove
system-index.txt and rebuild it from $HOME. ::
......
......@@ -101,7 +101,7 @@ ET NON RETURN !
ON PEUT AUSSI ACCEDER A UN SYSTEME L.S.E. VIA UNE PAGE WEB A :
http://nasium-lse.ogamita.com:8117
UTILISANT shellinaboxd COMME EMULATEUR DE TERMINAL.
UTILISANT shellinaboxd COMME EMULATEUR DE TERMINAL.
*** PAS ENCORE IMPLEMENTE ***
......@@ -148,7 +148,7 @@ DRTS PRO/GRP CHEMIN DESCRIPTION
0700 lse.lse $(BASE)/perma FICHIERS PERMANENTS DE L.S.E.
0700 lse.lse $(BASE)/tempo FICHIERS TEMPORAIRES DE L.S.E.
0700 lse.lse $(BASE)/tempo/00 UN SOUS REPERTOIRE PAR CONSOLE
0700 lse.lse $(BASE)/tempo/01 (LES FICHIERS TEMPORAIRES SONT LIES
0700 lse.lse $(BASE)/tempo/01 (LES FICHIERS TEMPORAIRES SONT LIES
0700 lse.lse $(BASE)/tempo/02 A LA CONSOLE PAR LAQUELLE ON ACCEDE
0700 lse.lse $(BASE)/tempo/03 A L'ENVIRONNEMENT L.S.E.)
0700 lse.lse $(BASE)/tempo/04 CES FICHIERS SONT PRIVES POUR CHAQUE
......@@ -226,7 +226,7 @@ POIDS FAIBLE SONT UTILISES SELON LA TABLE SUIVANTE :
[8 = D: ALLOCATION D'UN ESPACE TEMPORAIRE FIXE SUPERIEUR ]
COMBINAISON DE DROITS : 0 A B AB C AC BC ABC D BD ABD
CODES A UTILISER
CODES A UTILISER
EN QUATRIEME COLONE : 0 1 2 3 4 5 6 7 8 : ;
OU : @ A B C D E F G H J K
......@@ -277,8 +277,8 @@ L'EMULATEUR DE TERMINAL UTILISE AFFICHER UN CURSEUR.
COMMANDES SUPPLEMENTAIRES
-------------------------
DR(OITS) MOT-DE-PASSE
DR(OITS) MOT-DE-PASSE
(HORS-SESSION)
PERMET DE DEFINIR LES DROITS D'ACCES DES COMPTES.
......
......@@ -18,9 +18,9 @@ get-dependencies script: ::
Then you may need to compile and install libfixposix: ::
cd "${NASIUM_LSE}"/dependencies/libfixposix/
autoreconf -i -f
mkdir build
cd build
autoreconf -i -f
mkdir build
cd build
../configure --prefix=/usr/local
make
make install
......@@ -128,7 +128,7 @@ Bugs
The current known bugs are listed in "${NASIUM_LSE}/ISSUES.txt".
Please, be sure to report any bug you find to
Please, be sure to report any bug you find to
mailto:pjb@informatimago.com or mailto:pjb@ogamita.com
Currently, the server is not functional.
......@@ -163,7 +163,7 @@ Anyways, debugging is better done in the development environment
emacs+slime. Notice that one can launch a ccl from a terminal, load
and start a swank server, and continue debugging from emacs+slime: ::
$ ccl
$ ccl
$ (ql:quickload :swank)
$ (swank:create-server :port 4011)
......@@ -171,7 +171,7 @@ and start a swank server, and continue debugging from emacs+slime: ::
and see above how to load "loader.lisp".
Files
========================================
......@@ -198,7 +198,7 @@ Zebu and grammar:
Not used anymore, I converted to rdp grammar:
patch-zebu.lisp Patch to com.hp.zebu.
parser-lse.zb LSE parser.
parser-lse.zb LSE parser.
grammar.lisp Compile the LSE grammar.
lse-domain.lisp Generated by Zebu.
......@@ -220,7 +220,7 @@ LSE system:
packages.lisp Definition of packages.
configuration.lisp EMULSE configuration.
configuration.lisp EMULSE configuration.
task.lisp The environment for a LSE user.
......
0.9997979000000021
\ No newline at end of file
0.9997619000000011
\ No newline at end of file
......@@ -5,9 +5,9 @@
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; Defines the byte codes of the L.S.E Virtual Machine.
;;;;
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
......@@ -15,19 +15,19 @@
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2014
;;;;
;;;;
;;;; 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/
;;;;**************************************************************************
......@@ -46,18 +46,18 @@
(cl:eval-when (:compile-toplevel :load-toplevel :execute)
(cl:defparameter *branches* '(
BALWAYS ; BALWAYS offset
BTRUE ; test BTRUE offset
BFALSE ; test BFALSE offset
BNEVER ; BNEVER offset
))
(cl:defparameter *0* '(
DUP ; arg DUP
NON ; arg NON
NON ; arg NON
OU ; arg1 arg2 OU
ET ; arg1 arg2 ET
......
......@@ -5,9 +5,9 @@
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; Documentation.
;;;;
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
......@@ -15,19 +15,19 @@
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2014
;;;;
;;;;
;;;; 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/
;;;;**************************************************************************
......@@ -119,7 +119,7 @@ Veuillez envoyer vos commentaires, rapports de bogues, suggestions à :
Pascal Bourguignon
mailto:pjb@ogamita.com
"
#+lse-unix "LSE" #-lse-unix "EMULSE"
#+lse-unix "LSE" #-lse-unix "EMULSE"
#+lse-unix "Avec cependant quelques modifications afin
de l'adapter à l'environnement unix." #-lse-unix ""))
......@@ -163,7 +163,7 @@ d'édition de la ligne de saisie). On peut cependant commander la
suppression du ou des caractères précédement saissis en tapant un ou
plusieurs caractères contre-cotice :
Taper : BON\\\\\\SALE\\UT!
Taper : BON\\\\\\SALE\\UT!
Équivaut à taper : SALUT!
......@@ -206,34 +206,34 @@ et la touche d'entrée (CONTRÔLE-S ou ENTRÉE selon la configuration),
lse complétant: B O [XOFF] --> BONJOUR.
| || = LIGNE AFFICHEE PAR LE SYSTEME.
|
|
| >| = LES DEUX PREMIERS CARACTÈRES SONT TAPES PAR L'UTILISATEUR, SUIVIT
| DE [XOFF] (ET ÉVENTUELLEMENT LE PARAMÈTRE DE LA COMMANDE).
|
|
| >> = TOUTE LA LIGNE EST TAPÉE PAR L'UTILISATEUR, TERMINÉE PAR [ENTRÉE]
|
|
| |> = AFFICHAGE D'UN MESSAGE PAR LE SYSTÈME, SUIVIT D'UNE SAISIE PAR
| L'UTILISATEUR TEMINÉE PAR [XOFF].
|
|
|
|
| || NASIUM L.S.E.
| || LANGAGE SYMBOLIQUE D'ENSEIGNEMENT
| || VERSION 1.0.0-0.272-CL-UNIX
| || COPYRIGHT 1984 - 2014 PASCAL BOURGUIGNON
| ||
| ||
| || DISTRIBUE SELON LES TERMES DE LA LICENCE AGPLv3.
| ||
| ||
| || 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;
| || utilisez la commande DO LICENSE pour plus de détails.
| ||
| ||
| || Tapez AI pour avoir de l'aide.
| ||
| ||
| || BONJOUR 21:15:40
| ||
| ||
| || PRET
| ||
| ||
| >> 1*TEST
| >> 10 AFFICHER 'QUI EST\\ TU ? '
| >> 20 CHAINE NOM;LIRE NOM
......@@ -259,18 +259,18 @@ lse complétant: B O [XOFF] --> BONJOUR.
| |> QUI ES TU ? PASCAL
| || ENCHANTE PASCAL !
| |> PASCAL, DONNE MOI UN NOMBRE, S'IL TE PLAIT : 12
| || 12 * 12 = 144
| || 12 * 12 = 144
| >| AU REVOIR, PASCAL
| || TERMINE
| ||
| ||
| >| AU REVOIR 04:09:21
"
#+lse-unix "Au lancement de la commande lse, on entre
directement dans l'état actif, et la commande AU)REVOIR fait quiter le
programme lse et revenir à la coquille (au \"shell\")."
#-(and) "Voir le document 'SYSTEMES.TXT'."
#-lse-unix "La console est d'abord en état dormant.
Pour passer à l'état actif, il faut utiliser la commande BO)NJOUR.
Pour revenir à l'état dormant (ce qui efface la mémoire de travail),
......@@ -278,9 +278,9 @@ utiliser la commande AU)REVOIR.
La commande spécifique à emulse AD)IEUX permet d'arrêter le système
L.S.E."
"lse"
#+lse-unix "
Cependant, on peut sélectionner le mode moderne, dans lequel les
touches utilisées sont celles configurées par stty(1), normalement:
......@@ -388,7 +388,7 @@ DRTS PRO/GRP CHEMIN DESCRIPTION
0700 lse.lse $(BASE)/perma FICHIERS PERMANENTS DE L.S.E.
0700 lse.lse $(BASE)/tempo FICHIERS TEMPORAIRES DE L.S.E.
0700 lse.lse $(BASE)/tempo/00 UN SOUS REPERTOIRE PAR CONSOLE
0700 lse.lse $(BASE)/tempo/01 (LES FICHIERS TEMPORAIRES SONT LIES
0700 lse.lse $(BASE)/tempo/01 (LES FICHIERS TEMPORAIRES SONT LIES
0700 lse.lse $(BASE)/tempo/02 A LA CONSOLE PAR LAQUELLE ON ACCEDE
0700 lse.lse $(BASE)/tempo/03 A L'ENVIRONNEMENT L.S.E.)
0700 lse.lse $(BASE)/tempo/04 CES FICHIERS SONT PRIVES POUR CHAQUE
......@@ -466,7 +466,7 @@ POIDS FAIBLE SONT UTILISES SELON LA TABLE SUIVANTE :
[8 = D: ALLOCATION D'UN ESPACE TEMPORAIRE FIXE SUPERIEUR ]
COMBINAISON DE DROITS : 0 A B AB C AC BC ABC D BD ABD
CODES A UTILISER
CODES A UTILISER
EN QUATRIEME COLONE : 0 1 2 3 4 5 6 7 8 : ;
OU : @ A B C D E F G H J K
......@@ -509,8 +509,8 @@ MITRA-15). CEPENDANT, CERTAINES DIFFERENCES SONT INEVITABLES :
COMMANDES SUPPLEMENTAIRES
-------------------------
DR(OITS) MOT-DE-PASSE
DR(OITS) MOT-DE-PASSE
(HORS-SESSION)
PERMET DE DEFINIR LES DROITS D'ACCES DES COMPTES.
......@@ -519,7 +519,7 @@ DR(OITS) MOT-DE-PASSE
AI(DE)
DONNE LA LISTE DES COMMANDES DISPONIBLES.
......@@ -631,9 +631,9 @@ http://www.epi.asso.fr/revue/54/b54p216.htm
| \"LSE83\"
| Jacques Arsac
| Bulletin de l'EPI n° 38
| Bulletin de l'EPI n° 38
http://archive-edutice.ccsd.cnrs.fr/docs/00/03/06/74/PDF/b38p116.pdf
http://archive-edutice.ccsd.cnrs.fr/docs/00/03/06/74/PDF/b38p116.pdf
Article Wikipedia sur le L.S.E. :
......@@ -748,7 +748,7 @@ Description de la syntaxe des arguments:
- <NOMFI>[,<N1>[,<N2>]] : un nom de fichier, suivit de deux numéros de
lignes optionnels.
- <TEXTE> : une ligne de texte.
- <TEXTE> : une ligne de texte.
- * | <NOMFI>,P|D|T : soit une étoile signifiant tous les fichiers
temporaires, soit un nom de fichier, suivit d'une virgule et d'une
......@@ -863,9 +863,9 @@ variable: une lettre suivie d'au plus quatre lettres ou chiffres, ou
une référence de tableau: un identificateur de tableau, suivi d'un
crochet ouvrant, d'une ou deux expressions index séparées par une
virgule, et un crochet fermant. L'identificateur ne peut pas être un
mot réservé du langage L.S.E.
mot réservé du langage L.S.E.
Exemples: I PRNOM C12 V[2] V[I+1] M[1,3] M[I,J]
Exemples: I PRNOM C12 V[2] V[I+1] M[1,3] M[I,J]
L'expression est une expression arithmétique ou une expression chaîne.
......@@ -1332,13 +1332,13 @@ Les règles de grammaire ont la forme :
La partie droite peut être (a et b sont des parties droites) :
- une séquence : a b
- une séquence : a b
- une alternative (éventuellement entre parenthèse pour éviter les ambiguités) : a | b
- une alternative (éventuellement entre parenthèse pour éviter les ambiguités) : a | b
- une optionelle (0 ou 1) : [ a ]
- une optionelle (0 ou 1) : [ a ]
- une répetitive (0 ou plus) : { a }
- une répetitive (0 ou plus) : { a }
- un symbole non-terminal ;
......@@ -1356,7 +1356,7 @@ nil représente le vide.
(defchapter "INSTRUCTIONS"
(write-documentation *task*
"Voici la liste des instructions disponibles.
"Voici la liste des instructions disponibles.
Taper DO)CUMENTATION <instruction> pour avoir la documentation de
chaque instruction:
......@@ -1375,7 +1375,7 @@ chaque instruction:
(defchapter "FONCTIONS"
(write-documentation *task*
"Voici la liste des fonctions disponibles.
"Voici la liste des fonctions disponibles.
Taper DO)CUMENTATION <fonction> pour avoir la documentation de
chaque fonction.
......
......@@ -5,9 +5,9 @@
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; This file processes command line arguments for the lse cli.
;;;;
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
......@@ -15,19 +15,19 @@
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2014
;;;;
;;;;
;;;; 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/
;;;;**************************************************************************
......@@ -131,7 +131,9 @@ RETURN: A new OPTIONS structure instance.
(setf (terminal-modern-mode terminal) (or (member (getenv "TERM") '("emacs" "dumb")
:test (function string-equal))
(options-modern-mode options))
(terminal-cr-as-xoff terminal) (options-return-is-xoff options)))
;; option-modern-mode implies terminal-cr-as-xoff
(terminal-cr-as-xoff terminal) (or (options-return-is-xoff options)
(options-modern-mode options))))
task))
......@@ -381,7 +383,7 @@ Variable d'environnement: LSE_UPCASE_OUTPUT=T
(defoption ("--affichage-mixte" "--mixed-output") ()
"
Affiche en majuscules et minisucules.
Affiche en majuscules et minisucules.
Variable d'environnement: LSE_UPCASE_OUTPUT=NIL
C'est l'option par défaut.
......@@ -401,7 +403,7 @@ Variable d'environnement: LSE_ACCENTED_OUTPUT=NIL
(defoption ("--afficher-avec-accent" "--accented-output") ()
"
Assume que le terminal est capable d'afficher les accents.
Assume que le terminal est capable d'afficher les accents.
Variable d'environnement: LSE_ACCENTED_OUTPUT=T
C'est l'option par défaut.
......@@ -433,7 +435,7 @@ Variable d'environnement: LSE_NO_BELL=NIL
Dans le mode moderne, les caractères et codes de contrôle configurés
par stty(1) sont utilisé (en général, [RETOUR] pour entrer une donnée,
[EFFACEMENT] pour effacer un caractère, [CONTRÔLE-C] pour interrompre,
etc).
etc).
Variable d'environnement: LSE_MODERN_MODE=T
C'est l'option par défaut.
......
......@@ -5,9 +5,9 @@
;;;;SYSTEM: Common-Lisp
;;;;USER-INTERFACE: NONE
;;;;DESCRIPTION
;;;;
;;;;
;;;; This defines the cli package.
;;;;
;;;;
;;;;AUTHORS
;;;; <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
;;;;MODIFICATIONS
......@@ -15,19 +15,19 @@
;;;;BUGS
;;;;LEGAL
;;;; AGPL3
;;;;
;;;;
;;;; Copyright Pascal J. Bourguignon 2012 - 2014
;;;;
;;;;
;;;; 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/
;;;;**************************************************************************
......
......@@ -329,7 +329,7 @@ RETURN: EX-OK
(progn
(push #P"/usr/local/lib/" cffi:*foreign-library-directories*)
(setf *program-name* (or (program-name) *default-program-name*))
(setf *options* (make-default-options))
(print (setf *options* (make-default-options)))
(set-lse-root)
(let ((encoding (locale-terminal-encoding)))
(set-terminal-encoding encoding)
......