environ

"Environment related definitions"

environ
gforth and win32for are also using an extra ENVIRONMENT
wordlist to register hints on the system environment. It
is just a normal VOCABULARY that can be searchedexecuted
with ENVIRONMENT? . In pfe, the environment wordlist does
also register the extension status of the system including
allocated slots, loaded binaries and REQUIRED source files.

Tektronix CTE

%version: bln_mpt1!1.14 %

GNU LGPL

FORTH

* ENVIRONMENT-WORDLIST ( -- wid )

return the WORDLIST id of the ENVIRONMENT so

it could be passed to CURRENT (via SET-CURRENT)
 WORDLIST VALUE ENVIRONMENT-WORDLIST ;

environ loader code P4_DVaL

* ENVIRONMENT? ( a1 n1 -- false | ?? true )

check the environment for a property, usually
a condition like questioning the existance of
specified wordset, but it can also return some
implementation properties like "WORDLISTS"
(the length of the search-order) or "#LOCALS"
(the maximum number of locals)

Here it implements the environment queries as a SEARCH-WORDLIST
in a user-visible vocabulary called ENVIRONMENT

 : ENVIRONMENT?
   ['] ENVIRONMENT >WORDLIST SEARCH-WORDLIST
   IF  EXECUTE TRUE ELSE  FALSE THEN ;

environ ordinary primitive

* REQUIRED ( ... str-ptr str-len -- ??? )

the filename argument is loaded via INCLUDED as
an extension package to the current system. The filename
is registered in the current ENVIRONMENT so that it is
only INCLUDED once (!!) if called multiple times via
REQUIRED or REQUIRES

environ ordinary primitive

* REQUIRES ( ... "name" -- ??? )

parses the next WORD and passes it to REQUIRED
this is the self-parsing version of REQUIRED and
it does parrallel INCLUDE w.r.t. INCLUDED

environ ordinary primitive

ENVIRONMENT ENVIRONMENT ENVIRON-EXT