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

Diff for /gforth/kernel/vars.fs between versions 1.19 and 1.22

version 1.19, 1999/11/08 22:01:12 version 1.22, 2000/08/10 20:46:26
Line 34  hex \ everything now hex! Line 34  hex \ everything now hex!
   
 [IFUNDEF] cell   [IFUNDEF] cell 
 1 cells Constant cell ( -- u ) \ gforth  1 cells Constant cell ( -- u ) \ gforth
 \G @code{Constant} -- the number of address units corresponding to 1 cell.  \G @code{Constant} -- @code{1 cells}
 [THEN]  [THEN]
   
 1 floats Constant float ( -- u ) \ gforth  1 floats Constant float ( -- u ) \ gforth
 \G @code{Constant} -- the number of address units corresponding to a floating-point number.  \G @code{Constant} -- the number of address units corresponding to a floating-point number.
   
 20 Constant bl ( -- c-char ) \ core  20 Constant bl ( -- c-char ) \ core b-l
 \G @i{c-char} is the character value for a space.  \G @i{c-char} is the character value for a space.
 \ used by docon:, must be constant  \ used by docon:, must be constant
   
Line 112  AUser "error            0 "error ! Line 112  AUser "error            0 "error !
 [IFUNDEF] #tib          \ in ec-Version we may define this ourself  [IFUNDEF] #tib          \ in ec-Version we may define this ourself
  User tibstack          \ saves >tib in execute   User tibstack          \ saves >tib in execute
  User >tib              \ pointer to terminal input buffer   User >tib              \ pointer to terminal input buffer
  User #tib ( -- a-addr ) \ core-ext   User #tib ( -- a-addr ) \ core-ext number-t-i-b
  \G @code{User} variable -- @i{a-addr} is the address of a cell containing   \G @code{User} variable -- @i{a-addr} is the address of a cell containing
  \G the number of characters in the terminal input buffer.   \G the number of characters in the terminal input buffer.
  \G OBSOLESCENT: @code{source} superceeds the function of this word.   \G OBSOLESCENT: @code{source} superceeds the function of this word.
   
  User >in ( -- a-addr ) \ core   User >in ( -- a-addr ) \ core to-in
  \G @code{User} variable -- @i{a-addr} is the address of a cell containing the   \G @code{User} variable -- @i{a-addr} is the address of a cell containing the
  \G char offset from the start of the input buffer to the start of the   \G char offset from the start of the input buffer to the start of the
  \G parse area.   \G parse area.
                         0 >in ! \ char number currently processed in tib                          0 >in ! \ char number currently processed in tib
 [THEN]  [THEN]
 has? file [IF]  has? file [IF]
  User blk ( -- a-addr ) \ block   User blk ( -- a-addr ) \ block b-l-k
  \G @code{User} variable -- @i{a-addr} is the address of a cell containing zero   \G @code{User} variable -- @i{a-addr} is the address of a cell containing zero
  \G (in which case the input source is not a block and can be identified   \G (in which case the input source is not a block and can be identified
  \G by @code{source-id}) or the number of the block currently being   \G by @code{source-id}) or the number of the block currently being
Line 157  has? file [IF] Line 157  has? file [IF]
  -1 dpl !   -1 dpl !
   
  User state ( -- a-addr ) \ core,tools-ext   User state ( -- a-addr ) \ core,tools-ext
  \G @code{User} variable -- @i{a-addr} is the address of a cell containing the   \G @code{User} variable -- @i{a-addr} is the address of a cell
  \G compilation state flag. 0 => interpreting, -1 => compiling.  A   \G containing the compilation state flag. 0 => interpreting, -1 =>
  \G program shall not directly alter the value of @code{state}. The   \G compiling.  A program shall not directly alter the value of
  \G following Standard words alter the value in @code{state}: @code{:}   \G @code{state}. The following Standard words alter the value in
  \G (colon) @code{;} (semicolon) @code{abort} @code{quit}   \G @code{state}: @code{:} (colon) @code{;} (semicolon) @code{abort}
  \G @code{:noname} @code{[} (left-bracket) @code{]} (right-bracket)   \G @code{quit} @code{:noname} @code{[} (left-bracket) @code{]}
  \G @code{;code}. Don't use @code{state}! @xref{Interpretation and   \G (right-bracket) @code{;code}. Don't use @code{state}! For an
  \G Compilation Semantics} for an alternative.    \G alternative see @ref{Interpretation and Compilation Semantics}.
  \  Recommended reading: @cite{@code{State}-smartness--Why it is evil   \ Recommended reading: @cite{@code{State}-smartness--Why it is evil
  \  and how to exorcise it},   \ and how to exorcise it},
  \  @url{http://www.complang.tuwien.ac.at/papers/ertl98.ps.gz}; short   \ @url{http://www.complang.tuwien.ac.at/papers/ertl98.ps.gz}; short
  \  version: Don't use @code{state}!    \ version: Don't use @code{state}!
  0 state !   0 state !
   
 AUser normal-dp         \ the usual dictionary pointer  AUser normal-dp         \ the usual dictionary pointer
Removed from v.1.19  
changed lines
  Added in v.1.22

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