--- gforth/environ.fs 1997/06/06 17:27:54 1.12 +++ gforth/environ.fs 2007/12/31 19:02:24 1.33 @@ -1,12 +1,12 @@ \ environmental queries -\ Copyright (C) 1995 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998,2000,2003,2007 Free Software Foundation, Inc. \ This file is part of Gforth. \ Gforth is free software; you can redistribute it and/or \ modify it under the terms of the GNU General Public License -\ as published by the Free Software Foundation; either version 2 +\ as published by the Free Software Foundation, either version 3 \ of the License, or (at your option) any later version. \ This program is distributed in the hope that it will be useful, @@ -15,20 +15,35 @@ \ GNU General Public License for more details. \ 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. +\ along with this program. If not, see http://www.gnu.org/licenses/. \ wordlist constant environment-wordlist -Create environment-wordlist wordlist drop +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 queries. + : environment? ( c-addr u -- false / ... true ) \ core environment-query + \G @i{c-addr, u} specify a counted string. If the string is not + \G recognised, return a @code{false} flag. Otherwise return a + \G @code{true} flag and some (string-specific) information about + \G the queried string. environment-wordlist search-wordlist if execute true else false endif ; +: e? name environment? 0= ABORT" environmental dependency not existing" ; + +: $has? environment? 0= IF false THEN ; + +: has? name $has? ; + environment-wordlist set-current get-order environment-wordlist swap 1+ set-order @@ -37,35 +52,60 @@ get-order environment-wordlist swap 1+ s \ 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. 8 constant ADDRESS-UNIT-BITS ( -- n ) \ environment -1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR -MAX-CHAR constant /COUNTED-STRING -ADDRESS-UNIT-BITS cells 2* 2 + constant /HOLD -&84 constant /PAD -true constant CORE -true constant CORE-EXT -1 -3 mod 0< constant FLOORED - -1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N --1 constant MAX-U - --1 MAX-N 2constant MAX-D --1. 2constant MAX-UD - -version-string 2constant gforth \ version string (for versions>0.3.0) -\ the version strings of the various versions are guaranteed to be -\ sorted lexicographically +\G Size of one address unit, in bits. + +1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR ( -- u ) \ environment +\G Maximum value of any character in the character set + +MAX-CHAR constant /COUNTED-STRING ( -- n ) \ environment +\G Maximum size of a counted string, in characters. + +ADDRESS-UNIT-BITS cells 2* 2 + constant /HOLD ( -- n ) \ environment +\G Size of the pictured numeric string output buffer, in characters. + +&84 constant /PAD ( -- n ) \ environment +\G Size of the scratch area pointed to by @code{PAD}, in characters. + +true constant CORE ( -- f ) \ environment +\G True if the complete core word set is present. Always true for Gforth. + +true constant CORE-EXT ( -- f ) \ environment +\G True if the complete core extension word set is present. Always true for Gforth. + +1 -3 mod 0< constant FLOORED ( -- f ) \ environment +\G True if @code{/} etc. perform floored division + +1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N ( -- n ) \ environment +\G Largest usable signed integer. + +-1 constant MAX-U ( -- u ) \ environment +\G Largest usable unsigned integer. + +-1 MAX-N 2constant MAX-D ( -- d ) \ environment +\G Largest usable signed double. + +-1. 2constant MAX-UD ( -- ud ) \ environment +\G Largest usable unsigned double. + +version-string 2constant gforth ( -- c-addr u ) \ gforth-environment +\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 versions are guaranteed to be ordered lexicographically. -: return-stack-cells ( -- n ) +: return-stack-cells ( -- n ) \ environment + \G Maximum size of the return stack, in cells. [ forthstart 6 cells + ] literal @ cell / ; -: stack-cells ( -- n ) +: stack-cells ( -- n ) \ environment + \G Maximum size of the data stack, in cells. [ forthstart 4 cells + ] literal @ cell / ; -: floating-stack ( -- n ) +: floating-stack ( -- n ) \ environment + \G @var{n} is non-zero, showing that Gforth maintains a separate + \G floating-point stack of depth @var{n}. [ forthstart 5 cells + ] literal @ [IFDEF] float float [ELSE] [ 1 floats ] Literal [THEN] / ; -\ !! max-float 15 constant #locals \ 1000 64 / \ One local can take up to 64 bytes, the size of locals-buffer is 1000 maxvp constant wordlists