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

Diff for /gforth/kernel/input.fs between versions 1.8 and 1.9

version 1.8, 2003/03/09 15:17:06 version 1.9, 2004/05/14 17:09:23
Line 228  has? file [IF] Line 228  has? file [IF]
 \ load a file  \ load a file
   
 has? file [IF]  has? file [IF]
   defer line-end-hook ( -- ) \ gforth
   \G called at every end-of-line when text-interpreting from a file    
   \ alternatively we could use a wrapper for REFILL
   ' noop is line-end-hook
       
 : read-loop ( i*x -- j*x ) \ gforth  : read-loop ( i*x -- j*x ) \ gforth
     \G refill and interpret a file until EOF      \G refill and interpret a file until EOF
     BEGIN  refill  WHILE  interpret  REPEAT ;      BEGIN  refill  WHILE  interpret line-end-hook REPEAT ;
   
 : execute-parsing-named-file ( i*x wfileid filename-addr filename-u xt -- j*x )  : execute-parsing-named-file ( i*x wfileid filename-addr filename-u xt -- j*x )
     >r push-file \ dup 2* cells included-files 2@ drop + 2@ type      >r push-file \ dup 2* cells included-files 2@ drop + 2@ type
Removed from v.1.8  
changed lines
  Added in v.1.9

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