gforth/environ.fs - diff

Return to environ.fs CVS log

Up to [gforth] / gforth

version 1.26, 2000/11/29 19:43:07	version 1.29, 2003/01/19 23:35:29
Line 1	Line 1
\ environmental queries	\ environmental queries

\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.	\ Copyright (C) 1995-2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 41 vocabulary environment ( -- ) \ gforth	Line 41 vocabulary environment ( -- ) \ gforth

: 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

Line 107 version-string 2constant gforth ( -- c-a	Line 107 version-string 2constant gforth ( -- c-a
[ forthstart 5 cells + ] literal @	[ forthstart 5 cells + ] literal @
[IFDEF] float float [ELSE] [ 1 floats ] Literal [THEN] / ;	[IFDEF] float float [ELSE] [ 1 floats ] Literal [THEN] / ;

\ !! 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
maxvp constant wordlists	maxvp constant wordlists