ISSUES.txt 65.2 KB
Newer Older
1
-*- mode:org; coding:utf-8 -*-
2
* TODO Nasium LSE Project                                               :lse:
3 4 5
Check:
https://gitlab.com/nasium-lse/nasium-lse/issues&sort=created_asc&state=opened

6 7
LSE2000: https://sites.google.com/site/phoenixlse2000/

8
** TODO [#A] Move nasium-lse/manifest.lisp to com.informatimago
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

It's copied, but we'd need to use now the tools/manifest.lisp instead
of nasium-lse/manifest.lisp

** TODO [#A] Tests / Debug
** TODO [#B] complete telnet and options
   - State "TODO"       from "TODO"       [2012-12-12 Wed 23:56]
** TODO [#B] paypal / download?
** TODO [#B] CLI MacOSX
** TODO [#B] CLI Linux
** TODO [#B] CLI MS-Windows
** TODO [#B] Server Linux
** TODO [#B] Server MacOSX
** TODO [#B] GUI MacOSX

** TODO 00027 pg55 parametre fonctions                                  :cli:
25 26

#+BEGIN_SRC(lse)
27
ERREUR EN LIGNE 201 : /Users/pjb/src/pjb/lse-progr/inrdp/pg55.lse:201:24:
28 29 30
    201 PROCEDURE &COURB(&F,N,X,Y,P) LOCAL P,N,YMI,YMA,I
#+END_SRC

31 32
** TODO 00009 Message when interrupting a program.                      :cli:
Message PRET EN LIGNE 004 when interrupting a program.
33 34 35 36 37 38 39 40 41 42
The message when interrupting a program (at least on T1600)
should indicate the line number:
#+BEGIN_SRC(lse)
PRET EN LIGNE 004
#+END_SRC
instead of just:
#+BEGIN_SRC(lse)
PRET
#+END_SRC

43 44
** TODO 00012 AP 1: parsing commands errors fails.                      :cli:
AP 1: Parsing errors in commands fail catastrophically.
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
45 46 47 48 49

Parsing errors in command argument fails catastrophically.

#+BEGIN_SRC(lse)
APPELER 1
50
ERROR:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83
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.
84
[pjb@larissa :0.0 src]$
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
85 86
#+END_SRC

87
** TODO 00016 invalid option -> silent exit                             :cli:
88
./lse --mode-modern
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
89
exits silently instead of reporting an error.
90
** TODO 00044 ligne vide                                                :cli:
91 92 93 94
10 RET          --> supprime la ligne 10
10 SPC RET      --> insère la ligne 10 comme ligne vide.
10 SPC *comment --> 10 *comment

95
** TODO 00043 eqn .65 66. entre point                                   :cli:
96 97 98 99 100 101 102
#+BEGIN_SRC(lisp)
  #+lse_extension -
#+END_SRC
EQUIVALENT NUMERIQUE DE CARACTERE QUELCONQUES ENTRE POINTS :
           .13.  :CARACTERE (RC)
           .13 10.'A B C'.13 10.   : (RC) (LF) A B C (RC) (LF)

103 104 105
** TODO 00046 ajouter une option minusc->majusc                         :cli:
--convertir-minuscules-en-majuscules

106 107
À l'entrée, les minuscules devraient être converties en majuscules,
pour que CHAINE REP;LIRE REP;SI REP='OUI' ALORS AFFICHER 'OK"
108 109
affiche "OK" même si on tape "oui".

110
** TODO 00048 FAIRE TANT QUE                                            :cli:
111 112 113 114
LIRE LSE 1979

Optionaliser la variable de boucle dans: FAIRE 42 TANT QUE A#0

115
** TODO 00047 implémenter les procédures externes                       :cli:
116 117 118 119 120 121 122 123 124 125 126 127 128
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:/:.'

129
** TODO 00042 xit(n) pas encore implementé                              :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
130 131 132
#+BEGIN_SRC(lisp)
  #+lse_extension -
#+END_SRC
133
** TODO 00018 case of directories and files                      :server:cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
134 135 136 137 138 139 140 141 142 143 144
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.

145
** TODO 00036 encoder/decoder/fsoup fails                               :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161

#+BEGIN_SRC(lse)
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
162
li
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
163 164 165 166 167
ERREUR EN LIGNE  15 : THE VALUE NIL IS NOT OF THE EXPECTED TYPE CHARACTER.

PRET
#+END_SRC

168
** TODO 00024 lecture fin de ruban                                      :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185

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))
186
(EVAL-REGION "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
187 188 189 190 191 192 193 194 195 196
(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>)
197
(REPL-EVAL "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
198 199 200
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
201
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
202 203 204 205 206 207
(com.informatimago.lse.cli:main)
"
  :WINDOW-WIDTH
  NIL)
(CALL-CHECK-REGS
  SWANK:LISTENER-EVAL
208
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
209 210 211
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
212
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
213 214 215 216
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
  (SWANK:LISTENER-EVAL
217
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255
(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))
256
(EVAL-REGION "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
257 258 259 260 261 262 263 264 265 266
(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>)
267
(REPL-EVAL "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
268 269 270
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
271
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
272 273 274 275 276 277
(com.informatimago.lse.cli:main)
"
  :WINDOW-WIDTH
  NIL)
(CALL-CHECK-REGS
  SWANK:LISTENER-EVAL
278
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
279 280 281
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
282
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
283 284 285 286
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
  (SWANK:LISTENER-EVAL
287
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313
(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
314

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
315 316
PRET

317
** TODO 00008 inetd server displays wrong bindings                      :cli:
318

319
cf. inetd/lse.sh
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
320

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
321 322 323 324 325
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.
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
326

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
327
#+BEGIN_SRC(shell)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369
[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

370

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
371
PRET
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
372
#+END_SRC
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
373

374 375
** TODO 00006 The PRET message is eaten                                 :cli:
The PRET message is eaten (displays only RET) when ESC
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
376 377 378 379
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

380 381 382
** TODO 00011 A single beep per LIRE statement,                         :cli:
A single beep per LIRE statement, instead of per variable.
** TODO 00035 ERREUR après TERMINER                                     :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
383 384 385 386 387 388 389 390 391

Les erreurs survenant après terminer ne devraient pas donner le numéro de ligne:

#+BEIGN_SRC(lse)
TERMINE EN LIGNE 019

ERREUR EN LIGNE  19 : The value NIL is not of the expected type CHARACTER.
#+END_SRC

392
** TODO 00004 restore the terminal on restarts                          :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
393 394 395
The *debugger-hook* resets the terminal for the debugger.
When we use a restart to continue into LSE, we should reconfigure the LSE terminal.

396 397
** TODO 00002 add a timeout                                          :server:
 and disconnect if no input occurs
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
398

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
399
Well for the cli too when we use it thru inetd…
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
400

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
401
Add a timeout and disconnect if no input occurs after that delay.
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
402

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
403
There seem to be scanners who connect to ports without sending
404
anything, and keeping the ports open indefinitely.  For example:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
405

406 407
#+BEGIN_SRC(lse)

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482
        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
483

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
484 485
#+END_SRC

486 487
** TODO 00040 vérifier SI 1=1                                           :cli:
SI 1=1 ALORS SINON AFFICHER 'NON';;
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
488 489 490

Sur Siris, l'instruction vide existe, alors ;; et ALORS SINON sont possible.

491 492 493
** TODO 00039 vérifier siris                                            :cli:
page 28 paramètres et déclarations manuel siris
** TODO 00038 vérifier RETOUR EN                                        :cli:
494
RETOUR EN = RETOUR + ALLER EN vs. FAIRE POUR
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
495 496 497
et tester:

ERREUR EN LIGNE  20 : NUMERO DE LIGNE INEXISTANT 20
498

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
499 500 501 502 503 504 505 506 507 508 509
PRET
LISTER A PARTIR DE 1
1 Y_&RAC(3,20);AFFICHER Y
2 Y_&RAC(-3,20);AFFICHER Y
3 TERMINER
20 AFFICHER 'Pas de racine réelle.'
21 TERMINER
100 PROCEDURE &RAC(ARG,ERRE) LOCAL ARG,ERRE
101 SI ARG<0 ALORS RETOUR EN ERRE
102 RESULTAT RAC(ARG)

510
** TODO 00033 specificités T-1600 / Mitra-15 / Siris                    :cli:
511 512 513 514 515 516 517 518 519 520 521 522 523 524 525

T-1600:   fonctions SH, CH, TH, SGN, UN et ZER.

Mitra-15: instruction SUPPRIMER pour supprimer un fichier donnée.

T-1600:   10 ALLER EN @+3 -> aller en 13

Mitra-15: 10 I_@50 ; 20 ALLER EN I -> aller en 50
          renumérotage tient compte de @50.

Voir aussi les autres limitations; par exemple sur les fichiers.  Un
fichier Mitra-15/T-1600 avait des blocks de 256 octets (Mitra-15
pouvant écrire les chaines sur plusieurs blocks).  Les fichiers
implémentés par nasium ont des blocs de 1024 octets.

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
526 527 528 529 530 531 532 533 534
Sur Siris 7/Siris 8, on avait un compilateur LSE.

Différence lexicales:
  Mini   Siris
    ^ ---> **
    _ ---> <-
    [ ---> (/
    ] ---> /)

535
1 à 4 cartes;
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
536 537 538
colonnes 1-4 pour le numéro de ligne,
colonnes 5-80 pour le texte de la ligne,
jusqu'à 3 cartes continuation sans rien dans les colonnes 1-4.
539

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
540 541 542 543 544 545 546 547 548 549 550 551 552 553
Commentaires: * ou #

Lire: les données sont sur flot continu de cartes.
      les chaînes doivent être quotées:  'UNE ''CHAINE''' (comme en lisp avec READ).

Procédure externes: module avec seulement des procédures -> bibliothèque
                    programme référençant des procédures externe => édition de lien



                          LSE-MITRA-15        LSE-T1600      LSE-UNIX        LSE-SIRIS
------------------------  -----------------  --------------  --------------  --------------

commandes:                ------------------------------     --------------  --------------
554 555 556 557 558
                                  IDentification
                                  DRoits
                                  BOnjour
                                  ADieux
                                  PRendre etat console
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
559
                          ------------------------------     --------------  --------------
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
560 561 562 563

TA                        implementé         pas encore      on pourrait avoir
UT                        implementé         pas encore      un autre format.

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
564 565 566 567 568 569 570
ENCODER:

      Sur Mitra-15, fonctionne comme APpeler: le programme courant est
      effacé et remplacé par le programme chargé.

      Sur T-1600 (et unix), ENcoder remplace ligne par ligne, sans
      effacer le reste du programme courant.
571

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
572
------------------------  -----------------  --------------  --------------  --------------
573 574 575
fonctions:                                                   ENV(nom)
                                                             ARG(i[,r]) -- pas encore implémenté
                                                             LISP(e,p,r) -- debugging
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
576 577 578 579
                                                                             DAT() -> hh*mm*ss*cc jj*mm*aa
                                                                             EXS(x) = e^x

------------------------  -----------------  --------------  --------------  --------------
580 581 582 583 584 585 586 587 588
extensions:

   fonction ATT()
   fonction DIS(secteur) -- non implémenté
   fonction ETL(a,b)
   fonction OUL(a,b)
   fonction OUX(a,b)
   fonction XIT(ea)

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
589 590 591 592
------------------------  -----------------  --------------  --------------  --------------
code caractères            ASCII              ASCII           Unicode         EBCDIC
longueur identificateur    5                  5                               8
numéro de ligne            1-250              1-255          1-65535          1-9999
593
max longueur de ligne      80                 80             65535
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
594 595 596 597 598
max longueur nom fichier   5                  5              5 ?              4 !
max répetition format      ?                  62             ? pas implémenté
taille bloc fichier        256                256            1024 (par défault) 1024 (par défaut)
longueur clé               2                  2              2               4
------------------------  -----------------  --------------  --------------  --------------
599
sémantique @               I_@50 = ligne      ALLER EN @+3   pas implémenté
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
600
------------------------  -----------------  --------------  --------------  --------------
601
longueur chaine max       65536               256            65536
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
602
------------------------  -----------------  --------------  --------------  --------------
603 604
EQC max code              128                 256            cl:char-code-limit
                                                             eg. 1114112 avec unicode
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
605
------------------------  -----------------  --------------  --------------  --------------
606
AFFICHER[Fn.m,En.m]VE,TA  non                oui             oui
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
607
------------------------  -----------------  --------------  --------------  --------------
608 609 610 611
PAUSE EN LIGNE 000                                  x              x
TERMINE EN LIGNE 000                                x              x
PAUSE                            x
TERMINE                          x
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
612 613 614 615 616
------------------------  -----------------  --------------  --------------  --------------
instructions
                                                                             FAIRE POUR DEBUT FIN
                                                                             instruction vide.
                                                                             format P pour page.
617

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
618
------------------------  -----------------  --------------  --------------  --------------
619 620 621


Mentionné: T-1600: $ signifie quelque chose.
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
622
Annoncé: Mitra-15: procédures externes rangées sur disque &init(t,l,c,i) &lir(c) &max(t,l,c) &min(t,l,c)
623

624
** TODO 00049 UTILISATION DISQUE A PARTIR DE                            :cli:
625 626 627 628
LIRE LSE 1979

UTILISATION DISQUE A PARTIR DE [nofic[,(P|D|T)]]

629
** DONE 00045 message d'erreur pour tableaux                            :cli:
630 631 632 633 634 635 636 637 638 639
  CLOSED: [2015-04-03 Fri 13:19]
  - State "DONE"       from "TODO"       [2015-04-03 Fri 13:19] \\
    fixed.

ERREUR EN LIGNE 100 : Array index 4 out of bounds for #2A((25.531916 12.765958
38.297874 23.404255) (0.0 0.0 0.0 0.0) (0.0 0.0 0.0 0.0) (0.0 0.0 0.0 0.0) (0.0
0.0 0.0 0.0) (0.0 0.0 0.0 0.0)) .

Devrait être: indexes (…) hors limite pour tableau: …

640
** DONE 00041 cca(0)                                                    :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
641 642 643 644 645 646
  CLOSED: [2015-04-03 Fri 10:39]
  - State "DONE"       from "TODO"       [2015-04-03 Fri 10:39] \\
    Corrected.
cca(0) -> '0.0e0' au lieu de '0'
afficher[f2.0]3 --> ' 3.' au lieu de ' 3'

647
** DONE 00020 pg42,pg75,pg75b affichage format                          :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
648 649
  CLOSED: [2015-04-03 Fri 09:17]
  - State "DONE"       from "TODO"       [2015-04-03 Fri 09:17] \\
650
    Note: We don't get the space between 'AVRIL' and '1972'
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
651 652 653 654
    in:

        AFFICHER[/,U,'1972',/]'AVRIL'

655 656
    but I think this is how it should be.
    See for example, PG37, which displays LUNDI----- for:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691

        CHAINE C;C_'LUNDI';AFFICHER C;AFFICHER[5'-',/]

pg42

F2.0 --> ne doit pas afficher le point.
U string -> ne doit afficher un espace suffixe.
U vecteur --> doit afficher sur la meme ligne (pg59b)

Obtenu:

#+BEGIN_SRC(lse)
APPELER pg42
EXECUTER A PARTIR DE 1

LUNDI  3 AVRIL1972
LUNDI 10 AVRIL1972
LUNDI 17 AVRIL1972
LUNDI 24 AVRIL1972
TERMINE EN LIGNE 016
#+END_SRC

Attendu:

#+BEGIN_SRC(lse)
APPELER pg42
EXECUTER A PARTIR DE 1

LUNDI  3 AVRIL 1972
LUNDI 10 AVRIL 1972
LUNDI 17 AVRIL 1972
LUNDI 24 AVRIL 1972
TERMINE EN LIGNE 016
#+END_SRC

692
** DONE 00022 pg44 affichage format                                     :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
693 694 695 696 697 698 699 700 701 702 703 704 705 706 707
  CLOSED: [2015-04-03 Fri 09:19]
  - State "DONE"       from "TODO"       [2015-04-03 Fri 09:19] \\
    Corrected.
cf. page 91.
Obtenu:
#+BEGIN_SRC(lse)
APPELER pg44
EXECUTER A PARTIR DE 1
1 2 3 4 5 6 7 8 9 10 11 12
1 2 3 =====1 2 3 =====
1 2 3 =====
  1   2   3 =====
LA SOMME DES 2 PREMIERS NOMBRES EST : 3 =====
LA SOMME DES 2 PREMIERS NOMBRES EST3 =====
LA SOMME DES 2 PREMIERS NOMBRES EST 3 =====
708
1    50
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
709
LUNDI
710 711
1  2  3  4
5  6  7  8
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
712
9  10  11  12  =====
713
1    50
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
714
LUNDI
715 716
1  2  3  4
5  6  7  8
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
717
9  10  11  12  =====
718
1    50
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
719 720
LUNDI

721 722
1  2  3  4
5  6  7  8
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
723
9  10  11  12  =====
724 725 726
   1    LUNDI
1  2  3  4
5  6  7  8
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
727 728 729
9  10  11  12  =====
#+END_SRC

730
** DONE 00032 pg74,pg80 afficher[*'I']N                                 :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759
  CLOSED: [2015-04-03 Fri 09:27]
  - State "DONE"       from "TODO"       [2015-04-03 Fri 09:27] \\
    Corrected.

y_33;afficher[*'--']y

ERREUR : Unknown type specifier: COM.INFORMATIMAGO.LSE::IDENTIFIER

#+BEGIN_SRC(lse)
AFFICHER[/,*'I---','I',/]4
I---I---I---I---I

N_5;AFFICHER[/,*'I---','I',/]N
ERROR: Unknown type specifier: IDENTIFIER
--------------------------------------------------------------------------------
(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)
(FUNCALL (:INTERNAL REPORT COMMAND-REPL) #<SIMPLE-ERROR #x302004722EFD>)
(FUNCALL (:INTERNAL DEBUG-ERROR COMMAND-REPL) #<SIMPLE-ERROR #x302004722EFD>)
(SIGNAL #<SIMPLE-ERROR #x302004722EFD>)
(%ERROR #<SIMPLE-ERROR #x302004722EFD> NIL 77142635)
(RUN-STEP #<LSE-VM 1 global variable, 0 local frames, 1 line, current line 0 #x3020045B07CD>)
(FUNCALL #<STANDARD-METHOD VM-RUN (LSE-VM)> #<LSE-VM 1 global variable, 0 local frames, 1 line, current line 0 #x3020045B07CD>)
(LSE-COMPILE-AND-EXECUTE #<TASK #x3020045B08AD> "N_4;AFFICHER[/,*'I---','I',/]N")
(COMMAND-EVAL-LINE #<TASK #x3020045B08AD> "N_4;AFFICHER[/,*'I---','I',/]N")
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x3020045B08AD>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
760
(EVAL-REGION "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
761 762 763 764 765 766 767 768 769 770
(com.informatimago.lse.cli:main)
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x3020045B0F9F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x3020045B102F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(FUNCALL #<Anonymous Function #x30200182569F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x3020045B106F>)
(CALL-WITH-SYNTAX-HOOKS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x3020045B106F>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x3020045B106F>)
771
(REPL-EVAL "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
772 773 774
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
775
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
776 777 778 779 780 781
(com.informatimago.lse.cli:main)
"
  :WINDOW-WIDTH
  NIL)
(CALL-CHECK-REGS
  SWANK:LISTENER-EVAL
782
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
783 784 785
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
786
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
787 788 789 790
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
  (SWANK:LISTENER-EVAL
791
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817
(com.informatimago.lse.cli:main)
")
  "COM.INFORMATIMAGO.LSE"
  126)
(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))
--------------------------------------------------------------------------------
#+END_SRC

818
** DONE 00019 pg37,pg46,pg47,pg76 affichage des matrices                :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
819 820 821 822 823 824 825 826 827 828 829
  CLOSED: [2015-04-03 Fri 09:42]
  - State "DONE"       from "TODO"       [2015-04-03 Fri 09:42] \\
    Corrected.
pg37:

Obtenu:

#+BEGIN_SRC(lse)
EXECUTER A PARTIR DE 1
1 2 1 2 1 2 1 2 1 2 1 2

830 831
1  2  1  2
1  2  1  2
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
832
1  2  1  2  -----
833 834 835
5
1  2  1  2
1  2  1  2
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
836
1  2  1  2  -----
837 838 839
5
1  2  1  2
1  2  1  2
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
840 841
1  2  1  2  LUNDI-----
5 LUNDI
842 843 844
1  2  1  2
1  2  1  2
1  2  1  2
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
845 846 847 848 849 850 851 852 853
TERMINE EN LIGNE 009
#+END_SRC

Attendu:

#+BEGIN_SRC(lse)
EXECUTER A PARTIR DE 1
1 2 1 2 1 2 1 2 1 2 1 2

854 855 856
1  2  1  2
1  2  1  2
1  2  1  2
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
857
-----
858 859 860 861
5
1  2  1  2
1  2  1  2
1  2  1  2
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
862
-----
863 864 865 866
5
1  2  1  2
1  2  1  2
1  2  1  2
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
867 868
LUNDI-----
5 LUNDI
869 870 871
1  2  1  2
1  2  1  2
1  2  1  2
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
872 873 874 875

TERMINE EN LIGNE 009
#+END_SRC

876
** DONE 00025 pg54,pg77 retour en 10                                    :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900
  CLOSED: [2014-07-06 Sun 23:55]
  - State "DONE"       from "TODO"       [2014-07-06 Sun 23:55] \\
    Done. commit f6ec51ef74d22354e494a7bc5cd2b55e886b722a

#+BEGIN_SRC(lse)
EXECUTER A PARTIR DE 1

DATE EN FRANCAIS : LE 29 FEVRIER 1900     DATE ERRONNEE
ERROR: NUMERO DE LIGNE INEXISTANT 10
--------------------------------------------------------------------------------
(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)
(ERROR-BAD-LINE 10)
(RETOUR-EN #<LSE-VM 9 global variables, 0 local frames, 42 lines, current line 51 #x3020040765DD> #<LSE-VARIABLE K = 10 of type NOMBRE #x30200416E6BD>)
(FUNCALL (:INTERNAL RUN RUN-STEP))
(RUN-STEP #<LSE-VM 9 global variables, 0 local frames, 42 lines, current line 51 #x3020040765DD>)
(FUNCALL #<STANDARD-METHOD VM-RUN (LSE-VM)> #<LSE-VM 9 global variables, 0 local frames, 42 lines, current line 51 #x3020040765DD>)
(EXECUTER-A-PARTIR-DE 1 NIL)
(FUNCALL #<STANDARD-METHOD COMMAND-CALL (COMMAND)> #S(COMMAND :INITIALS "EX" :NAME "EXECUTER A PARTIR DE" ...))
(COMMAND-EVAL-LINE #<TASK #x3020040766BD> "EX")
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x3020040766BD>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
901
(EVAL-REGION "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
902 903 904 905 906 907 908 909 910 911
(com.informatimago.lse.cli:main)
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076DAF>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076E3F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(FUNCALL #<Anonymous Function #x30200182569F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076E7F>)
(CALL-WITH-SYNTAX-HOOKS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076E7F>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076E7F>)
912
(REPL-EVAL "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
913 914 915
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
916
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
917 918 919 920 921 922
(com.informatimago.lse.cli:main)
"
  :WINDOW-WIDTH
  NIL)
(CALL-CHECK-REGS
  SWANK:LISTENER-EVAL
923
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
924 925 926
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
927
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
928 929 930 931
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
  (SWANK:LISTENER-EVAL
932
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973
(com.informatimago.lse.cli:main)
")
  "COM.INFORMATIMAGO.LSE"
  43)
(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: NUMERO DE LIGNE INEXISTANT 10
--------------------------------------------------------------------------------
(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)
(ERROR-BAD-LINE 10)
(RETOUR-EN #<LSE-VM 9 global variables, 0 local frames, 42 lines, current line 51 #x3020040765DD> #<LSE-VARIABLE K = 10 of type NOMBRE #x30200416E6BD>)
(FUNCALL (:INTERNAL RUN RUN-STEP))
(RUN-STEP #<LSE-VM 9 global variables, 0 local frames, 42 lines, current line 51 #x3020040765DD>)
(FUNCALL #<STANDARD-METHOD VM-RUN (LSE-VM)> #<LSE-VM 9 global variables, 0 local frames, 42 lines, current line 51 #x3020040765DD>)
(EXECUTER-A-PARTIR-DE 1 NIL)
(FUNCALL #<STANDARD-METHOD COMMAND-CALL (COMMAND)> #S(COMMAND :INITIALS "EX" :NAME "EXECUTER A PARTIR DE" ...))
(COMMAND-EVAL-LINE #<TASK #x3020040766BD> "EX")
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x3020040766BD>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
974
(EVAL-REGION "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
975 976 977 978 979 980 981 982 983 984
(com.informatimago.lse.cli:main)
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076DAF>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076E3F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(FUNCALL #<Anonymous Function #x30200182569F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076E7F>)
(CALL-WITH-SYNTAX-HOOKS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076E7F>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x302004076E7F>)
985
(REPL-EVAL "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
986 987 988
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
989
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
990 991 992 993 994 995
(com.informatimago.lse.cli:main)
"
  :WINDOW-WIDTH
  NIL)
(CALL-CHECK-REGS
  SWANK:LISTENER-EVAL
996
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
997 998 999
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
1000
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1001 1002 1003 1004
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
  (SWANK:LISTENER-EVAL
1005
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030
(com.informatimago.lse.cli:main)
")
  "COM.INFORMATIMAGO.LSE"
  43)
(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  10 : NUMERO DE LIGNE INEXISTANT 10
1031

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077
PRET
LISTER A PARTIR DE 1
1* TRADUCTION D'UNE DATE DE FRANCAIS EN ANGLAIS
2* AVEC VERIFICATION DE LA VALIDITE DE CETTE DATE
3 CHAINE LISTE,MOIS,DATE,ENDA
5 LISTE_'JANVIER 31 JANUARY,FEVRIER 28 FEBRUARY,MARS 31 MARCH,AVRIL '
6 LISTE_LISTE!'30 APRIL,MAI 31 MAY,JUIN 30 JUNE,JUILLET 31 JULY,'
7 LISTE_LISTE!'AOUT 31 AUGUST,SEPTEMBRE 30 SEPTEMBER,OCTOBRE 31 OCTOBER,'
8 LISTE_LISTE!'NOVEMBRE 30 NOVEMBER,DECEMBRE 31 DECEMBER'
10 AFFICHER[/,'DATE EN FRANCAIS : '];LIRE DATE
11 I_1;*POINTEUR EXPLORATION CHAINE DATE
13* TEST SUR LA PRESENCE DE 'LE' EN DEBUT DE DATE
14 &TEST();SI GRL(DATE,1,I)='LE' ALORS ALLER EN 17
15 I_PTR(DATE,1,'0123456789');DATE_'LE'!' '!SCH(DATE,I,'?');I_3;&ERR(0)
17* TESTS DU JOUR,DU MOIS,DE L'ANNEE
18 &TEST();JOUR_CNB(DATE,I,I);SI JOUR<=0 ALORS &ERR(10)
19 &TEST();MOIS_GRL(DATE,I,I);PMOIS_POS(LISTE,1,MOIS!' ')
20 SI PMOIS=0 ALORS &ERR(10)
21 &TEST();ANNEE_CNB(DATE,I,I)
22 SI ANNEE<=1582 ALORS &ERR(10);*PAS DANS LE CALENDRIER GREGORIEN
23 SI I<LGR(DATE) ALORS DEBUT DATE_SCH(DATE,1,I);&ERR(0) FIN
25* VERIFICATION DU JOUR SELON LE MOIS
26 MAXJ_CNB(LISTE,PTR(LISTE,PMOIS));*NUMERO MAX DU JOUR DANS LE MOIS
27 SI JOUR<=MAXJ ALORS ALLER EN 34
29* TEST ANNEE BISSEXTILE(SI MOIS=FEVRIER)
30 SI MOIS#'FEVRIER' OU JOUR>29 ALORS &ERR(10)
31 SI &RESTE(4)#0 OU &RESTE(100)=0 ET &RESTE(400)#0 ALORS &ERR(10)
33* IMPRESSION DE LA DATE EN ANGLAIS
34 ENDA_GRL(LISTE,PTR(LISTE,PMOIS))!' '!CCA(JOUR)!','!CCA(ANNEE)
35 AFFICHER[5X,U,/]ENDA;PAUSE;ALLER EN 10
40 PROCEDURE &TEST();*TEST SI FIN DE CHAINE
41 SI I<=LGR(DATE) ALORS RETOUR
42 AFFICHER[5X,'DATE INCOMPLETE',2/];RETOUR EN 10
50 PROCEDURE &ERR(K) LOCAL K;AFFICHER[5X,'DATE ERRONNEE',/]
51 SI K>0 ALORS RETOUR EN K
52 AFFICHER['DATE MODIFIEE : ']DATE;RETOUR
60 PROCEDURE &RESTE(DIV) LOCAL DIV
61* CALCUL DU RECTE DE LA DIVISION ENTIERE DE ANNEE PAR DIV
62 RESULTAT ANNEE-DIV*ENT(ANNEE/DIV)
251*EXTRAIT DE "LANGAGE SYMBOLIQUE D'ENSEIGNEMENT L.S.E. MANUEL D'UTILISATION"
252*BULLETIN DE LIAISON "L'INFORMATIQUE ET L'ENSEIGNEMENT SECONDAIRE" JAN 1975
253*C.LAFOND - INSTITUT NATIONAL DE RECHERCHE ET DE DOCUMENTATION PEDAGOGIQUES
254*PROGRAMME PG54, PAGE 115, TRADUCTION D'UNE DATE DE FRANCAIS EN ANGLAIS
255*[PAS TESTE SUR EMULSE]
#+END_SRC

1078
** DONE 00028 pg59,pg59b parametre tableau par valeur                   :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089
  CLOSED: [2014-07-06 Sun 23:05]
  - State "DONE"       from "TODO"       [2014-07-06 Sun 23:05] \\
    Done. commit 87150b8c6ab38ae76b209c24f5327f1578b8e2ff
#+BEGIN_SRC(lse)
APPELER PG59
EXECUTER A PARTIR DE 1

N = 3
ERREUR EN LIGNE   7 : ARGUMENT NO. 2 DE TYPE TABLEAU PASSE PAR VALEUR AU PARAMETRE A DE
LA PROCEDURE &PERM
#+END_SRC
1090

1091
** DONE 00029 pg60 variable locale chaine ou tableau                    :cli:
1092 1093 1094 1095 1096 1097 1098 1099 1100 1101
  CLOSED: [2014-07-06 Sun 22:39]
  - State "DONE"       from "TODO"       [2014-07-06 Sun 22:39] \\
    Done. commit e95e12932e8e39478769537620996e38634d8788

#+BEGIN_SRC(lse)
10 PROCEDURE &PERA(I,CH) LOCAL CH,I,J,V,W,N,K
11 CHAINE V,W
ERREUR EN LIGNE  11 : LA VARIABLE V EXISTE DEJA ET N'EST PAS UNE CHAINE
#+END_SRC

1102
** DONE 00017 default current working directory                         :cli:
1103 1104 1105 1106 1107 1108 1109 1110 1111 1112
  CLOSED: [2014-07-06 Sun 22:38]
  - State "DONE"       from "TODO"       [2014-07-06 Sun 22:38] \\
    Done. commit e95e12932e8e39478769537620996e38634d8788

When launching the cli, the directory used by lse (AF, CH, TA) is not
the original current working directory, but the one saved when
compiling lse (/home/lse/src/nasium-lse/src/).  By default, it should
be the cwd of the new process instead. (Unless a LSE_ROOT environment
variable is given).

1113
** DONE 00014 PG27 TANT QUE N#99 doesn't fail when N is read as 99.     :cli:
1114 1115 1116
  CLOSED: [2014-07-06 Sun 21:55]
  - State "DONE"       from "TODO"       [2014-07-06 Sun 21:55] \\
    Corrected with commit 78953759cf12415e08c0db49a8799545d8dd7189.
1117
** DONE 00015 PG28 TANT QUE SCH()#'**' fails.                           :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152
  CLOSED: [2014-06-30 Mon 19:24]
  - State "DONE"       from "TODO"       [2014-06-30 Mon 19:24] \\
    Corrected by issue 00021 correction.

#+BEGIN_SRC(lse)
EXECUTER A PARTIR DE 1
CLE : 3
DONNER LE TEXTE;TERMINER PAR ***
*ello\\\\\HELLO WORLD!***
PRET
TEXTE
PRET
?TEXTE
HELLO WORLD!
?I
19791
II_0
?I
19791
II_\\0\_0
?I
0
S\?SCH(TEXTE,I,2)
ERREUR : LE 2E ARGUMENT POUR SCH, 0.0, N'EST PAS VALIDE: L'ARGUMENT DEBUT DOIT
ETRE UN NOMBRE ENTIER SUPERIEUR OU EGAL A 1.
PRET
?SCH(TEXTE,I,1)
ERREUR : LE 2E ARGUMENT POUR SCH, 0.0, N'EST PAS VALIDE: L'ARGUMENT DEBUT DOIT
ETRE UN NOMBRE ENTIER SUPERIEUR OU EGAL A 1.
PRET
I_1
?SCH(TEXTE,I,1)
H
CONTINUER
ERREUR : FILL POINTER OF #() IS 0 .
1153
PRET
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1154 1155

#+END_SRC
1156
** DONE 00021 pg43,46,47,51,76  faire enchevetree                       :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1157 1158 1159 1160 1161 1162 1163 1164 1165
  CLOSED: [2014-06-29 Sun 18:51]
  - State "DONE"       from "TODO"       [2014-06-29 Sun 18:51] \\
    Corrected. commit 255df182ede7286902a657958a494868ae178e36

2 FAIRE 2 POUR I_1 JUSQUA 5;FAIRE 2 POUR J_1 JUSQUA 5;A[I,J]_J+5*(I-1)
ERREUR EN LIGNE   2 : BOUCLE FAIRE 2 POUR J ENCHEVETREE AVEC LA BOUCHE FAIRE 2 POUR I DE LA LIGNE 2

Il ne devrait pas y avoir d'erreur dans ce cas.

1166
** DONE 00037 pg71 fails                                                :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1167 1168 1169
  CLOSED: [2014-06-29 Sun 17:43]
  - State "DONE"       from "TODO"       [2014-06-29 Sun 17:43] \\
    Actually passes the tests: FIN must be added to EACH input line.
1170
** DONE 00034 sequence d'instructions en mode machine de bureau         :cli:
1171 1172 1173
  CLOSED: [2014-06-29 Sun 15:47]
  - State "DONE"       from "TODO"       [2014-06-29 Sun 15:47] \\
    Allowed ?a;?b and mixing a_1;?a etc.
1174
    commit d5a044454713322e4d5b4270117577e8cca9bb8e
1175 1176 1177 1178 1179

On doit pouvoir saisir et executer une séquence d'instructions en mode machine de bureau:

#+BEGIN_SRC(lse)
?NOMP;?LIGR?NOMF;?NBENR;?LIBEL
1180
ERREUR EN LIGNE   2 : COLONNE 7 :
1181 1182 1183
    ?NOMP;?LIGR?NOMF;?NBENR;?LIBEL
#+END_SRC

1184
** DONE 00023 pg49,pg49b,pg71 SCH LO=0                                  :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219
  CLOSED: [2014-06-26 Thu 20:10]
  - State "DONE"       from "TODO"       [2014-06-26 Thu 20:10] \\
    Corrected, commit 9baa2c66cad53705de989477ce348e5edbb3bc0d

SCH(P,1,0) est valide et doit retourner une chaîne de longueur 0.

PTR(p,z,s) était implémenté selon la description donnée dans le manuel
INRDP, au lieu de sa fonction réelle:

    ptr(p,z,s) = mu i, z<=i & p[i]∈s

au lieu de ça on obtient une erreur:
#+BEGIN_SRC(lse)
ERREUR EN LIGNE  11 : LE 3E ARGUMENT POUR SCH, 0.0, N'EST PAS VALIDE: L'ARGUMENT LONGEUR DOIT ETRE UN
ENTIER SUPERIEUR OU EGAL A 1 (OU BIEN UNE CHAINE).
#+END_SRC(lse)

#+BEGIN_SRC(lse)
1*PROGRAMME DE CLASSEMENT PAR ORDRE ALPHABETIQUE
2 CHAINE CH,MOT;AFFICHER 'MOT: ';LIRE CH;CH_GRL(CH,1)!'.'
3 AFFICHER 'MOT: ';LIRE MOT;MOT_GRL(MOT,1)
4 SI MOT='FIN' ALORS DEBUT AFFICHER CH;TERMINER FIN
5 CH_&INTER(MOT,CH);ALLER EN 3
9* PROCEDURE FONCTION D'INTERCLASSEMENT
10 PROCEDURE &INTER(X,P);Z_1
11 SI X<GRL(P,Z) ALORS RESULTAT SCH(P,1,Z-1)!X!' '!SCH(P,Z,'.')!'.'
12 Z_PTR(P,Z+1,' .');SI SCH(P,Z,1)#'.' ALORS DEBUT Z_Z+1;ALLER EN 11 FIN
13 RESULTAT SCH(P,1,'.')!' '!X!'.'
251*EXTRAIT DE "LANGAGE SYMBOLIQUE D'ENSEIGNEMENT L.S.E. MANUEL D'UTILISATION"
252*BULLETIN DE LIAISON "L'INFORMATIQUE ET L'ENSEIGNEMENT SECONDAIRE" JAN 1975
253*C.LAFOND - INSTITUT NATIONAL DE RECHERCHE ET DE DOCUMENTATION PEDAGOGIQUES
254*PROGRAMME PG49, PAGE 105, TRI PAR ORDRE ALPHABETIQUE
255*[PAS TESTE SUR EMULSE]
#+END_SRC

1220
** DONE 00031 encoder                                                   :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264
  CLOSED: [2014-06-26 Thu 18:39]
  - State "DONE"       from "TODO"       [2014-06-26 Thu 18:39] \\
    Corrected. commit 99e1b6cd46d5b3a7970aca1b14ee8ca0a2490857

#+BEGIN_SRC(lse)
APPELER PP
ENCODER PROC

100 PROCEDURE &PROC(PF1,PF2)
101 P_POS(F,1,PF1);SI P=0 ALORS RETOUR
102 N_CNB(F,P+1);SI N=0 ALORS N_1
103 M_M+N*PF2
104 RETOUR
251*EXTRAIT DE "LANGAGE SYMBOLIQUE D'ENSEIGNEMENT L.S.E. MANUEL D'UTILISATION"
252*BULLETIN DE LIAISON "L'INFORMATIQUE ET L'ENSEIGNEMENT SECONDAIRE" JAN 1975
253*C.LAFOND - INSTITUT NATIONAL DE RECHERCHE ET DE DOCUMENTATION PEDAGOGIQUES
254*PROGRAMME PROC, PAGE 152, ENCODE/DECODE
255*[PAS TESTE]


ERROR: The value #S(CODE :LINE 100 :VECTOR #(39 26)
                         :PROCEDURE #S(PROCEDURE :NAME COM.INFORMATIMAGO.LSE.IDENTIFIERS::&PROC
                                                 :PARAMETERS ((:PAR-REFERENCE COM.INFORMATIMAGO.LSE.IDENTIFIERS::PF2) (:PAR-REFERENCE COM.INFORMATIMAGO.LSE.IDENTIFIERS::PF1)) :LOCAL-VARIABLES NIL
                                                 :LINE 100 :OFFSET 1)
                         :SOURCE "100 PROCEDURE &PROC(PF1,PF2)") is not of the expected type LIST.
--------------------------------------------------------------------------------
(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)
(FUNCALL (:INTERNAL REPORT COMMAND-REPL) #<TYPE-ERROR #x30200462387D>)
(FUNCALL (:INTERNAL DEBUG-ERROR COMMAND-REPL) #<TYPE-ERROR #x30200462387D>)
(SIGNAL #<TYPE-ERROR #x30200462387D>)
(%ERROR #<TYPE-ERROR #x30200462387D> NIL 77142614)
(FUNCALL (:INTERNAL CCL::%XERR-DISP))
(FUNCALL-WITH-ERROR-REENTRY-DETECTION #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #x24DAF7EF>)
(FUNCALL CCL::%XERR-DISP 371931296)
(%PASCAL-FUNCTIONS% 2 371931296)
(FIRST #S(CODE :LINE 100 :VECTOR #(39 26) ...))
(ENCODER "PROC" 1 NIL)
(FUNCALL #<STANDARD-METHOD COMMAND-CALL (COMMAND)> #S(COMMAND :INITIALS "EN" :NAME "ENCODER" ...))
(COMMAND-EVAL-LINE #<TASK #x30200443F1BD> "EN")
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x30200443F1BD>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
1265
(EVAL-REGION "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1266 1267 1268 1269 1270 1271 1272 1273 1274 1275
(com.informatimago.lse.cli:main)
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200443F8AF>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200443F93F>)
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(FUNCALL #<Anonymous Function #x30200182569F> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200443F97F>)
(CALL-WITH-SYNTAX-HOOKS #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200443F97F>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x30200443F97F>)
1276
(REPL-EVAL "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1277 1278 1279
(com.informatimago.lse.cli:main)
")
(LISTENER-EVAL
1280
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1281 1282 1283 1284 1285 1286
(com.informatimago.lse.cli:main)
"
  :WINDOW-WIDTH
  NIL)
(CALL-CHECK-REGS
  SWANK:LISTENER-EVAL
1287
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1288 1289 1290
(com.informatimago.lse.cli:main)
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
1291
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1292 1293 1294 1295
(com.informatimago.lse.cli:main)
"))
(EVAL-FOR-EMACS
  (SWANK:LISTENER-EVAL
1296
  "(in-package :com.informatimago.lse)
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322
(com.informatimago.lse.cli:main)
")
  "COM.INFORMATIMAGO.LSE"
  104)
(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))
--------------------------------------------------------------------------------
#+END_SRC

1323
** DONE 00026 pg63,pg64,pg641,pg642,pg65,pg65s,fsoup,pgpp problem with variables: :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337
  CLOSED: [2014-06-26 Thu 17:30]
  - State "DONE"       from "TODO"       [2014-06-26 Thu 17:30] \\
    Corrected. commit 1423e2aa79d8388ac77148377bff04b5858972b3

#+BEGIN_SRC(lse)
APPELER PG64
EXECUTER A PARTIR DE 1

TEXTE : BONJOUR LE MONDEERROR: There is no applicable method for the generic function:
  #<STANDARD-GENERIC-FUNCTION (SETF VARIABLE-VALUE) #x3020029C50AF>
when called with arguments:
  (3 NIL)
#+END_SRC

1338
** DONE 00030 declaration & charger                                     :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1339 1340 1341 1342 1343 1344 1345
  CLOSED: [2014-06-26 Thu 17:30]
  - State "DONE"       from "TODO"       [2014-06-26 Thu 17:30] \\
    Corrected. commit 1423e2aa79d8388ac77148377bff04b5858972b3

Une déclaration avant CHARGER doit être sans effet.
LIBERER V;LIBERER V devrait être accepté aussi.

1346
** DONE 00005 telnet inetd lse.sh cli reads C-s instead of RET          :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365
  CLOSED: [2014-06-08 Sun 09:48]
  - State "DONE"       from ""           [2014-06-08 Sun 09:48] \\
    Not anymore.

cf lse@voyager:~/bin/lse.sh :

#+BEGIN_SRC(shell)
#!/bin/sh
export TERM=dumb
export LSE_TELNET=T
export LSE_ROOT=/home/lse/files/
cd $LSE_ROOT
exec /home/lse/bin/lse \
    --mode-moderne \
    --fleches-ascii \
    --entree-comme-xoff \
    --afficher-sans-accent \
    --afficher-en-majuscules \
    --accepter-minuscules \
1366
    --montrer-touches
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1367 1368
#+END_SRC

1369
** DONE 00001 segfault on exit                                          :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1370 1371 1372 1373 1374
  CLOSED: [2014-06-08 Sun 09:37]
  - State "DONE"       from ""           [2014-06-08 Sun 09:37] \\
    This occured on debian 6.0.9; corrected by adding a LSE_USE_EXIT
    environment variable at compilation time to select calling exit(2)
    instead of ccl:quit.
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1375

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1376 1377 1378 1379
#+BEGIN_SRC(lse)
        PRET
        ^Gau
        AU REVOIR   02:52:54
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1380 1381


Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1382 1383 1384
        > Error: Fault during read of memory address #x-4B04C4FC
        > While executing: CCL::LISP-THREAD-SUSPEND-COUNT, in process Initial(0).

1385

Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1386 1387 1388 1389 1390
        ;;;
        ;;; #<PROCESS Initial(0) [Active] #x1805D45E> requires access to Shared Terminal Input
        ;;; Type (:y 0) to yield control to this thread.
        ;;;
#+END_SRC
1391

1392
** DONE 00007 Something's fishy in CEFAK                                :cli:
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1393 1394 1395
  CLOSED: [2014-06-08 Sun 09:36]
  - State "DONE"       from ""           [2014-06-08 Sun 09:36] \\
    Corrected the bug: find-variable searched globals before locals.
Pascal J. Bourguignon's avatar
Pascal J. Bourguignon committed
1396 1397 1398 1399

The input seems to be read correctly, but the variable C, F and K
don't seem to be updated, so the first data is always output.

1400
** DONE 00003 FAIRE n POUR I_1 JUSQUA 100 doesn't work.                 :cli:
1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416
  CLOSED: [2014-05-13 Tue 04:11]
  - State "DONE"       from ""           [2014-05-13 Tue 04:11] \\
    Corrected bug in GOTO that would pop loops at the wrong time.

#+BEGIN_SRC(lse)
1 FAIRE 10 POUR I_1 JUSQUA 100
2 AFFICHER[C,20X,C,U]I
3 T_TEM()
4 SI T=TEM() ALORS ALLER EN 4
5 AFFICHER['.']
10* fin faire
20 TERMINER
#+END_SRC

#+BEGIN_SRC(lse)
EXECUTER A PARTIR DE 1
1417
1 .
1418 1419
TERMINE EN LIGNE 020
#+END_SRC
1420
** DONE 00010 PG08: ALLER EN I fails: Variables are not dereferenced enough. :cli:
1421 1422 1423 1424 1425 1426 1427 1428 1429 1430
  CLOSED: [2014-06-09 Mon 17:24]
  - State "DONE"       from ""           [2014-06-09 Mon 17:24] \\
    Corrected by calling deref on all VM instruction parameters.
    cf. 00013

#+BEGIN_SRC(lse)
TAPEZ LE NUMERO DE L'OPERATION A EFFECTUER : 10
The value #<lse-variable i = 10.0 of type nombre #x302003B1E4AD> is not of the expected type number.
#+END_SRC

1431
** DONE 00013 PG24,25,26: fail: Variables are not dereferenced enough.  :cli:
1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472
  CLOSED: [2014-06-09 Mon 17:24]
  - State "DONE"       from ""           [2014-06-09 Mon 17:24] \\
    Corrected by calling deref on all VM instruction parameters.
    cf. 00010

Variables are not dereferenced enough.
#+BEGIN_SRC(lse)
APPELER PG24
LISTER A PARTIR DE 1
1 AFFICHER 'NOMBRE DE NOTES = ';LIRE T
2 AFFICHER 'TAPEZ LES NOTES : ';S_0
3 FAIRE 4 POUR I_1 JUSQUA T
4 LIRE N;S_S+N
5 MOY_S/(I-1);AFFICHER 'MOYENNE = ',MOY
6 TERMINER
251*EXTRAIT DE "LANGAGE SYMBOLIQUE D'ENSEIGNEMENT L.S.E. MANUEL D'UTILISATION"
252*BULLETIN DE LIAISON "L'INFORMATIQUE ET L'ENSEIGNEMENT SECONDAIRE" JAN 1975
253*C.LAFOND - INSTITUT NATIONAL DE RECHERCHE ET DE DOCUMENTATION PEDAGOGIQUES
254*PROGRAMME PG24, PAGE 68, CALCUL DE LA MOYENNE DE T NOTES
255*[PAS TESTE SUR EMULSE]

EXECUTER A PARTIR DE 1

NOMBRE DE NOTES = 12
ERROR: The value #<LSE-VARIABLE T = 12.0 of type NOMBRE #x3020033ED55D> is not of the expected type REAL.
--------------------------------------------------------------------------------
(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)
(FUNCALL (:INTERNAL REPORT COMMAND-REPL) #<TYPE-ERROR #x3020033E049D>)
(FUNCALL (:INTERNAL DEBUG-ERROR COMMAND-REPL) #<TYPE-ERROR #x3020033E049D>)
(SIGNAL #<TYPE-ERROR #x3020033E049D>)
(%ERROR #<TYPE-ERROR #x3020033E049D> NIL 77698706)
(RUN-STEP #<LSE-VM 3 global variables, 0 local frames, 11 lines, current line 3 #x3020033BDE3D>)
(FUNCALL #<STANDARD-METHOD VM-RUN (LSE-VM)> #<LSE-VM 3 global variables, 0 local frames, 11 lines, current line 3 #x3020033BDE3D>)
(EXECUTER-A-PARTIR-DE 1 NIL)
(FUNCALL #<STANDARD-METHOD COMMAND-CALL (COMMAND)> #S(COMMAND :INITIALS "EX" :NAME "EXECUTER A PARTIR DE" ...))
(COMMAND-EVAL-LINE #<TASK #x3020033BDF1D> "EX")
(FUNCALL (:INTERNAL DO-IT COMMAND-REPL))
(COMMAND-REPL #<TASK #x3020033BDF1D>)
(MAIN NIL)
(CALL-CHECK-REGS COM.INFORMATIMAGO.LSE.CLI:MAIN)
(CHEAP-EVAL (COM.INFORMATIMAGO.LSE.CLI:MAIN))
1473 1474
(EVAL-REGION "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
1475 1476 1477 1478 1479
")
(FUNCALL (:INTERNAL SWANK::REPL-EVAL))
(TRACK-PACKAGE #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x3020033BE60F>)
(CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x3020033BE68F>)
(CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-EVAL) #x3020033BE6CF>)
1480 1481
(REPL-EVAL "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
1482 1483 1484
")
(CALL-CHECK-REGS
  SWANK:LISTENER-EVAL
1485 1486
  "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
1487 1488
")
(CHEAP-EVAL (SWANK:LISTENER-EVAL
1489 1490
  "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
1491 1492 1493
"))
(EVAL-FOR-EMACS
  (SWANK:LISTENER-EVAL
1494 1495
  "(in-package :com.informatimago.lse)
(com.informatimago.lse.cli:main)
1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515
")
  "COM.INFORMATIMAGO.LSE"
  66)
(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 #x302000EB87DF> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x3020010B75FF>)
(CALL-WITH-BINDINGS
  ((*STANDARD-OUTPUT* . #) (*STANDARD-INPUT* . #) (*TRACE-OUTPUT* . #) (*ERROR-OUTPUT* . #) (*DEBUG-IO* . #<TWO-WAY-STREAM input #, output # #x3020010AEBDD>) ...)
  #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::HANDLE-REQUESTS) #x3020010B75BF>)
(HANDLE-REQUESTS #<MULTITHREADED-CONNECTION #x3020010A2FAD> NIL)
(CALL-WITH-BINDINGS
  ((*PRINT-PRETTY*) (*PRINT-LEVEL*) (*PRINT-LENGTH*) (*PRINT-CIRCLE* . T) (*PRINT-CASE* . :DOWNCASE) ...)
  #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x3020010B794F>)
(RUN-PROCESS-INITIAL-FORM #<PROCESS repl-thread(78) [Active] #x3020010A60BD> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x3020010A5E4F>))
(FUNCALL (:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS repl-thread(78) [Active] #x3020010A60BD> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x3020010A5E4F>))
(FUNCALL (:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))
--------------------------------------------------------------------------------

My advice: exit after debugging.
1516
TAPEZ LES NOTES :
1517
#+END_SRC