[Axiom-developer] [gdr-sandbox] |shoeread-line|

[Gabriel Dos Reis]

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|)))))))))