Menu
▾
▴
[Win32forth-cvs] win32forth FORTHFORM.CFG,NONE,1.1 Help.cfg,NONE,1.1 Hyper.cfg,NONE,1.1 WIN32FOR.DBG,NONE,1.1 Win32for.cfg,NONE,1.1 Win32forUser.cfg,NONE,1.1 WinEdColorize.f,NONE,1.1 Wincon.dll,NONE,1.1 Zip32.dll,NONE,1.1 fkernel.exe,NONE,1.1 setup.exe,NONE,1.1 w32fConsole.dll,NONE,1.1 w32fHtmlDisplay.dll,NONE,1.1 w32fScintilla.dll,NONE,1.1
|
From: Alex M. <ale...@us...> - 2004-12-21 00:18:51
|
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 |
