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

Diff for /gforth/kernel/vars.fs between versions 1.13 and 1.16

version 1.13, 1999/03/08 21:36:08 version 1.16, 1999/05/05 12:04:41
Line 26  hex \ everything now hex! Line 26  hex \ everything now hex!
 \ "a true flag ... [is] a single-cell value with all bits set"  \ "a true flag ... [is] a single-cell value with all bits set"
 \ better definition: 0 0= constant true ( no dependence on 2's compl)  \ better definition: 0 0= constant true ( no dependence on 2's compl)
  -1 Constant true ( -- f ) \ core-ext   -1 Constant true ( -- f ) \ core-ext
 \G CONSTANT: f is a cell with all bits set.  \G CONSTANT: @var{f} is a cell with all bits set.
 \ see starts looking for primitives after this word!  \ see starts looking for primitives after this word!
   
   0 Constant false ( -- f ) \ core-ext    0 Constant false ( -- f ) \ core-ext
 \G CONSTANT: f is a cell with all bits clear.  \G CONSTANT: @var{f} is a cell with all bits clear.
   
   [IFUNDEF] cell 
 1 cells Constant cell ( -- u ) \ gforth  1 cells Constant cell ( -- u ) \ gforth
   [THEN]
 1 floats Constant float ( -- u ) \ gforth  1 floats Constant float ( -- u ) \ gforth
   
 20 Constant bl ( -- c-char ) \ core  20 Constant bl ( -- c-char ) \ core
 \G c-char is the character value for a space.  \G @var{c-char} is the character value for a space.
 \ used by docon:, must be constant  \ used by docon:, must be constant
   
 FF Constant /line  FF Constant /line
Line 105  AUser "error            0 "error ! Line 107  AUser "error            0 "error !
  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
  \G USER VARIABLE: a-addr is the address of a cell containing   \G USER VARIABLE: @var{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
  \G USER VARIABLE: a-addr is the address of a cell containing the   \G USER VARIABLE: @var{a-addr} is the address of a cell containing the
  \G char offset from the start of the terminal input buffer to the   \G char offset from the start of the terminal input buffer to the
  \G start of the parse area   \G start of the 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
  \G USER VARIABLE: a-addr is the address of a cell containing zero   \G USER VARIABLE: @var{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
  \G interpreted. A Standard program should not alter @code{blk} directly.   \G interpreted. A Standard program should not alter @code{blk} directly.
Line 137  has? file [IF] Line 139  has? file [IF]
 [THEN]  [THEN]
   
  User base ( -- a-addr ) \ core   User base ( -- a-addr ) \ core
  \G USER VARIABLE: a-addr is the address of a cell that stores the   \G USER VARIABLE: @var{a-addr} is the address of a cell that stores the
  \G number base used by default for number conversion during input and output.   \G number base used by default for number conversion during input and output.
                         A base !                          A base !
  User dpl               -1 dpl !   User dpl               -1 dpl !
Line 147  has? file [IF] Line 149  has? file [IF]
  \G and how to exorcise it},   \G and how to exorcise it},
  \G @url{http://www.complang.tuwien.ac.at/papers/ertl98.ps.gz}; short   \G @url{http://www.complang.tuwien.ac.at/papers/ertl98.ps.gz}; short
  \G version: Don't use @code{state}! @xref{Interpretation and   \G version: Don't use @code{state}! @xref{Interpretation and
  \G Compilation Semantics} for an alternative. USER VARIABLE: a-addr   \G Compilation Semantics} for an alternative. USER VARIABLE: @var{a-addr}
  \G is the address of a cell containing the compilation state flag. 0   \G is the address of a cell containing the compilation state flag. 0
  \G => interpreting, -1 => compiling.  A program shall not directly   \G => interpreting, -1 => compiling.  A program shall not directly
  \G alter the value of @code{state}. The following Standard words   \G alter the value of @code{state}. The following Standard words
Removed from v.1.13  
changed lines
  Added in v.1.16

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