Commit 2808c2ae authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

00022, 00032: Fixed.

parent db7ec6ee
......@@ -6,40 +6,86 @@ 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
#+END_SRC
* TODO 00020 pg42,pg75,pg75b affichage format :cli:
* DONE 00020 pg42,pg75,pg75b affichage format :cli:
CLOSED: [2015-04-03 Fri 09:17]
- State "DONE" from "TODO" [2015-04-03 Fri 09:17] \\
Note: We don't get the space between 'AVRIL' and '1972'
in AFFICHER[U,'1972']'AVRIL', but I think this is how it
should be.
pg42
F2.0 --> ne doit pas afficher le point.
U string -> doit afficher un espace suffixe.
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
LUNDI 31. AVRIL1972
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
LUNDI 31 AVRIL 1972
TERMINE EN LIGNE 016
#+END_SRC
* TODO 00032 pg74,pg80 afficher[*'I']N :cli:
* DONE 00022 pg44 affichage format :cli:
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 =====
1 50
LUNDI
1 2 3 4
5 6 7 8
9 10 11 12 =====
1 50
LUNDI
1 2 3 4
5 6 7 8
9 10 11 12 =====
1 50
LUNDI
1 2 3 4
5 6 7 8
9 10 11 12 =====
1 LUNDI
1 2 3 4
5 6 7 8
9 10 11 12 =====
#+END_SRC
* DONE 00032 pg74,pg80 afficher[*'I']N :cli:
CLOSED: [2015-04-03 Fri 09:27]
- State "DONE" from "TODO" [2015-04-03 Fri 09:27] \\
Corrected.
y_33;afficher[*'--']y
......@@ -124,41 +170,6 @@ ERROR: Unknown type specifier: IDENTIFIER
--------------------------------------------------------------------------------
#+END_SRC
* TODO 00022 pg44 affichage format :cli:
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 =====
1 50
LUNDI
1 2 3 4
5 6 7 8
9 10 11 12 =====
1 50
LUNDI
1 2 3 4
5 6 7 8
9 10 11 12 =====
1 50
LUNDI
1 2 3 4
5 6 7 8
9 10 11 12 =====
1 LUNDI
1 2 3 4
5 6 7 8
9 10 11 12 =====
#+END_SRC
* TODO 00019 pg37,pg46,pg47,pg76 affichage des matrices :cli:
pg37:
......
......@@ -440,7 +440,7 @@ RETURN: vm
(io-carriage-return *task*))
(defun afficher-space (vm rep)
(check-type rep (or (integer 1) nombre identifier named-slot))
(check-type rep (or (integer 1) nombre named-slot))
(let ((rep (round (deref vm rep))))
(when (plusp rep)
(io-format *task* "~VA" rep ""))))
......@@ -449,7 +449,7 @@ RETURN: vm
(io-new-line *task* (deref vm rep)))
(defun afficher-chaine (vm rep val)
(check-type rep (or (integer 1) nombre identifier named-slot))
(check-type rep (or (integer 1) nombre named-slot))
(check-type val chaine)
(io-format *task* "~A"
(with-output-to-string (out)
......@@ -473,20 +473,18 @@ RETURN: vm
:for i :below (length value)
:initially (afficher-newline vm 1)
:do (if (functionp ctrl)
(progn (funcall ctrl vm (aref value i))
(io-format *task* " "))
(io-format *task* "~? " ctrl (list (aref value i))))))
(funcall ctrl vm (aref value i))
(io-format *task* ctrl (aref value i)))))
(array
(loop
:for i :below (array-dimension value 0)
:initially (afficher-newline vm 1)
:do (loop
:for j :below (array-dimension value 1)
:initially (afficher-newline vm 1)
:do (if (functionp ctrl)
(progn (funcall ctrl vm (aref value i j))
(io-format *task* " "))
(io-format *task* "~? " ctrl (list (aref value i j)))))))))
(funcall ctrl vm (aref value i j))
(io-format *task* ctrl (aref value i j)))
:finally (afficher-newline vm 1))))))
(defun afficher-e (vm val e d)
......@@ -510,7 +508,7 @@ RETURN: vm
(defun afficher-f (vm val e d)
(let* ((val (deref vm val))
(w (+ e 1 d))
(w (+ e (if (plusp d) 1 0) d))
(ctrl (with-standard-io-syntax
(let ((*package* (load-time-value (find-package :keyword))))
(format nil "~~~A,~A/~S/" w d 'fmt-f)))))
......@@ -530,7 +528,7 @@ RETURN: vm
tvalue
value))))
(chaine
(io-format *task* "~A" value))
(io-format *task* "~A" value))
((or vector array)
(afficher-with-format vm (function afficher-u) value)))))
......@@ -1587,6 +1585,7 @@ Voir: FAIREJUSQUA, FAIRETANTQUE"
t)))
;; (setf *debug-vm* t)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment