[BACK]Return to input.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/input.fs between versions 1.1 and 1.2

version 1.1, 2000/10/29 20:27:03 version 1.2, 2000/10/30 09:11:02
Line 96  Constant tib+ Line 96  Constant tib+
 :noname  1 <> -12 and throw >in ! ;  :noname  1 <> -12 and throw >in ! ;
                        \ restore-input                         \ restore-input
 :noname  >in @ 1 ;     \ save-input  :noname  >in @ 1 ;     \ save-input
 :noname  0 ;           \ source-id  ' false                \ source-id
 :noname  tib max#tib @ accept #tib !  :noname  tib max#tib @ accept #tib !
     >in off true 1 loadline +! ;     \ refill      >in off true 1 loadline +! ;     \ refill
 :noname  tib #tib @ ;  \ source  :noname  tib #tib @ ;  \ source
   
 | Create terminal-input   A, A, A, A, A,  | Create terminal-input   A, A, A, A, A,
   :noname  tib @ #tib @ ; \ source
 | Create evaluate-input  | Create evaluate-input
     terminal-input @ A,      A,                  \ source
     ' false A,      ' false A,          \ refill
     terminal-input 2 cells + @ A,      ' true A,           \ source-id
     terminal-input 3 cells + @ A,      terminal-input 3 cells + @ A, \ terminal::restore-input
     terminal-input 4 cells + @ A,      terminal-input 4 cells + @ A, \ terminal::save-input
   
 \ file input implementation  \ file input implementation
   
Line 184  has? file [IF] Line 185  has? file [IF]
     \G @code{0} and make the string @i{c-addr u} the input source      \G @code{0} and make the string @i{c-addr u} the input source
     \G and input buffer. Interpret. When the parse area is empty,      \G and input buffer. Interpret. When the parse area is empty,
     \G restore the input source specification.      \G restore the input source specification.
     evaluate-input over new-tib      evaluate-input cell new-tib
 [ has? file [IF] ]  [ has? file [IF] ]
     1 loadfilename# ! \ "*evaluated string*"      1 loadfilename# ! \ "*evaluated string*"
 [ [THEN] ]  [ [THEN] ]
     -1 loadline ! dup #tib ! tib swap move      -1 loadline ! #tib ! tib !
     ['] interpret catch pop-file throw ;      ['] interpret catch pop-file throw ;
   
 \ clear tibstack  \ clear tibstack
Removed from v.1.1  
changed lines
  Added in v.1.2

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