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

Diff for /gforth/kernel/input.fs between versions 1.21 and 1.22

version 1.21, 2006/12/31 13:39:18 version 1.22, 2007/07/06 12:54:57
Line 26  DOES> ( ... -- ... ) @ current-input @ @ Line 26  DOES> ( ... -- ... ) @ current-input @ @
 DOES> ( -- addr ) @ current-input @ + ;  DOES> ( -- addr ) @ current-input @ + ;
   
 0  0
 input-method source ( -- addr u ) \ core-ext,file source  input-method source ( -- addr u ) \ core source
     \G Return address @i{addr} and length @i{u} of the current input      \G Return address @i{addr} and length @i{u} of the current input
     \G buffer      \G buffer
 input-method refill ( -- flag ) \ core-ext,block-ext,file-ext  input-method refill ( -- flag ) \ core-ext,block-ext,file-ext
Line 62  cell input-var >in ( -- addr ) \ core to Line 62  cell input-var >in ( -- addr ) \ core to
     \G cells containing the string (in c-addr u form) parsed with      \G cells containing the string (in c-addr u form) parsed with
     \G @code{parse}, @code{parse-name} or @code{word}.  If you do your      \G @code{parse}, @code{parse-name} or @code{word}.  If you do your
     \G own parsing, you can set it with @code{input-lexeme!}.      \G own parsing, you can set it with @code{input-lexeme!}.
 cell input-var #tib ( -- addr ) \ core-ext number-t-i-b  cell input-var #tib ( -- addr ) \ core-ext-obsolescent number-t-i-b
     \G @code{input-var} variable -- @i{a-addr} is the address of a      \G @code{input-var} variable -- @i{a-addr} is the address of a
     \G cell containing the number of characters in the terminal input      \G cell containing the number of characters in the terminal input
     \G buffer. OBSOLESCENT: @code{source} superceeds the function of      \G buffer. OBSOLESCENT: @code{source} superceeds the function of
Line 80  has? file [IF] Line 80  has? file [IF]
 cell input-var loadfile ( -- addr ) \ gforth  cell input-var loadfile ( -- addr ) \ gforth
     \G @code{input-var} variable -- This cell contains the file the      \G @code{input-var} variable -- This cell contains the file the
     \G input buffer is associated with (0 if none)      \G input buffer is associated with (0 if none)
 cell input-var blk ( -- addr ) \ block  cell input-var blk ( -- addr ) \ block b-l-k
     \G @code{input-var} variable -- This cell contains the current      \G @code{input-var} variable -- This cell contains the current
     \G block number      \G block number
 cell input-var #fill-bytes ( -- addr ) \ gforth  cell input-var #fill-bytes ( -- addr ) \ gforth
Line 90  cell input-var #fill-bytes ( -- addr ) \ Line 90  cell input-var #fill-bytes ( -- addr ) \
     \G @code{input-var} variable -- addr u describes name of currently      \G @code{input-var} variable -- addr u describes name of currently
     \G interpreted input (file name or somesuch)      \G interpreted input (file name or somesuch)
 [THEN]  [THEN]
 0 input-var tib ( -- addr ) \ core  0 input-var tib ( -- addr ) \ core-ext-obsolescent t-i-b
   
 Constant tib+  Constant tib+
   
Line 239  has? file [IF] Line 239  has? file [IF]
     current-input @ 0= IF  create-input  THEN      current-input @ 0= IF  create-input  THEN
     BEGIN  old-input @  WHILE  0 pop-file drop  REPEAT ;      BEGIN  old-input @  WHILE  0 pop-file drop  REPEAT ;
   
 : query ( -- ) \ core-ext  : query ( -- ) \ core-ext-obsolescent
     \G Make the user input device the input source. Receive input into      \G Make the user input device the input source. Receive input into
     \G the Terminal Input Buffer. Set @code{>IN} to zero. OBSOLESCENT:      \G the Terminal Input Buffer. Set @code{>IN} to zero. OBSOLESCENT:
     \G superceeded by @code{accept}.      \G superceeded by @code{accept}.
Removed from v.1.21  
changed lines
  Added in v.1.22

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