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

Diff for /gforth/environ.fs between versions 1.19 and 1.22

version 1.19, 1999/03/23 20:24:17 version 1.22, 2000/08/17 12:46:57
Line 21 Line 21
 \ wordlist constant environment-wordlist  \ wordlist constant environment-wordlist
   
 Create environment-wordlist ( -- wid ) \ gforth  Create environment-wordlist ( -- wid ) \ gforth
   \G wid identifies the word list that is searched by environmental    \G @i{wid} identifies the word list that is searched by environmental
   \G queries.    \G queries.
   wordlist drop    wordlist drop
   
 : environment? ( c-addr u -- false / ... true ) \ core environment-query  : environment? ( c-addr u -- false / ... true ) \ core environment-query
     \G c-addr, u specify the address and length of a string. If the string is      \G @i{c-addr, u} specify a counted string. If the string is not
     \G not recognised, return a @code{false} flag. Otherwise return a true      \G recognised, return a @code{false} flag. Otherwise return a
     \G flag and some (string-specific) information about the queried string.      \G @code{true} flag and some (string-specific) information about
       \G the queried string.
     environment-wordlist search-wordlist if      environment-wordlist search-wordlist if
         execute true          execute true
     else      else
Line 70  true constant CORE-EXT ( -- f ) \ enviro Line 71  true constant CORE-EXT ( -- f ) \ enviro
 \G True if the complete core extension word set is present. Always true for Gforth.  \G True if the complete core extension word set is present. Always true for Gforth.
   
 1 -3 mod 0< constant FLOORED ( -- f ) \ environment  1 -3 mod 0< constant FLOORED ( -- f ) \ environment
 \G True if division is floored by default.  \G True if @code{/} etc. perform floored division
   
 1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N ( -- n ) \ environment  1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N ( -- n ) \ environment
 \G Largest usable signed integer.  \G Largest usable signed integer.
Line 85  true constant CORE-EXT ( -- f ) \ enviro Line 86  true constant CORE-EXT ( -- f ) \ enviro
 \G Largest usable unsigned double.  \G Largest usable unsigned double.
   
 version-string 2constant gforth ( -- c-addr u ) \ gforth-environment  version-string 2constant gforth ( -- c-addr u ) \ gforth-environment
 \G Counted string representing a version string for this version of Gforth  \G Counted string representing a version string for this version of
 \G (for versions>0.3.0).  \G Gforth (for versions>0.3.0).  The version strings of the various
 \ the version strings of the various versions are guaranteed to be  \G versions are guaranteed to be sorted lexicographically.
 \ sorted lexicographically  
   
 : return-stack-cells ( -- n ) \ environment  : return-stack-cells ( -- n ) \ environment
     \G Maximum size of the return stack, in cells.      \G Maximum size of the return stack, in cells.
Removed from v.1.19  
changed lines
  Added in v.1.22

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