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

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

version 1.19, 1999/03/23 20:24:17 version 1.21, 2000/08/09 20:04:05
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.
Removed from v.1.19  
changed lines
  Added in v.1.21

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