Menu
▾
▴
win32forth-cvs — CVS Commit List
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: Dirk B. <db...@us...> - 2005-04-18 17:40:02
|
Update of /cvsroot/win32forth/win32forth/demos In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/demos Modified Files: WINBROWS.F Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: WINBROWS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINBROWS.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WINBROWS.F 21 Dec 2004 00:18:52 -0000 1.1 --- WINBROWS.F 18 Apr 2005 17:39:24 -0000 1.2 *************** *** 551,555 **** : WINBROWSE ( -<filename>- ) ! NT? Win98? or to using98/NT? \ Start: EDITW cmdline bl skip 2dup bl scan nip - dup --- 551,556 ---- : WINBROWSE ( -<filename>- ) ! WinVer 4 >= ( NT? ) ! winver 2 3 between ( Win98? ) or to using98/NT? Start: EDITW cmdline bl skip 2dup bl scan nip - dup *************** *** 579,580 **** --- 580,582 ---- 5 pause-seconds \ pause for user to see what happened + |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:40:02
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/apps/Setup Modified Files: Setup.f Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: Setup.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Setup.f 21 Dec 2004 00:18:49 -0000 1.1 --- Setup.f 18 Apr 2005 17:39:22 -0000 1.2 *************** *** 25,30 **** FLOAD ..\..\src\Keyboard.f \ function and special key constants FLOAD ..\..\src\pointer.f ! FLOAD ..\..\src\registry.f \ Win32 Registry support FLOAD ..\..\src\ansfile.f \ the Setup starts here... --- 25,31 ---- FLOAD ..\..\src\Keyboard.f \ function and special key constants FLOAD ..\..\src\pointer.f ! \ FLOAD ..\..\src\registry.f \ Win32 Registry support FLOAD ..\..\src\ansfile.f + FLOAD ..\..\src\shell.f \ the Setup starts here... *************** *** 61,71 **** -if ." invoked with commandline <" type ." >" cr then ! s" console" getsetting regsett place ! s" 80,80,520,600" s" console" setsetting GetSystemDirectory ; : setupterm ( -- ) 1 Show-Window ! regsett count s" console" setsetting ; : setup-bye ( -- ) --- 62,73 ---- -if ." invoked with commandline <" type ." >" cr then ! \ s" console" getsetting regsett place ! \ s" 80,80,520,600" s" console" setsetting GetSystemDirectory ; : setupterm ( -- ) 1 Show-Window ! \ regsett count s" console" setsetting ! ; : setup-bye ( -- ) *************** *** 160,200 **** checkend cls SetUpForth ; - create ProcInfo - 0 , \ hProcess - 0 , \ hThread - 0 , \ dwPriocessId - 0 , \ dwThreadId - - create StartupInfo - here 0 , \ cb - 0 , \ lpReserved - 0 , \ lpDesktop - 0 , \ lpTitle - 373 , \ dwX - 3 , \ dwY - 0 , \ dwXSize - 0 , \ dwYSize - 80 , \ dwXCountChars - 50 , \ dwYCountChars - 0 , \ dwFillAttribute - STARTF_USEPOSITION - STARTF_USECOUNTCHARS + - STARTF_USESHOWWINDOW + - , \ dwFlags - SW_SHOWNORMAL W, \ wShowWindow - 0 W, \ cbReserved2 - 0 , \ lpReserved2 - 0 , \ hStdInput - 0 , \ hStdOutput - 0 , \ hStdError - here over - swap ! - - 10 proc CreateProcess - 2 proc WaitForSingleObject : procexec \ pass to NT without any interpretation \ f1 = TRUE on error dup ." Executing process <" count type ." >" cr ProcInfo 4 cells erase \ clear procinfo ! >r \ null setupterminated parameter string ProcInfo \ lppiProcInfo StartupInfo \ lpsiStartInfo --- 162,172 ---- checkend cls SetUpForth ; : procexec \ pass to NT without any interpretation \ f1 = TRUE on error + [ also hidden ] dup ." Executing process <" count type ." >" cr + ProcInfo 4 cells erase \ clear procinfo ! >r \ null terminated parameter string ProcInfo \ lppiProcInfo StartupInfo \ lpsiStartInfo *************** *** 207,223 **** r> 1+ \ lpszCommandLine 0 \ lpszImageName ! call CreateProcess 0= if ! ." *** CreateProcess failed ***" ! wait&bye then - ." Waiting for process to finish..." - -1 ProcInfo @ call WaitForSingleObject drop - ProcInfo @ call CloseHandle drop \ close process - ProcInfo cell+ @ call CloseHandle drop \ close thread - _conHndl call SetForegroundWindow drop - ." process finished" cr - key? drop ; ! previous : cleanbuild ( f -- ) \ clean up the files before install --- 179,197 ---- r> 1+ \ lpszCommandLine 0 \ lpszImageName ! call CreateProcess 0= ! if ." *** CreateProcess failed ***" ! wait&bye ! else ! ." Waiting for process to finish..." ! EXEC-CLOSE-THREAD-HANDLE \ close the thread handle ! EXEC-PROCESS-WAIT \ wait for the process ! EXEC-CLOSE-PROCESS-HANDLE \ and close the process handle ! ! _conHndl call SetForegroundWindow drop ! ." process finished" cr ! key? drop then ! [ previous ] ; : cleanbuild ( f -- ) \ clean up the files before install |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:40:02
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/apps/SciEdit Modified Files: EdCompile.f Main.f Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Main.f 6 Jan 2005 16:54:52 -0000 1.2 --- Main.f 18 Apr 2005 17:39:22 -0000 1.3 *************** *** 16,19 **** --- 16,21 ---- ANEW -Main.f + only forth also editor definitions \ put all words into the EDITOR vocabulary + : sysgen ; Index: EdCompile.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdCompile.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdCompile.f 21 Dec 2004 00:18:47 -0000 1.1 --- EdCompile.f 18 Apr 2005 17:39:21 -0000 1.2 *************** *** 68,72 **** \ ----------------------------------------------------------------------------- ! : WaitForConsole { / ?deadlook -- } \ wait until console is ready to accept char's \ return's after 10 seconds even when the console is not ready 0 to ?deadlook --- 68,72 ---- \ ----------------------------------------------------------------------------- ! : WaitForConsole { \ ?deadlook -- } \ wait until console is ready to accept char's \ return's after 10 seconds even when the console is not ready 0 to ?deadlook *************** *** 84,89 **** file$ ?+\ s" Win32For.exe" file$ +place ! file$ +NULL ! file$ 1+ zEXEC \ wait untill Forth is loaded --- 84,88 ---- file$ ?+\ s" Win32For.exe" file$ +place ! file$ EXEC-CMD drop \ wait untill Forth is loaded *************** *** 111,115 **** \ ----------------------------------------------------------------------------- :noname ( addr n -- ) \ compile a file ! { \ load$ file$ -- } MAXSTRING LocalAlloc: load$ MAXSTRING LocalAlloc: file$ --- 110,114 ---- \ ----------------------------------------------------------------------------- :noname ( addr n -- ) \ compile a file ! { \ load$ file$ -- } MAXSTRING LocalAlloc: load$ MAXSTRING LocalAlloc: file$ *************** *** 120,136 **** IF StartUpForth THEN \ then start one ! s" foreground-console" "Forth \ make Forth the front application ! ! s" chdir '" load$ place ! file$ COUNT "path-only" load$ +place ! s" '" load$ +place ! load$ COUNT "Forth \ Make file directory active ! s" FLOAD '" load$ place ! file$ COUNT load$ +place ! s" '" load$ +place ! load$ COUNT "Forth \ Compile the source file ! ; is Compile-File |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:39:53
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/src Modified Files: Class.f EXCEPTIO.F Extend.f MAPFILE.F PRIMHASH.F Utils.f paths.f Added Files: Shell.f Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: Class.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Class.f 13 Apr 2005 00:09:20 -0000 1.2 --- Class.f 18 Apr 2005 17:39:42 -0000 1.3 *************** *** 106,114 **** : (FINDM) ( SelID ^class -- m0cfa ) \ find method in a class 2dup ! MFA ((findm)) if nip nip EXIT then nip S" not understood by class " tempmsg$ +place ! body> >name nfa-count tempmsg$ +place ! tempmsg$ msg ! -2 throw ; : FIND-METHOD ( SelID ^obj -- ^obj m0cfa ) \ find method in object --- 106,117 ---- : (FINDM) ( SelID ^class -- m0cfa ) \ find method in a class 2dup ! MFA ((findm)) if nip nip EXIT then nip + S" not understood by class " tempmsg$ +place ! turnkeyed? \ Sonntag, März 13 2005 dbu ! if drop s" [UNKNOWN]" tempmsg$ +place ! else body> >name nfa-count tempmsg$ +place ! then tempmsg$ msg ! -2 throw ; : FIND-METHOD ( SelID ^obj -- ^obj m0cfa ) \ find method in object *************** *** 889,893 **** : msgFind ( addr -- addr false | cfa true ) ! PARMFIND ?DUP 0= IF _MSGFIND THEN ; \ If FIND is used in a TURNKEYed application it must be reset to PARMFIND --- 892,899 ---- : msgFind ( addr -- addr false | cfa true ) ! PARMFIND ?DUP 0= ! IF _MSGFIND ! (dprwarn) \ warn if deprecated selector is found (Sonntag, März 13 2005 dbu) ! THEN ; \ If FIND is used in a TURNKEYed application it must be reset to PARMFIND *************** *** 1198,1199 **** --- 1204,1206 ---- only forth also definitions + |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:39:52
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/src/tools Modified Files: HelpSystem.f Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: HelpSystem.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/HelpSystem.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** HelpSystem.f 12 Mar 2005 09:09:58 -0000 1.3 --- HelpSystem.f 18 Apr 2005 17:39:43 -0000 1.4 *************** *** 141,145 **** if 1024 LocalAlloc: cmd$ ret$ zcount cmd$ place s" file:" cmd$ +place addr len cmd$ +place \ build command string ! cmd$ +null cmd$ 1+ zEXEC drop \ execute the default browser else addr len internal-browser then ; --- 141,145 ---- if 1024 LocalAlloc: cmd$ ret$ zcount cmd$ place s" file:" cmd$ +place addr len cmd$ +place \ build command string ! cmd$ EXEC-CMD drop \ execute the default browser else addr len internal-browser then ; |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:39:51
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915/src/kernel Modified Files: fkernel.f Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** fkernel.f 13 Apr 2005 00:09:27 -0000 1.7 --- fkernel.f 18 Apr 2005 17:39:42 -0000 1.8 *************** *** 2539,2543 **** \ -------------------- Parse Input Stream -------------------- ! \ WORD is doesn't met the ANS-Standard in Win32Forth. \ The standrad reqires that a space, not included in the length, must follow \ the string. In Win32Forth a NULL follow's the string. --- 2539,2543 ---- \ -------------------- Parse Input Stream -------------------- ! \ WORD doesn't met the ANS-Standard in Win32Forth. \ The standrad reqires that a space, not included in the length, must follow \ the string. In Win32Forth a NULL follow's the string. *************** *** 3968,3981 **** 0 0 rot FILE_END SetFP nip nip ; \ ior - 0 = success : file-size ( fileid -- len-ud ior ) ! dup>r file-position ! ?DUP IF r>drop >R 2drop 0 0 R> _EXIT THEN \ error, exit ! 0 0 R@ \ position, fileid ! FILE_END SetFP \ move to end ! ?dup if r>drop 4drop _EXIT then \ error, exit ! 2SWAP R> reposition-file ; \ otherwise reposition ! : flush-file ( fileid -- ior ) ! call FlushFileBuffers 0= ; \ ior - 0 = success | CODE ADJ-LENS ( buff len buff' -- len len' ) \ adjust lengths: rot - tuck swap - ; --- 3968,3993 ---- 0 0 rot FILE_END SetFP nip nip ; \ ior - 0 = success + 2 PROC GetFileSize : file-size ( fileid -- len-ud ior ) ! \ dup>r file-position ! \ ?DUP IF r>drop >R 2drop 0 0 R> _EXIT THEN \ error, exit ! \ 0 0 R@ \ position, fileid ! \ FILE_END SetFP \ move to end ! \ ?dup if r>drop 4drop _EXIT then \ error, exit ! \ 2SWAP R> reposition-file ; \ otherwise reposition ! \ this is about 3 times faster; thank's Lcc Wizard for ! \ sending me this (Mittwoch, März 16 2005 dbu) ! cell _LOCALALLOC dup>r ! swap call GetFileSize ! r> @ over INVALID_FILE_SIZE = ! if call GetLastError NO_ERROR = ! if false ! else 2drop 0.0 true ! then ! else false ! then _LOCALFREE ; ! : flush-file ( fileid -- ior ) ! call FlushFileBuffers 0= ; \ ior - 0 = success | CODE ADJ-LENS ( buff len buff' -- len len' ) \ adjust lengths: rot - tuck swap - ; *************** *** 5155,5160 **** TRUE TO DPR-WARNING? ; ! |: (dprwarn) ( -- ) \ warn if deprected word was found ! DPR-WARNING? LATEST-NFA @ n>bfa c@ BFA_DEPRECATED and and IF WARN_DEPRECATEDWORD WARNMSG THEN ; --- 5167,5172 ---- TRUE TO DPR-WARNING? ; ! : (dprwarn) ( f -- f ) \ warn if deprected word was found ! dup 0<> DPR-WARNING? LATEST-NFA @ n>bfa c@ BFA_DEPRECATED and and and IF WARN_DEPRECATEDWORD WARNMSG THEN ; *************** *** 5178,5183 **** THEN ! \ warn if deprecated word is found ! dup 0<> if (dprwarn) then ; ' PARMFIND IS FIND --- 5190,5194 ---- THEN ! (dprwarn) ; \ warn if deprecated word is found ' PARMFIND IS FIND *************** *** 5733,5734 **** --- 5744,5746 ---- ' ?THROW RESOLVES ?THROW ' WARNMSG RESOLVES WARNMSG + |
|
From: Dirk B. <db...@us...> - 2005-04-18 17:39:51
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10915 Modified Files: fkernel.exe setup.exe w32fConsole.dll Log Message: zEXEC rewritten (see Shell.f), made DEPRECATED work for class members,SF[1178189] fixed, SF[1178189] fixed, SF[1178186] fixed, SF[1167791] fixed, SF[774094] fixed; and some other small changes I can't remebere any more Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsabS012 and /tmp/cvsSLDKXY differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 Binary files /tmp/cvsCXwAk8 and /tmp/cvss2EFm4 differ Index: w32fConsole.dll =================================================================== RCS file: /cvsroot/win32forth/win32forth/w32fConsole.dll,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 Binary files /tmp/cvsepEp3b and /tmp/cvsXPHA97 differ |
|
From: Alex M. <ale...@us...> - 2005-04-13 00:10:16
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28909 Modified Files: fkernel.exe Log Message: arm: redefine ?loading in terms of source-id; correct ?winerror and remove call to save-input Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 Binary files /tmp/cvsoirZ3T and /tmp/cvs9XyI2u differ |
|
From: Alex M. <ale...@us...> - 2005-04-13 00:09:52
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28909/src/console Modified Files: WinBase.f Log Message: arm: redefine ?loading in terms of source-id; correct ?winerror and remove call to save-input Index: WinBase.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/WinBase.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** WinBase.f 21 Dec 2004 00:19:09 -0000 1.1 --- WinBase.f 13 Apr 2005 00:09:27 -0000 1.2 *************** *** 98,115 **** : DefinedAbort, \ compiles an ABORT" with the file name and line where defined ! SAVE-INPUT 2DROP 2DROP ROT \ get current file name and position ! IF S" Defined in file: " TEMP$ PLACE ! ROT COUNT TEMP$ +PLACE S" -- Line: " TEMP$ +PLACE ! DROP (.) TEMP$ +PLACE POSTPONE (ABORT") ! TEMP$ COUNT ! HERE >R DUP C, ! DUP ALLOT ! R@ 1+ SWAP MOVE ! 0 C, ! ALIGN ! R> COUNT \N->CRLF ! ELSE 2DROP DROP POSTPONE DROP THEN ; --- 98,109 ---- : DefinedAbort, \ compiles an ABORT" with the file name and line where defined ! ?LOADING ! IF S" Defined in file: " TEMP$ PLACE ! LOADFILE COUNT TEMP$ +PLACE S" -- Line: " TEMP$ +PLACE ! LOADLINE @ (.) TEMP$ +PLACE POSTPONE (ABORT") ! TEMP$ COUNT ", 0 c, align ! ELSE POSTPONE DROP THEN ; *************** *** 249,251 **** return to the word that called it. ------------------------------------------------------ Comment; - |
|
From: Alex M. <ale...@us...> - 2005-04-13 00:09:39
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28909/src Modified Files: Class.f Comment.f Utils.f imageman.f Log Message: arm: redefine ?loading in terms of source-id; correct ?winerror and remove call to save-input Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Utils.f 12 Mar 2005 09:09:57 -0000 1.2 --- Utils.f 13 Apr 2005 00:09:26 -0000 1.3 *************** *** 715,719 **** : _stack-check ( -- ) ! ?loading @ 0= \ if we are not loading state @ or \ or we are in compile state, \ then don't check stack depth change --- 715,719 ---- : _stack-check ( -- ) ! ?loading 0= \ if we are not loading state @ or \ or we are in compile state, \ then don't check stack depth change *************** *** 1064,1066 **** - |
|
From: Alex M. <ale...@us...> - 2005-04-13 00:09:39
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28909/src/kernel Modified Files: fkernel.f Log Message: arm: redefine ?loading in terms of source-id; correct ?winerror and remove call to save-input Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** fkernel.f 5 Apr 2005 22:25:46 -0000 1.6 --- fkernel.f 13 Apr 2005 00:09:27 -0000 1.7 *************** *** 2032,2039 **** VARIABLE LOADLINE - VARIABLE ?LOADING VARIABLE >IN \ offset in to input stream 0 VALUE SOURCE-ID MAXSTRING 2 + ALIGNED EQU TIBLEN --- 2032,2041 ---- VARIABLE LOADLINE VARIABLE >IN \ offset in to input stream 0 VALUE SOURCE-ID + : ?loading ( -- flag ) \ are we loading? + source-id -1 0 between 0= ; + MAXSTRING 2 + ALIGNED EQU TIBLEN *************** *** 3019,3023 **** 0 DP-LINK ! - \ CREATE TDP 0 , 0 , 0 , DP-LINK LINK, ," +TRANS" \ transient, work in progress CREATE SDP 0 , 0 , 0 , DP-LINK LINK, ," SYS" \ system CREATE ADP 0 , 0 , 0 , DP-LINK LINK, ," APP" \ application --- 3021,3024 ---- *************** *** 3267,3271 **** : ," ( -<string">- ) \ compile string" at here ! [CHAR] " PARSE HERE >R ", 0 C, ALIGN R> COUNT \N->CRLF ; --- 3268,3272 ---- : ," ( -<string">- ) \ compile string" at here ! HERE [CHAR] " PARSE ", 0 C, ALIGN COUNT \N->CRLF ; *************** *** 3275,3279 **** : Z," ( -<string">- ) \ compile string" at here ! [CHAR] " PARSE HERE >R Z", 0 C, ALIGN R> ZCOUNT \N->CRLF ; --- 3276,3280 ---- : Z," ( -<string">- ) \ compile string" at here ! HERE [CHAR] " PARSE Z", 0 C, ALIGN ZCOUNT \N->CRLF ; *************** *** 4196,4200 **** |: _HEADER-OPT ( -- ) \ optional fields ! ?LOADING @ IF \ if loading... LOADFILE \ file LOADLINE @ \ line number --- 4197,4201 ---- |: _HEADER-OPT ( -- ) \ optional fields ! ?LOADING IF \ if loading... LOADFILE \ file LOADLINE @ \ line number *************** *** 4733,4737 **** \ September 23rd, 2003 - dbu : LINKFILE ( a1 -- ) \ link name a1 as current file IF LOADING ONLY !! ! ?LOADING @ IF MAXCOUNTED _LOCALALLOC \ alloc local path buffer --- 4734,4738 ---- \ September 23rd, 2003 - dbu : LINKFILE ( a1 -- ) \ link name a1 as current file IF LOADING ONLY !! ! ?LOADING IF MAXCOUNTED _LOCALALLOC \ alloc local path buffer *************** *** 4763,4776 **** \ -------------------- save/restore file input ------------------------------ ! : SAVE-INPUT ( -- ... 7 ) \ save input LOADFILE - ?LOADING @ LOADLINE @ >IN @ SOURCE-ID SOURCE ! 7 ; ! : RESTORE-INPUT ( ... 7 -- flag ) \ restore input DROP (SOURCE) 2! --- 4764,4776 ---- \ -------------------- save/restore file input ------------------------------ ! : SAVE-INPUT ( -- ... 6 ) \ save input LOADFILE LOADLINE @ >IN @ SOURCE-ID SOURCE ! 6 ; ! : RESTORE-INPUT ( ... 6 -- flag ) \ restore input DROP (SOURCE) 2! *************** *** 4778,4784 **** >IN ! LOADLINE ! - ?LOADING ! TO LOADFILE ! ?LOADING @ IF LOADFILE COUNT CUR-FILE PLACE \ make current again --- 4778,4783 ---- >IN ! LOADLINE ! TO LOADFILE ! ?LOADING IF LOADFILE COUNT CUR-FILE PLACE \ make current again *************** *** 4786,4792 **** FALSE ; ! | CODE (SAVE-INPUT) ( ... 7 -- R: ... 7 ) \ save input to rstack ! mov -8 CELLS [ebp], ebx ! pop -7 CELLS [ebp] pop -6 CELLS [ebp] pop -5 CELLS [ebp] --- 4785,4790 ---- FALSE ; ! | CODE (SAVE-INPUT) ( ... 6 -- R: ... 6 ) \ save input to rstack ! mov -7 CELLS [ebp], ebx pop -6 CELLS [ebp] pop -5 CELLS [ebp] *************** *** 4795,4805 **** pop -2 CELLS [ebp] pop -1 CELLS [ebp] ! sub ebp, # 32 pop ebx next c; ! | CODE (RESTORE-INPUT) ( R: ... 7 -- ... 7 ) \ save input to stack push ebx - push 7 CELLS [ebp] push 6 CELLS [ebp] push 5 CELLS [ebp] --- 4793,4802 ---- pop -2 CELLS [ebp] pop -1 CELLS [ebp] ! sub ebp, # 28 pop ebx next c; ! | CODE (RESTORE-INPUT) ( R: ... 6 -- ... 6 ) \ save input to stack push ebx push 6 CELLS [ebp] push 5 CELLS [ebp] *************** *** 4809,4813 **** push 1 CELLS [ebp] mov ebx, 0 CELLS [ebp] ! add ebp, # 32 next c; --- 4806,4810 ---- push 1 CELLS [ebp] mov ebx, 0 CELLS [ebp] ! add ebp, # 28 next c; *************** *** 4833,4837 **** SAVE-INPUT (SAVE-INPUT) \ save source to rstack ( fileid ) TO SOURCE-ID - ?LOADING ON \ mark as loading a file POCKET LINKFILE \ create a filename link LOADLINE OFF \ clear the loadline counter --- 4830,4833 ---- *************** *** 5236,5240 **** |: (TYPEMSG) ( n addr len -- ) ! ?LOADING @ IF CR SOURCE TYPE THEN \ print source line if loading CR >IN @ DUP (SOURCE) @ < + \ adjust if not at end of line POCKET C@ DUP>R - SPACES \ spaces --- 5232,5236 ---- |: (TYPEMSG) ( n addr len -- ) ! ?LOADING IF CR SOURCE TYPE THEN \ print source line if loading CR >IN @ DUP (SOURCE) @ < + \ adjust if not at end of line POCKET C@ DUP>R - SPACES \ spaces *************** *** 5252,5256 **** IF 2 CELLS+ ?TYPE PTRNULL THEN \ print the message, set ptr 2 null to stop loop REPEAT ! ?LOADING @ IF ." in file " LOADFILE ?TYPE ." at line " LOADLINE @ . --- 5248,5252 ---- IF 2 CELLS+ ?TYPE PTRNULL THEN \ print the message, set ptr 2 null to stop loop REPEAT ! ?LOADING IF ." in file " LOADFILE ?TYPE ." at line " LOADLINE @ . *************** *** 5265,5269 **** DUP 1+ IF \ only do this for real errors, not -1 throw S" Error" (TYPEMSG) \ mark the source line in error, error ! ?LOADING @ IF EDIT-ERROR THEN \ edit if loading else drop THEN ; --- 5261,5265 ---- DUP 1+ IF \ only do this for real errors, not -1 throw S" Error" (TYPEMSG) \ mark the source line in error, error ! ?LOADING IF EDIT-ERROR THEN \ edit if loading else drop THEN ; *************** *** 5277,5282 **** RP0 @ RP! BEGIN [COMPILE] [ - ?LOADING OFF - BEGIN CR ['] QUERY-INTERPRET CATCH ?DUP 0= WHILE STATE @ 0= --- 5273,5276 ---- |
|
From: Alex M. <ale...@us...> - 2005-04-12 20:16:09
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32151/src/kernel Modified Files: Meta.f Log Message: arm: correct strange line endings on this file (lf lf cr lf lf) Index: Meta.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/Meta.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvs4xcq4B and /tmp/cvshHrkLT differ |
|
From: Alex M. <ale...@us...> - 2005-04-12 20:14:39
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31285/src Modified Files: imageman.f Log Message: arm: imageman.f; when building a DOS app, don't add in library reference to W32FCONSOLE.DLL as they don't require a GUI console Index: imageman.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** imageman.f 12 Mar 2005 09:09:57 -0000 1.3 --- imageman.f 12 Apr 2005 20:14:28 -0000 1.4 *************** *** 106,110 **** ENDSECTION ! The first section always starts on 4KBYTE. Section #1 will start at 4KBYTE, and be 0x1234 bytes padded out to the next 4K boundary (out to 0x2FFF). Section #2 will start at 0x3000, be 0x1120 bytes padded out to 0x4FFF, etc. The .idata section should be --- 106,110 ---- ENDSECTION ! The first section always starts on 0x1000. Section #1 will start at 0x1000, and be 0x1234 bytes padded out to the next 4K boundary (out to 0x2FFF). Section #2 will start at 0x3000, be 0x1120 bytes padded out to 0x4FFF, etc. The .idata section should be *************** *** 697,702 **** s" .idata" SECTION S-INIT S-READ OR SECTIONTYPE ! s" W32FCONSOLE.DLL" IMPLIB \ force load of the DLL, required 0 s" c_initconsole" IMPORT s" KERNEL32.DLL" IMPLIB 0 s" GetProcAddress" IMPORT --- 697,704 ---- s" .idata" SECTION S-INIT S-READ OR SECTIONTYPE ! EXETYPE CUI <> IF \ if not a DOS app ! s" W32FCONSOLE.DLL" IMPLIB \ force load of the DLL, required 0 s" c_initconsole" IMPORT + THEN s" KERNEL32.DLL" IMPLIB 0 s" GetProcAddress" IMPORT *************** *** 839,843 **** cr to tab-size ; ! CREATE ZERO-WORDS \ words to be zeroed on image-copy &CB-MSG , \ these must be IN-APPLICATION! --- 841,845 ---- cr to tab-size ; ! CREATE ZERO-WORDS \ words to be zeroed on image-copy &CB-MSG , \ these must be IN-APPLICATION! *************** *** 860,864 **** - transient areas - and there may be others ! Once the image is copied, some variables (see ZER-WORDS above) are cleared out so that the image will properly initialise next time it's loaded. More initialisation is done in the --- 862,866 ---- - transient areas - and there may be others ! Once the image is copied, some variables (see ZER-WORDS above) are cleared out so that the image will properly initialise next time it's loaded. More initialisation is done in the *************** *** 970,972 **** IN-APPLICATION - |
|
From: Alex M. <ale...@us...> - 2005-04-05 22:26:07
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30295/src/kernel Modified Files: fkernel.f Log Message: arm: correct possible stack underflow with _MESSAGE Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** fkernel.f 12 Mar 2005 09:09:57 -0000 1.5 --- fkernel.f 5 Apr 2005 22:25:46 -0000 1.6 *************** *** 5266,5270 **** S" Error" (TYPEMSG) \ mark the source line in error, error ?LOADING @ IF EDIT-ERROR THEN \ edit if loading ! THEN DROP ; DEFER MESSAGE ' _MESSAGE IS MESSAGE --- 5266,5271 ---- S" Error" (TYPEMSG) \ mark the source line in error, error ?LOADING @ IF EDIT-ERROR THEN \ edit if loading ! else drop ! THEN ; DEFER MESSAGE ' _MESSAGE IS MESSAGE *************** *** 5738,5740 **** ' ?THROW RESOLVES ?THROW ' WARNMSG RESOLVES WARNMSG - |
|
From: Jos v.d.V. <jo...@us...> - 2005-04-01 08:32:02
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19927/win32forth/apps/Player4 Added Files: MciVideo.f NViewLib.dll PLAYER4.F player4titre4.jpg Log Message: A mediaplayer under Win32Forth. Dirks update included --- NEW FILE: PLAYER4.F --- \ File: PLAYER4.F \ \ Author: Bruno Gauthier (bga...@fr...) and \ Dirk Busch (di...@wi...) \ \ Created: Donnerstag, März 31 2005 - dbu \ Updated: Donnerstag, März 31 2005 - dbu \ \ A simple Videoplayer using the MciVideoWindow class. cr .( Loading Player 4th...) anew -PLAYER4.F only forth also definitions needs MciVideo.f \ true value turnkey? false value turnkey? \ --------------------------------------------------------------- \ Define the Popup bar \ --------------------------------------------------------------- POPUPBAR player4-Popup-bar POPUP " " MENUITEM "&Open file..." 'O' +k_control pushkey ; MENUSEPARATOR MENUITEM "&Exit" 'Q' +k_control pushkey ; ENDBAR \ --------------------------------------------------------------- \ Define the Menu bar \ --------------------------------------------------------------- MENUBAR player4-Menu-bar POPUP "&File" MENUITEM "&Open file...\tCtrl+O" 'O' +k_control pushkey ; MENUSEPARATOR MENUITEM "&Exit\tAlt+F4" 'Q' +k_control pushkey ; POPUP "&Options" MENUITEM "&FullScreen toggle\tCtrl+F" 'F' +k_control pushkey ; POPUP "&Help" MENUITEM "About Player 4th..." k_F1 pushkey ; ENDBAR \ --------------------------------------------------------------- \ --------------------------------------------------------------- FileNewDialog PlayView "Play View File" "MPEG Audio & Video |*.mpeg;*.mpg;*.mp2;*.mp3;*.mp4;*.mpa;*.dat|Windows Media (*.wma)|*.wma|Avi Files (*.avi)|*.avi|Midi Files (*.mid *.midi)|*.midi;*.mid|Waves Files (*.wav)|*.wav|Else (*.*)|*.*|" \ --------------------------------------------------------------- \ Define the Main Window \ --------------------------------------------------------------- :Object PLAYER4W <super MciVideoWindow int Pause? int Playing? int Video? int Audio? int Iconic? int longueur :M Classinit: ( -- ) \ static initialization goes here, IF needed ClassInit: super ;M :M On_Init: ( -- ) \ initialize the class On_Init: super \ first init super class player4-menu-bar SetMenuBar: self player4-popup-Bar SetPopupBar: self false to Pause? false to Playing? false to Video? false to Audio? false to Iconic? 0 to longueur ;M :M WM_CLOSE ( h m w l -- res ) WM_CLOSE WM: Super bye 0 ;M :M MinSize: ( -- width height ) \ minimum window size 392 280 ;M :M WindowTitle: ( -- Zstring ) \ window caption z" Player 4th" ;M :M On_Size: ( h m w -- ) \ handle resize message Playing? video? FullScreen?: self 0= and and if On_Size: super then ;M \ --------------------------------------------------------------- \ Open a file \ --------------------------------------------------------------- : IsVideo ( -- ) true to video? false to audio? ; : IsAudio ( -- ) false to video? true to audio? ; : type-of-media ( addr len -- ) s" .mp3" search if IsAudio exit then s" .mid" search if IsAudio exit then s" .wav" search if IsAudio exit then 2drop IsVideo ; maxstring bytes string0$ maxstring bytes string1$ : GetShortPathName ( addr len -- addr1 len1 ) string0$ place string0$ +null maxstring string1$ rel>abs string0$ 1+ rel>abs Call GetShortPathName drop string1$ zcount ; :M Close: ( -- ) false to Playing? Close: super ;M :M PlayFile: ( addr len -- ) Close: self 2dup type-of-media GetShortPathName Open: super 0 Play: super GetLength: super to longueur false to Pause? true to Playing? ;M :M OpenFile: ( -- ) GetHandle: self Start: PlayView dup c@ \ ( -- a1 n1 ) IF count PlayFile: self ELSE DROP THEN ;M \ --------------------------------------------------------------- \ --------------------------------------------------------------- :M Pause?: ( -- f) Pause? ;M :M PauseToggle: ( -- ) Pause? 0= dup to Pause? if Pause: super else Resume: super then ;M :M Playing: ( -- ) Iconic? GetHandle: self Call IsIconic dup to Iconic? <> if Iconic? if Pause? 0= if Pause: super then else Pause? 0= if Resume: super then then then Playing? Pause? 0= Iconic? 0= and and if GetPosition: self longueur >= if Close: self then then ;M :M On_Done: ( h m w l -- res ) Close: self 0 call PostQuitMessage drop On_Done: super 0 ;M ;Object \ --------------------------------------------------------------- \ about dialog \ --------------------------------------------------------------- :Object AboutPlayer4 <SUPER dialog IDD_ABOUT_FORTH forthdlg find-dialog-id constant template create about-head z," Player 4th Version: 1.1" create about-msg1 z," Written 2005 by:\n" +z," Bruno Gauthier\n" +z," eMail: bga...@fr...\n" +z," http:\\bgauthier.free.fr" create about-msg2 z," and\n" +z," Dirk Busch\n" +z," eMail: di...@wi...\n" +z," http:\\www.win32forth.de.vu" create about-msg3 z," This is a simple Videoplayer based on the winmm.dll." :M On_Init: ( hWnd-focus -- f ) about-head zcount IDD_ABOUT_HEAD SetDlgItemText: self about-msg1 zcount IDD_ABOUT_TEXT SetDlgItemText: self about-msg2 zcount IDD_ABOUT_TEXT2 SetDlgItemText: self about-msg3 zcount IDD_ABOUT_TEXT3 SetDlgItemText: self 1 ;M :M On_Command: ( hCtrl code ID -- f1 ) CASE IDCANCEL OF 0 end-dialog ENDOF false swap ( default result ) ENDCASE ;M :M Start: ( -- f ) Addr: Player4W template run-dialog ;M ;Object \ --------------------------------------------------------------- \ --------------------------------------------------------------- : uninit-player4 ( -- ) DestroyWindow: Player4W ; unload-chain chain-add-before uninit-player4 \ --------------------------------------------------------------- \ PLAYER4 the main word \ --------------------------------------------------------------- : FullScreenToggle ( -- ) FullScreenToggle: Player4W ; : AboutPlayer ( -- ) Pause: Player4W Start: AboutPlayer4 Resume: Player4W On_Paint: Player4W ; : QuitPlayer ( -- ) Close: Player4W bye ; : KeyHandler ( -- ) ekey? if ekey case BL of PauseToggle: Player4W endof 'O' +k_control of OpenFile: Player4W endof 'F' +k_control of FullScreenToggle endof 'Q' +k_control of QuitPlayer endof k_F1 of AboutPlayer endof k_esc of QuitPlayer endof endcase then ; : InitPlayer ( -- ) Start: Player4W ['] FullScreenToggle SetDblClickFunc: Player4W ; : PLAYER4 ( -- ) InitPlayer BEGIN WINPAUSE 10 MS Playing: Player4W KeyHandler AGAIN ; turnkey? [if] ' player4 turnkey PLAYER4 \ build an application on disk 5 pause-seconds [else] PLAYER4 [then] |
|
From: Jos v.d.V. <jo...@us...> - 2005-04-01 08:21:24
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15297/Player4 Log Message: Directory /cvsroot/win32forth/win32forth/apps/Player4 added to the repository |
|
From: Dirk B. <db...@us...> - 2005-03-12 09:44:12
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31692 Modified Files: w32fConsole.dll Log Message: dbu: Speedup of TYPE when there are no control characters in the string Index: w32fConsole.dll =================================================================== RCS file: /cvsroot/win32forth/win32forth/w32fConsole.dll,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvsu7Cwmi and /tmp/cvsFZ0VdC differ |
|
From: Dirk B. <db...@us...> - 2005-03-12 09:43:23
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31424/extsrc/w32fConsole Modified Files: Console.rc Term.cpp Log Message: dbu: Speedup of TYPE when there are no control characters in the string Index: Console.rc =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole/Console.rc,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Console.rc 23 Jan 2005 16:34:19 -0000 1.4 --- Console.rc 12 Mar 2005 09:42:54 -0000 1.5 *************** *** 55,60 **** VS_VERSION_INFO VERSIONINFO ! FILEVERSION 6,11,0,18 ! PRODUCTVERSION 6,11,0,18 FILEFLAGSMASK 0x3fL #ifdef _DEBUG --- 55,60 ---- VS_VERSION_INFO VERSIONINFO ! FILEVERSION 6,11,0,19 ! PRODUCTVERSION 6,11,0,19 FILEFLAGSMASK 0x3fL #ifdef _DEBUG *************** *** 74,78 **** VALUE "CompanyName", "Win32Forth developer team\0" VALUE "FileDescription", "Win32Forth console\0" ! VALUE "FileVersion", "6, 11, 0, 18\0" VALUE "InternalName", "CONSOLE\0" VALUE "LegalCopyright", "\0" --- 74,78 ---- VALUE "CompanyName", "Win32Forth developer team\0" VALUE "FileDescription", "Win32Forth console\0" ! VALUE "FileVersion", "6, 11, 0, 19\0" VALUE "InternalName", "CONSOLE\0" VALUE "LegalCopyright", "\0" *************** *** 81,85 **** VALUE "PrivateBuild", "\0" VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "6, 11, 0, 18\0" VALUE "SpecialBuild", "\0" END --- 81,85 ---- VALUE "PrivateBuild", "\0" VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "6, 11, 0, 19\0" VALUE "SpecialBuild", "\0" END Index: Term.cpp =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fConsole/Term.cpp,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Term.cpp 23 Jan 2005 16:34:19 -0000 1.4 --- Term.cpp 12 Mar 2005 09:42:54 -0000 1.5 *************** *** 677,680 **** --- 677,699 ---- //************************************************************************************************* + // HaveControlChar() - check if the string contains a control char + //************************************************************************************************* + BOOL HaveControlChar( const char *addr, int len ) + { + for( int act = 0; act < len; act++ ) + { + if( addr[act] != BELL && + addr[act] != BS && + addr[act] != LF && + addr[act] != CR ) + continue; + + return TRUE; + } + + return FALSE; + } + + //************************************************************************************************* // type a string of characters to the console window //************************************************************************************************* *************** *** 690,695 **** SetTextColor( hdc, theFg ); ! for( int act = 0; act < len; act++ ) ! emit( addr[act] ); MoveCaret(); --- 709,731 ---- SetTextColor( hdc, theFg ); ! if( HaveControlChar(addr, len) ) ! { ! for( int act = 0; act < len; act++ ) ! emit( addr[act] ); ! } ! else ! { ! while( len ) ! { ! int n = min( len, cols - x ); ! TextOut( hdc, gx, gy, addr, n ); ! memmove( &SCREEN(x,y), addr, n ); ! x += n; ! wrap(); ! ! addr += n; ! len -= n; ! } ! } MoveCaret(); |
|
From: Dirk B. <db...@us...> - 2005-03-12 09:37:28
|
Update of /cvsroot/win32forth/win32forth/proj In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30141/proj Modified Files: ForthForm.fpj WinEd.fpj Log Message: dbu: Projectfiles updated Index: ForthForm.fpj =================================================================== RCS file: /cvsroot/win32forth/win32forth/proj/ForthForm.fpj,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ForthForm.fpj 1 Jan 2005 16:32:11 -0000 1.2 --- ForthForm.fpj 12 Mar 2005 09:37:19 -0000 1.3 *************** *** 1,4 **** ProjectName= ForthForm ! BuildFile= src\ForthForm\FORTHFORM.F SearchPath= .;SRC;SRC\LIB;RES;DEMOS;SRC\CONSOLE;HTM;SRC\FORTHFORM;SRC\FORTHFORM\RES ForthForm,0 --- 1,4 ---- ProjectName= ForthForm ! BuildFile= apps\ForthForm\FORTHFORM.F SearchPath= .;SRC;SRC\LIB;RES;DEMOS;SRC\CONSOLE;HTM;SRC\FORTHFORM;SRC\FORTHFORM\RES ForthForm,0 Index: WinEd.fpj =================================================================== RCS file: /cvsroot/win32forth/win32forth/proj/WinEd.fpj,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** WinEd.fpj 2 Jan 2005 13:26:40 -0000 1.3 --- WinEd.fpj 12 Mar 2005 09:37:19 -0000 1.4 *************** *** 1,31 **** ProjectName= WinEd ! BuildFile= src\WinEd\WinEd.f ! SearchPath= .;SRC;SRC\LIB;RES;DEMOS;SRC\CONSOLE;HTM;src\WinEd;src\WinEd\res WinEd,0 ! Modules,15 apps\WinEd\WinEd.f ! apps\WinEd\WinEd_Version.f ! apps\WinEd\WinED_Statbar.f ! apps\WinEd\x_Search.f ! apps\WinEd\hyper.f ! apps\WinEd\smart-cr.f ! apps\WinEd\WinEd_Toolbar.f ! apps\WinEd\WinEd_Menu.f ! SRC\LIB\sub_dirs.f ! apps\WinEd\w_search.f SRC\LIB\HyperLink.f SRC\LIB\array.f ! apps\WinEd\EdFindInFiles.f ! apps\WinEd\EdDebug.f ! apps\WinEd\EdRemote.f DLLs,0 Forms,0 ! Auxiliary Files,5 ! WinEd.cfg ! wined.NDX ! WinEdColorize.f ! src\WinEd\res\WinEdit.res ! src\WinEd\res\WinEdit.h ! Resources,1 apps\WinEd\res\WinEd.bmp Docs,0 --- 1,55 ---- ProjectName= WinEd ! BuildFile= apps\WinEd\WinEd.f ! SearchPath= .;SRC;SRC\LIB;SRC\CONSOLE;apps\FORTHFORM;apps\FORTHFORM\RES WinEd,0 ! Modules,42 apps\WinEd\WinEd.f ! apps\WinEd\Ed_Version.f ! apps\WinEd\Ed_Colorize.f ! apps\WinEd\Ed_FileStack.f ! apps\WinEd\Ed_Globals.f ! apps\WinEd\Ed_Sfont.f ! apps\WinEd\Ed_EditorWords.f ! apps\WinEd\Ed_EditWindow.f ! apps\WinEd\Ed_Statbar.f ! SRC\CONSOLE\Statbar.f ! SRC\CONSOLE\BasicWin.f ! SRC\CONSOLE\WinBase.f ! apps\WinEd\Ed_EditWindowObj.f ! apps\WinEd\Ed_MiscFunc.f ! apps\WinEd\Ed_MessageBrodcast.f ! apps\WinEd\Ed_About.f ! apps\WinEd\Ed_LineFuncs.f ! apps\WinEd\Ed_Sub_Dirs.f ! apps\WinEd\Ed_Search.f ! apps\WinEd\Ed_KeyCMD.f ! apps\WinEd\Ed_Findrepl.f ! apps\WinEd\Ed_Gotoline.f ! apps\WinEd\Ed_Clipboard.f ! apps\WinEd\Ed_FileFuncs.f ! apps\WinEd\Ed_Url.f ! apps\WinEd\Ed_HyperLink.f SRC\LIB\HyperLink.f + apps\WinEd\hyper.f SRC\LIB\array.f ! apps\WinEd\Ed_FindInFiles.f ! apps\WinEd\Ed_Debug.f ! apps\WinEd\Ed_MenuFuncs.f ! apps\WinEd\Ed_SubjectListObj.f ! apps\WinEd\Ed_LoadFileFuncs.f ! apps\WinEd\Ed_Toolbar.f ! apps\WinEd\Ed_Menu.f ! apps\WinEd\Ed_FrameWindowObj.f ! apps\WinEd\Ed_Remote.f ! apps\WinEd\Ed_MouseHighLight.f ! apps\WinEd\Ed_Do-Html-Link.f ! apps\WinEd\Ed_Defaults.f ! apps\WinEd\Ed_Keys.F DLLs,0 Forms,0 ! Auxiliary Files,0 ! Resources,3 apps\WinEd\res\WinEd.bmp + apps\WinEd\res\WinEdit.h + apps\WinEd\res\WinEdit.res Docs,0 |
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27654/apps/WinEd Modified Files: HYPER.F WinEd.f Added Files: Ed_About.F Ed_Clipboard.F Ed_Colorize.F Ed_Debug.F Ed_Defaults.F Ed_Do-Html-Link.F Ed_EditWindow.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 Log Message: dbu: Andrew Stephenson's WinEd changes uploaded --- NEW FILE: Ed_EditorWords.F --- \ $Id: Ed_EditorWords.F,v 1.1 2005/03/12 09:29:20 dbu_de Exp $ \ defer ?wrap-word defer back-delete-character defer save-text defer save-bitmap-as defer close-text defer ?save-text defer "+open-text defer before-bye defer open-previous : ?line-tbl-ok ( -- ) line-tbl ?EXIT TRUE s" Line-TBL not initialized" ?terminatebox ; : end.addr ( -- a1 ) ?line-tbl-ok line-tbl file-lines cells+ @ ; : #line.addr ( n1 -- a1 ) ?line-tbl-ok line-tbl swap 0max file-lines min cells+ @ ; : #line.bytes ( n1 -- n2 ) \ the real line length, including CRLF line-tbl IF line-tbl swap 0max file-lines 1- min cells+ 2@ - ELSE drop 0 THEN ; : #line" ( n1 -- a1 n2 ) \ get line # n1, return address and length dup file-lines >= IF drop \ discard requested line number end.addr 0 ELSE line-tbl swap 0max cells+ 2@ tuck - 0max lend-len IF 2dup + lend-len - c@ lend-char = IF lend-len - 0max THEN THEN THEN ; \ rls January 11th, 2001 - 23:19 \ Used in Rectangular Paste : #line+" ( n1 offset -- a1 n2 ) \ get line # n1, return address and length over file-lines >= IF 2drop \ discard requested line number end.addr 0 ELSE >r line-tbl swap 0max cells+ 2@ r@ + tuck swap r> + swap - 0max lend-len IF 2dup + lend-len - c@ lend-char = IF lend-len - 0max THEN THEN THEN ; : #line.len ( n1 -- n2 ) \ the line length without CRLF line-tbl IF #line" nip ELSE drop 0 THEN ; : text-length ( -- n1 ) \ total text length in buffer line-tbl IF file-lines #line.addr text-ptr - ELSE 0 THEN ; : LastPage ( -- n ) \ rls February 3rd, 2002 - 10:00 file-lines 1- PRINTER-ROWS / 1+ ; 0 value warned? defer warn-to-save defer must-save defer primitive-save-text \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 4 Colons-only code \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 40 value maxscrlines create colontbl maxscrlines cells allot \ to xlate scrline to fileline 0 value colons-only : line#>indx ( l# -- indx#) colons-only if 0 screen-rows 0 do over colontbl i cells+ @ = if i + leave then loop nip else line-cur - then ; : indx>line# ( scrln# -- filel#) colons-only if dup colontbl +cells @ dup 0= if swap 0> if drop file-lines then else nip then else line-cur + then ; : setcolontbl ( -- ) \ table holds #filelines each screen \ line is from the fileline# of screen line# zero colons-only if line-cur colontbl dup maxscrlines cells erase screen-rows 0 ?DO over file-lines >= if leave then over #line" drop c@ ascii : = if 2dup ! \ remember scrline#s cell+ 1 else 0 then >r 1 0 d+ r> +LOOP 2drop then ; : +line-cur { nn \ dd -- } \ change line# of top of screen nn dup abs / to dd line-cur colons-only if nn abs 0 ?do dd + dup 0< over file-lines >= or if dd - leave then dup #line" drop c@ ascii : = abs +loop else nn + file-lines screen-rows 2 / - min 0max then to line-cur setcolontbl ; : +cursor-line ( n1 -- fl) \ changeline fl:true=>update scrn dup cursor-line line#>indx dup>r + 0 screen-rows 1- between if r> + 0 swap else +line-cur true r> then indx>line# to cursor-line ; \ ---------- end colons-only ----------- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 5 Editor words \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : #line! { caddr clen cline \ cbuf$ cdiff -- } LMAXSTRING localAlloc: cbuf$ cbuf$ LMAXSTRING blank \ prefill with blanks caddr clen cbuf$ LPLACE \ save string in a temp lend-len 2 = \ two char line terminator? IF crlf$ count cbuf$ +LPLACE \ then append CRLF ELSE lend-len 1 = \ are we using a line terminator? IF lend-char cbuf$ C+LPLACE \ append single line terminator ELSE \ otherwise no line terminator, BLOCKLINE-SIZE cbuf$ ! \ set length to 64 THEN THEN cline #line.bytes cbuf$ @ - to cdiff \ difference in lengths cline 1+ #line.addr \ source dup cdiff - \ destination end.addr cline 1+ #line.addr - move \ move rest of doc cdiff negate to cdiff file-lines 2 + cline 1+ ?DO cdiff line-tbl i cells+ +! LOOP cbuf$ LCOUNT cline #line.addr swap move \ move the line into buffer text-length 4000 + text-blen > \ check for buffer full warned? 0= and \ and haven't warned used? IF GetStack: DocWindow entry-console = IF TRUE to edit-changed? \ SET changed flag primitive-save-text ELSE beep IF beep warn-to-save true to warned? \ we warned you! THEN THEN THEN text-length 1000 + text-blen > IF must-save THEN ; : page>line ( page -- startline ) \ rls - page 0max file-lines min cells page-tbl + @ 0x0FFFFF and ; \ rls - page : this-page { line \ lopage hipage loline hiline page -- page } 0 to lopage num-pages to hipage lopage to page BEGIN lopage page>line to loline hipage page>line to hipage hipage lopage 1+ > WHILE hipage lopage - line loline - hiline loline - */mod IF 1+ THEN +to page page page>line line >= IF page to lopage ELSE page to hipage THEN REPEAT page ; : get-cursor-line ( -- ) \ get the current line from file cursor-line #line" "LCLIP" cur-buf LPLACE \ Use MAXSTRING minus one since there is a count byte at the \ beginning of the buffer that isn't accounted for any other way. cur-buf LCOUNT LMAXSTRING CELL- swap /string blank ; \ add trailing blanks : put-cursor-line ( -- ) cur-buf LCOUNT cursor-line #line! ; : -trailing-blanks ( -- ) cursor-line #line" 2dup -trailing nip - nip IF get-cursor-line cur-buf LCOUNT -trailing nip cur-buf ! put-cursor-line THEN ; : set-mirrored { m-entry# -- } \ if n1<>-1 then mark current as mirrored m-entry# -1 <> IF text-ptr ?dup IF release 0 to text-ptr THEN line-tbl ?dup IF release 0 to line-tbl THEN m-entry# entry-#bytes * entry-buffer + entry# entry-#bytes * entry-buffer + entry-#bytes move \ move master to mirror THEN ; : update-mirrors { \ open$ -- } \ make mirrors have same flags entry# entry-max > ?EXIT MAXSTRING LocalAlloc: open$ cur-filename count open$ place entry# entry-max 0 DO i to entry# dup i <> \ not myself \ and matching filename cur-filename count open$ count caps-compare 0= and cur-filename c@ 0<> and IF dup entry-#bytes * entry-buffer + i entry-#bytes * entry-buffer + mirror# move \ move master to mirror file-lines cursor-line < \ if other copies are beyond end of file IF file-lines 1- 0max to cursor-line cursor-line Height: DocWindow CharHeight: DocWindow / - 1+ to line-cur THEN THEN LOOP to entry# ; \ f1 = -1 if not found, else ENTRY# if found : update-mirror-browse { \ open$ browse?? edit-changed?? -- } \ make mirror browse flags the same entry# entry-max > ?EXIT MAXSTRING LocalAlloc: open$ cur-filename count open$ place entry# browse? to browse?? edit-changed? to edit-changed?? entry-max 0 DO i to entry# \ select the hyper file index \ if they match dup i <> \ not myself \ and matching filename cur-filename count open$ count caps-compare 0= and cur-filename c@ 0<> and IF edit-changed?? to edit-changed? browse?? to browse? THEN LOOP to entry# ; \ f1 = -1 if not found, else ENTRY# if found : "already-open# { adr len \ open$ -- n1 } \ return number of times it's open len 0= IF 0 EXIT \ leave if null filename THEN MAXSTRING LocalAlloc: open$ adr len open$ place open$ count "path-file drop open$ place open$ ?defext 0 \ non open with this name entry# >r entry-max 0 DO i to entry# \ select the hyper file index \ if they match cur-filename count open$ count caps-compare 0= cur-filename c@ 0<> and IF 1+ THEN LOOP r> to entry# ; \ f1 = -1 if not found, else ENTRY# if found : sync-mirrors { \ open$ -- } \ copy new pointers to mirrors entry# entry-max > ?EXIT MAXSTRING LocalAlloc: open$ cur-filename count open$ place entry# entry-max 0 DO i to entry# \ select the hyper file index \ if they match dup i <> \ not myself \ and matching filename cur-filename count open$ count caps-compare 0= and cur-filename c@ 0<> and IF dup entry-#bytes * entry-buffer + i entry-#bytes * entry-buffer + mirror# move \ move master to mirror THEN LOOP to entry# ; : file-has-changed ( -- ) save-minutes 0> IF NULL save-minutes 60000 * SAVE_TIMER Gethandle: EditorWindow Call SetTimer drop THEN edit-changed? 0= \ -- f1 ; not already changed? true to edit-changed? \ mark as changed IF \ f1 -- ; then update mirrors update-mirrors THEN EditMode: Win-EdToolbar ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 6 Beep \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ : beeper ( -- ) 700 50 tone ; ' beeper is beep : ?beep ( f1 -- ) \ if f1=FALSE, then BEEP 0= IF beep THEN ; --- NEW FILE: Ed_ImageDC.F --- \ $ 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 ; : line-color ( color_object -- ) ?ColorCheck imageDC LineColor: [ ] ; --- NEW FILE: Ed_FrameWindowObj.F --- \ $Id: Ed_FrameWindowObj.F,v 1.1 2005/03/12 09:29:20 dbu_de Exp $ \ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 58 Define the main window for the application \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :Object FrameWindow <super window Rectangle EditRect Rectangle ClientRect MAXSTRING bytes StatusBuf : abs-create-frame-window ( -- hwnd ) 0 0 \ adjust x,y relative to zero, zero StartSize: [ self ] \ width, height SetRect: EditRect ^base \ creation parameters appInst \ program instance NULL LoadMenu: [ self ] \ menu ParentWindow: [ self ] \ parent window handle Bottom: EditRect Top: EditRect - \ adjusted height Right: EditRect Left: EditRect - \ adjusted width 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 EraseRect: EditRect ; :M DefaultIcon: ( -- hIcon ) \ return the default icon handle for window s" src\res\WinEd.ico" Prepend<home>\ LoadIconFile ;M :M Start: ( -- ) \ create a new window object hWnd 0= IF s" EditorWindow" SetClassName: self \ set the class name default-window-class \ over-ride the default background (WHITE) color NULL to hbrBackground register-the-class drop abs-create-frame-window to hWnd SW_SHOWNORMAL Show: self Update: self ELSE SetFocus: self THEN ;M MACRO -status " 19 -" ( n1 -- n2 ) 0 value vdraging? 0 value hdraging? : in-vdrag? ( -- f1 ) \ in vert drag bar hWnd get-mouse-xy nip drag-barV dup drag-thick + 2 + 1 - between show-console? and ; : in-hdrag? ( -- f1 ) \ in horizontal drag bar hWnd get-mouse-xy \ -- x y ;mouse position show-console? IF edit-top drag-barV between ELSE edit-top Height -status between THEN swap drag-barH dup drag-thick + 2 + between and ; \ mouse click routines for FrameWindow to track the dragbar movement : MheditW-track ( -- ) mousedown? 0= ?EXIT vdraging? IF mousey drag-thick 2/ - Height drag-thick 2 + - -status 1 - 0max min StartSize: Win-EdToolbar nip max to drag-barV set-console-height drag-barV edit-top listHeightDefault + <= Hide: Subjectlist THEN hdraging? IF mousex drag-thick 2/ - 0max Width edit-min - 0max min 0max to drag-barH THEN Showing: SubjectList IF 0 edit-top drag-barH 1- 160 Move: SubjectList THEN Refresh: EditorWindow WINPAUSE ; : MheditW-click ( -- ) mousedown? 0= IF hWnd Call SetCapture drop THEN true to mousedown? in-vdrag? to vdraging? in-hdrag? to hdraging? MheditW-track ; : MheditW-unclick ( -- ) mousedown? IF Call ReleaseCapture drop THEN false to mousedown? false to vdraging? false to hdraging? ; : dbl-click-vdrag ( -- ) show-console? 0= ?EXIT in-vdrag? 0= ?EXIT drag-barV drag-thick 2 / + StartSize: Win-EdToolbar nip drag-thick + 2 + Height -status 0max between IF StartSize: Win-EdToolbar nip to drag-barV ConsoleWindow to DocWindow ELSE Height drag-thick 2 + - -status 1 - 0max to drag-barV EditWindow to DocWindow THEN GetStack: DocWindow to entry# set-console-height show-console? IF drag-barV edit-top listHeightDefault + <= Hide: Subjectlist THEN ; : dbl-click-hdrag ( -- ) in-hdrag? 0= ?EXIT drag-barH 8 > IF 0 to drag-barH ELSE 132 Width 2/ min to drag-barH THEN Showing: SubjectList IF 0 edit-top drag-barH 1- 160 Move: SubjectList THEN ; : MheditW-dblclick ( -- ) \ highlight the current word false to mousedown? mousey StartSize: Win-EdToolbar nip < ?EXIT dbl-click-vdrag dbl-click-hdrag SetFocus: DocWindow Refresh: EditorWindow ; :M Classinit: ( -- ) ClassInit: super \ init super class 3 to OriginX 3 to OriginY self to EditorWindow \ make myself the cur window 8 Width: sFont 14 Height: sFont s" Courier" SetFaceName: sFont \ default to Courier min-Edit-Tool-Bar to Win-EdToolbar ['] MheditW-click SetClickFunc: self ['] MheditW-unclick SetUnClickFunc: self ['] MheditW-track SetTrackFunc: self ['] MheditW-dblclick SetDblClickFunc: self ;M :M On_Init: ( -- ) \ initialize the class On_Init: super \ first init super class Create: sFont \ create the font for file list second-copy? 0= show-console? and IF Height 4 / SetTopOf: ConsoleWindow \ set the console window's top 1 SetId: ConsoleWindow \ then the child window self Start: ConsoleWindow \ then startup child window 2 SetId: SplitterV self Start: SplitterV z" RMOT" @ ed-console-remote ! \ set remote IO operations ed-forth-count @ 0= IF z" HIDN" @ ed-console-hidden ! \ flag Forth to hide console StartUpForth ELSE 0 WM_REMOTEIO win32forth-message THEN ELSE FALSE to show-console? THEN min-tool-bar? IF min-Edit-Tool-Bar to Win-EdToolbar ELSE max-Edit-Tool-Bar to Win-EdToolbar THEN tool-bar? IF 3 SetId: Win-EdToolbar \ then the next child window self Start: Win-EdToolbar \ then startup child window THEN edit-top SetTopOf: EditWindow \ set the edit window's top 4 SetId: EditWindow \ then the child window self Start: EditWindow \ then startup child window 5 SetId: SplitterH self Start: SplitterH self Start: SubjectList FilesList InitSubject: SubjectList \ we start with files subject GetHandle: self StartStatusBar \ start the status bar window-list BEGIN dup @ ?dup WHILE >r self Start: [ r@ ] TRUE Hide: [ r> ] cell+ REPEAT DROP FALSE Hide: FilesList FALSE Hide: Subjectlist \ then hide SubjectList Edit-Menu-Bar SetMenuBar: self min-ToolBar-Popup-bar SetPopupBar: min-Edit-Tool-Bar max-ToolBar-Popup-bar SetPopupBar: max-Edit-Tool-Bar Edit-Popup-Bar SetPopupBar: EditWindow Console-Popup-Bar SetPopupBar: ConsoleWindow show-console? EnableDisplayMenu ;M : set-col/rows { theWindow -- } entry# >r GetHandle: theWindow IF GetStack: theWindow to entry# screen-cols >r Width: theWindow CharWidth: theWindow / to screen-cols Height: theWindow CharHeight: theWindow / to screen-rows r> screen-cols 2dup < IF 2dup - col-cur + 0max to col-cur THEN 2drop THEN r> to entry# ; : adjust-col/rows ( -- ) EditWindow set-col/rows ConsoleWindow set-col/rows ; :M SetMultiStatus: ( a1 n1 a2 n1 -- ) \ set the current text on statusbar SetMulti: Win-EdStatusbar \ set statusbar to show multiparts s" Column: " StatusBuf place cursor-col 1+ 0 <# #s #> StatusBuf +place s" of " StatusBuf +place max-cols 0 <# #s #> StatusBuf +place StatusBuf +null StatusBuf 1+ 0 SetText: Win-EdStatusbar s" Line: " StatusBuf place cursor-line 1+ 0 (ud,.) StatusBuf +place s" of " StatusBuf +place file-lines 0 (ud,.) StatusBuf +place StatusBuf +null StatusBuf 1+ 1 SetText: Win-EdStatusbar s" Size: " StatusBuf place text-length 0 (ud,.) StatusBuf +place s" Characters" StatusBuf +place lend-len 0= IF s" (" StatusBuf place text-length BLOCK-SIZE /mod 0 (ud,.) StatusBuf +place s" Blocks, " StatusBuf +place BLOCKLINE-SIZE /mod 0 (ud,.) StatusBuf +place s" Lines, " StatusBuf +place 0 (ud,.) StatusBuf +place s" Chars) " StatusBuf +place THEN StatusBuf +null StatusBuf 1+ 2 SetText: Win-EdStatusbar s" Forth Instances: " StatusBuf place ed-forth-count @ 0 (d.) StatusBuf +place StatusBuf +null StatusBuf 1+ 3 SetText: Win-EdStatusbar overstrike @ if s" <OvrStrk>" else s" <Insert>" then StatusBuf place StatusBuf +null StatusBuf 1+ 4 SetText: Win-EdStatusbar ;M :M SetSimpleStatus: ( a1 n1 a2 n1 -- ) \ set the current text on statusbar SetSingle: Win-EdStatusbar \ set statusbar to show single-part StatusBuf place StatusBuf +place StatusBuf +null StatusBuf 1+ 0 SetText: Win-EdStatusbar ;M :M Refresh: ( -- ) minimized? 0= IF show-console? IF Height console-height - StartSize: Win-EdToolbar nip max ELSE Height THEN to drag-barV drag-barH Width edit-min - 0max min to drag-barH edit-top SetTopOf: EditWindow drag-barV SetTopOf: ConsoleWindow (( The peculiar calculations for window positions and sizes, result from the fact that Windows places windows "inside" of the window space specified, and was thus leaving unrefreshed lines between all my child windows if I didn't fill in the space with an extra pixel here and there. tjz February 24th, 1997 )) all-lines: EditWindow drag-barH drag-thick + 1+ edit-top Width drag-barH drag-thick + - show-console? IF drag-barV edit-top - ELSE Height edit-top - -status THEN Move: EditWindow window-list BEGIN dup @ ?dup WHILE >r Showing: [ r@ ] IF 0 edit-top listHeight + dup>r drag-barH 1- show-console? IF drag-barV r> - ELSE Height r> - -status THEN Move: [ r@ ] THEN r>drop cell+ REPEAT drop drag-barH 1- edit-top 1- drag-thick 2 + show-console? IF drag-barV edit-top - 2 + ELSE Height edit-top - 2 + -status THEN Move: SplitterH show-console? IF all-lines: ConsoleWindow -1 drag-barV Width 2 + drag-thick 2 + Move: SplitterV -1 drag-barV drag-thick + 2 + dup>r Width 2 + Height r> - -status Move: ConsoleWindow THEN Showing: SubjectList IF 0 edit-top drag-barH 1- 160 -status Move: SubjectList THEN adjust-col/rows THEN ;M :M StartToolBar: ( -- ) tool-bar? 0= Floating: Win-EdToolbar 0= and IF TRUE to tool-bar? GetSize: EditorWindow nip 2/ to drag-barV set-console-height self Start: Win-EdToolbar \ then startup child window LoadFindStrings Refresh: self ELSE tool-bar? 0= \ if flagged as not open Floating: Win-EdToolbar and \ but flagged as floating IF SetFocus: Win-EdToolbar \ then bring to front THEN THEN ;M :M CloseToolBar: ( -- ) tool-bar? Floating: Win-EdToolbar or IF SaveFindStrings Close: Win-EdToolbar FALSE to tool-bar? Refresh: self THEN ;M :M SwitchToolBar: ( -- ) Floating: Win-EdToolbar >r CloseToolBar: self Win-EdToolbar max-Edit-Tool-Bar = IF min-Edit-Tool-Bar to Win-EdToolbar TRUE to min-tool-bar? ELSE max-Edit-Tool-Bar to Win-EdToolbar FALSE to min-tool-bar? THEN StartToolBar: self r> IF Float: Win-EdToolbar THEN ;M :M StartConsole: ( -- ) second-copy? 0= IF Height 4 / \ console is a quarter screen SetTopOf: ConsoleWindow \ set the console window's top self Start: ConsoleWindow \ then startup child window self Start: SplitterV TRUE to show-console? \ must be before the ">F" below console-text end-doc TRUE EnableDisplayMenu >F Refresh: self z" RMOT" @ ed-console-remote ! \ set remote IO operations ed-forth-count @ 0= IF z" HIDN" @ ed-console-hidden ! \ flag Forth to hide console StartUpForth ELSE 0 WM_REMOTEIO win32forth-message THEN ELSE FALSE to show-console? THEN ;M :M CloseConsole: ( -- ) save-console FALSE to show-console? >E-unminimize Close: ConsoleWindow Close: SplitterV FALSE EnableDisplayMenu Refresh: self Retitle: [ self ] 0 ed-console-remote ! 0 ed-console-hidden ! ;M :M On_Done: ( h m w l -- res ) Delete: sFont 0 call PostQuitMessage drop \ terminate application On_Done: super \ cleanup the super class 0 ;M :M WM_CLOSE ( h m w l -- res ) before-bye term-canceled? 0= \ if we didn't cancel the close IF bye \ then just terminate the program 0 ELSE 1 \ abort program termination FALSE to term-canceled? THEN ;M :M StartSize: ( -- width height ) \ starting window size start-width SM_CXSCREEN Call GetSystemMetrics 4 - StartPos: self drop - min \ screen width start-height SM_CYSCREEN Call GetSystemMetrics 4 - StartPos: self nip - min \ screen height ;M :M StartPos: ( -- x y ) OriginX 0max OriginY 0max ;M :M MinSize: ( -- width height ) \ minimum window size 0 -20 ;M :M WindowTitle: ( -- Zstring ) \ window caption z" WinEd" ;M :M On_Paint: ( -- ) On_Paint: super tool-bar? IF 0 0 StartSize: Win-EdToolbar Move: Win-EdToolbar LTGRAY_BRUSH Call GetStockObject StartSize: Win-EdToolbar drop 0 \ x,y origin Width StartSize: Win-EdToolbar nip 1+ SetRect: EditRect AddrOf: EditRect GetHandle: dc call FillRect ?win-error WHITE LineColor: dc \ white color Left: EditRect Top: EditRect MoveTo: dc \ horiz StartSize: self drop Width max 0 LineTo: dc \ line BLACK LineColor: dc Left: EditRect Bottom: EditRect 2 - dup>r MoveTo: dc \ horiz StartSize: self drop Width max r> LineTo: dc \ line EraseRect: EditRect THEN ListHeight \ Only if SubjectList is turned on IF \ line below the subject selection dropdown list BLACK LineColor: dc 0 edit-top listHeight + 2 - MoveTo: dc drag-barH edit-top listHeight + 2 - LineTo: dc WHITE LineColor: dc 0 edit-top listHeight + 1- MoveTo: dc drag-barH edit-top listHeight + 1- LineTo: dc THEN ;M :M WM_SETCURSOR ( h m w l -- ) EraseRect: ClientRect \ init to zeros AddrOf: ClientRect GetClientRect: self hWnd get-mouse-xy Top: ClientRect Bottom: ClientRect between swap Left: ClientRect Right: ClientRect between and IF in-vdrag? IF splitv-cursor 1 ELSE in-hdrag? IF splith-cursor 1 ELSE arrow-cursor 1 THEN ELSE DefWindowProc: [ self ] THEN ELSE DefWindowProc: [ self ] THEN 1 ;M :M ReTitle: { \ title$ pad$ -- } LMAXSTRING localAlloc: title$ 32 localAlloc: pad$ pad 32 - pad$ 32 move \ save PAD entry# >r \ save entry entry# entry-console = IF s" Win32Forth Console" title$ lplace ELSE GetStack: EditWindow to entry# Edname$ count title$ lplace (.wined_version) title$ +lplace s" - " title$ +lplace from-web? IF URL$ lcount title$ +lplace ELSE cur-filename count title$ +lplace THEN THEN title$ lcount 255 min SetTitle: self EditMode: Win-EdToolbar \ update statusbar SetMultiStatus: EditorWindow r> to entry# \ restore entry pad$ pad 32 - 32 move \ restore PAD ;M :M WinEdMessageBox: ( szText szTitle style -- result ) MB_TASKMODAL or -rot swap ( hWnd ) NULL Call MessageBox ;M \ the l parameter has already been removed by WINDOW.F, and put \ into Height and Width :M On_Size: ( h m w -- ) \ handle resize message dup SIZE_MINIMIZED = to minimized? \ w is sub-message Redraw: Win-EdStatusbar Refresh: self ;M :M ReSize: ( -- ) entry# >r GetStack: EditWindow to entry# Width: EditWindow CharWidth: EditWindow / to screen-cols Height: EditWindow CharHeight: EditWindow / 1- to screen-rows Paint: self r> to entry# ;M :M On_SetFocus: ( h m w l -- ) On_SetFocus: super SetFocus: edit-window ;M :M On_KillFocus: ( h m w l -- ) On_KillFocus: super ;M : reflect-window { wparam \ theWindow -- WID } \ return ID of reflected window window-list BEGIN dup @ dup to theWindow WHILE Showing: theWindow IF wparam LOWORD ( ID ) GetID: theWindow = IF DROP \ May 9th, 1998 tjz added DROP theWindow EXIT THEN THEN cell+ REPEAT drop FALSE ; :M WM_COMMAND { hwnd msg wparam lparam -- res } wparam reflect-window ?dup IF \ if message is from a listbox, then reflect it \ back to the listbox for processing >r hwnd msg wparam lparam WM_COMMAND WM: [ r> ] ELSE hwnd msg wparam lparam WM_COMMAND WM: Super \ We must send others to 'Super', so that keyboard \ processing will work properly, since 'Super' \ handles keyboard WM_COMMAND messages THEN ;M :M WM_SYSCOMMAND ( hwnd msg wparam lparam -- res ) \ All SC_xxxx command types always have the high nibble set to 0xF over 0xF000 and 0xF000 <> IF over LOWORD DoMenu: CurrentMenu 0 ELSE DefWindowProc: [ self ] THEN ;M \ 59 Support for Drag and Drop files from File Manager to WinEd \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ :M ExWindowStyle: ( -- ) ExWindowStyle: super WS_EX_ACCEPTFILES or \ allow files to be dropped on WinEd WS_EX_OVERLAPPEDWINDOW or ;M :M WM_DROPFILES { hndl message wParam lParam \ cFiles drop$ -- res } MAXSTRING LocalAlloc: drop$ >E-unminimize SetForegroundWindow: self 0 NULL -1 wParam \ HDROP structure Call DragQueryFile to cFiles \ -- count of files dropped RefreshOff: EditWindow FALSE defext_on? dup @ >r ! \ save, but reset the default extension \ addition cFiles 0 ?DO MAXCOUNTED drop$ 1+ i wParam Call DragQueryFile drop$ c! drop$ count "+open-text LOOP r> defext_on? ! \ restore the default extension additon wParam Call DragFinish drop RefreshOn: EditWindow ;M |
|
From: Dirk B. <db...@us...> - 2005-03-12 09:16:54
|
Update of /cvsroot/win32forth/win32forth-610old/demos/SciEdit/res In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25127/apps/SciEdit/res Modified Files: Toolbar.bmp Log Message: dbu: correct Version of some SciEdit files added Index: Toolbar.bmp =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/demos/SciEdit/res/Toolbar.bmp,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvscGNXfp and /tmp/cvsJFYM3A differ |
|
From: Dirk B. <db...@us...> - 2005-03-12 09:16:53
|
Update of /cvsroot/win32forth/win32forth-610old/demos/SciEdit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25127/apps/SciEdit Modified Files: ClassBrowser.f Log Message: dbu: correct Version of some SciEdit files added Index: ClassBrowser.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/demos/SciEdit/ClassBrowser.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** ClassBrowser.f 14 Dec 2004 23:53:47 -0000 1.1 --- ClassBrowser.f 12 Mar 2005 09:16:43 -0000 1.2 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + \ File: ClassBrowser.f \ Author: Dirk Busch *************** *** 6,10 **** \ Win32Forth class and vocabulary browser ! ANEW ClassBrowser.f needs TreeView.f \ TreeView class by Michael Hillerström --- 8,12 ---- \ Win32Forth class and vocabulary browser ! ANEW -ClassBrowser.f needs TreeView.f \ TreeView class by Michael Hillerström *************** *** 15,18 **** --- 17,22 ---- cr .( Loading class and vocabulary browser...) + false value Browser? + \ ------------------------------------------------------------------------------ \ the treeview control for browsing the classes and vocabularies *************** *** 188,194 **** ;M : Browse ( xt -- ) \ browse for the given xt \in-system-ok get-viewfile ! if $browse else 2drop then ; --- 192,207 ---- ;M + : $browse ( line_number file_name len -- ) + NewBrowseChild LoadHyperFile: ActiveBrowser + SetBrowseMode: ActiveBrowser Update ; + : Browse ( xt -- ) \ browse for the given xt \in-system-ok get-viewfile ! if \ if it's defind in FKERNEL.F than we must ! \ add the path to the file ! count 2dup KERNFILE count STR(NC)= ! if Prepend<home>\ then ! ! $browse else 2drop then ; *************** *** 208,211 **** --- 221,251 ---- \ ------------------------------------------------------------------------------ + \ the status bar + \ ------------------------------------------------------------------------------ + :Object ClassBrowserStatusbar <Super MultiStatusbar + + create SingleWidth -1 , \ width of statusbar parts + + :M SetSingle: ( -- ) + SingleWidth 1 SetParts: self + ;M + + :M SetText: ( -- ) + z" Use CTRL+Click to open the source for a definition in the Editor." 0 SetText: super + ;M + + :M Create: ( hParent -- ) + Create: super + SetSingle: self + SetText: self + Show: self + ;M + + :M Height: ( -- n ) + GetWindowRect: self drop nip - ;M + + ;Object + + \ ------------------------------------------------------------------------------ \ the main window \ ------------------------------------------------------------------------------ *************** *** 221,224 **** --- 261,266 ---- 1001 SetId: TreeView self Start: TreeView + GetHandle: self Create: ClassBrowserStatusbar + true to Browser? ;M *************** *** 226,230 **** --- 268,274 ---- hWnd RegPath$ SaveWindowPos TreeView Dispose + TreeView ClassBrowserStatusbar On_Done: super + false to Browser? ;M *************** *** 240,245 **** ;M :M On_Size: ( -- ) ! AutoSize: TreeView ;M :M WM_NOTIFY ( h m w l -- f ) --- 284,304 ---- ;M + : AdjustWindowSize { width height win -- } + SWP_SHOWWINDOW SWP_NOZORDER or SWP_NOMOVE or + height width + 0 0 \ ignore position + 0 \ ignore z-order + win Call SetWindowPos drop ; + :M On_Size: ( -- ) ! ! \ adjust the TreeView ! tempRect.AddrOf GetClientRect: self ! Left: tempRect Top: tempRect Right: tempRect ! Bottom: tempRect Height: ClassBrowserStatusbar - ! Move: TreeView ! ! \ and the the Statusbar ! Redraw: ClassBrowserStatusbar ;M :M WM_NOTIFY ( h m w l -- f ) *************** *** 257,262 **** ;Object - false value Browser? - EXTERNAL --- 316,319 ---- *************** *** 265,280 **** if SetForegroundWindow: ClassBrowser SW_SHOW Show: ClassBrowser ! else true to Browser? ! Start: ClassBrowser Update: ClassBrowser then ; ! : CloseBrowser ( -- ) Browser? if Close: ClassBrowser ! false to Browser? ! then ; MODULE --- 322,336 ---- if SetForegroundWindow: ClassBrowser SW_SHOW Show: ClassBrowser ! else Start: ClassBrowser Update: ClassBrowser then ; ! :noname ( -- ) Browser? if Close: ClassBrowser ! then ; is CloseBrowser MODULE + |
|
From: Dirk B. <db...@us...> - 2005-03-12 09:10:09
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23015/src/kernel Modified Files: fkernel.f meta-compiler.f Log Message: dbu: DEPRECATED added Index: meta-compiler.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-compiler.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** meta-compiler.f 21 Dec 2004 00:19:10 -0000 1.1 --- meta-compiler.f 12 Mar 2005 09:09:58 -0000 1.2 *************** *** 314,318 **** 2dup THREAD DUP @ HERE-H ROT ! ,-H \ LFA 0 ,-H \ CFA-PTR ! VFA-BIT C,-H \ BFA (VFA only) HERE-H LAST-H ! \ remember nfa DUP C,-H S,-H \ count byte NFA name string --- 314,318 ---- 2dup THREAD DUP @ HERE-H ROT ! ,-H \ LFA 0 ,-H \ CFA-PTR ! BFA_VFA_PRESENT C,-H \ BFA (VFA only) HERE-H LAST-H ! \ remember nfa DUP C,-H S,-H \ count byte NFA name string *************** *** 370,374 **** HERE-H TO OFA-H \ save address of OFA HERE-C ,-H \ init OFA with start of definition ! LAST-H @ 1- DUP C@-H OFA-BIT OR SWAP C!-H \ mark as OFA in BFA ; --- 370,374 ---- HERE-H TO OFA-H \ save address of OFA HERE-C ,-H \ init OFA with start of definition ! LAST-H @ 1- DUP C@-H BFA_OFA_PRESENT OR SWAP C!-H \ mark as OFA in BFA ; *************** *** 816,817 **** --- 816,818 ---- + |
|
From: Dirk B. <db...@us...> - 2005-03-12 09:10:09
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23015/src/tools Modified Files: HelpSystem.f Log Message: dbu: DEPRECATED added Index: HelpSystem.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/HelpSystem.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** HelpSystem.f 26 Dec 2004 13:10:52 -0000 1.2 --- HelpSystem.f 12 Mar 2005 09:09:58 -0000 1.3 *************** *** 81,84 **** --- 81,85 ---- ERROR-TABLE-ENTRY -4102 p-gethelp.htm Error(-4102) ERROR-TABLE-ENTRY -4103 p-gethelp.htm Error(-4103) + ERROR-TABLE-ENTRY -4104 p-gethelp.htm Error(-4104) \ Application and Runtime Error Messages |
|
From: Dirk B. <db...@us...> - 2005-03-12 09:10:09
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23015/src Modified Files: Primutil.f REGISTRY.F Utils.f imageman.f Log Message: dbu: DEPRECATED added Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Utils.f 21 Dec 2004 00:19:08 -0000 1.1 --- Utils.f 12 Mar 2005 09:09:57 -0000 1.2 *************** *** 712,716 **** \ add stack message increased ! THROW_MSGS LINK, -4103 , ," stack depth increased" : _stack-check ( -- ) --- 712,716 ---- \ add stack message increased ! THROW_MSGS LINK, -4103 ( WARN_STACK ) , ," stack depth increased" : _stack-check ( -- ) *************** *** 723,727 **** depth olddepth > \ if stack depth has increased if \ then warn of extra item on stack ! -4103 WARNMSG cr ." Stack: " .s cr then depth to olddepth ; --- 723,727 ---- depth olddepth > \ if stack depth has increased if \ then warn of extra item on stack ! -4103 ( WARN_STACK ) WARNMSG cr ." Stack: " .s cr then depth to olddepth ; *************** *** 1064,1065 **** --- 1064,1066 ---- + |
1040 messages has been excluded from this view by a project administrator.
