[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] [gdr-sandbox] |shoeread-line|
From: |
Gabriel Dos Reis |
Subject: |
[Axiom-developer] [gdr-sandbox] |shoeread-line| |
Date: |
17 Mar 2007 14:21:22 -0500 |
renamed to shoeReadLine and moved from initial-env.lisp to in
ptyout.boot, the only file that uses it. It is now defined in Boot,
instead of Lisp.
Applied to gdr-sandbox.
Make all-boot with SBCL.
-- Gaby
2007-03-17 Gabriel Dos Reis <address@hidden>
* src/boot/initial-env.lisp.pamphlet (|shoeread-line|): Move to...
* src/boot/ptyout.boot.pamphlet (shoeReadLine): ... here. Rename.
(bRgen1): Update.
Update cachaed Lisp translation.
*** src/boot/initial-env.lisp.pamphlet (revision 19345)
--- src/boot/initial-env.lisp.pamphlet (local)
*************** with the base Lisp system.
*** 228,236 ****
(defun make-full-cvec (sint &optional (char #\space))
(make-string sint :initial-element (character char)))
- (defun |shoeread-line| (st &optional (eofval nil))
- (read-line st nil eofval))
-
(defun |shoePLACEP| (item)
(eq item nil))
--- 228,233 ----
*** src/boot/ptyout.boot.pamphlet (revision 19345)
--- src/boot/ptyout.boot.pamphlet (local)
*************** BOOTTOCLLINES(lines, fn)==
*** 109,114 ****
--- 109,120 ----
setCurrentPackage x ==
SETQ(_*PACKAGE_*,x)
+
+ ++ Read a Newline-terminated line form input STREAM. Return nil
+ ++ if end-of-file is reached before any character is actually read.
+ shoeReadLine stream ==
+ READ_-LINE(stream, nil)
+
-- (boottocl "filename") translates the file "filename.boot" to
-- the common lisp file "filename.clisp"
*************** bNext1(f,s)==
*** 475,481 ****
bRgen s==bDelay(function bRgen1,[s])
bRgen1(:s) ==
! a:=shoeread_-line car s
if shoePLACEP a
then
-- shoeCLOSE car s
--- 481,487 ----
bRgen s==bDelay(function bRgen1,[s])
bRgen1(:s) ==
! a:=shoeReadLine car s
if shoePLACEP a
then
-- shoeCLOSE car s
*************** PSTOUT string==
*** 887,892 ****
--- 893,901 ----
(DEFUN |setCurrentPackage| (|x|)
(PROG () (RETURN (SETQ *PACKAGE* |x|))))
+ (DEFUN |shoeReadLine| (|stream|)
+ (PROG () (RETURN (READ-LINE |stream| NIL))))
+
(DEFUN BOOTTOCL (|fn|)
(PROG (|$bfClamming|)
(DECLARE (SPECIAL |$bfClamming|))
*************** PSTOUT string==
*** 1469,1475 ****
(PROG (|a|)
(RETURN
(PROGN
! (SETQ |a| (|shoeread-line| (CAR |s|)))
(COND
((|shoePLACEP| |a|) (LIST '|nullstream|))
('T (CONS |a| (|bRgen| (CAR |s|)))))))))
--- 1478,1484 ----
(PROG (|a|)
(RETURN
(PROGN
! (SETQ |a| (|shoeReadLine| (CAR |s|)))
(COND
((|shoePLACEP| |a|) (LIST '|nullstream|))
('T (CONS |a| (|bRgen| (CAR |s|)))))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Axiom-developer] [gdr-sandbox] |shoeread-line|,
Gabriel Dos Reis <=