[gforth] / gforth / kernel / vars.fs  

gforth: gforth/kernel/vars.fs

Diff for /gforth/kernel/vars.fs between version 1.10 and 1.17

version 1.10, Wed Feb 3 00:10:26 1999 UTC version 1.17, Thu May 6 21:33:37 1999 UTC
Line 26 
Line 26 
 \ "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: @i{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: @i{f} is a cell with all bits clear.
   
   [IFUNDEF] cell
 1 cells Constant cell ( -- u ) \ gforth  1 cells Constant cell ( -- u ) \ gforth
   \G CONSTANT: the number of address units corresponding to 1 cell.
   [THEN]
   
 1 floats Constant float ( -- u ) \ gforth  1 floats Constant float ( -- u ) \ gforth
   \G CONSTANT: the number of address units corresponding to a floating-point number.
   
 20 Constant bl ( -- c-char ) \ core  20 Constant bl ( -- c-char ) \ core
 \G 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
   
 FF Constant /line  FF Constant /line
Line 46 
Line 51 
 400 Constant chars/block  400 Constant chars/block
   
 $20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )  $20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
   create holdbuf word-pno-size chars allot
   holdbuf word-pno-size chars + aconstant holdbuf-end
   avariable holdptr holdbuf-end holdptr a!
   avariable holdend holdbuf-end holdend a!
   
 84 constant pad-minsize ( -- u )  84 constant pad-minsize ( -- u )
   
   
 \ that's enough so long  \ that's enough so long
   
 \ User variables                                       13feb93py  \ User variables                                       13feb93py
Line 86 
Line 97 
 \G OBSOLETE alias of @code{lp0}  \G OBSOLETE alias of @code{lp0}
   
 AUser handler   \ pointer to last throw frame  AUser handler   \ pointer to last throw frame
 AUser backtrace-empty \ true if the next THROW should store a backtrace  User backtrace-empty \ true if the next THROW should store a backtrace
   AUser backtrace-rp0 \ rp at last call of interpret
 \ AUser output  \ AUser output
 \ AUser input  \ AUser input
   
Line 98 
Line 110 
  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: @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
  \G USER VARIABLE: a-addr is the address of a cell containing the   \G USER VARIABLE: @i{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 input buffer to the start of the
  \G start of the 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
  \G USER VARIABLE: a-addr is the address of a cell containing zero   \G 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
  \G interpreted. A Standard program should not alter @code{blk} directly.   \G interpreted. A Standard program should not alter @code{blk} directly.
Line 130 
Line 142 
 [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: @i{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 ( -- a-addr ) \ gforth
    \G USER VARIABLE: @i{a-addr} is the address of a cell that stores the
    \G position of the decimal point in the most recent numeric conversion.
    \G Initialised to -1. After the conversion of a number containing no
    \G decimal point, @code{@ dpl} is -1. After the conversion of @code{2.} it holds
    \G 0. After the conversion of 234123.9 it contains 1, and so forth.
    -1 dpl !
   
  User state ( -- a-addr ) \ core,tools-ext   User state ( -- a-addr ) \ core,tools-ext
  \G USER VARIABLE: a-addr is the address of a cell containing   \G USER VARIABLE: @i{a-addr} is the address of a cell containing the
  \G the compilation state flag. 0 => interpreting, -1 => compiling.   \G compilation state flag. 0 => interpreting, -1 => compiling.  A
  \G A program shall not directly alter the value of @code{state}. The   \G program shall not directly alter the value of @code{state}. The
  \G following Standard words alter the value in @code{state}:   \G following Standard words alter the value in @code{state}: @code{:}
  \G @code{:} (colon) @code{;} (semicolon) @code{abort} @code{quit}   \G (colon) @code{;} (semicolon) @code{abort} @code{quit}
  \G @code{:noname} @code{[} (left-bracket) @code{]} (right-bracket)   \G @code{:noname} @code{[} (left-bracket) @code{]} (right-bracket)
  \G @code{;code}   \G @code{;code}. Don't use @code{state}! @xref{Interpretation and
    \G Compilation Semantics} for an alternative.
    \  Recommended reading: @cite{@code{State}-smartness--Why it is evil
    \  and how to exorcise it},
    \  @url{http://www.complang.tuwien.ac.at/papers/ertl98.ps.gz}; short
    \  version: Don't use @code{state}!
                         0 state !                          0 state !
   
 AUser normal-dp         \ the usual dictionary pointer  AUser normal-dp         \ the usual dictionary pointer

Generate output suitable for use with a patch program
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.17
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help