Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1356
Modified Files:
extend.f
Added Files:
environ.f
Log Message:
arm: add environ.f to support environment? queries
--- NEW FILE: environ.f ---
\ $Id: environ.f,v 1.1 2006/10/06 16:57:02 alex_mcdonald Exp $
\ ENVIRON.F ENVIRONMENT? support by Tom Zimmer
cr .( Loading ANS ENVIRONMENT...)
\ Implementation suggested by Andrew McKewan
only forth also definitions
1 #vocabulary environment
: environment? ( a1 n1 -- false | ?? true )
['] environment >body search-wordlist
if execute true
else false
then ;
environment definitions
MAXCOUNTED CONSTANT /COUNTED-STRING
0x50 CONSTANT /HOLD
MAXSTRING CONSTANT /PAD
8 CONSTANT ADDRESS-UNIT-BITS
TRUE CONSTANT CORE
TRUE CONSTANT CORE-EXT
-10 7 / -2 = CONSTANT FLOORED
\ -rbs
\ 0xFFFFFFFF CONSTANT MAX-CHAR
0xFF CONSTANT MAX-CHAR
0x7FFFFFFF.FFFFFFFF 2CONSTANT MAX-D
0x7FFFFFFF CONSTANT MAX-N
0xFFFFFFFF CONSTANT MAX-U
0xFFFFFFFF.FFFFFFFF 2CONSTANT MAX-UD
0x100 CONSTANT RETURN-STACK-CELLS
0x100 CONSTANT STACK-CELLS
TRUE CONSTANT DOUBLE
TRUE CONSTANT DOUBLE-EXT
TRUE CONSTANT EXCEPTION
TRUE CONSTANT EXCEPTION-EXT
TRUE CONSTANT FACILITY
TRUE CONSTANT FACILITY-EXT
TRUE CONSTANT MEMORY-ALLOC
TRUE CONSTANT MEMORY-ALLOC-EXT
TRUE CONSTANT FILE
TRUE CONSTANT FILE-EXT
TRUE CONSTANT TOOLS
TRUE CONSTANT TOOLS-EXT
TRUE CONSTANT SEARCH-ORDER
TRUE CONSTANT SEARCH-ORDER-EXT
#VOCS CONSTANT WORDLISTS
TRUE CONSTANT STRING
TRUE CONSTANT STRING-EXT
12 CONSTANT #LOCALS
: LOCALS TRUE ;
TRUE CONSTANT LOCALS-EXT
TRUE CONSTANT WIN32FORTH
LOADED? FLOAT.F [IF]
TRUE CONSTANT FLOATING
TRUE CONSTANT FLOATING-EXT
FSTACK-ELEMENTS CONSTANT FLOATING-STACK
FBIG FCONSTANT MAX-FLOAT
[then]
forth definitions
Index: extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/extend.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** extend.f 6 Oct 2006 16:36:49 -0000 1.9
--- extend.f 6 Oct 2006 16:57:02 -0000 1.10
***************
*** 18,21 ****
--- 18,22 ----
FLOAD src\paths.f \ multi path support words
sys-fload src\imageman.f \ fsave, application & turnkey words
+ sys-FLOAD src\environ.f \ environment? support
sys-FLOAD src\dis486.f \ load the disassembler
***************
*** 57,61 ****
\ FLOAD src\scrnctrl.f \ screen control words *** OBSOLETE ***
FLOAD src\mapfile.f \ Windows32 file into memory mapping words
- sys-FLOAD src\environ.f \ environment? support
\ sys-FLOAD src\transit.f \ minimal transient support now an extra file
FLOAD src\Shell.f \ load SHELL utility words
--- 58,61 ----
|
