You can subscribe to this list here.
2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: George H. <geo...@us...> - 2005-05-03 15:06:05
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25520/win32forth/src Modified Files: MAPFILE.F Primutil.f Utils.f Log Message: gah: replaced 2swap 2drop with 2nip and other minor optimizations Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Utils.f 1 May 2005 06:27:41 -0000 1.6 --- Utils.f 3 May 2005 15:05:54 -0000 1.7 *************** *** 209,217 **** pocket pocket$ MAXSTRING move \ get current pocket contents editor-present? \ TRUE if editor is loaded ! if cur-file count "path-file 0= ! if ed-filename place ! else 2drop ! cur-file count ed-filename place ! then watched-cfa >name nfa-count ed-name place cur-line @ ed-line ! --- 209,216 ---- pocket pocket$ MAXSTRING move \ get current pocket contents editor-present? \ TRUE if editor is loaded ! if cur-file count "path-file ! if 2drop ! cur-file count ! then ed-filename place watched-cfa >name nfa-count ed-name place cur-line @ ed-line ! *************** *** 758,763 **** while type cr 10 ms ! repeat 2drop ! locHdl close-file drop ; : ftype ( -<filename>- ) --- 757,762 ---- while type cr 10 ms ! repeat ! locHdl close-file 3drop ; : ftype ( -<filename>- ) Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Primutil.f 1 May 2005 06:27:41 -0000 1.5 --- Primutil.f 3 May 2005 15:05:54 -0000 1.6 *************** *** 358,363 **** 2dup [char] \ scan 2dup 2>r nip - \ leading part of string here place \ save in BNAME ! 2r> dup ! IF over 1+ c@ upc [char] T = IF 9 here c+place 2 /string here +place --- 358,363 ---- 2dup [char] \ scan 2dup 2>r nip - \ leading part of string here place \ save in BNAME ! 2r> ! -IF over 1+ c@ upc [char] T = IF 9 here c+place 2 /string here +place Index: MAPFILE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/MAPFILE.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** MAPFILE.F 1 May 2005 06:27:41 -0000 1.5 --- MAPFILE.F 3 May 2005 15:05:54 -0000 1.6 *************** *** 242,247 **** 0 to ed-ptr \ initialize to not present 0 to ed-hndl ! z" SharedEditMemory" ed-size open-share dup ! IF to ed-hndl to ed-ptr init-shared-type \ bump count of Forths currently running --- 242,247 ---- 0 to ed-ptr \ initialize to not present 0 to ed-hndl ! z" SharedEditMemory" ed-size open-share ! -IF to ed-hndl to ed-ptr init-shared-type \ bump count of Forths currently running |
From: George H. <geo...@us...> - 2005-05-03 15:06:02
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25520/win32forth Modified Files: fkernel.exe Log Message: gah: replaced 2swap 2drop with 2nip and other minor optimizations Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 Binary files /tmp/cvs0OUxPr and /tmp/cvslCWgQ6 differ |
From: George H. <geo...@us...> - 2005-05-03 14:22:12
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15094/win32forth/src/tools Modified Files: ClassBrowser.f HelpSystem.f Log Message: gah: replaced 2swap 2drop with 2nip Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/ClassBrowser.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ClassBrowser.f 21 Dec 2004 00:19:11 -0000 1.1 --- ClassBrowser.f 3 May 2005 14:21:59 -0000 1.2 *************** *** 263,267 **** :M StartSize: ( -- w h ) ! RegPath$ LoadWindowPos 2swap 2drop ;M --- 263,267 ---- :M StartSize: ( -- w h ) ! RegPath$ LoadWindowPos 2nip ;M Index: HelpSystem.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/HelpSystem.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** HelpSystem.f 18 Apr 2005 17:39:43 -0000 1.4 --- HelpSystem.f 3 May 2005 14:21:59 -0000 1.5 *************** *** 119,123 **** :M StartSize: ( -- w h ) ! RegPath$ LoadWindowPos 2swap 2drop ;M --- 119,123 ---- :M StartSize: ( -- w h ) ! RegPath$ LoadWindowPos 2nip ;M |
From: George H. <geo...@us...> - 2005-05-03 13:20:12
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31161/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah: minor optimizations Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** fkernel.f 30 Apr 2005 16:03:40 -0000 1.12 --- fkernel.f 3 May 2005 13:19:49 -0000 1.13 *************** *** 1085,1094 **** \ -------------------- Double Stack Operators ------------------------------- ! CODE 2DROP ( n1 n2 -- ) \ discard two single items on the data stack add esp, # 4 pop ebx next c; ! CODE 2NIP ( n1 n2 n3 n4 -- n3 n4 ) \ discard third and fourth items on data stack pop eax mov 4 [esp], eax --- 1085,1094 ---- \ -------------------- Double Stack Operators ------------------------------- ! CODE 2DROP ( n1 n2 -- ) \ discard two single items from the data stack add esp, # 4 pop ebx next c; ! CODE 2NIP ( n1 n2 n3 n4 -- n3 n4 ) \ discard third and fourth items from data stack pop eax mov 4 [esp], eax *************** *** 2959,2963 **** IF OVER COUNT NAME-MAX-CHARS MIN 2 PICK @ (SEARCH-SELF) ?DUP ! IF 2SWAP 2DROP \ found it, so _EXIT \ we're done searching THEN --- 2959,2963 ---- IF OVER COUNT NAME-MAX-CHARS MIN 2 PICK @ (SEARCH-SELF) ?DUP ! IF 2NIP \ found it, so _EXIT \ we're done searching THEN |
From: George H. <geo...@us...> - 2005-05-03 13:20:03
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31161/win32forth/src/console Modified Files: BasicWin.f Log Message: gah: minor optimizations Index: BasicWin.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/BasicWin.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** BasicWin.f 1 May 2005 06:27:41 -0000 1.2 --- BasicWin.f 3 May 2005 13:19:49 -0000 1.3 *************** *** 138,142 **** :M SetSize: ( cx cy) \ set size of window rectangle \ was SWAP 2>R SWP_NOOWNERZORDER SWP_NOMOVE OR ! ( is) SWAP 2>R SWP_NOZORDER SWP_NOMOVE OR 2R> 0 0 NULL hWnd Call SetWindowPos ?WinError ;M --- 138,142 ---- :M SetSize: ( cx cy) \ set size of window rectangle \ was SWAP 2>R SWP_NOOWNERZORDER SWP_NOMOVE OR ! ( is) SWAP 2>R [ SWP_NOZORDER SWP_NOMOVE OR ] literal 2R> 0 0 NULL hWnd Call SetWindowPos ?WinError ;M *************** *** 145,154 **** \ was HERE hWnd Call GetWindowRect ?WinError \ was HERE 2@ SWAP ! GetWindowRect: self 2SWAP 2DROP SWAP ;M :M SetPosition: ( x y) \ set position of upper-left corner \ was SWAP 2>R SWP_NOOWNERZORDER SWP_NOSIZE OR ! ( is) SWAP 2>R SWP_NOZORDER SWP_NOSIZE OR 0 0 2R> NULL hWnd Call SetWindowPos ?WinError ;M --- 145,154 ---- \ was HERE hWnd Call GetWindowRect ?WinError \ was HERE 2@ SWAP ! GetWindowRect: self 2NIP SWAP ;M :M SetPosition: ( x y) \ set position of upper-left corner \ was SWAP 2>R SWP_NOOWNERZORDER SWP_NOSIZE OR ! ( is) SWAP 2>R [ SWP_NOZORDER SWP_NOSIZE OR ] literal 0 0 2R> NULL hWnd Call SetWindowPos ?WinError ;M *************** *** 241,245 **** :M DefStyle: ( -- style) \ default control style ! WS_VISIBLE WS_CHILD OR ;M --- 241,245 ---- :M DefStyle: ( -- style) \ default control style ! [ WS_VISIBLE WS_CHILD OR ] literal ;M |
From: George H. <geo...@us...> - 2005-05-03 12:21:18
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16899/win32forth/src/lib Modified Files: SUB_DIRS.F ScintillaEdit.f file.f Log Message: gah: minor optimizations Index: file.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/file.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** file.f 1 May 2005 06:27:42 -0000 1.2 --- file.f 3 May 2005 12:21:10 -0000 1.3 *************** *** 44,49 **** msg$ +null MB_OK MB_ICONSTOP or MB_TASKMODAL or ! z" Warning!" ( title ) ! msg$ 1+ ( message ) NULL Call MessageBox drop msgtext off ; --- 44,49 ---- msg$ +null MB_OK MB_ICONSTOP or MB_TASKMODAL or ! z" Warning!" ( title ) ! msg$ 1+ ( message ) NULL Call MessageBox drop msgtext off ; *************** *** 112,117 **** :M RePosition: ( ud -- ) hfile ! if hfile reposition-file to errorcode ! else 2drop then ;M --- 112,117 ---- :M RePosition: ( ud -- ) hfile ! -if reposition-file to errorcode ! else 3drop then ;M *************** *** 141,148 **** :M WriteLine: ( addr len -- ) ! hfile ?dup ! if write-line to errorcode s" Write Line" ismsgtext ?fileerror ! else 2drop then ;M --- 141,148 ---- :M WriteLine: ( addr len -- ) ! hfile ! -if write-line to errorcode s" Write Line" ismsgtext ?fileerror ! else 3drop then ;M Index: ScintillaEdit.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaEdit.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ScintillaEdit.f 21 Dec 2004 00:19:10 -0000 1.1 --- ScintillaEdit.f 3 May 2005 12:21:10 -0000 1.2 *************** *** 285,289 **** >month,day,year" $buf place ! time&date 2drop drop s" - " $buf +place (.) $buf +place s" :" $buf +place --- 285,289 ---- >month,day,year" $buf place ! time&date 3drop s" - " $buf +place (.) $buf +place s" :" $buf +place *************** *** 344,350 **** buf$ swap 2dup BEGIN 2dup bl scan dup ! WHILE 2swap 2drop bl skip ! REPEAT 2drop drop 2 pick - dup dup>r /string 2dup bl scan nip - r@ + nip --- 344,350 ---- buf$ swap 2dup BEGIN 2dup bl scan dup ! WHILE 2nip bl skip ! REPEAT 3drop 2 pick - dup dup>r /string 2dup bl scan nip - r@ + nip *************** *** 428,429 **** --- 428,430 ---- + |
From: George H. <geo...@us...> - 2005-05-03 12:21:18
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16899/win32forth/apps/SciEdit Modified Files: ClassBrowser.f ScintillaMDI.f Log Message: gah: minor optimizations Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ClassBrowser.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ClassBrowser.f 21 Dec 2004 00:18:47 -0000 1.1 --- ClassBrowser.f 3 May 2005 12:21:09 -0000 1.2 *************** *** 277,281 **** :M StartSize: ( -- w h ) ! RegPath$ LoadWindowPos 2swap 2drop ;M --- 277,281 ---- :M StartSize: ( -- w h ) ! RegPath$ LoadWindowPos 2nip ;M Index: ScintillaMDI.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ScintillaMDI.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ScintillaMDI.f 21 Dec 2004 00:18:48 -0000 1.1 --- ScintillaMDI.f 3 May 2005 12:21:09 -0000 1.2 *************** *** 315,319 **** buf$ swap 2dup BEGIN 2dup bl scan dup ! WHILE 2swap 2drop bl skip REPEAT 2drop drop 2 pick - dup dup>r --- 315,319 ---- buf$ swap 2dup BEGIN 2dup bl scan dup ! WHILE 2nip bl skip REPEAT 2drop drop 2 pick - dup dup>r *************** *** 512,513 **** --- 512,514 ---- ;Class + |
From: George H. <geo...@us...> - 2005-05-03 12:21:17
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16899/win32forth/apps/ProMgr Modified Files: ProjectManager.f Log Message: gah: minor optimizations Index: ProjectManager.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ProjectManager.f 8 Jan 2005 13:51:45 -0000 1.2 --- ProjectManager.f 3 May 2005 12:21:09 -0000 1.3 *************** *** 1108,1112 **** :M StartSize: ( -- w h ) \ Sonntag, Mai 30 2004 - 10:46 dbu ! RegPath$ LoadWindowPos 2swap 2drop ;M --- 1108,1112 ---- :M StartSize: ( -- w h ) \ Sonntag, Mai 30 2004 - 10:46 dbu ! RegPath$ LoadWindowPos 2nip ;M |
From: George H. <geo...@us...> - 2005-05-03 10:04:43
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19145/win32forth/src Modified Files: ANSFILE.F DBGSRC2.F Keysave.f Order.f Log Message: gah: minor optimizations Index: DBGSRC2.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/DBGSRC2.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DBGSRC2.F 21 Dec 2004 00:19:07 -0000 1.1 --- DBGSRC2.F 3 May 2005 10:04:30 -0000 1.2 *************** *** 30,36 **** if >r SrcInfoPtr SrcInfoCnt cells r@ read-file 2drop ! r> close-file drop ! else drop ! then ; ' _DoLoadInfo is DoLoadInfo --- 30,35 ---- if >r SrcInfoPtr SrcInfoCnt cells r@ read-file 2drop ! r> close-file ! then drop ; ' _DoLoadInfo is DoLoadInfo *************** *** 139,140 **** --- 138,140 ---- MODULE + |
From: George H. <geo...@us...> - 2005-05-03 08:47:43
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29018/win32forth/src Modified Files: CLASSDBG.F DIS486.F Dc.f FONTS.F Log Message: gah: fixed bug in [getmethod] and minor optimizations Index: DIS486.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/DIS486.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** DIS486.F 21 Dec 2004 00:19:07 -0000 1.1 --- DIS486.F 3 May 2005 08:47:34 -0000 1.2 *************** *** 1470,1474 **** endcase ! repeat 2drop drop ; \ create stopcode 8 C, \ count of length --- 1470,1474 ---- endcase ! repeat 3drop ; \ create stopcode 8 C, \ count of length *************** *** 1530,1531 **** --- 1530,1532 ---- ONLY FORTH ALSO DEFINITIONS + |
From: Jos v.d.V. <jo...@us...> - 2005-05-02 20:48:23
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6629/win32forth/apps/Player4 Modified Files: Catalog.f MciInterface.f MciVideo.f Mediatree.f PLAYER4.F Pl_MciWindow.f Pl_Version.f Log Message: Jos: Made Refresh again faster. Added a freelist, delete and undelete. Index: MciVideo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/MciVideo.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** MciVideo.f 1 Apr 2005 08:31:19 -0000 1.1 --- MciVideo.f 2 May 2005 20:47:57 -0000 1.2 *************** *** 19,25 **** 4 proc mciSendString - \ true value MciDebug? - false value MciDebug? - external --- 19,22 ---- *************** *** 263,265 **** module ! |
From: Dirk B. <db...@us...> - 2005-05-01 06:29:47
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29906/apps/WinEd Modified Files: Ed_Version.F WinEd.f Log Message: Readded my latest WinEd changes, since thy were lost after uploading of Andrews latest version. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** WinEd.f 30 Apr 2005 20:52:42 -0000 1.5 --- WinEd.f 1 May 2005 06:29:38 -0000 1.6 *************** *** 17,20 **** --- 17,22 ---- + \ 1 value (WinEdDbg) + s" apps\WinEd" "fpath+ s" apps\WinEd\res" "fpath+ *************** *** 97,101 **** ! : Win-Ed ( -- ) Edit-init load-defaults --- 99,103 ---- ! : WinEd ( -- ) Edit-init load-defaults *************** *** 147,159 **** init-defaults ! forth-msg-chain off \ disable Win-Ed's ability to recognize windows ! \ messages through the console. ! \ We don't want the editor trying to insert a breakpoint ! \ into itself. ! .free \ how much memory did we really use? ! -1 ed-forth-count +! \ remove myself from Forth count ! ' Win-Ed turnkey WinEd \ save WinEd.exe ! 1 pause-seconds ! |
From: Dirk B. <db...@us...> - 2005-05-01 06:28:47
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29354/src Modified Files: WORDS.F Log Message: Fixed a bug in CONSTANTS Index: WORDS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/WORDS.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** WORDS.F 28 Apr 2005 16:01:25 -0000 1.2 --- WORDS.F 1 May 2005 06:28:38 -0000 1.3 *************** *** 5,8 **** --- 5,10 ---- only forth also definitions + in-system + \ display words from one or two patterns *************** *** 78,112 **** 0 value constant-cnt 0 value constant-tot - 0 value count-only? ! 3 CALLBACK: .WinConstant ( abs_adr len value -- f ) ! count-only? 0= ! if drop \ discard the constant's value ! 2dup match? ! if type 20 #tab space 20 ?cr ! 1 +to constant-cnt ! else 2drop ! then 1 +to constant-tot ! nuf? 0= ! else 3drop ! 1 +to constant-tot ! 1 ! then ; ! \ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! \ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! EXTERNAL ! : count-constants ( -- n1 ) \ count the constants available to system ! WinConPtr proc>cfa @ dodefer = \ Leave if 'wcFindWin32Constant' ! if 0 EXIT \ hasn't already been resolved ! then ! TRUE to count-only? ! 0 to constant-tot ! &.WinConstant ! 0 here ! CALL wcEnumWin32Constants DROP ! constant-tot ; : .words ( -- ) --- 80,103 ---- 0 value constant-cnt 0 value constant-tot ! 3 CALLBACK: .WinConstantCount ( abs_adr len value -- f ) ! 3drop 1 +to constant-tot 1 ; ! 3 CALLBACK: .WinConstant ( abs_adr len value -- f ) ! drop \ discard the constant's value ! 2dup match? ! if type 20 #tab space 20 ?cr ! 1 +to constant-cnt ! else 2drop ! then nuf? 0= ; ! : count-constants ( -- n1 ) \ count the constants available to system ! constant-tot 0= \ only count if not counted... ! if WinConPtr proc>cfa @ dodefer = \ Leave if 'wcFindWin32Constant' ! if 0 EXIT then \ hasn't already been resolved ! &.WinConstantCount 0 here CALL wcEnumWin32Constants DROP ! then constant-tot ; ! EXTERNAL : .words ( -- ) *************** *** 119,139 **** : CONSTANTS ( -<optional_name>- ) cr ! WinConPtr proc>cfa @ dodefer = \ Leave if 'wcFindWin32Constant' ! if ." WINCON.DLL missing" ! EXIT \ hasn't already been resolved ! then cr ." ----------- Windows Constants " horizontal-line ! 0 to constant-cnt ! 0 to constant-tot ! FALSE to count-only? ! &.WinConstant bl word ?uppercase count words-pocket place bl word ?uppercase drop ! 0 here ! CALL wcEnumWin32Constants DROP cr horizontal-line cr ." Displayed " constant-cnt . ." of the " ! constant-tot . ." Windows Constants in the system." ; : with-address ( -- ) --- 110,127 ---- : CONSTANTS ( -<optional_name>- ) cr ! ! WinConPtr proc>cfa @ dodefer = \ Leave if 'wcFindWin32Constant' ! if ." WINCON.DLL missing" EXIT then \ hasn't already been resolved ! cr ." ----------- Windows Constants " horizontal-line ! bl word ?uppercase count words-pocket place bl word ?uppercase drop ! &.WinConstant 0 here CALL wcEnumWin32Constants DROP ! cr horizontal-line cr ." Displayed " constant-cnt . ." of the " ! count-constants . ." Windows Constants in the system." ; : with-address ( -- ) *************** *** 162,168 **** then 0 to with-address? base @ >r decimal cr horizontal-line ! ." Displayed " words-cnt . ." of the " ! count-words . ." words in the system." cr ." ** Use: WORDS <substring> to limit the list **" cr ." ** Use: CONSTANTS <substring> to display Windows Constants **" --- 150,156 ---- then 0 to with-address? base @ >r decimal + cr horizontal-line ! ." Displayed " words-cnt . ." of the " count-words . ." words in the system." cr ." ** Use: WORDS <substring> to limit the list **" cr ." ** Use: CONSTANTS <substring> to display Windows Constants **" *************** *** 173,178 **** : WORDS ( -<optional_name>- ) \ WORDS partial-string will focus the list ! true to with-tabs? _words ! ; : on-allwords { theCFA \ vocBuf -- } --- 161,165 ---- : WORDS ( -<optional_name>- ) \ WORDS partial-string will focus the list ! true to with-tabs? _words ; : on-allwords { theCFA \ vocBuf -- } *************** *** 194,197 **** --- 181,185 ---- until drop ; + in-application MODULE \ end of the module |
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28724/src/lib Modified Files: AcceleratorTables.f MDI.F RebarControl.f bitmap.f excontrols.f file.f formutils.f multiopen.f multithr.f treeview.f Log Message: Removed usage of REL>ABS and ABS>REL from Win32For.exe and marked both words as deprecated. Index: bitmap.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/bitmap.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** bitmap.f 21 Dec 2004 00:19:10 -0000 1.1 --- bitmap.f 1 May 2005 06:27:42 -0000 1.2 *************** *** 157,164 **** \ return a bitmap handle for image in memory compatible with hdc DIB_RGB_COLORS ! dib.infoheader rel>abs ! dib.bits rel>abs CBM_INIT ! dib.infoheader rel>abs hdc Call CreateDIBitmap ; --- 157,164 ---- \ return a bitmap handle for image in memory compatible with hdc DIB_RGB_COLORS ! dib.infoheader ! dib.bits CBM_INIT ! dib.infoheader hdc Call CreateDIBitmap ; *************** *** 232,237 **** &bitmap to currentbitmap DIB_RGB_COLORS ! dib.infoheader rel>abs ! dib.bits rel>abs dib.height 0 \ all scan lines 0 0 dib.height dib.width --- 232,237 ---- &bitmap to currentbitmap DIB_RGB_COLORS ! dib.infoheader ! dib.bits dib.height 0 \ all scan lines 0 0 dib.height dib.width *************** *** 247,252 **** SRCCOPY DIB_RGB_COLORS ! dib.infoheader rel>abs ! dib.bits rel>abs dib.height dib.width 0 0 \ ysrc xsrc --- 247,252 ---- SRCCOPY DIB_RGB_COLORS ! dib.infoheader ! dib.bits dib.height dib.width 0 0 \ ysrc xsrc *************** *** 279,284 **** SRCCOPY \ raster operation code DIB_RGB_COLORS \ usage options ! dib.infoheader rel>abs \ *lpBitsInfo ! dib.bits rel>abs \ *lpBits dib.height \ nSrcHeight dib.width \ nSrcWidth --- 279,284 ---- SRCCOPY \ raster operation code DIB_RGB_COLORS \ usage options ! dib.infoheader \ *lpBitsInfo ! dib.bits \ *lpBits dib.height \ nSrcHeight dib.width \ nSrcWidth *************** *** 289,293 **** \ erase window first, white background 0 0 Width Height Setrect: Temprect ! Brush: BackGroundColor TempRect.AddrOf rel>abs hdc Call FillRect drop \ center bitmap in window --- 289,293 ---- \ erase window first, white background 0 0 Width Height Setrect: Temprect ! Brush: BackGroundColor TempRect.AddrOf hdc Call FillRect drop \ center bitmap in window *************** *** 310,314 **** NULL NULL IMAGE_BITMAP ! r> rel>abs NULL Call LoadImage --- 310,314 ---- NULL NULL IMAGE_BITMAP ! r> NULL Call LoadImage *************** *** 320,324 **** NULL NULL IMAGE_ICON ! r> rel>abs NULL Call LoadImage --- 320,324 ---- NULL NULL IMAGE_ICON ! r> NULL Call LoadImage *************** *** 347,352 **** SRCCOPY DIB_RGB_COLORS ! dib.infoheader rel>abs ! dib.bits rel>abs dib.height dib.width 0 0 \ ysrc xsrc --- 347,352 ---- SRCCOPY DIB_RGB_COLORS ! dib.infoheader ! dib.bits dib.height dib.width 0 0 \ ysrc xsrc *************** *** 431,432 **** --- 431,433 ---- + |
From: Dirk B. <db...@us...> - 2005-05-01 06:27:50
|
Update of /cvsroot/win32forth/win32forth/src/old In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28724/src/old Modified Files: PIPES.F VCALL.F small.f Log Message: Removed usage of REL>ABS and ABS>REL from Win32For.exe and marked both words as deprecated. Index: PIPES.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/old/PIPES.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsVewfmb and /tmp/cvsWoQaQH differ Index: VCALL.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/old/VCALL.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvs2h1nJd and /tmp/cvsct7PeK differ Index: small.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/old/small.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsxjiweg and /tmp/cvsFXvCLM differ |
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28724/src Modified Files: CLASSDBG.F CONTROL.F EXCEPTIO.F FLOAT.F MAPFILE.F POINTER.F Primutil.f Utils.f Winlib.f imageman.f paths.f Log Message: Removed usage of REL>ABS and ABS>REL from Win32For.exe and marked both words as deprecated. Index: MAPFILE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/MAPFILE.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** MAPFILE.F 28 Apr 2005 16:01:25 -0000 1.4 --- MAPFILE.F 1 May 2005 06:27:41 -0000 1.5 *************** *** 62,66 **** IF Call GetLastError cr ." Map-View Error: " . abort ! ELSE abs>rel r@ >hfileAddress ! THEN r>drop ; --- 62,66 ---- IF Call GetLastError cr ." Map-View Error: " . abort ! ELSE r@ >hfileAddress ! THEN r>drop ; Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** paths.f 18 Apr 2005 17:39:42 -0000 1.2 --- paths.f 1 May 2005 06:27:41 -0000 1.3 *************** *** 112,120 **** 0 \ file component ! path-file$ rel>abs \ found file name buffer max-path \ size of buffer ! defextz$ rel>abs \ file extension ! filename$ rel>abs \ file name ! searchpath$ char+ rel>abs \ search path call SearchPath 0<> if --- 112,120 ---- 0 \ file component ! path-file$ \ found file name buffer max-path \ size of buffer ! defextz$ \ file extension ! filename$ \ file name ! searchpath$ char+ \ search path call SearchPath 0<> if Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Utils.f 28 Apr 2005 16:01:25 -0000 1.5 --- Utils.f 1 May 2005 06:27:41 -0000 1.6 *************** *** 322,326 **** \ bit of code! The bit that does it is: \ ! \ r@ abs>rel 2 cells - @ .proc-name \ \ Fetches the current IP, then goes 2 cells back (the pointer is always a --- 322,326 ---- \ bit of code! The bit that does it is: \ ! \ r@ 2 cells - @ .proc-name \ \ Fetches the current IP, then goes 2 cells back (the pointer is always a *************** *** 340,344 **** cr ." On Function: " ! r@ abs>rel 2 cells - @ .proc-name \ Horrible... ." Windows Returned Error: " --- 340,344 ---- cr ." On Function: " ! r@ 2 cells - @ .proc-name \ Horrible... ." Windows Returned Error: " Index: Winlib.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Winlib.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Winlib.f 21 Dec 2004 00:19:09 -0000 1.1 --- Winlib.f 1 May 2005 06:27:41 -0000 1.2 *************** *** 42,46 **** if ." -" drop else 0x0F and . then 45 col \ mask out high order bits dup proc>ep @ ! over proc>ep @ DOCALL-MULTI rel>abs = if drop tab else h.8 --- 42,46 ---- if ." -" drop else 0x0F and . then 45 col \ mask out high order bits dup proc>ep @ ! over proc>ep @ DOCALL-MULTI = if drop tab else h.8 *************** *** 112,116 **** : (.mallocs) ( link-addr -- ) \ display one line ! dup rel>abs h.8 ." " dup link>mem h.8 dup mHeapSize malloc-adjlen - 13 space u,.r ." " link>haddr @ h.8 cr ; --- 112,116 ---- : (.mallocs) ( link-addr -- ) \ display one line ! dup h.8 ." " dup link>mem h.8 dup mHeapSize malloc-adjlen - 13 space u,.r ." " link>haddr @ h.8 cr ; *************** *** 180,181 **** --- 180,182 ---- MODULE \ finishup the module + |
From: Dirk B. <db...@us...> - 2005-05-01 06:27:50
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28724/src/console Modified Files: BasicWin.f ConsoleStatbar.f Statbar.f WinBase.f Log Message: Removed usage of REL>ABS and ABS>REL from Win32For.exe and marked both words as deprecated. Index: WinBase.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/WinBase.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** WinBase.f 13 Apr 2005 00:09:27 -0000 1.2 --- WinBase.f 1 May 2005 06:27:41 -0000 1.3 *************** *** 90,95 **** 2DUP 2 - ( to drop CRLF pair) CR TYPE CR ( echo to console) DROP >R ! MB_OK MB_ICONWARNING OR Z" Error" rel>abs ! R> rel>abs NULL Call MessageBox drop THEN ; --- 90,95 ---- 2DUP 2 - ( to drop CRLF pair) CR TYPE CR ( echo to console) DROP >R ! MB_OK MB_ICONWARNING OR Z" Error" ! R> NULL Call MessageBox drop THEN ; *************** *** 130,150 **** \ defines not in Win32for WINCON.DLL ! TTN_GETDISPINFOA CONSTANT TTN_NEEDTEXT \ ANSI version ! TBN_GETBUTTONINFOA CONSTANT TBN_GETBUTTONINFO \ ANSI version ! TTM_ADDTOOLA CONSTANT TTM_ADDTOOL \ ANSI version ! SB_SETTEXTA CONSTANT SB_SETTEXT \ ANSI version ! SB_GETTEXTA CONSTANT SB_GETTEXT \ ANSI version ! TTM_UPDATETIPTEXTA CONSTANT TTM_UPDATETIPTEXT \ ANSI version ! TTM_GETTEXTA CONSTANT TTM_GETTEXT \ ANSI version ! TTM_ENUMTOOLSA CONSTANT TTM_ENUMTOOLS \ ANSI version \ Strings not defined in Win32for ! \ : STATUSCLASSNAME Z" msctls_statusbar32" rel>abs ; ! \ : TOOLBARCLASSNAME Z" ToolbarWindow32" rel>abs ; ! \ : WC_TREEVIEW Z" SysTreeView32" rel>abs ; ! \ : TOOLTIPS_CLASS Z" tooltips_class32" rel>abs ; ! \ : PROGRESS_CLASS Z" msctls_progress32" rel>abs ; ! \ : TRACKBAR_CLASS Z" msctls_trackbar32" rel>abs ; ! \ : UPDOWN_CLASS Z" msctls_updown32" rel>abs ; --- 130,150 ---- \ defines not in Win32for WINCON.DLL ! \ TTN_GETDISPINFOA CONSTANT TTN_NEEDTEXT \ ANSI version ! \ TBN_GETBUTTONINFOA CONSTANT TBN_GETBUTTONINFO \ ANSI version ! \ TTM_ADDTOOLA CONSTANT TTM_ADDTOOL \ ANSI version ! \ SB_SETTEXTA CONSTANT SB_SETTEXT \ ANSI version ! \ SB_GETTEXTA CONSTANT SB_GETTEXT \ ANSI version ! \ TTM_UPDATETIPTEXTA CONSTANT TTM_UPDATETIPTEXT \ ANSI version ! \ TTM_GETTEXTA CONSTANT TTM_GETTEXT \ ANSI version ! \ TTM_ENUMTOOLSA CONSTANT TTM_ENUMTOOLS \ ANSI version \ Strings not defined in Win32for ! \ : STATUSCLASSNAME Z" msctls_statusbar32" ; ! \ : TOOLBARCLASSNAME Z" ToolbarWindow32" ; ! \ : WC_TREEVIEW Z" SysTreeView32" ; ! \ : TOOLTIPS_CLASS Z" tooltips_class32" ; ! \ : PROGRESS_CLASS Z" msctls_progress32" ; ! \ : TRACKBAR_CLASS Z" msctls_trackbar32" ; ! \ : UPDOWN_CLASS Z" msctls_updown32" ; *************** *** 155,159 **** \ appears to be out of date since it works on my NT machine. \ For icons, the alternative would be: ! \ 0 Z" Toolbar.ico" rel>abs appInst \ Call ExtractIcon DUP VALUE hIcon ?WinError \ Couldn't find a simple alternative for bitmaps and didn't look --- 155,159 ---- \ appears to be out of date since it works on my NT machine. \ For icons, the alternative would be: ! \ 0 Z" Toolbar.ico" appInst \ Call ExtractIcon DUP VALUE hIcon ?WinError \ Couldn't find a simple alternative for bitmaps and didn't look *************** *** 164,168 **** \ returns handle to resource : GetResource ( a f -- handle) ! 2>R LR_LOADFROMFILE 0 0 R> R> rel>abs NULL Call LoadImage DUP ?WinError ; --- 164,168 ---- \ returns handle to resource : GetResource ( a f -- handle) ! 2>R LR_LOADFROMFILE 0 0 R> R> NULL Call LoadImage DUP ?WinError ; *************** *** 225,229 **** Usage StartFrame ICC_DATE_CLASSES 8 EndFrame ! rel>abs Call InitCommonControlsEx ?WinError ReclaimFrame Could also try something like putting the stack frame on the return stack --- 225,229 ---- Usage StartFrame ICC_DATE_CLASSES 8 EndFrame ! Call InitCommonControlsEx ?WinError ReclaimFrame Could also try something like putting the stack frame on the return stack *************** *** 243,244 **** --- 243,245 ---- return to the word that called it. ------------------------------------------------------ Comment; + |
From: Jos v.d.V. <jo...@us...> - 2005-04-30 21:08:29
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29229/win32forth/apps/WinEd Added Files: Ed_SdkHelp.F Log Message: Jos: For WinEd 3.04 --- NEW FILE: Ed_SdkHelp.F --- \ $Id: Ed_SdkHelp.F,v 1.1 2005/04/30 21:08:21 jos_ven Exp $ \ \ File: SdkHelp.f \ Author: Dirk Busch \ Created: Mittwoch, November 10 2004 - dbu \ Updated: Sonntag, Dezember 26 2004 - dbu \ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Interface to the WIN32-SDK Help file \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ anew -SdkHelp.f needs Win32Help.f \ WinHelp access internal \ path to the WIN32-SDK help file create sdk-help$ ," doc\hlp\win32.hlp" MAXSTRING allot-to sdk-help$ +null : sdk-GetFilename ( -- addr len ) sdk-help$ count 2dup IsAbsolutePath? 0= if prepend<home>\ then ; external : sdk-help? ( -- f ) \ returns true if win32.hlp file is avalible sdk-GetFilename FILE-STATUS nip 0= ; : (sdk-help) ( addr len -- ) \ show help for Win32 API function { \ old_help_file$ function$ -- } sdk-help? if MAX_PATH LocalAlloc: old_help_file$ MAX_PATH LocalAlloc: function$ help_file$ count old_help_file$ place \ save current help file sdk-GetFilename help_file$ place \ set help-file to the Win32 SDK help function$ place function$ +null function$ $help \ open the help file for the given function old_help_file$ count help_file$ place \ restore help file else 2drop then ; : sdk-help ( -<word>- -- ) \ show help for Win32 API function bl word count (sdk-help) ; |
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20644/win32forth/apps/WinEd Modified Files: Ed_About.F Ed_Clipboard.F Ed_Colorize.F Ed_Debug.F Ed_Defaults.F Ed_Do-Html-Link.F Ed_EditWindowObj.F Ed_EditorWords.F Ed_FileFuncs.F Ed_FileStack.F Ed_FindInFiles.F Ed_Findrepl.F Ed_FrameWindowObj.F Ed_Globals.F Ed_Gotoline.F Ed_HyperLink.F Ed_ImageDC.F Ed_KeyCMD.F Ed_Keys.F Ed_LineFuncs.F Ed_LoadFileFuncs.F Ed_Menu.F Ed_MenuFuncs.F Ed_MessageBrodcast.F Ed_MiscFunc.F Ed_MouseHighlight.F Ed_Remote.F Ed_Search.F Ed_Sfont.F Ed_Statbar.F Ed_Sub_Dirs.F Ed_SubjectListObj.F Ed_ToolBar.F Ed_Url.F Ed_Version.F HYPER.F WinEd.f Log Message: Jos: For WinEd 3.04 Index: Ed_EditorWords.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_EditorWords.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Ed_EditorWords.F 12 Mar 2005 09:29:20 -0000 1.1 --- Ed_EditorWords.F 30 Apr 2005 20:52:42 -0000 1.2 *************** *** 77,83 **** defer primitive-save-text ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 4 Colons-only code ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 40 value maxscrlines --- 77,83 ---- defer primitive-save-text ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 4 Colons-only code ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 40 value maxscrlines *************** *** 131,137 **** \ ---------- end colons-only ----------- ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 5 Editor words ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : #line! { caddr clen cline \ cbuf$ cdiff -- } --- 131,137 ---- \ ---------- end colons-only ----------- ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 5 Editor words ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : #line! { caddr clen cline \ cbuf$ cdiff -- } *************** *** 315,321 **** EditMode: Win-EdToolbar ; ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 6 Beep ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : beeper ( -- ) --- 315,321 ---- EditMode: Win-EdToolbar ; ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 6 Beep ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : beeper ( -- ) *************** *** 327,329 **** --- 327,356 ---- IF beep THEN ; + + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ 7 Define the EDIT-WINDOW object + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + + 0 value textBG + 0 value textFG + 0 0 0 rgb new-color highBG + 255 255 255 rgb new-color highFG + Color: WHITE new-color normalBG + Color: BLACK new-color normalFG + 192 225 255 rgb new-color marginColor + Color: LTGRAY new-color linesColor + Color: BLACK new-color binaryColor + ( BLUE ) GREEN value BmarginColor \ browse margin color + + defer trailBG ' normalBG is trailBG + defer selectBG ' normalBG is selectBG + + : highlighting? ( -- f1 ) + hcst hlst hced hled d= 0= ; \ if start and end are same + + + : increment/ ( n1 -- n2 ) \ adjust for very large file + file-lines 65536 > \ if MANY lines, then + IF file-lines 65536 / 1+ / \ divide scroll lines + THEN ; Index: Ed_ImageDC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_ImageDC.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Ed_ImageDC.F 12 Mar 2005 09:29:20 -0000 1.1 --- Ed_ImageDC.F 30 Apr 2005 20:52:42 -0000 1.2 *************** *** 1,15 **** ! \ $ Id: Ed_ImageDc.f,v 3.1 2005/02/01 21:15:56 aws Exp $ \ ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 7 Drawing into the Image DC ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : moveto ( x y -- ) \ Move to the x y position in the editor imageDC MoveTo: [ ] ; ! : lineto ( x y -- ) \ How does this differ from the above imageDC LineTo: [ ] ; ! : line ( x1 y1 x2 y2 -- ) \ move the line from xy to x2y2 2swap moveto lineto ; --- 1,15 ---- ! \ $ Id: Ed_ImageDc.f,v 1.1 2005/02/01 21:15:56 aws Exp $ \ ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 7 Drawing into the Image DC ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : moveto ( x y -- ) \ Move to the x y position in the editor imageDC MoveTo: [ ] ; ! : lineto ( x y -- ) imageDC LineTo: [ ] ; ! : line ( x1 y1 x2 y2 -- ) \ move the line from xy to x2y2 2swap moveto lineto ; *************** *** 18,20 **** imageDC LineColor: [ ] ; - --- 18,19 ---- Index: Ed_FrameWindowObj.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_FrameWindowObj.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Ed_FrameWindowObj.F 12 Mar 2005 09:29:20 -0000 1.1 --- Ed_FrameWindowObj.F 30 Apr 2005 20:52:42 -0000 1.2 *************** *** 1,7 **** \ $Id$ \ ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 58 Define the main window for the application ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :Object FrameWindow <super window --- 1,7 ---- \ $Id$ \ ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 58 Define the main window for the application ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :Object FrameWindow <super window *************** *** 24,29 **** StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style ! WindowTitle: [ self ] rel>abs \ the window title ! WindowClassName 1+ rel>abs \ class name ExWindowStyle: [ self ] \ extended window style Call CreateWindowEx --- 24,29 ---- StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style ! WindowTitle: [ self ] \ the window title ! WindowClassName 1+ \ class name ExWindowStyle: [ self ] \ extended window style Call CreateWindowEx *************** *** 291,295 **** )) all-lines: EditWindow - drag-barH drag-thick + 1+ edit-top --- 291,294 ---- *************** *** 326,330 **** -1 drag-barV drag-thick + 2 + dup>r ! Width 2 + Height r> - -status Move: ConsoleWindow THEN --- 325,329 ---- -1 drag-barV drag-thick + 2 + dup>r ! Width 2 + Height r> - -status Move: ConsoleWindow THEN *************** *** 446,450 **** :M WindowTitle: ( -- Zstring ) \ window caption ! z" WinEd" ;M --- 445,449 ---- :M WindowTitle: ( -- Zstring ) \ window caption ! z" Win-Ed" ;M *************** *** 592,598 **** THEN ;M ! ! \ 59 Support for Drag and Drop files from File Manager to WinEd ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :M ExWindowStyle: ( -- ) --- 591,597 ---- THEN ;M ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ 59 Support for Drag and Drop files from File Manager to Win-Ed ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :M ExWindowStyle: ( -- ) *************** *** 627,629 **** ;M - |
From: Jos v.d.V. <jo...@us...> - 2005-04-30 20:52:51
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20644/win32forth Modified Files: fkernel.exe Added Files: WinEdColorize1.COL WinEdColorize2.COL Log Message: Jos: For WinEd 3.04 Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 Binary files /tmp/cvsyZqTVo and /tmp/cvs3eSsJd differ --- NEW FILE: WinEdColorize2.COL --- \ 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 12 CODE defining words that come in pairs 1 12 CFA-CODE 1 12 CFA-FUNC 1 12 END-CODE 1 12 C; 1 12 : 1 12 :NONAME 1 12 ; 1 12 :M 1 12 ;M 1 12 :CLASS 1 12 ;CLASS 1 12 :OBJECT 1 12 ;OBJECT 1 12 EXIT unusual control things that should stand out 1 12 ?EXIT 1 12 LEAVE 1 12 UNLOOP 1 12 QUIT 1 12 RECURSE 1 12 IF control structures 1 12 -IF 1 12 ELSE 1 12 THEN 1 12 BEGIN 1 12 WHILE 1 12 REPEAT 1 12 AGAIN 1 12 UNTIL 1 12 CONTINUE 1 12 DO 1 12 ?DO 1 12 LOOP 1 12 +LOOP 1 12 CASE 1 12 OF 1 12 ENDOF 1 12 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 5 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 #ENDIF 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 3DROP 1 4 4DROP 1 4 2DUP 1 4 3DUP 1 4 4DUP 1 4 2OVER 1 4 2SWAP 1 4 DUP>R 1 4 < 1 4 <# 1 4 = 1 4 > 1 4 >BODY 1 4 >IN 1 4 >NUMBER 1 4 >R 1 4 >RDROP 1 4 R>DROP 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 2NIP 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 ;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 )) --- NEW FILE: WinEdColorize1.COL --- \ 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 CFA-FUNC 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 3DROP 1 4 4DROP 1 4 2DUP 1 4 3DUP 1 4 4DUP 1 4 2OVER 1 4 2SWAP 1 4 DUP>R 1 4 < 1 4 <# 1 4 = 1 4 > 1 4 >BODY 1 4 >IN 1 4 >NUMBER 1 4 >R 1 4 >RDROP 1 4 R>DROP 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 2NIP 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 ((( |
From: George H. <geo...@us...> - 2005-04-30 16:03:51
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18789/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah: added 2nip to fkernel.f Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** fkernel.f 26 Apr 2005 19:56:49 -0000 1.11 --- fkernel.f 30 Apr 2005 16:03:40 -0000 1.12 *************** *** 1085,1093 **** \ -------------------- Double Stack Operators ------------------------------- ! CODE 2DROP ( n1 n2 -- ) \ discard two single items from the data stack add esp, # 4 pop ebx next c; CODE 2DUP ( n1 n2 -- n1 n2 n1 n2 ) \ duplicate the top two single items \ on the data stack --- 1085,1099 ---- \ -------------------- Double Stack Operators ------------------------------- ! CODE 2DROP ( n1 n2 -- ) \ discard two single items on the data stack add esp, # 4 pop ebx next c; + CODE 2NIP ( n1 n2 n3 n4 -- n3 n4 ) \ discard third and fourth items on data stack + pop eax + mov 4 [esp], eax + pop eax + next c; + CODE 2DUP ( n1 n2 -- n1 n2 n1 n2 ) \ duplicate the top two single items \ on the data stack *************** *** 5726,5727 **** --- 5732,5734 ---- ' ?THROW RESOLVES ?THROW ' WARNMSG RESOLVES WARNMSG + |
From: George H. <geo...@us...> - 2005-04-30 15:13:39
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23088/win32forth/src Modified Files: FLOAT.F Log Message: gah: modified _float-number, to reset float? Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** FLOAT.F 26 Apr 2005 19:56:49 -0000 1.2 --- FLOAT.F 30 Apr 2005 15:13:29 -0000 1.3 *************** *** 2246,2250 **** \in-system-ok if postpone fliteral then ! 2drop then ; --- 2246,2250 ---- \in-system-ok if postpone fliteral then ! 2drop 0 to float? then ; *************** *** 2314,2315 **** --- 2314,2316 ---- end-code + |
From: Dirk B. <db...@us...> - 2005-04-30 08:01:38
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14791/extsrc/wincon Modified Files: BUILD.BAT BUILD.C WINCON.C WINCON.DSP wincon.aps wincon.i wincon.rc Added Files: BUILD.h Log Message: New Wincon.dll now 20,312 Windows Constants available Index: wincon.i =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/wincon.i,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** wincon.i 22 Dec 2004 20:26:00 -0000 1.1 --- wincon.i 30 Apr 2005 08:01:02 -0000 1.2 *************** *** 1,15514 **** ! CONSTANT(WINVER) ! CONSTANT(STRICT) ! CONSTANT(MAX_PATH) ! CONSTANT(NULL) ! CONSTANT(FALSE) ! CONSTANT(TRUE) ! CONSTANT(ANYSIZE_ARRAY) ! CONSTANT(MEMORY_ALLOCATION_ALIGNMENT) ! CONSTANT(ADDRESS_TAG_BIT) ! CONSTANT(MAXUINT_PTR) [...35800 lines suppressed...] ! CONSTANT( WC_LINK ) ! CONSTANT( CERICHEDIT_CLASSA ) ! CONSTANT( CERICHEDIT_CLASSW ) ! CONSTANT( RICHEDIT_CLASSA ) ! CONSTANT( RICHEDIT_CLASS10A ) ! CONSTANT( RICHEDIT_CLASSW ) ! CONSTANT( MSH_MOUSEWHEEL ) ! CONSTANT( MOUSEZ_CLASSNAME ) ! CONSTANT( MOUSEZ_TITLE ) ! CONSTANT( MSH_WHEELSUPPORT ) ! CONSTANT( MSH_SCROLL_LINES ) ! CONSTANT( ACCESS_DS_SOURCE_W ) ! CONSTANT( ACCESS_DS_OBJECT_TYPE_NAME_W ) ! CONSTANT( ACMHELPMSGSTRINGA ) ! CONSTANT( ACMHELPMSGSTRINGW ) ! CONSTANT( ACMHELPMSGCONTEXTMENUA ) ! CONSTANT( ACMHELPMSGCONTEXTMENUW ) ! CONSTANT( ACMHELPMSGCONTEXTHELPA ) ! CONSTANT( ACMHELPMSGCONTEXTHELPW ) ! Index: WINCON.DSP =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/WINCON.DSP,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WINCON.DSP 22 Dec 2004 20:26:00 -0000 1.1 --- WINCON.DSP 30 Apr 2005 08:01:02 -0000 1.2 *************** *** 44,48 **** # PROP Target_Dir "" # ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /YX /c ! # ADD CPP /nologo /Zp4 /MT /W3 /GX /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /FR /YX /FD /c # ADD BASE MTL /nologo /D "NDEBUG" /win32 # ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 --- 44,48 ---- # PROP Target_Dir "" # ADD BASE CPP /nologo /MT /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /YX /c ! # ADD CPP /nologo /MT /W3 /GX /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /FR /YX /FD /c # ADD BASE MTL /nologo /D "NDEBUG" /win32 # ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 *************** *** 54,58 **** LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 ! # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 /out:"..\..\Wincon.dll" !ELSEIF "$(CFG)" == "wincon - Win32 Debug" --- 54,58 ---- LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 ! # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386 /out:"..\..\..\Win32Forth\Wincon.dll" !ELSEIF "$(CFG)" == "wincon - Win32 Debug" *************** *** 80,84 **** LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 ! # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /out:"..\..\Wincon.dll" !ENDIF --- 80,84 ---- LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 ! # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /out:"..\..\..\Win32Forth\Wincon.dll" !ENDIF *************** *** 93,97 **** # Begin Source File ! SOURCE=.\wincon.c # End Source File # Begin Source File --- 93,97 ---- # Begin Source File ! SOURCE=.\WINCON.C # End Source File # Begin Source File *************** *** 116,119 **** --- 116,123 ---- SOURCE=.\wincon.i # End Source File + # Begin Source File + + SOURCE=.\wincon.ii + # End Source File # End Target # End Project Index: wincon.aps =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/wincon.aps,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvs1EEjrO and /tmp/cvsUa17uj differ --- NEW FILE: BUILD.h --- // precompiler input to load windows constants // required predefined values #define WINVER 0x0501 #define _WIN32_IE 0x0501 #define _WIN32_WINNT 0x0501 #ifndef _WIN32 #define _WIN32 #endif #include <windows.h> #include <commctrl.h> #include <richedit.h> #include <zmouse.h> #include <vfw.h> #include <shlwapi.h> Index: BUILD.BAT =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/BUILD.BAT,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** BUILD.BAT 22 Dec 2004 20:26:00 -0000 1.1 --- BUILD.BAT 30 Apr 2005 08:01:02 -0000 1.2 *************** *** 6,15 **** rem Change the -I option to point to your windows include directory. rem cpp.exe -I/msdev/include build.c > nul ! cpp.exe -Id:/vc/include build.c > nul rem rebuild the dll ! nmake /f wincon.mak CFG="wincon - Win32 Release" rem copy the files to the current directory ! copy release\wincon.dll . ! copy release\wincon.lib . --- 6,15 ---- rem Change the -I option to point to your windows include directory. rem cpp.exe -I/msdev/include build.c > nul ! cpp.exe -IC:/Programme/Microsoft_SDK/Include build.c >nul rem rebuild the dll ! rem nmake /f wincon.mak CFG="wincon - Win32 Release" rem copy the files to the current directory ! rem copy release\wincon.dll . ! rem copy release\wincon.lib . Index: wincon.rc =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/wincon.rc,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** wincon.rc 22 Dec 2004 20:26:00 -0000 1.1 --- wincon.rc 30 Apr 2005 08:01:02 -0000 1.2 *************** *** 29,34 **** VS_VERSION_INFO VERSIONINFO ! FILEVERSION 2,0,0,1 ! PRODUCTVERSION 2,0,0,1 FILEFLAGSMASK 0x3fL #ifdef _DEBUG --- 29,34 ---- VS_VERSION_INFO VERSIONINFO ! FILEVERSION 3,0,0,1 ! PRODUCTVERSION 3,0,0,1 FILEFLAGSMASK 0x3fL #ifdef _DEBUG *************** *** 48,52 **** VALUE "CompanyName", "Win32Forth developer team\0" VALUE "FileDescription", "Win32Forth Windows constants support\0" ! VALUE "FileVersion", "2, 0, 0, 1\0" VALUE "InternalName", "WINCON\0" VALUE "LegalCopyright", "\0" --- 48,52 ---- VALUE "CompanyName", "Win32Forth developer team\0" VALUE "FileDescription", "Win32Forth Windows constants support\0" ! VALUE "FileVersion", "3, 0, 0, 1\0" VALUE "InternalName", "WINCON\0" VALUE "LegalCopyright", "\0" *************** *** 55,59 **** VALUE "PrivateBuild", "\0" VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "2, 0, 0, 1\0" VALUE "SpecialBuild", "\0" END --- 55,59 ---- VALUE "PrivateBuild", "\0" VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "3, 0, 0, 1\0" VALUE "SpecialBuild", "\0" END Index: BUILD.C =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/BUILD.C,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** BUILD.C 22 Dec 2004 20:26:00 -0000 1.1 --- BUILD.C 30 Apr 2005 08:01:02 -0000 1.2 *************** *** 2,17 **** // required predefined values ! #define WINVER 0x0400 ! #define _WIN32 ! #define _M_IX86 300 ! #define _STDCALL_SUPPORTED ! ! // optional to make the dll smaller ! //#define WIN32_LEAN_AND_MEAN ! //#define NOMCX // Modem Configuration Extensions ! //#define NOKANJI // Kanji support stuff ! //#define NOIME ! ! #include <windows.h> ! #include <commctrl.h> ! --- 2,4 ---- // required predefined values ! #include "Build.h" Index: WINCON.C =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/WINCON.C,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WINCON.C 22 Dec 2004 20:26:00 -0000 1.1 --- WINCON.C 30 Apr 2005 08:01:02 -0000 1.2 *************** *** 1,9 **** // wincon.c // Andrew McKewan, August 1996 - #define WINVER 0x0501 - #include <windows.h> - #include <commctrl.h> - #include <Shlwapi.h> #include <stdio.h> ////////////////////////////////////////////////////////////////////// --- 1,8 ---- // wincon.c // Andrew McKewan, August 1996 #include <stdio.h> + #include <limits.h> + //#pragma warning ( disable: 4005 ) + #include "build.h" ////////////////////////////////////////////////////////////////////// *************** *** 29,33 **** // Create a hash table of the names for quick lookup. ! #define HASHSIZE 2003 Entry *hashTable[HASHSIZE]; --- 28,33 ---- // Create a hash table of the names for quick lookup. ! //#define HASHSIZE 2003 ! #define HASHSIZE 65536 Entry *hashTable[HASHSIZE]; *************** *** 192,196 **** return E_FAIL; ! pdvi->dwMajorVersion = 2; pdvi->dwMinorVersion = 0; pdvi->dwBuildNumber = 1; --- 192,196 ---- return E_FAIL; ! pdvi->dwMajorVersion = 3; pdvi->dwMinorVersion = 0; pdvi->dwBuildNumber = 1; |
From: Dirk B. <db...@us...> - 2005-04-30 08:01:12
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/winconcpp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14791/extsrc/wincon/winconcpp Modified Files: CPP.DSP MACRO.C Log Message: New Wincon.dll now 20,312 Windows Constants available Index: MACRO.C =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/winconcpp/MACRO.C,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** MACRO.C 22 Dec 2004 20:26:01 -0000 1.1 --- MACRO.C 30 Apr 2005 08:01:03 -0000 1.2 *************** *** 11,32 **** // A good name must start with an uppercase letter and be // compose if uppercase letters, numbers and underscores int goodname(Token *tp) { ! unsigned int i; ! if (tp->len < 1) return 0; ! if (!isupper(tp->t[0])) return 0; ! for (i = 1; i < tp->len; i++) ! if (!(isupper(tp->t[i]) || isdigit(tp->t[i]) || tp->t[i] == '_')) return 0; return 1; } ! #define MATCH(s) if (memcmp(tp->t, s, strlen(s)) == 0) return 1; // Determine if the token following a name is a good one for us. static int goodtoken(Token *tp) { switch (tp->type) { --- 11,54 ---- // A good name must start with an uppercase letter and be // compose if uppercase letters, numbers and underscores + // + // Changed 29.04.2005 dbu: + // - All names are good + int goodname(Token *tp) { ! if( tp->len < 1 ) return 0; ! ! if( tp->t[0] == '_' && tp->t[1] == '_' ) return 0; ! /* ! if( !isupper(tp->t[0]) ) ! return 0; ! for( unsigned int i = 1; i < tp->len; i++ ) ! { ! if( !(isupper(tp->t[i]) || isdigit(tp->t[i]) || tp->t[i] == '_') ) return 0; + } + */ return 1; } ! //#define MATCH(s) if (memcmp(tp->t, s, strlen(s)) == 0) return 1; ! //#define DONT_MATCH(s) if (memcmp(tp->t, s, strlen(s)) == 0) return 0; ! ! int match( const char *s, const char *s1 ) ! { ! if( strncmp( s, s1, strlen(s1) ) == 0 ) ! return 1; ! return 0; ! } // Determine if the token following a name is a good one for us. static int goodtoken(Token *tp) { + char *eol = NULL; + int len = tp->len; + int act = 0; + switch (tp->type) { *************** *** 36,39 **** --- 58,62 ---- return 1; case NAME: + /* MATCH("STATUS_") MATCH("THREAD_") *************** *** 58,61 **** --- 81,133 ---- MATCH("MM_") MATCH("AF_") + */ + if( tp->len < 1 ) + return 0; + + // if( tp->t[0] == '_' && tp->t[1] == '_' ) + // return 0; + + // eol = strchr(tp->t, '\n'); + // if( eol ) + // len = (eol+1) - tp->t; + + for( act = 0; act <= len; act++ ) + { + if( isdigit(tp->t[act]) ) + continue; + else if( tp->t[act] == '_' ) + continue; + else if( tp->t[act] == '(' || tp->t[act] == ')' ) + continue; + else if( tp->t[act] == '|' ) + continue; + else if( tp->t[act] == '~' ) + continue; + else if( tp->t[act] == '-' || tp->t[act] == '+' ) + continue; + else if( act == len && (tp->t[act] == '\r' || tp->t[act] == '\n' ) ) + continue; + else if( tp->t[act] == '"' || tp->t[act] == ' ' || !isupper(tp->t[act]) ) + return 0; + } + + if( match( tp->t, "WINAPI" ) ) + return 0; + if( match( tp->t, "POINTER_32" ) ) + return 0; + if( match( tp->t, "DECLSPEC_" ) ) + return 0; + if( match( tp->t, "(void)0" ) ) + return 0; + if( match( tp->t, "EXTERN_C" ) ) + return 0; + if( match( tp->t, "HRESULT" ) ) + return 0; + if( match( tp->t, "__stdcall" ) ) + return 0; + if( match( tp->t, "_HRESULT_TYPEDEF_" ) ) + return 1; + + return 1; } return 0; Index: CPP.DSP =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/wincon/winconcpp/CPP.DSP,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CPP.DSP 22 Dec 2004 20:26:00 -0000 1.1 --- CPP.DSP 30 Apr 2005 08:01:03 -0000 1.2 *************** *** 1,23 **** # Microsoft Developer Studio Project File - Name="cpp" - Package Owner=<4> # Microsoft Developer Studio Generated Build File, Format Version 6.00 ! # ** DO NOT EDIT ** # TARGTYPE "Win32 (x86) Console Application" 0x0103 CFG=cpp - Win32 Release ! !MESSAGE This is not a valid makefile. To build this project using NMAKE, ! !MESSAGE use the Export Makefile command and run !MESSAGE !MESSAGE NMAKE /f "CPP.MAK". !MESSAGE ! !MESSAGE You can specify a configuration when running NMAKE ! !MESSAGE by defining the macro CFG on the command line. For example: !MESSAGE !MESSAGE NMAKE /f "CPP.MAK" CFG="cpp - Win32 Release" !MESSAGE ! !MESSAGE Possible choices for configuration are: !MESSAGE ! !MESSAGE "cpp - Win32 Release" (based on "Win32 (x86) Console Application") ! !MESSAGE "cpp - Win32 Debug" (based on "Win32 (x86) Console Application") !MESSAGE --- 1,23 ---- # Microsoft Developer Studio Project File - Name="cpp" - Package Owner=<4> # Microsoft Developer Studio Generated Build File, Format Version 6.00 ! # ** NICHT BEARBEITEN ** # TARGTYPE "Win32 (x86) Console Application" 0x0103 CFG=cpp - Win32 Release ! !MESSAGE Dies ist kein gültiges Makefile. Zum Erstellen dieses Projekts mit NMAKE ! !MESSAGE verwenden Sie den Befehl "Makefile exportieren" und führen Sie den Befehl !MESSAGE !MESSAGE NMAKE /f "CPP.MAK". !MESSAGE ! !MESSAGE Sie können beim Ausführen von NMAKE eine Konfiguration angeben ! !MESSAGE durch Definieren des Makros CFG in der Befehlszeile. Zum Beispiel: !MESSAGE !MESSAGE NMAKE /f "CPP.MAK" CFG="cpp - Win32 Release" !MESSAGE ! !MESSAGE Für die Konfiguration stehen zur Auswahl: !MESSAGE ! !MESSAGE "cpp - Win32 Release" (basierend auf "Win32 (x86) Console Application") ! !MESSAGE "cpp - Win32 Debug" (basierend auf "Win32 (x86) Console Application") !MESSAGE *************** *** 40,43 **** --- 40,44 ---- # PROP Output_Dir ".\Release" # PROP Intermediate_Dir ".\Release" + # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /YX /c *************** *** 50,54 **** LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386 ! # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386 !ELSEIF "$(CFG)" == "cpp - Win32 Debug" --- 51,55 ---- LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386 ! # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386 /out:"..\cpp.exe" !ELSEIF "$(CFG)" == "cpp - Win32 Debug" *************** *** 63,66 **** --- 64,68 ---- # PROP Output_Dir ".\Debug" # PROP Intermediate_Dir ".\Debug" + # PROP Ignore_Export_Lib 0 # PROP Target_Dir "" # ADD BASE CPP /nologo /W3 /Gm /GX /Zi /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /YX /c *************** *** 73,77 **** LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 ! # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 !ENDIF --- 75,79 ---- LINK32=link.exe # ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 ! # ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /out:"..\cpp.exe" !ENDIF |
From: Dirk B. <db...@us...> - 2005-04-30 07:59:58
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14144 Modified Files: Wincon.dll Log Message: New Wincon.dll now 20,312 Windows Constants available Index: Wincon.dll =================================================================== RCS file: /cvsroot/win32forth/win32forth/Wincon.dll,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvsVpSbBz and /tmp/cvs4AxnUQ differ |