[gforth] / gforth / environ.fs  

gforth: gforth/environ.fs

Diff for /gforth/environ.fs between version 1.22 and 1.29

version 1.22, Thu Aug 17 12:46:57 2000 UTC version 1.29, Sun Jan 19 23:35:29 2003 UTC
Line 1 
Line 1 
 \ environmental queries  \ environmental queries
   
 \ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.  \ Copyright (C) 1995-2003 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 16 
Line 16 
   
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program; if not, write to the Free Software  \ 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.
   
 \ wordlist constant environment-wordlist  \ wordlist constant environment-wordlist
   
 Create environment-wordlist ( -- wid ) \ gforth  vocabulary environment ( -- ) \ gforth
   \ for win32forth compatibility
   
   ' environment >body constant environment-wordlist ( -- wid ) \ gforth
   \G @i{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  
   
 : environment? ( c-addr u -- false / ... true ) \ core environment-query  : environment? ( c-addr u -- false / ... true ) \ core environment-query
     \G @i{c-addr, u} specify a counted string. If the string is not      \G @i{c-addr, u} specify a counted string. If the string is not
Line 38 
Line 41 
   
 : e? name environment? 0= ABORT" environmental dependency not existing" ;  : e? name environment? 0= ABORT" environmental dependency not existing" ;
   
 : has? name environment? 0= IF false THEN ;  
   
 : $has? environment? 0= IF false THEN ;  : $has? environment? 0= IF false THEN ;
   
   : has? name $has? ;
   
 environment-wordlist set-current  environment-wordlist set-current
 get-order environment-wordlist swap 1+ set-order  get-order environment-wordlist swap 1+ set-order
   
Line 88 
Line 91 
 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  \G Counted string representing a version string for this version of
 \G Gforth (for versions>0.3.0).  The version strings of the various  \G Gforth (for versions>0.3.0).  The version strings of the various
 \G versions are guaranteed to be sorted lexicographically.  \G versions are guaranteed to be ordered 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.
Line 104 
Line 107 
     [ forthstart 5 cells + ] literal @      [ forthstart 5 cells + ] literal @
     [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;      [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;
   
 \ !! max-float  
 15 constant #locals \ 1000 64 /  15 constant #locals \ 1000 64 /
     \ One local can take up to 64 bytes, the size of locals-buffer is 1000      \ One local can take up to 64 bytes, the size of locals-buffer is 1000
 maxvp constant wordlists  maxvp constant wordlists

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help