environ wordset

description

-- Extended Environment related definitions

Copyright (C) Tektronix, Inc. 1998 - 2001. All rights reserved.

description: 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 searched&executed 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.

FORTH
ENVIRONMENT-WORDLIST ( .. )(); 
 ;

- loader type P4_DVaL ENVIRONMENT-WORDLIST

environ_wl (no special usage info)

FORTH
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 ;
 

dpANS .6.1.1345 - standard forth word

FORTH
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

FORTH
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

FORTH

NEEDS ( name -- )();
p4:"needs-environment";

A self-parsing variant of an environment-query check. It is similar to a simulation like

 : NEEDS PARSE-WORD 2DUP ENVIRONMENT? 
   IF DROP ( extra value ) 2DROP ( success - be silent )
   ELSE TYPE ." not available " CR THEN ;

however that would only match those worset-envqueries which return a single extra item under the uppermost TRUE flag in the success case. Instead it works more like

 : NEEDS PARSE-WORD 2DUP ENVIRONMENT-WORDLIST SEARCH-WORDLIST
   IF 2DROP ( success - be silent and just drop the parsed word )
   ELSE TYPE ." not available " CR THEN ;

however we add the same extension as in ENVIRONMENT? as that it can automatically load a wordset module to fullfil a query that looks like "[wordsetname]-ext". Therefore, the following two lines are pretty much identical:

 LOADM floating
 NEEDS floating-ext

the difference between the two: if somebody did provide a forth level implementation of floating-ext then that implementation might have registered a hint "floating-ext" in the environment-wordlist. This extra-hint will inhibit loading of the binary module even if it exists and not been loaded so far. The LOADM however will not check the ENVIRONMENT-WORDLIST and only check its loadlist of binary wordset modules in the system.

It is therefore recommended to use NEEDS instead of LOADM unless you know you want the binary module, quickly and uncondtionally.

ENVIRONMENT
ENVIRON-EXT ( .. )(); 
 ;
( 2000  )  constant ENVIRON-EXT

an ordinary constant (no special usage info)

ENVIRONMENT
HOST-SYSTEM ( .. )(); 
 ;

ordinary primitive HOST-SYSTEM

an executable word (no special usage info)

or wrapper call around p__host_system

ENVIRONMENT
FORTH-LICENSE ( .. )(); 
 ;

ordinary primitive FORTH-LICENSE

an executable word (no special usage info)

or wrapper call around p__forth_license

ENVIRONMENT
CASE-SENSITIVE? ( .. )(); 
 ;

ordinary primitive CASE-SENSITIVE?

an executable word (no special usage info)

or wrapper call around p__case_sensitive_Q

ENVIRONMENT

FORTH-NAME ( .. )();
as:"forth-minus-name";

ordinary primitive FORTH-NAME

an executable word (no special usage info)

or wrapper call around p__forth_name

ENVIRONMENT
FORTH-VERSION ( .. )(); 
 ;

ordinary primitive FORTH-VERSION

an executable word (no special usage info)

or wrapper call around p__forth_version

ENVIRONMENT
FORTH-CONTACT ( .. )(); 
 ;

ordinary primitive FORTH-CONTACT

an executable word (no special usage info)

or wrapper call around p__forth_contact