Diff for /gforth/kernel/files.fs between versions 1.11 and 1.13

version 1.11, 2000/09/09 20:32:58 version 1.13, 2000/09/12 19:20:06
Line 34 Line 34
     THEN      THEN
     newline r> write-file ;      newline r> write-file ;
   
 : read-line ( c_addr u1 wfileid -- u2 flag wior )  
     (read-line) drop ;  
   
 \ include-file                                         07apr93py  \ include-file                                         07apr93py
   
 : push-file  ( -- )  r>  : push-file  ( -- )  r>
     loadline @ >r      #fill-bytes @ >r
     loadfile @ >r      loadline @    >r
     blk @      >r      loadfile @    >r
     tibstack @ >r      blk @         >r
     >tib @     >r      tibstack @    >r
     #tib @     >r      >tib @        >r
     >in @      >r  >r      #tib @        >r
       >in @         >r  >r
     >tib @ tibstack @ = IF  #tib @ tibstack +!  THEN      >tib @ tibstack @ = IF  #tib @ tibstack +!  THEN
     tibstack @ >tib ! ;      tibstack @ >tib ! ;
   
Line 61 Line 59
          -1 cells +LOOP           -1 cells +LOOP
   THEN    THEN
   r>    r>
   r> >in      !    r> >in         !
   r> #tib     !    r> #tib        !
   r> >tib     !    r> >tib        !
   r> tibstack !    r> tibstack    !
   r> blk      !    r> blk         !
   r> loadfile !    r> loadfile    !
   r> loadline !  >r ;    r> loadline    !
     r> #fill-bytes !  >r ;
   
 : read-loop ( i*x -- j*x )  : read-loop ( i*x -- j*x )
   BEGIN  refill  WHILE  interpret  REPEAT ;    BEGIN  refill  WHILE  interpret  REPEAT ;

Removed from v.1.11  
changed lines
  Added in v.1.13


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>