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: George H. <geo...@us...> - 2007-10-31 18:51:43
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19142/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah: Improved multi-tasing performance. Fixed bug in Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.42 retrieving revision 1.43 diff -C2 -d -r1.42 -r1.43 *** fkernel.f 28 Apr 2007 10:00:20 -0000 1.42 --- fkernel.f 31 Oct 2007 18:51:39 -0000 1.43 *************** *** 1961,1964 **** --- 1961,1966 ---- DUP USER TCB CELL+ ( task control block ) DUP ( *1 ) ( absolute min user area ) + DUP USER &EXREC CELL+ ( for exception handling ) + DUP USER &EXCEPT CELL+ ( for exception handling ) DUP USER HANDLER CELL+ ( throw frame ) DUP USER LP CELL+ ( local variable pointer ) *************** *** 5452,5457 **** \ -------------------- Task support & initialisation ------------------------ ! VARIABLE &EXCEPT ! VARIABLE &EXREC variable exc-guard variable exc-access --- 5454,5459 ---- \ -------------------- Task support & initialisation ------------------------ ! \ VARIABLE &EXCEPT ! \ VARIABLE &EXREC variable exc-guard variable exc-access |
|
From: George H. <geo...@us...> - 2007-10-31 18:51:43
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19142/win32forth/src Modified Files: EXCEPTIO.F FLOAT.F PRIMHASH.F imageman.f Log Message: gah: Improved multi-tasing performance. Fixed bug in Index: EXCEPTIO.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/EXCEPTIO.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** EXCEPTIO.F 20 Oct 2007 20:58:56 -0000 1.8 --- EXCEPTIO.F 31 Oct 2007 18:51:39 -0000 1.9 *************** *** 211,215 **** &exrec @ EBP@SaveOffset ; \ save area for ebp@ ! 0 value ?exceptioning \ detect recursive call to handler 1 PROC SetUnhandledExceptionFilter --- 211,218 ---- &exrec @ EBP@SaveOffset ; \ save area for ebp@ ! cell NewUser (?exceptioning) ! ! : ?exceptioning ( -- f ) ! (?exceptioning) @ ; \ detect recursive call to handler 1 PROC SetUnhandledExceptionFilter *************** *** 217,225 **** EXTERNAL ! variable show-exception ! show-exception on \ show exception? ! variable recover-exception \ recover from exception? ! recover-exception on : .exception-code ( -- ) \ get the last exception --- 220,233 ---- EXTERNAL ! cell NewUser show-exception \ show exception? ! cell NewUser recover-exception \ recover from exception? ! ! : Init-Except-Users ( -- ) ! (?exceptioning) off show-exception on recover-exception on ; ! ! Init-Except-Users ! ! initialization-chain chain-add Init-Except-Users : .exception-code ( -- ) \ get the last exception *************** *** 290,294 **** : except-presskey ( -- ) ! cr ." Press any key to exit..." wait ; EXTERNAL --- 298,302 ---- : except-presskey ( -- ) ! TCB @ 0= if cr ." Press any key to exit..." wait then ; \ Only wait for main (console) task. EXTERNAL *************** *** 350,354 **** exit \ terminate exception then ! true to ?exceptioning dup @ dup>r @ \ get the exception code &except ! \ save exception for later --- 358,362 ---- exit \ terminate exception then ! (?exceptioning) on dup @ dup>r @ \ get the exception code &except ! \ save exception for later *************** *** 368,372 **** r>drop EXCEPTION_CONTINUE_SEARCH >r \ no recovery then ! false to ?exceptioning \ no longer exceptioning show-exception @ if except-presskey then \ wait if we're showing... r> \ recover? from recovery option --- 376,380 ---- r>drop EXCEPTION_CONTINUE_SEARCH >r \ no recovery then ! (?exceptioning) off \ no longer exceptioning show-exception @ if except-presskey then \ wait if we're showing... r> \ recover? from recovery option *************** *** 377,382 **** EXTERNAL : SET-EXCEPT ( -- ) \ set exception routine handler ! ExceptBufflen malloc &exrec ! \ get a buffer for the context &IN-EXCEPT call SetUnhandledExceptionFilter &exrec @ ExceptHandler ! \ save exception handler --- 385,396 ---- EXTERNAL + : Allocate-Except-Buffer ( -- ) + ExceptBufflen malloc &exrec ! ; \ get a buffer for the context + + : Release-Except-Buffer ( -- ) + &exrec @ release &exrec off ; + : SET-EXCEPT ( -- ) \ set exception routine handler ! Allocate-Except-Buffer &IN-EXCEPT call SetUnhandledExceptionFilter &exrec @ ExceptHandler ! \ save exception handler *************** *** 387,391 **** &exrec @ ExceptHandler @ \ get old exception handler call SetUnhandledExceptionFilter drop ! &exrec @ release &exrec off ; \ clear execution record address INTERNAL --- 401,405 ---- &exrec @ ExceptHandler @ \ get old exception handler call SetUnhandledExceptionFilter drop ! Release-Except-Buffer ; \ clear execution record address INTERNAL Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.48 retrieving revision 1.49 diff -C2 -d -r1.48 -r1.49 *** FLOAT.F 21 Feb 2007 10:13:17 -0000 1.48 --- FLOAT.F 31 Oct 2007 18:51:39 -0000 1.49 *************** *** 1879,1883 **** THEN ! drop 1- charcnt @ 1+ number? double? 0= and \ October 1st, 1996 - 10:51 tjz & am \ double exponent not allowed --- 1879,1883 ---- THEN ! drop 1- charcnt @ 1+ base @ >r decimal number? r> base ! \ modified to always convert exponent in decimal double? 0= and \ October 1st, 1996 - 10:51 tjz & am \ double exponent not allowed Index: PRIMHASH.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/PRIMHASH.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** PRIMHASH.F 18 Apr 2007 09:18:40 -0000 1.7 --- PRIMHASH.F 31 Oct 2007 18:51:39 -0000 1.8 *************** *** 308,311 **** --- 308,313 ---- [ 1 cells ] literal - @ unhash type space ; + also classes + : .M1NAME ( a1 a2 -- a3 ) [ 2 cells ] literal - @ unhash type *************** *** 314,318 **** if obj-save if obj-save cell - @ \ should use obj>CLASS, not yet there ! voc-pfa-size cell+ + \ should use IFA, not yet there begin @ 2dup 3 cells+ @ u< 0= start/stop --- 316,320 ---- if obj-save if obj-save cell - @ \ should use obj>CLASS, not yet there ! voc-pfa-size #mlists cells+ + \ should use IFA, not yet there begin @ 2dup 3 cells+ @ u< 0= start/stop *************** *** 321,329 **** else drop ." ???" then space ! else ." NULL " then else ." self " then ; IN-APPLICATION --- 323,333 ---- else drop ." ???" then space ! else drop ." NULL " then else ." self " then ; + previous + IN-APPLICATION Index: imageman.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** imageman.f 28 Sep 2006 10:16:48 -0000 1.11 --- imageman.f 31 Oct 2007 18:51:39 -0000 1.12 *************** *** 859,863 **** &CB-WINMSG , &CB-BYE , \ zero callback pointers ! &EXCEPT , \ zero last exception >IN , \ zero >in ' SOURCE-ID >BODY , \ and source-id --- 859,863 ---- &CB-WINMSG , &CB-BYE , \ zero callback pointers ! \ &EXCEPT , \ zero last exception >IN , \ zero >in ' SOURCE-ID >BODY , \ and source-id |
|
From: George H. <geo...@us...> - 2007-10-31 18:51:43
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19142/win32forth/src/lib Modified Files: task.f Log Message: gah: Improved multi-tasing performance. Fixed bug in Index: task.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** task.f 30 Oct 2006 09:17:53 -0000 1.14 --- task.f 31 Oct 2007 18:51:39 -0000 1.15 *************** *** 68,78 **** \ -------------------- Task Start Initialisation -------------------- ! 1 proc ExitThread as exit-task ( n -- ) \ W32F Task \ *G Exit the current task returning the value n to the operating system, which can be retrieved \ ** by calling GetExitCodeThread. The stacks and user area for the thread are freed and \ ** DLLs are detatched. If the thread is the last active thread of the process then the \ ** process is terminated. : (task) ( parm cfa -- ) \ helper routine catch \ execute cfa and catch errors gah 27nov03 exit-task \ and exit the thread, never returns --- 68,83 ---- \ -------------------- Task Start Initialisation -------------------- ! 1 proc ExitThread ! ! : exit-task ( n -- ) \ W32F Task \ *G Exit the current task returning the value n to the operating system, which can be retrieved \ ** by calling GetExitCodeThread. The stacks and user area for the thread are freed and \ ** DLLs are detatched. If the thread is the last active thread of the process then the \ ** process is terminated. + Release-Except-Buffer call ExitThread ; : (task) ( parm cfa -- ) \ helper routine + Init-Except-Users + Allocate-Except-Buffer catch \ execute cfa and catch errors gah 27nov03 exit-task \ and exit the thread, never returns |
|
From: George H. <geo...@us...> - 2007-10-31 18:51:43
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19142/win32forth/src/console Modified Files: NoConsole.f Log Message: gah: Improved multi-tasing performance. Fixed bug in Index: NoConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** NoConsole.f 27 Jun 2007 07:31:16 -0000 1.7 --- NoConsole.f 31 Oct 2007 18:51:39 -0000 1.8 *************** *** 44,48 **** : NoConsoleIO ( -- ) \ W32F console ! \ *G Setup of the Console I/O for turnkey applications that don't need \ ** the console window. \ reset all deferd words for the console window to noop's. --- 44,48 ---- : NoConsoleIO ( -- ) \ W32F console ! \ *G Setup of the Console I/O for turnkey applications that doesn't need \ ** the console window. \ reset all deferd words for the console window to noop's. |
|
From: Jos v.d.V. <jo...@us...> - 2007-10-28 15:51:21
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27989 Modified Files: NewConsole.f Log Message: Jos: The word pause causes a problem in multithr.f that is used in the chess game. It could be disabled since it is not used in the new console. Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** NewConsole.f 28 Oct 2007 13:02:18 -0000 1.1 --- NewConsole.f 28 Oct 2007 15:51:17 -0000 1.2 *************** *** 115,124 **** ; ! : Pause { | pMsg -- } \ instead of "Winpause" - already defined in 6.12 7 cells LocalAlloc: pMsg BEGIN PM_REMOVE 0 0 0 pMsg Call PeekMessage WHILE pMsg HandleMessages drop REPEAT ! ; : PauseForMessage { | pMsg -- } \ instead of "Winpause" --- 115,124 ---- ; ! (( : Pause { | pMsg -- } \ instead of "Winpause" - already defined in 6.12 7 cells LocalAlloc: pMsg BEGIN PM_REMOVE 0 0 0 pMsg Call PeekMessage WHILE pMsg HandleMessages drop REPEAT ! ; )) : PauseForMessage { | pMsg -- } \ instead of "Winpause" |
|
From: Jos v.d.V. <jo...@us...> - 2007-10-28 13:15:12
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3495 Added Files: ExtendNew.f Log Message: Jos: Added for the new console --- NEW FILE: ExtendNew.f --- \ ExtendNew.f Extend the kernel with the new console \ ( ******** ) files to be removed later cr .( -- META EXTEND.F ) cr sys-FLOAD src\comment.f FLOAD src\numconv.f \ general number conversions ( ******** ) FLOAD src\console\console.f \ Console I/O part 1 FLOAD src\primutil.f \ primitive utilities sys-FLOAD src\nforget.f sys-FLOAD src\order.f \ vocabulary support sys-FLOAD src\module.f \ scoping support for modules sys-FLOAD src\interpif.f \ interpretive conditionals FLOAD src\paths.f \ multi path support words sys-fload src\imageman.f \ fsave, application & turnkey words sys-FLOAD src\486asm.f \ Jim's 486 assembler sys-FLOAD src\asmmac.f \ Jim's 486 macros sys-FLOAD src\asmwin32.f \ NEXT for Win32forth FLOAD src\pointer.f FLOAD src\callback.f \ windows callback support FLOAD src\primhash.f \ primitive hash functions for OOP later 8 constant B/FLOAT \ default to 8 byte floating point numbers FLOAD src\float.f \ floating point support sys-FLOAD src\see.f sys-FLOAD src\dis486.f \ load the disassembler sys-FLOAD src\dthread.f \ display threads sys-FLOAD src\winlib.f \ windows proc and memory debug words sys-FLOAD src\words.f FLOAD src\tools\dump.f \ HEX dump ( ******** ) FLOAD src\console\console2.f \ Console I/O part 2 sys-FLOAD src\debug.f FLOAD src\class.f \ ***** Object Oriented Programming Support ***** FLOAD src\scrnctrl.f \ screen control words FLOAD src\registry.f \ Win32 Registry support FLOAD src\ansfile.f \ ansi file words FLOAD src\keyboard.f \ function and special key constants FLOAD src\mapfile.f \ Windows32 file into memory mapping words sys-FLOAD src\environ.f \ environment? support FLOAD src\editor_io.f \ Communication between the editor and the console ( ******** ) FLOAD src\console\lineedit.f \ a line editor utility FLOAD src\Shell.f \ load SHELL utility words FLOAD src\utils.f \ load other misc utility words fload src\exceptio.f \ utility words to support windows exception handling sys-FLOAD src\dbgsrc1.f \ source level debugging support part one sys-FLOAD src\dbgsrc2.f \ source level debugging support part two sys-FLOAD src\classdbg.f \ Object Debugging FLOAD src\colors.f FLOAD src\fonts.f \ font class fload src\xfiledlg.f \ xcall replacements for open dialogs FLOAD src\PrintSupport.f \ replacement for the w32fPrint.dll FLOAD src\dc.f \ device context class FLOAD src\generic.f \ generic window class FLOAD src\window.f FLOAD src\childwnd.f \ child windows FLOAD src\winmsg.f FLOAD src\control.f FLOAD src\controls.f FLOAD src\button.f FLOAD src\dialog.f FLOAD src\menu.f FLOAD src\lib\BROWSEFLD.F \ SHBrowseForFolder() support ( ******** ) FLOAD src\console\forthdlg.f \ some dialogs for the console FLOAD src\keysave.f \ keyboard macro recording FLOAD src\tools\tools.f \ load various tool's when they are needed FLOAD src\lib\LoadProject.f \ Loads the latest known project FLOAD src\console\ConsoleMenu.f \ menu bar for the console ( ******** ) sys-FLOAD src\console\ConsoleStatBar.f \ status bar for the console window : oo ; FLOAD NewConsole.f create config$ ," WIN32FOR.CFG" create userconfig$ ," WIN32FORUSER.CFG" \ ........ set the default system access strings .......... \ -rbs make shell work in other drives : set-shell winver winnt351 >= if s" CMD.EXE " else s" c:\command.com " then 2dup dos$ place shell$ place s" /c " shell$ +place ; : .mem-free ( -- ) app-free 1000 / 1 u,.r ." k bytes free" ; in-system \ set title of the console window \ August 31st, 2003 - 13:24 dbu (SF-ID 778673) \ \ Note: If the window title for a stand alone Forth console window is changed here \ the word BuildWin32ForthName in SciEdit, WinEd and the IDE must be changed, too !!! : (ConsoleTitle) { \ $buff -- } 256 LocalAlloc: $buff S" Win32Forth " $buff place base @ decimal version# ((version)) $buff +place base ! $buff +NULL $buff 1+ CONHNDL call SetWindowText drop ; DEFER ConsoleTitle ' (ConsoleTitle) is ConsoleTitle : HELLO { \ doing-app? -- } \ startup stuff only forth also definitions action-of default-application ['] bye <> to doing-app? init-console \ -- f1 dup \ init if we created a console IF \ !!!! HAVE TO DO THE INITIALIZATION CHAIN !!!! \ !!!! BEFORE WE USE ANY WINDOWS SYSTEM CALLS !!!! initialization-chain do-chain ConsoleTitle \ set title of console window THEN \ normal-console c_init-console drop 0 call SetFocus drop NewConsole cls hidecursor: cmd exception@ 0= \ -- f1 f2 doing-app? 0= and \ if no app, display info IF cls set-shell THEN \ f1 -- IF doing-app? 0= \ if no app, display more info \ and load config file IF config$ count "path-file nip nip 0= \ if found IF config$ ['] $fload catch ?dup IF MESSAGE RESET-STACKS QUIT THEN \ tell the Editor that we are ready 0 ED_ALIVE editor-message THEN THEN ELSE exception@ IF CMDLINE DROP OFF \ reset commandline length .exception ELSE cr ." ** Warm Start Performed **" THEN THEN exception@ 0= \ if no exception doing-app? and \ and have an application to run IF default-application \ then run the users application bye \ and terminate when it's done THEN SetFocus: ConsoleWindow ; \in-system-ok ' hello is boot : LoadUserConfig ( -- ) \ load user configuration file userconfig$ COUNT "path-file NIP NIP 0= IF userconfig$ $FLOAD THEN ; in-application here fence ! mark empty cur-file off \ clear the default file cur-line off \ clear the current line cr cr .( Extensions Loaded, ) count-words . .( words in dictionary) cr \+ SaveInfo SaveInfo WIN32FOR.DBG \ save debugger information fsave Win32for \ save Win32For.EXE fload lib\Resources.f s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon 1 pause-seconds |
|
From: Jos v.d.V. <jo...@us...> - 2007-10-28 13:01:08
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30515 Added Files: BuildNew.bat Log Message: Jos: Added for the new console --- NEW FILE: BuildNew.bat --- FKernel.exe fload src\ExtendNew bye |
|
From: George H. <geo...@us...> - 2007-10-20 20:59:01
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23491/win32forth/src Modified Files: EXCEPTIO.F Shell.f Log Message: gah: Improved multi-tasing performance Index: Shell.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Shell.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Shell.f 12 Aug 2005 16:36:13 -0000 1.3 --- Shell.f 20 Oct 2007 20:58:56 -0000 1.4 *************** *** 5,9 **** \ Moved here from UTILS.F and partly rewritten by Dirk Busch \ Dienstag, März 29 2005 ! cr .( Loading Shell Words...) --- 5,9 ---- \ Moved here from UTILS.F and partly rewritten by Dirk Busch \ Dienstag, März 29 2005 ! cr .( Loading Shell Words...) *************** *** 82,86 **** INFINITE hProcess call WaitForInputIdle WAIT_FAILED <> if begin ! KEY? drop \ keep the Win32Forth message loop alive 1 hProcess call WaitForSingleObject WAIT_OBJECT_0 = until --- 82,86 ---- INFINITE hProcess call WaitForInputIdle WAIT_FAILED <> if begin ! winpause \ keep the Win32Forth message loop alive 1 hProcess call WaitForSingleObject WAIT_OBJECT_0 = until *************** *** 320,322 **** >R Prepend<home>\ temp$ +place \ file:<absolute path>\<file name>.<ext> temp$ count r> "web-link ; - |
|
From: Chasta g. <Cha...@fe...> - 2007-10-20 20:29:40
|
hay you win32forth-cvs you can bump ugly all night when you take virility pills http://www.katanco.com/ Chasta ghazarian |
|
From: Houston O. <Fle...@yo...> - 2007-10-19 16:03:53
|
SMKG IS GOING TO SOAR! DO NOT MISS OUT! WATCH IT ON FRIDAY OCT 19! Company: SMART CARD MARKETING Symbol: SMKG Price: 0.007 (Up 40%!) 5-D Target: $0.07 30-D Target: $0.15 SMKG COULD GET YOU GAINS OF UP TO 2000% IN SHORT-TERM HOLDING! THIS COMPANY IS SO STRONG AND UNDERVALUED THAT ONCE DISCOVERED A = TAKEOVER BY A MAJOR CELL PHONE CARRIER SUCH AS AT&T IS VERY POSSIBLE! ADD SMKG TO YOUR RADAR ON FRIDAY OCTOBER 19! |
|
From: gill d. <bh...@3g...> - 2007-10-13 15:14:07
|
Big international commercial organization is looking for talented, honest, reliable representatives from different regions. The ideal candidate will be an intelligent person, someone who can work autonomously with a high degree of enthusiasm. We are looking for highly motivated professionals, with experience in marketing field. The position is home-based. We offer a part-time position with flexible working hours. And we would be happy to consider a full-time job share candidate. Our Company offers a very competitive salary to the successful candidate, along with an unrivalled career progression opportunity. If you think you have what it takes to take on this challenge and would like to apply please send the following information to: Jul...@gm... 1) Full name 2) Contact phone numbers 3) Part time job/Full time You do not need to invest any sum of money and we do not ask you to provide us with your bank account requisites! We are engaged in completely legal activity. The preference is given to employees with knowledge of foreign languages. Thank you and we are looking forward to cooperate in long term base with you. If you received this message in error, or would like to unsubscribe, please send a blank email to: Ger...@gm... |
|
From: hitesh L. <hit...@al...> - 2007-10-11 00:19:49
|
http://www.bikepats.com/ What's up win32forth-cvs ha ha ha is what you can hear from the girl last time you whipped your = cock out aye? get your confidence back right away and enlarge to be a = bigger man. hitesh Lodding |
|
From: Tonia R. <Mar...@bo...> - 2007-10-08 20:55:32
|
Your credit history does not matter to us! If you have your own business and want IMMEDIATE money to spend ANY way = you like or require Extra money to give your company a boost or wish A = low interest loan - NO STRINGS ATTACHED, here is best deal we can offer = you NOW (hurry, this deal will expire TODAY): $23,000+ loan Hurry, when the deal is gone, it is gone. Simply Call Us... Do not worry about approval, your credit score will not disqualify you! Call Us Free on 877-347-3607 |
|
From: Bhavin M. <Bha...@ab...> - 2007-10-07 11:16:24
|
Good day win32forth-cvs Get your supply today before prices sky rocket Bhavin MacInnes http://www.multiipi.com/ |
|
From: dffdfas B. <df...@me...> - 2007-10-02 09:01:31
|
CWTE: C'Watre International, Inc Trade Alert. CWTE just announced trading on the OTC. CWTE has the = potential to return 5 times your money with this tight capital = structure. This means the stock can see $1.50 when news is realesed. CWTE has a = womens line of ageless cosmetics that is overwhelming the celebrity industry. Keep an eye for news to hit the market and create a frenzy in = this stock. When investors find out who's using it, the stock could go well beyond our target. win32forth-cvs, contact your broker NOW for CWTE! magten lyrttrob lycium mahatmae macburie maches |
|
From: Junko M. <Ju...@ti...> - 2007-09-30 17:06:40
|
Good day win32forth-cvs Alert to all investors! Look at D-M-X-C! 5-day price: ~$0.50 Check it at 31.09.2007 dnebanno dnekats dmorteg dlegdeel |
|
From: Ji M. <Mur...@ma...> - 2007-09-28 12:49:38
|
Mining Sector --- Delta Mining UPDATE HOT SECTOR: Additional information on (O_T_C: D M X C) D M X C is = expected to arrive soon. For those of you who currently own this company this will be great news. For those that don't currently own this company, you need to get in on = this now. The company recently traded as high as .13 and with any significant news = should be able to see (if not exceed) those prices again. Contact your broker now, = don't miss this opportunity in D M X C! |
|
From: Vladislav G. <Vla...@ta...> - 2007-09-28 11:06:05
|
Mining Sector --- Delta Mining UPDATE HOT SECTOR: Additional information on (O_T_C: D M X C) D M X C is = expected to arrive soon. For those of you who currently own this company this will be great news. For those that don't currently own this company, you need to get in on = this now. The company recently traded as high as .13 and with any significant news = should be able to see (if not exceed) those prices again. Contact your broker now, = don't miss this opportunity in D M X C! |
|
From: George H. <geo...@us...> - 2007-09-24 18:23:20
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30411/win32forth-stc/src Modified Files: environ.f Log Message: gah: added Forth200X extension queries Index: environ.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/environ.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** environ.f 19 Sep 2007 17:19:30 -0000 1.2 --- environ.f 24 Sep 2007 18:23:15 -0000 1.3 *************** *** 69,73 **** : X:DEFINED ; : X:REQUIRED ; ! \ : X:DEFERRED ; \ Not fully done yet \ : X:PARSE-NAME ; \ Not yet \ : X:EKEYS ; \ Not sure --- 69,73 ---- : X:DEFINED ; : X:REQUIRED ; ! : X:DEFERRED ; \ : X:PARSE-NAME ; \ Not yet \ : X:EKEYS ; \ Not sure |
|
From: Jos v.d.V. <jo...@us...> - 2007-09-24 15:47:57
|
Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20165 Modified Files: sockserv.f Log Message: Jos: Minor change to retrieve the IP adres of the sender of a packet. Index: sockserv.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/sockserv.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** sockserv.f 13 Jun 2007 13:00:44 -0000 1.1 --- sockserv.f 24 Sep 2007 15:47:53 -0000 1.2 *************** *** 64,68 **** \ *S Global Socket Data ! \ ** When a socket event is being processed, these words contain are to \ ** be used in obtaining specific information about the request. --- 64,68 ---- \ *S Global Socket Data ! \ ** When a socket event is being processed, these words contain are to \ ** be used in obtaining specific information about the request. *************** *** 111,126 **** dup @ sock-close drop 0 swap ! ; ! : serv-accept ( server -- ) begin dup @ sock-accept? while ! dup @ sock-accept drop ?dup if over 3 cells + @ allocate throw to sservdata sservdata cell+ ! ! dup 4 cells + 2 cells + sservdata 2 cells + 4 cells cmove dup cell+ lrest sservdata swap cons drop dup cell+ sservdata cons drop >r doOnConnect r> ! then repeat drop ; --- 111,131 ---- dup @ sock-close drop 0 swap ! ; ! \ *N FromIp ! \ ** A user variable to save the IP-adres of the sender ! ! 0 user FromIp ! ! : serv-accept ( server -- ) begin dup @ sock-accept? while ! dup @ sock-accept FromIp ! ?dup if over 3 cells + @ allocate throw to sservdata sservdata cell+ ! ! dup 4 cells + 2 cells + sservdata 2 cells + 4 cells cmove dup cell+ lrest sservdata swap cons drop dup cell+ sservdata cons drop >r doOnConnect r> ! then repeat drop ; |
|
From: Michel N. <Mic...@gi...> - 2007-09-22 10:29:03
|
http://mpbol.com/ Evening win32forth-cvs What do women really want? a small 5 incher or a big 8 incher? 8 inch of = course Michel Njegic |
|
From: Kheed H. <Khe...@se...> - 2007-09-21 14:47:01
|
Rum*or N e+w's.: O' ncology M e+d+. I+n c.. (O-TC: ON'CO) a Canc,er Tr*eatm.ent = S_ol-utions Gro+up is s-a i.d to h'a,v,e ex*perience-d o_v,e_r a 1.000% in_c.rease in rev+enu+es f,o r t.h*e = fis+cal 3 r d quar_ter end.ing J-u,l-y-, 2_0.0*7 c-omp ared w i.t-h t_h*e pri+or y+e'a_r w*hile f-iscal fou-rth = qu+arter res-ults f.o'r 2.0'0'7 a,r+e on trac_k to e*xceed t.h i+s ye.ar=92s t+hird quar+ter resul+ts. O.N C'O additio'na_lly plan's to incre,a+se servi,ce offe.ring*s w hich = a.r e cu-rr+ently unde. rway. Don*=92t w a-i,t f+o*r t'h_e n+e.w.s to c.o'm.e o u+t a*n-d l.o-s e t = h-e opportu n ity to g*e't in fron t of the ge+neral in+vesti'ng pub_lic. Onc.olog*y M-e+d is in a mu'ltibillio-n = doll ar in,+dustry w_h*e.r e t+h e y a-r-e gain_ing ma*rket sha*re rapid-ly. C,a.l'l y+o_u'r broke*r n.o_w f o,r O.N'C*O . |
|
From: Phillippe L. <Lem...@ju...> - 2007-09-21 11:05:43
|
Ru*mor N*e w's+: Oncolog,_y M+e*d*. I n-c . (OTC*: ON,CO) a Can,cer Tr,eatmen_t Solutio-'ns Gr*oup is s*a*i_d to h-a-v'e experience++d o v+e*r a 100 0% i n crease in rev*enu+es f.o.r t_h+e f_iscal 3-r-d q-uarter e+nding J*u.l+y', 2 0 0.7 com' pared w,i.t.h t-h.e p.rior y-e,a_r wh*ile f iscal f+ourth qu arter result+s f_o_r 2'0 0 7 a+r-e on tra.ck to exce.ed t+h+i s y-ears thir_d quart,er results*. O,N,C*O addition+all,y p-lans to increa-_se se'rvice offer-ing.s w,hich a_r e curr.ent_ly und.erw*ay. Don't w_a*i't f_o_r t,h'e n,e-w.s to c+o,m+e o+u_t a'n.d l o,s.e t h,e opport'un-ity to g'e't in fr_ont of the g_eneral invest, ing publ'ic. Onc-olo gy M.e_d is in a mu+ltibi llion dol'lar industr*_y w'h-e.r_e t'h,e'y a r e gainin,g mark_et s'hare rapidl*y. C+a'l-l y o'u,r brok'er n'o,w f o'r O.N'C+O*. |
|
From: George H. <geo...@us...> - 2007-09-19 17:19:33
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20651/win32forth-stc/src Modified Files: environ.f Log Message: gah: added Forth200X extension queries Index: environ.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/environ.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** environ.f 6 Oct 2006 16:57:02 -0000 1.1 --- environ.f 19 Sep 2007 17:19:30 -0000 1.2 *************** *** 54,58 **** 12 CONSTANT #LOCALS : LOCALS TRUE ; ! TRUE CONSTANT LOCALS-EXT TRUE CONSTANT WIN32FORTH --- 54,58 ---- 12 CONSTANT #LOCALS : LOCALS TRUE ; ! TRUE CONSTANT LOCALS-EXT TRUE CONSTANT WIN32FORTH *************** *** 64,67 **** --- 64,76 ---- [then] + \ Added Wednesday, September 19 2007 to support Forth 200x extensions. gah + + : X:EXTENSION-QUERY ; + : X:DEFINED ; + : X:REQUIRED ; + \ : X:DEFERRED ; \ Not fully done yet + \ : X:PARSE-NAME ; \ Not yet + \ : X:EKEYS ; \ Not sure + forth definitions |
|
From: George H. <geo...@us...> - 2007-09-19 17:09:50
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16273/win32forth/src Modified Files: ENVIRON.F Log Message: gah: added X:required query Index: ENVIRON.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ENVIRON.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ENVIRON.F 10 Oct 2006 10:23:27 -0000 1.5 --- ENVIRON.F 19 Sep 2007 17:09:37 -0000 1.6 *************** *** 67,72 **** --- 67,74 ---- : X:EXTENSION-QUERY ; : X:DEFINED ; + : X:REQUIRED ; \ : X:DEFERRED ; \ Not fully done yet \ : X:PARSE-NAME ; \ Not yet + \ : X:EKEYS ; \ Not sure previous definitions |
1040 messages has been excluded from this view by a project administrator.
