gforth/environ.fs - diff

Return to environ.fs CVS log

Up to [gforth] / gforth

version 1.9, 1996/10/25 17:09:43	version 1.12, 1997/06/06 17:27:54
Line 22	Line 22

Create environment-wordlist wordlist drop	Create environment-wordlist wordlist drop

: environment? ( c-addr u -- false / ... true )	: environment? ( c-addr u -- false / ... true ) \ core environment-query
environment-wordlist search-wordlist if	environment-wordlist search-wordlist if
execute true	execute true
else	else
Line 51 true constant CORE-EXT	Line 51 true constant CORE-EXT
-1 MAX-N 2constant MAX-D	-1 MAX-N 2constant MAX-D
-1. 2constant MAX-UD	-1. 2constant MAX-UD

0 1 2constant gforth \ minor major version	version-string 2constant gforth \ version string (for versions>0.3.0)
	\ the version strings of the various versions are guaranteed to be
	\ sorted lexicographically

	: return-stack-cells ( -- n )
	[ forthstart 6 cells + ] literal @ cell / ;

	: stack-cells ( -- n )
	[ forthstart 4 cells + ] literal @ cell / ;

	: floating-stack ( -- n )
	[ forthstart 5 cells + ] literal @
	[IFDEF] float float [ELSE] [ 1 floats ] Literal [THEN] / ;

\ !! RETURN-STACK-CELLS
\ !! STACK-CELLS
\ !! floating-stack
\ !! max-float	\ !! 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