Diff for /gforth/environ.fs between versions 1.18 and 1.20

version 1.18, 1999/02/03 00:10:19 version 1.20, 1999/12/03 18:24:23
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 49  get-order environment-wordlist swap 1+ s Line 50  get-order environment-wordlist swap 1+ s
 \ this should be computed in C as CHAR_BITS/sizeof(char),  \ this should be computed in C as CHAR_BITS/sizeof(char),
 \ but I don't know any machine with gcc where an au does not have 8 bits.  \ but I don't know any machine with gcc where an au does not have 8 bits.
 8 constant ADDRESS-UNIT-BITS ( -- n ) \ environment  8 constant ADDRESS-UNIT-BITS ( -- n ) \ environment
 \G Size of one address unit, it bits.  \G Size of one address unit, in bits.
   
 1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR ( -- u ) \ environment  1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR ( -- u ) \ environment
 \G Maximum value of any character in the character set  \G Maximum value of any character in the character set
Line 99  version-string 2constant gforth ( -- c-a Line 100  version-string 2constant gforth ( -- c-a
     [ forthstart 4 cells + ] literal @ cell / ;      [ forthstart 4 cells + ] literal @ cell / ;
   
 : floating-stack ( -- n ) \ environment  : floating-stack ( -- n ) \ environment
     \G n is non-zero, showing that Gforth maintains a separate      \G @var{n} is non-zero, showing that Gforth maintains a separate
     \G floating-point stack of depth n.      \G floating-point stack of depth @var{n}.
     [ forthstart 5 cells + ] literal @      [ forthstart 5 cells + ] literal @
     [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;      [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;
   

Removed from v.1.18  
changed lines
  Added in v.1.20


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