gforth/environ.fs - diff

Return to environ.fs CVS log

Up to [gforth] / gforth

version 1.25, 2000/09/23 15:46:52	version 1.27, 2001/09/16 10:20:39
Line 20	Line 20

\ 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 Create environment-wordlist ( -- wid ) \	Line 41 Create environment-wordlist ( -- wid ) \

: 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