gforth: gforth/kernel/vars.fs

Diff for /gforth/kernel/vars.fs between version 1.14 and 1.35

-version 1.14, Tue Mar 23 20:24:27 1999 UTC
+version 1.35, Sun May 11 17:17:14 2003 UTC
  Line 1
  Line 1
  Line 1
  \ VARS.FS      Kernal variables
- \ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
+ \ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc.
  \ This file is part of Gforth.
  Line 16
  Line 16
  Line 16
  \ You should have received a copy of the GNU General Public License
  \ along with this program; if not, write to the Free Software
- \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
  hex \ everything now hex!                               11may93jaw
  Line 26
  Line 26
  Line 26
  \ "a true flag ... [is] a single-cell value with all bits set"
  \ better definition: 0 0= constant true ( no dependence on 2's compl)
   -1 Constant true ( -- f ) \ core-ext
- \G CONSTANT: @var{f} is a cell with all bits set.
+ \G @code{Constant} -- @i{f} is a cell with all bits set.
  \ see starts looking for primitives after this word!
 Constant false ( -- f ) \ core-ext
- \G CONSTANT: @var{f} is a cell with all bits clear.
+ \G @code{Constant} -- @i{f} is a cell with all bits clear.
+ [IFUNDEF] cell
 cells Constant cell ( -- u ) \ gforth
+ \G @code{Constant} -- @code{1 cells}
+ [THEN]
+ has? floating [IF]
 floats Constant float ( -- u ) \ gforth
+ \G @code{Constant} -- the number of address units corresponding to a floating-point number.
+ [THEN]
-Constant bl ( -- c-char ) \ core
+Constant bl ( -- c-char ) \ core b-l
- \G @var{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
  FF Constant /line
- Line 45
+ Line 52
  Line 45
  Line 52
 Constant l/s
 Constant chars/block
- $20 8 2* cells + 2 + cell+ constant word-pno-size ( -- u )
+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!
- Line 53
+ Line 60
  Line 53
  Line 60
 constant pad-minsize ( -- u )
+ $400 Value def#tib
+ \G default size of terminal input buffer. Default size is 1K
  \ that's enough so long
- Line 60
+ Line 69
  Line 60
  Line 69
  \ initialized by COLD
- Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells allot
+ Create main-task  has? OS [IF] 100 [ELSE] 40 [THEN] cells dup allot
  \ set user-pointer from cross-compiler right
  main-task
- UNLOCK tup ! LOCK
+ UNLOCK swap region user-region user-region setup-region LOCK
- Variable udp \ user area size? -anton
+ Variable udp ( -- a-addr ) \ gforth
+ \G user area size
  AUser next-task        main-task next-task !
  AUser prev-task        main-task prev-task !
  AUser save-task        0 save-task !
  AUser sp0 ( -- a-addr ) \ gforth
- \G USER VARIABLE: Initial value of the data stack pointer.
+ \G @code{User} variable -- initial value of the data stack pointer.
  \ sp0 is used by douser:, must be user
      ' sp0 Alias s0 ( -- a-addr ) \ gforth
  \G OBSOLETE alias of @code{sp0}
  AUser rp0 ( -- a-addr ) \ gforth
- \G USER VARIABLE: Initial value of the return stack pointer.
+ \G @code{User} variable -- initial value of the return stack pointer.
      ' rp0 Alias r0 ( -- a-addr ) \ gforth
  \G OBSOLETE alias of @code{rp0}
+ has? floating [IF]
  AUser fp0 ( -- a-addr ) \ gforth
- \G USER VARIABLE: Initial value of the floating-point stack pointer.
+ \G @code{User} variable -- initial value of the floating-point stack pointer.
  \ no f0, because this leads to unexpected results when using hex
+ [THEN]
+ has? glocals [IF]
  AUser lp0 ( -- a-addr ) \ gforth
- \G USER VARIABLE: Initial value of the locals stack pointer.
+ \G @code{User} variable -- initial value of the locals stack pointer.
      ' lp0 Alias l0 ( -- a-addr ) \ gforth
  \G OBSOLETE alias of @code{lp0}
+ [THEN]
  AUser handler   \ pointer to last throw frame
+ has? backtrace [IF]
  User backtrace-empty \ true if the next THROW should store a backtrace
  AUser backtrace-rp0 \ rp at last call of interpret
+ [THEN]
  \ AUser output
  \ AUser input
- Line 101
+ Line 117
  Line 101
  Line 117
  AUser "error            0 "error !
+ has? new-input [IF]
+     User current-input
+ [ELSE]
  [IFUNDEF] #tib          \ in ec-Version we may define this ourself
   User tibstack          \ saves >tib in execute
   User >tib              \ pointer to terminal input buffer
-  User #tib ( -- a-addr ) \ core-ext
+         User #tib ( -- a-addr ) \ core-ext number-t-i-b
-  \G USER VARIABLE: @var{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 OBSOLESCENT: @code{source} superceeds the function of this word.
-  User >in ( -- a-addr ) \ core
+         User >in ( -- a-addr ) \ core to-in
-  \G USER VARIABLE: @var{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 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.
 >in ! \ char number currently processed in tib
  [THEN]
  has? file [IF]
-  User blk ( -- a-addr ) \ block
+  User blk ( -- a-addr ) \ block b-l-k
-  \G USER VARIABLE: @var{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 by @code{source-id}) or the number of the block currently being
   \G interpreted. A Standard program should not alter @code{blk} directly.
- Line 125
+ Line 145
  Line 125
  Line 145
   User loadfile          0 loadfile !
-  User loadfilename#     0 loadfilename# !
+user loadfilename     0 0 loadfilename 2! \ addr u for sourcefilename
   User loadline          \ number of the currently interpreted
                          \ (in TIB) line if the interpretation
- Line 135
+ Line 155
  Line 135
  Line 155
 User linestart         \ starting file postition of
                          \ the current interpreted line (in TIB)
  [THEN]
+ [THEN]
   User base ( -- a-addr ) \ core
-  \G USER VARIABLE: @var{a-addr} is the address of a cell that stores the
+ \G @code{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.
                          A base !
-  User dpl               -1 dpl !
+ User dpl ( -- a-addr ) \ gforth
+ \G @code{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
-  \G Recommended reading: @cite{@code{State}-smartness--Why it is evil
+ \G @code{User} variable -- @i{a-addr} is the address of a cell
-  \G and how to exorcise it},
+ \G containing the compilation state flag. 0 => interpreting, -1 =>
-  \G @url{http://www.complang.tuwien.ac.at/papers/ertl98.ps.gz}; short
+ \G compiling.  A program shall not directly alter the value of
-  \G version: Don't use @code{state}! @xref{Interpretation and
+ \G @code{state}. The following Standard words alter the value in
-  \G Compilation Semantics} for an alternative. USER VARIABLE: @var{a-addr}
+ \G @code{state}: @code{:} (colon) @code{;} (semicolon) @code{abort}
-  \G is the address of a cell containing the compilation state flag. 0
+ \G @code{quit} @code{:noname} @code{[} (left-bracket) @code{]}
-  \G => interpreting, -1 => compiling.  A program shall not directly
+ \G (right-bracket) @code{;code}. Don't use @code{state}! For an
-  \G alter the value of @code{state}. The following Standard words
+ \G alternative see @ref{Interpretation and Compilation Semantics}.
-  \G alter the value in @code{state}: @code{:} (colon) @code{;}
+ \ Recommended reading: @cite{@code{State}-smartness--Why it is evil
-  \G (semicolon) @code{abort} @code{quit} @code{:noname} @code{[}
+ \ and how to exorcise it},
-  \G (left-bracket) @code{]} (right-bracket) @code{;code}
+ \ @url{http://www.complang.tuwien.ac.at/papers/ertl98.ps.gz}; short
+ \ version: Don't use @code{state}!
 state !
  AUser normal-dp         \ the usual dictionary pointer
- Line 164
+ Line 192
  Line 164
  Line 192
  AUser LastCFA
  AUser Last
+ AUser last-compiled \ last compile,d xt
+                     \ 0 if last xt was dyn-compiled already (basic-block-end)
+last-compiled !
+ AUser last-compiled-here \ where LAST-COMPILED should be stored
+ User max-name-length \ maximum length of all names defined yet
+max-name-length !
+ \  has? peephole  [IF]
+ \  0 value peeptable \ initialized in boot
+ \  [THEN]
  has? glocals [IF]
  User locals-size \ this is the current size of the locals stack
                   \ frame of the current word

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.14
 


changed lines


 
Added in v.1.35
 Legend:



Removed from v.1.14
 


changed lines


 
Added in v.1.35
-Removed from v.1.14
+Added in v.1.35

CVS Admin

gforth: gforth/kernel/vars.fs

Diff for /gforth/kernel/vars.fs between version 1.14 and 1.35

ViewCVS and CVS Help