[Win32forth-cvs] win32forth FORTHFORM.CFG,NONE,1.1 Help.cfg,NONE,1.1 Hyper.cfg,NONE,1.1 WIN32FOR.DBG

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/win32forth/win32forth
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22981

Added Files:
	FORTHFORM.CFG Help.cfg Hyper.cfg WIN32FOR.DBG Win32for.cfg 
	Win32forUser.cfg WinEdColorize.f Wincon.dll Zip32.dll 
	fkernel.exe setup.exe w32fConsole.dll w32fHtmlDisplay.dll 
	w32fScintilla.dll 
Log Message:
Commit of base Win32Forth

--- NEW FILE: w32fConsole.dll ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Hyper.cfg ---
DIRS SRC\KERNEL;SRC\CONSOLE;SRC ; the directories we want to index '*=disable command'
SPECS *.F               ; The file spec masks we want to index
EXCLUDE TEST.F          ; an experimental file, it doesn't need to be indexed
KEEPPATH ON             ; should we keep the file paths in index file
AFTER 0                 ; start looking after column 0 (a number)
BEFORE 132              ; stop looking at column 132 (a number)
STOPAT \                ; stop looking when "\" found
TYPE 0 ": "
TYPE 0 "HYPER "
TYPE 0 "CODE "
TYPE 0 "USER "
TYPE 0 "NCODE "
TYPE 0 "CREATE "
TYPE 0 "CONSTANT "
TYPE 0 "WINCONSTANT "
TYPE 0 "VALUE "
TYPE 0 "DEFER "
TYPE 0 "VARIABLE "
TYPE 0 "2VARIABLE "
TYPE 0 "VOCABULARY "
TYPE 0 "#VOCABULARY "
TYPE 0 "INTEGER "
TYPE 0 "FILE-HANDLE "
TYPE 0 "ARRAY "
TYPE 0 "TABLE "
TYPE 0 "SYNONYM "
TYPE 0 "#DEFINE "
TYPE 0 "FKEY "
TYPE 0 "LITKEY "
TYPE 0 "SPLKEY "
TYPE 0 ":M "
TYPE 0 "I: "
TYPE 0 "H: "
TYPE 0 "INT "
TYPE 0 ":CLASS "
TYPE 0 ":OBJECT "
TYPE 0 "|CLASS "
TYPE 0 "PROC "
TYPE 0 "NEWPROC "
TYPE 0 "NEWCOLOR "
TYPE 0 "NEW-CHAIN "
TYPE 0 "NAMED-NEW$ "
TYPE 0 "ED-FIELD+ "
TYPE 0 "POINTER "
TYPE 0 "NEW-COLOR "
TYPE 0 "MAKE-CURSOR "
TYPE 0 "FONT "
;
;       The semicolon character in the first column causes the
        index compiler to stop looking at this configuration file.

HYPERTEXT COMPILER DOCUMENTATION                                by Tom Zimmer

  The hypertext compile function of WinEd makes it easy to build hypertext
index files for the WinEd [formerly called WinView] editor.

  Various compielr directives can be included in this file to allow the
hypertext compiler to build WINEDIT.NDX containing the index references to all
of the words you want to access easily.

COMPILER DIRECTIVES

  Six index compiler directives are currently supported, they each start
with the word "TYPE" followed by a type number and a quoted "string" parameter:

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

        TYPE 0 "string"

Pick up and index the word IMMEDIATELY following string. No space delimiter is
required. If you want to space delimit the string, include a space within the
quotes. Examples: ": "  "CONSTANT " "CODE " etc.

This type can pick up words following, as will be the case with the above
examples, or you can pick up words starting with a character by not including a
space at the end of the string. An example of this is the graphic symbol above
"ø", which compiles any word starting with this symbol. That is any hypertext
destination link.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

        TYPE 1 ":"

Pick up and index the word preceeding this symbol. That is index all words that
end in a ":" character. Normally used for assembler labels.

                NAME:

This will include name in the index file.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

        TYPE 2 "LABEL " n

Pick up and index the word at the start of this line, skipping 'n' words in the
ine where "string" was found. This is typically used to include references to
the assembler word LABEL as it is used in some assemblers, but it is also
useful for indexing the ANS Forth document.

                x.x.x.x SYMBOL_NAME     LABEL

SYMBOL_NAME will be included in the index file.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

        TYPE 3 "string "

Index a matching word as found at the start of a line.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

        TYPE 4 "STRING " n

Pick up and index the word preceeding "string", skip 'n' words preceeding
"string".

                SYMBOL  STRING

SYMBOL will be included in the index file.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

        TYPE 5 "string of where to stop"

Stop indexing any file when "string of where to stop" is found in a line.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

MULTIPLE INDEX COMMANDS

  Several of the above index commands can be included one per line before the
line starting with a ";" character. The index compiler currently supports
sixty four (64) index compiler commands in the above format.

EXAMPLE LINES FOR FORTH

  The following lines can be included in HYPER.NDX tell the compiler to
index forth functions, constants and variables.  These are only examples
of the type of entries that can be incuded.

        TYPE 0 "CODE "
        TYPE 0 "CREATE "
        TYPE 0 "CONSTANT "
        TYPE 0 "DEFER "
        TYPE 0 "VARIABLE "
        TYPE 0 "VALUE "
        TYPE 0 "ARRAY "

--- NEW FILE: WinEdColorize.f ---
\ Color configuration for WinEd
\ n1 n2 name:  n1 = action  n2 = color  name = blank-delimited string
\ action color name

\ Actions:
\  1 = colorize single word              n1=non-number is a comment
\  2 = same color to end of line
\  3 = same color to )
\  4 = same color to "
\  5 = same color to }
\  6 = same color to ]
\  7 = same color to >
\  8 = color the first word of a pair, the second word is black
\  9 = same color in a pair
\ 10 = start of comment
\ 11 = start of comment

\ Colors:
\  0 black      1 red         2 green      3 yellow
\  4 blue       5 magenta     6 cyan       7 ltgray
\  8 dkgray     9 ltred      10 ltgreen   11 ltyellow
\ 12 ltblue    13 ltmagenta  14 ltcyan    15 gray
\ 16 brown     17 ltgrey     18 dkmagenta

\ act color
9  13   CALL
1  16   ENTRY
1  18   CODE            defining words that come in pairs
1  12   CFA-CODE        green
1  12   END-CODE        yellow
1  12   C;
9  9    :
9  1    :M              does not color the second word like it should
1  9    :NONAME
1  9    ;
1  9    :M
1  9    ;M
1  9    :CLASS
1  9    ;CLASS          ltyellow
1  9    :OBJECT
1  9    ;OBJECT
1  9    EXIT            unusual control things that should stand out
1  9    ?EXIT
1  9    LEAVE
1  9    UNLOOP
1  9    QUIT
1  9    RECURSE
1  9    IF              control structures
1  9    -IF
1  9    ELSE
1  9    THEN
1  9    BEGIN
1  9    WHILE
1  9    REPEAT
1  9    AGAIN
1  9    UNTIL
1  9    CONTINUE 
1  9    DO
1  9    ?DO
1  9    DO-THRU
1  9    LOOP
1  9    +LOOP
1  9    CASE
1  9    OF
1  9    ENDOF
1  9    ENDCASE
1  6    HERE            dictionary and search order
1  6    ORG
1  6    ALLOT
1  6    ALSO
1  6    ONLY
1  6    PREVIOUS
1  6    DEFINITIONS
1  6    IMMEDIATE
1  6    COMPILE-ONLY
1  6    ALIGN
1  6    ENVIRONMENT?
1  6    IN-APPLICATION
1  6    IN-SYSTEM
1  6    MARKER
1  6    ANEW
1  13   VALUE           single defining words
1  5    CONSTANT
1  5    VARIABLE
1  5    2CONSTANT
1  5    2VARIABLE
1  5    USER
1  5    INT
9  3    LOCAL           local variable
1  5    DEFER
1  5    CREATE
1  5    DOES>
1  5    VOCABULARY
5  3    {               locals between { and }
2  2    \
2  2    //
3  2    (
3  2    C(
3  2    .(
4  1    ."              string constants
4  1    S"
4  1    C"
4  1    ABORT"
4  1    Z"
4  1    Z,"
4  1    +Z,"
9  1    H#              number follows, color both
9  1    '
9  1    [']
9  1    [CHAR]
1  1    FALSE           other constants
1  1    TRUE
1  1    BL
9  13   POSTPONE
9  13   [COMPILE]
9  13   TO
9  13   +TO
9  13   IS
1  9    #IF             conditional compilation
1  9    #ELSE
1  9    #THEN
1  9    [IF]
1  9    [ELSE]
1  9    [THEN]
9  9    INCLUDE
9  9    FLOAD
9  9    FSAVE
9  9    NEEDS
1  9    [
1  9    ]
9  9    IMAGE-SAVE
9  9    TURNKEY

\ Other ANS CORE

1  4    !
1  4    #
1  4    #>
1  4    #S
1  4    *
1  4    */
1  4    */MOD
1  4    +
1  4    +!
1  4    ,
1  4    -
1  4    .
1  4    /
1  4    /MOD
1  4    0<
1  4    0=
1  4    1+
1  4    1-
1  4    2!
1  4    2*
1  4    2/
1  4    2@
1  4    2DROP
1  4    2DUP
1  4    2OVER
1  4    2SWAP
1  4    <
1  4    <#
1  4    =
1  4    >
1  4    >BODY
1  4    >IN
1  4    >NUMBER
1  4    >R
1  4    ?DUP
1  4    @
1  4    ABS
1  4    ABORT
1  4    ACCEPT
1  4    ALIGNED
1  4    AND
1  4    BASE
1  4    C!
1  4    C,
1  4    C@
1  4    CELL+
1  4    CELLS
1  4    CHAR
1  4    CHAR+
1  4    CHARS
1  4    COUNT
1  4    CR
1  4    DECIMAL
1  4    DEPTH
1  4    DROP
1  4    DUP
1  4    EMIT
1  4    EVALUATE
1  4    EXECUTE
1  4    FILL
1  4    FIND
1  4    FM/MOD
1  4    HOLD
1  4    I
1  4    INVERT
1  4    J
1  4    KEY
1  4    LITERAL
1  4    LSHIFT
1  4    M*
1  4    MAX
1  4    MIN
1  4    MOD
1  4    MOVE
1  4    NEGATE
1  4    OR
1  4    OVER
1  4    R>
1  4    R@
1  4    ROT
1  4    RSHIFT
1  4    S>D
1  4    SIGN
1  4    SM/REM
1  4    SOURCE
1  4    SPACE
1  4    SPACES
1  4    STATE
1  4    SWAP
1  4    TYPE
1  4    U.
1  4    U<
1  4    UM*
1  4    UM/MOD
1  4    WORD
1  4    XOR

\ Other ANS EXT

1  15   #TIB
1  15   .R
1  15   0<>
1  15   0>
1  15   2>R
1  15   2R>
1  15   2R@
1  15   <>
1  15   COMPILE,
1  15   CONVERT
1  15   ERASE
1  15   EXPECT
1  15   HEX
1  15   NIP
1  15   PAD
1  15   PARSE
1  15   PICK
1  15   QUERY
1  15   REFILL
1  15   RESTORE-INPUT
1  15   ROLL
1  15   SAVE-INPUT
1  15   SOURCE-ID
1  15   SPAN
1  15   TIB
1  15   TUCK
1  15   U.R
1  15   U>
1  15   UNUSED
1  15   WITHIN

\ Other stuff used in Firmware Studio

1  12   LOCO
1  12   ASSEMBLE
1  12   MACRO:
1  12   MULTI           for MULTI..REPEAT
1  12   IF_Z            assembler control structures
1  12   IF_NZ
1  12   IF_C
1  12   IF_NC
1  12   IF_EQ
1  12   IF_NE
1  12   WHILE_Z
1  12   WHILE_NZ
1  12   WHILE_C
1  12   WHILE_NC
1  12   WHILE_EQ
1  12   WHILE_NE
1  12   UNTIL_Z
1  12   UNTIL_NZ
1  12   UNTIL_C
1  12   UNTIL_NC
1  12   UNTIL_EQ
1  12   UNTIL_NE
1  12   NEVER           works like 0 IF  \ for processors with SKIP instruction
1  12   NOWAY           works like 0 WHILE
1  12   FOR
1  12   NEXT
1  6    RAM
1  6    ROM
1  6    {{
1  6    }}
1  6    LOW-TOKENS
1  6    MAIN-TOKENS
1  6    TEMP-TOKENS
1  9    >TOKEN#
1  5    ASMBYTE
1  5    ASMWORD
1  5    ASMLONG
1  5    ASMARRAY
1  5    ASMLABEL
9  1    ASMLABEL?
\ 10  2   COMMENT:
\ 11  2   COMMENT;
\ 10  2    ((
\ 11  2    ))
\  3  0    (((

\s
#entry creates
entry  creates

VALUES
entry#
entry-#bytes
editAsBinary?
WinEdWindow
WinEdToolbar
ConsoleWindow

printed-columns
find-top-margin

-right-edge

low-right-edge

 start-text-size

start-width
start-height
drag-barV
drag-barH
drag-thick
edit-min
console-height
listHeight
listHeightDefault

using98/NT?
console-savelines
first-line-saved

 show-console?
 recent-files?

 findComboEdit
 addFileMenu

 colorize?
 page-lines?
 auto-new?
 auto-margin?
 mousedown?
 focusing?
 minimized?
 tool-bar?
 floating-bar?
 min-tool-bar?
 save-find?
 WinEd-web?
 save-margin?
 all-occur?

 save-minutes
 open-previous?
 term-canceled?
 second-copy?
 as-pc?
 start-browse?
 interpreting?
 max-toolbar
 displayingLine

--- NEW FILE: fkernel.exe ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Wincon.dll ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Zip32.dll ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: w32fScintilla.dll ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Help.cfg ---
DIRS     doc\dpans  ; the directories we want to index '*=disable command'
SPECS    *.TXT      ; The file spec masks we want to index
EXCLUDE  
KEEPPATH ON         ; should we keep the file paths in index file
AFTER    0          ; start looking after column 0 (a number)
BEFORE  100         ; stop looking at column 100 (a number)
TYPE 2 " CORE"      1
TYPE 2 " BLOCK"     1
TYPE 2 " DOUBLE"    1
TYPE 2 " EXCEPTION" 1
TYPE 2 " FACILITY"  1
TYPE 2 " FILE"      1
TYPE 2 " FLOATING"  1
TYPE 2 " LOCAL"     1
TYPE 2 " MEMORY"    1
TYPE 2 " TOOLS"     1
TYPE 2 " SEARCH"    1
TYPE 2 " STRING"    1
TYPE 5 "17.6.2"         ;mark for the ANS document for where to stop scanning

--- NEW FILE: WIN32FOR.DBG ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: FORTHFORM.CFG ---
\ Forthform.cfg
\ Examples of commands that can go in this file
\ set-help c:\win32for\hlp\win32.hlp
\ SetBackGroundImage c:\imagefiles\sparrow.jpg
\ ltgray to backgroundcolor \ set your own background color
\ set the editor filename
\ s" %DIRcedt.exe /L:%LINE %FILENAME " editor$ place

--- NEW FILE: setup.exe ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Win32for.cfg ---
\ $Id: Win32for.cfg,v 1.1 2004/12/21 00:18:42 alex_mcdonald Exp $
\
\ All system configurations should be in this file

.( Win32Forth: a Forth for Windows 95/98/ME/NT/2K/XP)
.version
.cversion
.builtby
.platform .( , ) .mem-free
.words
.dir
cr .( Loading Win32For.CFG ) cr

\ load user configuration file
LoadUserConfig

\ cr
\ .( *** For documentation, press F1 ***) cr
\ .( *** For the editor, press F2 ***) cr

--- NEW FILE: w32fHtmlDisplay.dll ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: Win32forUser.cfg ---
\ Win32ForUser.cfg
\ All user defined configurations should be in this file

.( Loading Win32ForUser.CFG ) cr

\ ------------------------------------------------------------------------------
\ set some system variables
\ ------------------------------------------------------------------------------

false to border? \ should a border be printed on each page?

\ ------------------------------------------------------------------------------
\ set default folder for TRUNKEY, FSAVE and APPLICATION
\ ------------------------------------------------------------------------------

\ &forthdir count &appdir place

\ ------------------------------------------------------------------------------
\ set Editor
\ ------------------------------------------------------------------------------

0 value SystemEditor

: >WinEd ( -- ) \ set WinEd as default Editor
	0 to SystemEditor
	s" %DIRWinEd.exe '%FILENAME' %LINE" editor$ place
	s" %DIRWinEd.exe /B '%FILENAME' %LINE" browse$ place ;

: >SciEditMDI ( -- ) \ set SciEditMDI as default Editor
	1 to SystemEditor
	s" SciEditMdi.exe /e %LINE '%FILENAME'" editor$ place
	s" SciEditMdi.exe /b %LINE '%FILENAME'" browse$ place ;

>SciEditMDI

\ ------------------------------------------------------------------------------
\ the end...
\ ------------------------------------------------------------------------------

cr .( Program path is:     ) .program
cr .( Forth path is:       ) .forthdir
cr .( Application path is: ) .appdir
cr
cr .( System Editor is:    ) SystemEditor 0 = [if] .( WinEd ) [then]
                             SystemEditor 1 = [if] .( SciEdit ) [then]
cr