Nasium Lse issueshttps://framagit.org/nasium-lse/nasium-lse/-/issues2018-04-03T03:36:57Zhttps://framagit.org/nasium-lse/nasium-lse/-/issues/600002 add a timeout and disconnect if no input occurs2018-04-03T03:36:57ZPascal J. Bourguignon00002 add a timeout and disconnect if no input occurs*Created by: Pascal J. Bourguignon*
Well for the cli too when we use it thru inetd…
Add a timeout and disconnect if no input occurs after that delay.
There seem to be scanners who connect to ports without sending
anything, and ke...*Created by: Pascal J. Bourguignon*
Well for the cli too when we use it thru inetd…
Add a timeout and disconnect if no input occurs after that delay.
There seem to be scanners who connect to ports without sending
anything, and keeping the ports open indefinitely. For example:
```
11:21:15.325617 IP 193.49.123.6.51872 > voyager.informatimago.com.8115: Flags [S], seq 1980334663, win 65535, options [mss 1460,nop,wscale 4,nop,nop,TS val 1368891875 ecr 0,sackOK,eol], length 0
E..@
'@./.nN.1{.X.>E....v .G.......................
Q...........
11:21:15.326556 IP voyager.informatimago.com.8115 > 193.49.123.6.51872: Flags [S.], seq 414189389, ack 1980334664, win 5792, options [mss 1460,sackOK,TS val 1403523590 ecr 1368891875,nop,wscale 7], length 0
E..<..@.@.gyX.>E.1{........Mv .H.....A.........
S...Q.......
11:21:15.416583 IP 193.49.123.6.51872 > voyager.informatimago.com.8115: Flags [.], ack 1, win 8235, options [nop,nop,TS val 1368891966 ecr 1403523590], length 0
E..4.2@./.~N.1{.X.>E....v .H...N.. +''.....
Q..>S...
11:21:18.160791 IP voyager.informatimago.com.8115 > 193.49.123.6.51872: Flags [P.], seq 1:257, ack 1, win 46, options [nop,nop,TS val 1403524299 ecr 1368891966], length 256
E..4.S@.@.Q.X.>E.1{........Nv .H...........
S...Q..>
[ENTREE] POUR ENTRER LES DONNEES.
[EFFACEMENT] POUR EFFACER LE CARACTERE PRECEDENT.
[CONTROLE-C] POUR INTERROMPRE.
(PAS DISPONIBLE) POUR ENVOYER LE SIGNAL D'ATTENTION (FONCTION ATT()).
[ENTREE] POUR ENTRER LES DONNEES, MAIS AJ
11:21:18.206093 IP 193.49.123.6.51872 > voyager.informatimago.com.8115: Flags [.], ack 257, win 8219, options [nop,nop,TS val 1368894740 ecr 1403524299], length 0
E..4+|@./.M..1{.X.>E....v .H...N.. ........
Q...S...
11:21:18.207059 IP voyager.informatimago.com.8115 > 193.49.123.6.51872: Flags [P.], seq 257:1640, ack 1, win 46, options [nop,nop,TS val 1403524310 ecr 1368894740], length 1383
E....T@.@.L.X.>E.1{........Nv .H....>......
S...Q...OUTE LE CODE RETOUR AUX CHAINES.
------------------------------------------------------------------------
\ OOO OOOOOOOOOO OOOOOOOOOO \
\ OOO OOOOOOOOOOOO OOOOOOOOOO OOOOOOOOOOO \
\ OOO OOOO OOO OOO \
\ OOO OOOO OOOOOO O OO \
> OOO OOOO OOOOOO OOO O O >
/......................................................................./
/ OOO OOO OOOO OOO OOOO OO OO /
/ OOOOOOOOOO OOO OOOOOOOOOOOO OOO OOOOOOOOOO OOO OOOO OO OO /
/ OOOOOOOOOO OOO OOOOOOOOOO OOO OOOOOOOOOO OOO O OOOO OO /
------------------------------------------------------------------------
NASIUM L.S.E.
LANGAGE SYMBOLIQUE D'ENSEIGNEMENT
VERSION 1.0.0-0.122-CCL-LINUX
COPYRIGHT 1984 - 2012 PASCAL BOURGUIGNON
DISTRIBUE SELON LES TERMES DE LA LICENCE AGPLV3.
CE PROGRAMME EST LIVRE AVEC ABSOLUMENT AUCUNE GARANTIE; POUR PLUS DE
DETAILS UTILISEZ LA COMMANDE DO GARANTIE. CE LOGICIEL EST LIBRE, ET
VOUS AVEZ LE DROIT DE LE REDISTRIBUER SOUS CERTAINES CONDITIONS;
UTILISEZ LA COMMANDE DO LICENSE POUR PLUS DE DETAILS.
TAPEZ AI POUR AVOIR DE L'AIDE.
BONJOUR 11:21:18
PRET
11:21:18.253022 IP 193.49.123.6.51872 > voyager.informatimago.com.8115: Flags [.], ack 1640, win 8133, options [nop,nop,TS val 1368894787 ecr 1403524310], length 0
......Q.....
Q..CS...
voyager:/home/lse# netstat -tnp|grep 8115
tcp 0 0 88.198.62.69:8115 62.23.193.34:31565 ESTABLISHED 24512/lse
tcp 0 0 88.198.62.69:8115 92.140.3.120:50785 ESTABLISHED 17970/lse
tcp 0 0 88.198.62.69:8115 90.24.180.197:57483 ESTABLISHED 28317/lse
tcp 0 0 88.198.62.69:8115 193.49.123.6:51872 ESTABLISHED 11342/lse
tcp 0 0 88.198.62.69:8115 90.46.107.24:60060 ESTABLISHED 14863/lse
tcp 0 0 88.198.62.69:8115 82.123.216.50:54617 ESTABLISHED 8319/lse
tcp 0 0 88.198.62.69:8115 90.46.43.101:65094 ESTABLISHED 3108/lse
tcp 0 0 88.198.62.69:8115 92.163.83.173:57699 ESTABLISHED 31147/lse
tcp 0 0 88.198.62.69:8115 90.24.196.163:49181 ESTABLISHED 8555/lse
tcp 0 0 88.198.62.69:8115 92.140.0.205:53295 ESTABLISHED 18925/lse
tcp 0 0 88.198.62.69:8115 82.123.168.209:51062 ESTABLISHED 21410/lse
tcp 0 0 88.198.62.69:8115 109.190.38.230:49716 ESTABLISHED 12126/lse
tcp 0 0 88.198.62.69:8115 92.163.81.111:62166 ESTABLISHED 25565/lse
```https://framagit.org/nasium-lse/nasium-lse/-/issues/700004 restore the terminal on restarts2018-04-03T03:36:57ZPascal J. Bourguignon00004 restore the terminal on restarts*Created by: Pascal J. Bourguignon*
The *debugger-hook* resets the terminal for the debugger.
When we use a restart to continue into LSE, we should reconfigure the LSE terminal.
*Created by: Pascal J. Bourguignon*
The *debugger-hook* resets the terminal for the debugger.
When we use a restart to continue into LSE, we should reconfigure the LSE terminal.
https://framagit.org/nasium-lse/nasium-lse/-/issues/800035 ERREUR après TERMINER2018-04-03T03:36:57ZPascal J. Bourguignon00035 ERREUR après TERMINER*Created by: Pascal J. Bourguignon*
Les erreurs survenant après terminer ne devraient pas donner le numéro de ligne:
```
TERMINE EN LIGNE 019
ERREUR EN LIGNE 19 : The value NIL is not of the expected type CHARACTER.
```*Created by: Pascal J. Bourguignon*
Les erreurs survenant après terminer ne devraient pas donner le numéro de ligne:
```
TERMINE EN LIGNE 019
ERREUR EN LIGNE 19 : The value NIL is not of the expected type CHARACTER.
```https://framagit.org/nasium-lse/nasium-lse/-/issues/900011 A single beep per LIRE statement, instead of per variable.2018-04-03T03:36:57ZPascal J. Bourguignon00011 A single beep per LIRE statement, instead of per variable.*Created by: Pascal J. Bourguignon*
*Created by: Pascal J. Bourguignon*
https://framagit.org/nasium-lse/nasium-lse/-/issues/1000009 Message PRET EN LIGNE 004 when interrupting a program.2018-04-03T03:36:57ZPascal J. Bourguignon00009 Message PRET EN LIGNE 004 when interrupting a program.*Created by: Pascal J. Bourguignon*
The message when interrupting a program (at least on T1600)
should indicate the line number:
```
PRET EN LIGNE 004
```
instead of just:
```
PRET
```
*Created by: Pascal J. Bourguignon*
The message when interrupting a program (at least on T1600)
should indicate the line number:
```
PRET EN LIGNE 004
```
instead of just:
```
PRET
```
https://framagit.org/nasium-lse/nasium-lse/-/issues/1100006 The PRET message is eaten (displays only RET) when ESC2018-04-03T03:36:57ZPascal J. Bourguignon00006 The PRET message is eaten (displays only RET) when ESC*Created by: Pascal J. Bourguignon*
This is probably due to some echoing of ESC.
Occurs on xterm on MacOSX with emulse
Doesn't occur in MacOSX Terminal.app or Cathode.app with terminal.env
*Created by: Pascal J. Bourguignon*
This is probably due to some echoing of ESC.
Occurs on xterm on MacOSX with emulse
Doesn't occur in MacOSX Terminal.app or Cathode.app with terminal.env
https://framagit.org/nasium-lse/nasium-lse/-/issues/1200008 inetd server displays wrong bindings2018-04-03T03:36:57ZPascal J. Bourguignon00008 inetd server displays wrong bindings*Created by: Pascal J. Bourguignon*
cf. inetd/lse.sh
The binding displayed show CONTROLE-S, but this isn't taken into
account and we have to type RETURN instead.
Both should be accepted, and [ENTREE] (RETURN) should be displayed...*Created by: Pascal J. Bourguignon*
cf. inetd/lse.sh
The binding displayed show CONTROLE-S, but this isn't taken into
account and we have to type RETURN instead.
Both should be accepted, and [ENTREE] (RETURN) should be displayed as
binding, since we use the telnet line mode.
```
[pjb@kuiper :0.0 src]$ telnet nasium-lse.ogamita.com 8115
Trying 88.198.62.69...
Connected to voyager.informatimago.com.
Escape character is '^]'.
[CONTROLE-S] POUR ENTRER LES DONNEES.
[EFFACEMENT] POUR EFFACER LE CARACTERE PRECEDENT.
[ECHAPEMENT] POUR INTERROMPRE.
[CONTROLE-A] POUR ENVOYER LE SIGNAL D'ATTENTION (FONCTION ATT()).
[ENTREE] POUR ENTRER LES DONNEES, MAIS AJOUTE LE CODE RETOUR AUX CHAINES.
------------------------------------------------------------------------
\ OOO OOOOOOOOOO OOOOOOOOOO \
\ OOO OOOOOOOOOOOO OOOOOOOOOO OOOOOOOOOOO \
\ OOO OOOO OOO OOO \
\ OOO OOOO OOOOOO O OO \
> OOO OOOO OOOOOO OOO O O >
/......................................................................./
/ OOO OOO OOOO OOO OOOO OO OO /
/ OOOOOOOOOO OOO OOOOOOOOOOOO OOO OOOOOOOOOO OOO OOOO OO OO /
/ OOOOOOOOOO OOO OOOOOOOOOO OOO OOOOOOOOOO OOO O OOOO OO /
------------------------------------------------------------------------
NASIUM L.S.E.
LANGAGE SYMBOLIQUE D'ENSEIGNEMENT
VERSION 1.0.0-0.999956-CCL-LINUX
COPYRIGHT 1984 - 2014 PASCAL BOURGUIGNON
DISTRIBUE SELON LES TERMES DE LA LICENCE AGPLV3.
CE PROGRAMME EST LIVRE AVEC ABSOLUMENT AUCUNE GARANTIE; POUR PLUS DE
DETAILS UTILISEZ LA COMMANDE DO GARANTIE. CE LOGICIEL EST LIBRE, ET
VOUS AVEZ LE DROIT DE LE REDISTRIBUER SOUS CERTAINES CONDITIONS;
TAPER [CONTROLE-S] POUR CONTINUER:
UTILISEZ LA COMMANDE DO LICENSE POUR PLUS DE DETAILS.
TAPEZ AI POUR AVOIR DE L'AIDE.
BONJOUR 09:48:50
PRET
```https://framagit.org/nasium-lse/nasium-lse/-/issues/1300024 lecture fin de ruban2018-04-03T03:36:57ZPascal J. Bourguignon00024 lecture fin de ruban*Created by: Pascal J. Bourguignon*
When reaching the end of the tape while reading commands (and perhaps
also inside a program):
```
ERROR: ERREUR INTERNE: VALEUR INATTENDUE DE (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREA...*Created by: Pascal J. Bourguignon*
When reaching the end of the tape while reading commands (and perhaps
also inside a program):
```
ERROR: ERREUR INTERNE: VALEUR INATTENDUE DE (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREAM): NIL of type NULL
--------------------------------------------------------------------------------
(BACKTRACE-AS-LIST :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :COUNT 1152921504606846975 :START-FRAME-NUMBER 0 :PRINT-LEVEL 2 :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL)
(LSE-ERROR "ERREUR INTERNE: VALEUR INATTENDUE DE ~S: ~S of type ~S" (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREAM) NIL NULL)
(FUNCALL #<STANDARD-METHOD IO-READ-STRING (T)> #<TASK #x302003159CED> :ECHO T :BEEP NIL)
(%%CHECK-KEYWORDS #(1 #(:BEEP :ECHO) #<CCL:METHOD-FUNCTION IO-READ-STRING #>) 77142639)
(FUNCALL #<STANDARD-METHOD IO-READ-LINE (T)> #<TASK #x302003159CED> :ECHO T :BEEP NIL)
(%%CHECK-KEYWORDS #(1 #(:BEEP :ECHO) #<CCL:METHOD-FUNCTION IO-READ-LINE #>) 77142664)
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x302003159CED>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
(EVAL-REGION "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A3DF>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A46F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(FUNCALL #<Anonymous Function #x30200182569F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(CALL-WITH-SYNTAX-HOOKS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(REPL-EVAL "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
"
:WINDOW-WIDTH
NIL)
(CALL-CHECK-REGS
SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
(SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
"COM.INFORMATIMAGO.LSE"
13)
(PROCESS-REQUESTS NIL)
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(FUNCALL SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020019AB05F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71EDF>)
(CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020019AB05F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71EDF>)
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(CALL-WITH-BINDINGS
((*STANDARD-OUTPUT* . #) (*STANDARD-INPUT* . #) (*TRACE-OUTPUT* . #) (*ERROR-OUTPUT* . #) (*DEBUG-IO* . #<TWO-WAY-STREAM input #, output # #x302001B68EBD>) ...)
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71E8F>)
(HANDLE-REQUESTS #<MULTITHREADED-CONNECTION #x302001A1CBED> NIL)
(REPL-LOOP #<MULTITHREADED-CONNECTION #x302001A1CBED>)
(FUNCALL (:INTERNAL SWANK::SPAWN-REPL-THREAD))
(CALL-WITH-BINDINGS
((*PRINT-PRETTY*) (*PRINT-LEVEL*) (*PRINT-LENGTH*) (*PRINT-CIRCLE* . T) (*PRINT-CASE* . :DOWNCASE) ...)
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x302001B7222F>)
(FUNCALL (:INTERNAL SWANK::SPAWN-REPL-THREAD))
(RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(14) [Active] #x302001B6015D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302001B5FEEF>))
(FUNCALL (:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS repl-thread(14) [Active] #x302001B6015D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302001B5FEEF>))
(FUNCALL (:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
--------------------------------------------------------------------------------
ERREUR: ERREUR INTERNE: VALEUR INATTENDUE DE (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREAM): NIL of type NULL
--------------------------------------------------------------------------------
(BACKTRACE-AS-LIST :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :COUNT 1152921504606846975 :START-FRAME-NUMBER 0 :PRINT-LEVEL 2 :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL)
(LSE-ERROR "ERREUR INTERNE: VALEUR INATTENDUE DE ~S: ~S of type ~S" (IO-READ-STRING CCL::BASIC-FILE-CHARACTER-INPUT-STREAM) NIL NULL)
(FUNCALL #<STANDARD-METHOD IO-READ-STRING (T)> #<TASK #x302003159CED> :ECHO T :BEEP NIL)
(%%CHECK-KEYWORDS #(1 #(:BEEP :ECHO) #<CCL:METHOD-FUNCTION IO-READ-STRING #>) 77142639)
(FUNCALL #<STANDARD-METHOD IO-READ-LINE (T)> #<TASK #x302003159CED> :ECHO T :BEEP NIL)
(%%CHECK-KEYWORDS #(1 #(:BEEP :ECHO) #<CCL:METHOD-FUNCTION IO-READ-LINE #>) 77142664)
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x302003159CED>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
(EVAL-REGION "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A3DF>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A46F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(FUNCALL #<Anonymous Function #x30200182569F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(CALL-WITH-SYNTAX-HOOKS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200315A4AF>)
(REPL-EVAL "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
"
:WINDOW-WIDTH
NIL)
(CALL-CHECK-REGS
SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
(SWANK:LISTENER-EVAL
"(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
")
"COM.INFORMATIMAGO.LSE"
13)
(PROCESS-REQUESTS NIL)
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(FUNCALL SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020019AB05F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71EDF>)
(CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x3020019AB05F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71EDF>)
(FUNCALL (:INTERNAL SWANK::HANDLE-REQUESTS))
(CALL-WITH-BINDINGS
((*STANDARD-OUTPUT* . #) (*STANDARD-INPUT* . #) (*TRACE-OUTPUT* . #) (*ERROR-OUTPUT* . #) (*DEBUG-IO* . #<TWO-WAY-STREAM input #, output # #x302001B68EBD>) ...)
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x302001B71E8F>)
(HANDLE-REQUESTS #<MULTITHREADED-CONNECTION #x302001A1CBED> NIL)
(REPL-LOOP #<MULTITHREADED-CONNECTION #x302001A1CBED>)
(FUNCALL (:INTERNAL SWANK::SPAWN-REPL-THREAD))
(CALL-WITH-BINDINGS
((*PRINT-PRETTY*) (*PRINT-LEVEL*) (*PRINT-LENGTH*) (*PRINT-CIRCLE* . T) (*PRINT-CASE* . :DOWNCASE) ...)
#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x302001B7222F>)
(FUNCALL (:INTERNAL SWANK::SPAWN-REPL-THREAD))
(RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(14) [Active] #x302001B6015D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302001B5FEEF>))
(FUNCALL (:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS repl-thread(14) [Active] #x302001B6015D> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x302001B5FEEF>))
(FUNCALL (:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
--------------------------------------------------------------------------------
ERREUR EN LIGNE 19 : ERREUR INTERNE: VALEUR INATTENDUE DE (IO-READ-STRING
CCL::BASIC-FILE-CHARACTER-INPUT-STREAM): NIL of type NULL
PRET
```
https://framagit.org/nasium-lse/nasium-lse/-/issues/1400036 encoder/decoder/fsoup fails2018-04-03T03:36:57ZPascal J. Bourguignon00036 encoder/decoder/fsoup fails*Created by: Pascal J. Bourguignon*
```
CHANGER REPERTOIRE /inrdp
APPELER pp
DECODER pp
APPELER proc
DECODER proc
APPELER fsoup
EXECUTER A PARTIR DE 1
DONNEZ LE NOM DU FICHIER DECODE DU PROG. PRINCIPAL : pp
DONNEZ LE NOM DU F...*Created by: Pascal J. Bourguignon*
```
CHANGER REPERTOIRE /inrdp
APPELER pp
DECODER pp
APPELER proc
DECODER proc
APPELER fsoup
EXECUTER A PARTIR DE 1
DONNEZ LE NOM DU FICHIER DECODE DU PROG. PRINCIPAL : pp
DONNEZ LE NOM DU FICHIER DECODE DU SOUS-PROGRAMME : proc
ENCODEZ LE FICHIER PP
TERMINE EN LIGNE 015
EFFACER LIGNES *
ENCODER pp
li
ERREUR EN LIGNE 15 : THE VALUE NIL IS NOT OF THE EXPECTED TYPE CHARACTER.
PRET
```https://framagit.org/nasium-lse/nasium-lse/-/issues/1500018 case of directories and files2018-04-03T03:36:57ZPascal J. Bourguignon00018 case of directories and files*Created by: Pascal J. Bourguignon*
For now, directories and files names are case sensitive.
This is confusing because users may be in uppercase input or mixed
input, and output may uppercase lowercase names.
For cli or unix scri...*Created by: Pascal J. Bourguignon*
For now, directories and files names are case sensitive.
This is confusing because users may be in uppercase input or mixed
input, and output may uppercase lowercase names.
For cli or unix scripts, we would want case sensitive (lower case) names.
For server and historic LSE, we would want to accept uppercase names.
--> either use uppercase for directory and file names in server files,
or implement case insensitivity.
https://framagit.org/nasium-lse/nasium-lse/-/issues/1600042 xit(n) pas encore implementé2018-04-03T03:36:57ZPascal J. Bourguignon00042 xit(n) pas encore implementé*Created by: Pascal J. Bourguignon*
```
#+lse_extension -
```*Created by: Pascal J. Bourguignon*
```
#+lse_extension -
```https://framagit.org/nasium-lse/nasium-lse/-/issues/1700047 implémenter les procédures externes2018-04-03T03:36:57ZPascal J. Bourguignon00047 implémenter les procédures externes*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
Quand on appelle une procédure &ABCDE, si elle n'est pas présente dans
le programme, alors rechercher si on a un fichier programme nommé
ABCDE qui contient une telle PROCEDURE &ABCD...*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
Quand on appelle une procédure &ABCDE, si elle n'est pas présente dans
le programme, alors rechercher si on a un fichier programme nommé
ABCDE qui contient une telle PROCEDURE &ABCDE. Dans ce cas, charger
temporairement ce fichier, exécuter la procédure, et revenir au
programme original.
Note: dans quel répertoire chercher les procédures? On peut chercher
dans le répertoire courant, ou on pourrait avoir un autre répertoire,
ou une variable contenant une liste de répertoires.
CHAINE EPDIR;EPDIR='/progr/mesgs/:/progr:/:.'
https://framagit.org/nasium-lse/nasium-lse/-/issues/1800048 FAIRE TANT QUE2018-04-03T03:36:57ZPascal J. Bourguignon00048 FAIRE TANT QUE*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
Optionaliser la variable de boucle dans: FAIRE 42 TANT QUE A#0
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T09:29:38.667Z*
Added ~49654 label*Created by: Pascal J. Bourguignon*
LIRE LSE 1979
Optionaliser la variable de boucle dans: FAIRE 42 TANT QUE A#0
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T09:29:38.667Z*
Added ~49654 labelhttps://framagit.org/nasium-lse/nasium-lse/-/issues/1900046 ajouter une option --convertir-minuscules-en-majuscules2018-04-03T03:36:57ZPascal J. Bourguignon00046 ajouter une option --convertir-minuscules-en-majuscules*Created by: Pascal J. Bourguignon*
À l'entrée, les minuscules devraient être converties en majuscules,
pour que CHAINE REP;LIRE REP;SI REP='OUI' ALORS AFFICHER 'OK"
affiche "OK" même si on tape "oui".
*Created by: Pascal J. Bourguignon*
À l'entrée, les minuscules devraient être converties en majuscules,
pour que CHAINE REP;LIRE REP;SI REP='OUI' ALORS AFFICHER 'OK"
affiche "OK" même si on tape "oui".
https://framagit.org/nasium-lse/nasium-lse/-/issues/2000043 eqn .65 66. entre point2018-04-03T03:36:57ZPascal J. Bourguignon00043 eqn .65 66. entre point*Created by: Pascal J. Bourguignon*
```
#+lse_extension -
EQUIVALENT NUMERIQUE DE CARACTERE QUELCONQUES ENTRE POINTS :
.13. :CARACTERE (RC)
.13 10.'A B C'.13 10. : (RC) (LF) A B C (RC) (LF)
```
**Impo...*Created by: Pascal J. Bourguignon*
```
#+lse_extension -
EQUIVALENT NUMERIQUE DE CARACTERE QUELCONQUES ENTRE POINTS :
.13. :CARACTERE (RC)
.13 10.'A B C'.13 10. : (RC) (LF) A B C (RC) (LF)
```
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T09:29:55.274Z*
Added ~49654 labelhttps://framagit.org/nasium-lse/nasium-lse/-/issues/2100044 ligne vide2018-04-03T03:36:57ZPascal J. Bourguignon00044 ligne vide*Created by: Pascal J. Bourguignon*
```
10 RET --> supprime la ligne 10
10 SPC RET --> insère la ligne 10 comme ligne vide.
10 SPC *comment --> 10 *comment
```*Created by: Pascal J. Bourguignon*
```
10 RET --> supprime la ligne 10
10 SPC RET --> insère la ligne 10 comme ligne vide.
10 SPC *comment --> 10 *comment
```https://framagit.org/nasium-lse/nasium-lse/-/issues/2300016 invalid option -> silent exit2018-04-03T03:36:57ZPascal J. Bourguignon00016 invalid option -> silent exit*Created by: Pascal J. Bourguignon*
```
./lse --mode-modern
```
exits silently instead of reporting an error.
*Created by: Pascal J. Bourguignon*
```
./lse --mode-modern
```
exits silently instead of reporting an error.
https://framagit.org/nasium-lse/nasium-lse/-/issues/2400012 AP 1: Parsing errors in commands fail catastrophically.2018-04-03T03:36:54ZPascal J. Bourguignon00012 AP 1: Parsing errors in commands fail catastrophically.*Created by: Pascal J. Bourguignon*
```
APPELER 1
ERROR:
0:1: CARACT?RE INVALIDE '1' (49)
--------------------------------------------------------------------------------
(BACKTRACE-AS-LIST :CONTEXT NIL :PROCESS NIL :ORIGIN NIL ...*Created by: Pascal J. Bourguignon*
```
APPELER 1
ERROR:
0:1: CARACT?RE INVALIDE '1' (49)
--------------------------------------------------------------------------------
(BACKTRACE-AS-LIST :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :COUNT 1152921504606846975 :START-FRAME-NUMBER 0 :PRINT-LEVEL NIL :PRINT-LENGTH 5 :SHOW-INTERNAL-FRAMES NIL)
(FUNCALL (:INTERNAL (COM.INFORMATIMAGO.LSE::COMMAND-CALL (COM.INFORMATIMAGO.LSE::COMMAND))) 0:1: Invalid character #\1 at position: 1
(COM.INFORMATIMAGO.LSE::UN-PROGRAMME)
UN-PROGRAMME --> (COM.INFORMATIMAGO.RDP:SEQ (COM.INFORMATIMAGO.LSE::IDENT) ((LIST COM.INFORMATIMAGO.LSE::$1)))
)
(SIGNAL 0:1: Invalid character #\1 at position: 1
(COM.INFORMATIMAGO.LSE::UN-PROGRAMME)
UN-PROGRAMME --> (COM.INFORMATIMAGO.RDP:SEQ (COM.INFORMATIMAGO.LSE::IDENT) ((LIST COM.INFORMATIMAGO.LSE::$1)))
)
(%ERROR 0:1: Invalid character #\1 at position: 1
(COM.INFORMATIMAGO.LSE::UN-PROGRAMME)
UN-PROGRAMME --> (COM.INFORMATIMAGO.RDP:SEQ (COM.INFORMATIMAGO.LSE::IDENT) ((LIST COM.INFORMATIMAGO.LSE::$1)))
(:LINE 0 :COLUMN 1 :STATE ...) 70529863)
(FUNCALL #<STANDARD-METHOD COM.INFORMATIMAGO.COMMON-LISP.PARSER.SCANNER:SCAN-NEXT-TOKEN (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER)> (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER :LINE 0 :COLUMN 1 ...) NIL)
(LSE-ADVANCE-LINE (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER :LINE 0 :COLUMN 1 ...))
(FUNCALL #<STANDARD-METHOD COM.INFORMATIMAGO.RDP:ADVANCE-LINE (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER)> (COM.INFORMATIMAGO.LSE::UN-PROGRAMME-SCANNER :LINE 0 :COLUMN 1 ...))
(PARSE-UN-PROGRAMME "1")
(FUNCALL #<STANDARD-METHOD COM.INFORMATIMAGO.LSE::COMMAND-CALL (COM.INFORMATIMAGO.LSE::COMMAND)> #S(COM.INFORMATIMAGO.LSE::COMMAND :INITIALS "AP" :NAME "APPELER" ...))
(COMMAND-EVAL-LINE #<COM.INFORMATIMAGO.LSE:TASK #x3020028918BD> "ap")
(FUNCALL (:INTERNAL COM.INFORMATIMAGO.LSE::DO-IT COM.INFORMATIMAGO.LSE:COMMAND-REPL))
(COMMAND-REPL #<COM.INFORMATIMAGO.LSE:TASK #x3020028918BD>)
(MAIN NIL)
(FUNCALL #<Anonymous Function #x3020028848DF>)
(FUNCALL (:INTERNAL CCL::%SAVE-APPLICATION-INTERNAL))
(FUNCALL (:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS))
(RUN-PROCESS-INITIAL-FORM #<PROCESS toplevel(9) [Active] #x30200288ADED> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS) #x30200288A91F>))
(FUNCALL (:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS))) #<PROCESS toplevel(9) [Active] #x30200288ADED> (#<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS) #x30200288A91F>))
(FUNCALL (:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
--------------------------------------------------------------------------------
Calling COM.INFORMATIMAGO.LSE:TERMINAL-FINALIZE on a COM.INFORMATIMAGO.LSE.UNIX-TERMINAL:UNIX-TERMINAL not initialized.
[pjb@larissa :0.0 src]$
```
**Imported comments:**
*By Pascal J. Bourguignon on 2015-04-03T09:25:40.803Z*
mentioned in issue #4https://framagit.org/nasium-lse/nasium-lse/-/issues/2500027 pg55 parametre fonctions2018-04-03T03:36:45ZPascal J. Bourguignon00027 pg55 parametre fonctions*Created by: Pascal J. Bourguignon*
```
ERREUR EN LIGNE 201 : /Users/pjb/src/pjb/lse-progr/inrdp/pg55.lse:201:24:
201 PROCEDURE &COURB(&F,N,X,Y,P) LOCAL P,N,YMI,YMA,I
```*Created by: Pascal J. Bourguignon*
```
ERREUR EN LIGNE 201 : /Users/pjb/src/pjb/lse-progr/inrdp/pg55.lse:201:24:
201 PROCEDURE &COURB(&F,N,X,Y,P) LOCAL P,N,YMI,YMA,I
```https://framagit.org/nasium-lse/nasium-lse/-/issues/26tableaux à deux dimensions2017-10-01T17:45:32ZPascal J. Bourguignontableaux à deux dimensionsLa déclaration des tableaux à deux dimensions signale une erreur:
```
5003 NCONS_1000;ICAR_1;ICDR_2;LIBERER TCONS;TABLEAU TCONS[NCONS,2];FCONS_0;YCONS_1
ERREUR : (:ADECL #<TOK-IDENTIFICATEUR 5002:52: IDENTIFICATEUR "TCONS"
#x30200287A0...La déclaration des tableaux à deux dimensions signale une erreur:
```
5003 NCONS_1000;ICAR_1;ICDR_2;LIBERER TCONS;TABLEAU TCONS[NCONS,2];FCONS_0;YCONS_1
ERREUR : (:ADECL #<TOK-IDENTIFICATEUR 5002:52: IDENTIFICATEUR "TCONS"
#x30200287A02D> (:VREF #<TOK-IDENTIFICATEUR 5002:58: IDENTIFICATEUR "NCONS"
#x302002879ECD>) . #<TOK-NUMERO 5002:64: NUMERO "2" #x302002879C1D>) can't be
destructured against the lambda list (COM.INFORMATIMAGO.LSE::ADECL
COM.INFORMATIMAGO.LSE::IDENT COM.INFORMATIMAGO.LSE::INDEX.1 &OPTIONAL
COM.INFORMATIMAGO.LSE::INDEX.2), because it is not a proper list.
```Pascal J. BourguignonPascal J. Bourguignon