Added read-eval-print loop
git-svn-id: svn://10.0.0.236/trunk@86489 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
parent
e0c44b2f3d
commit
bb3b6b8746
@ -143,6 +143,16 @@
|
||||
(format *trace-output* "!")))))))
|
||||
|
||||
|
||||
; Simple JS2 read-eval-print loop.
|
||||
(defun rep ()
|
||||
(loop
|
||||
(let ((s (read-line *terminal-io* t)))
|
||||
(format *terminal-io* "<~S>~%" s)
|
||||
(dolist (r (multiple-value-list (js-parse s)))
|
||||
(write r :stream *terminal-io* :pretty t)
|
||||
(terpri *terminal-io*)))))
|
||||
|
||||
|
||||
#|
|
||||
(js-parse "1+2*/4*/
|
||||
32")
|
||||
|
||||
@ -143,6 +143,16 @@
|
||||
(format *trace-output* "!")))))))
|
||||
|
||||
|
||||
; Simple JS2 read-eval-print loop.
|
||||
(defun rep ()
|
||||
(loop
|
||||
(let ((s (read-line *terminal-io* t)))
|
||||
(format *terminal-io* "<~S>~%" s)
|
||||
(dolist (r (multiple-value-list (js-parse s)))
|
||||
(write r :stream *terminal-io* :pretty t)
|
||||
(terpri *terminal-io*)))))
|
||||
|
||||
|
||||
#|
|
||||
(js-parse "1+2*/4*/
|
||||
32")
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user