[Win32forth-cvs] win32forth-stc/src environ.f, NONE, 1.1 extend.f, 1.9, 1.10

[Alex M. <ale...@us...>]

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