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: Rod O. <rod...@us...> - 2008-11-05 11:00:19
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv6309 Modified Files: CommandWindow.f Log Message: Rod: improved On_Paint: method and UpdateScrollRange: method Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** CommandWindow.f 29 Oct 2008 23:20:55 -0000 1.22 --- CommandWindow.f 5 Nov 2008 11:00:00 -0000 1.23 *************** *** 36,46 **** int font int hFont - :M SetFont: ( font -- ) - delete: font to font create: font - Handle: font to hFont - hFont SetFont: mdc - paint: self - PauseForMessages BigCursor: [ self ] - ;M int X --- 36,39 ---- *************** *** 51,55 **** int text \ pointer to text buffer int MaxText \ size of text buffer allocated - int NewLine \ To reduce calculations in paint : TextEnd ( -- a ) text zcount + ; --- 44,47 ---- *************** *** 76,80 **** : CommandString ( -- a n ) CommandLine #chars ; ! int MaxChars \ maximum nimber of characters accepted on the command line :M SetMaxChars: ( n -- ) to MaxChars ;M --- 68,72 ---- : CommandString ( -- a n ) CommandLine #chars ; ! int MaxChars \ maximum number of characters accepted on the command line :M SetMaxChars: ( n -- ) to MaxChars ;M *************** *** 83,88 **** :M KeysOn: ( -- ) true to KeysOn ;M - int VirtualKey \ last virtual key code stored when not processing keys - :M SetVirtualkey: ( n -- ) to VirtualKey ;M int Abort? \ flag set when esc pressed --- 75,78 ---- *************** *** 336,340 **** Right: ScrollRange - Left: ScrollPos - max dup ScrollPos +! 0 Scroll: self ! Update: self UpdateHScroll: self THEN --- 326,330 ---- Right: ScrollRange - Left: ScrollPos - max dup ScrollPos +! 0 Scroll: self ! \ Update: self UpdateHScroll: self THEN *************** *** 505,527 **** ;M ! :M On_Paint: ( -- ) \ all window refreshing is done by On_Paint: or update: - \ Set up metrics hFont SetFont: dc - tm GetTextMetrics: dc - tmAveCharWidth dup to HorzLine 20 * to HorzPage - tmHeight tmExternalLeading + dup to VertLine 7 * to VertPage - iTabLength HorzLine * TabWidth ! - ForegroundColour SetTextColor: dc BackgroundColour SetBkColor: dc ! \ NewLine if ! \ Calculate the size of the text then draw it ! DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollRange -1 Text GetHandle: dc call DrawTextEx VertLine / to lines false to NewLine ! \ then ! DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollPos -1 Text GetHandle: dc call DrawTextEx drop \ Draw highlighted text if any --- 495,509 ---- ;M ! :M On_Paint: ( -- ) \ all window refreshing is done by On_Paint: ! \ the size of the text is now calculated in UpdateScrollRange: ! \ text metrics are calculated just once in SetFont: hFont SetFont: dc ForegroundColour SetTextColor: dc BackgroundColour SetBkColor: dc ! \ Draw the null terminated text ! DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollPos -1 Text GetHandle: dc call DrawTextEx drop \ Draw highlighted text if any *************** *** 548,601 **** ;M ! :M update: ( -- ) \ Added to prevent deadlocks when called by other tasks ! ! \ Set up metrics ! hFont SetFont: mdc ! tm GetTextMetrics: mdc ! tmAveCharWidth dup to HorzLine 20 * to HorzPage ! tmHeight tmExternalLeading + dup to VertLine 7 * to VertPage ! iTabLength HorzLine * TabWidth ! ! ! ForegroundColour SetTextColor: mdc ! BackgroundColour SetBkColor: mdc ! ! \ NewLine if ! \ Calculate the size of the text then draw it DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollRange -1 Text GetHandle: mdc call DrawTextEx VertLine / to lines false to NewLine ! \ then ! DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollPos -1 Text GetHandle: mdc call DrawTextEx drop ! ! \ Draw highlighted text if any ! SelectedLength ! IF ! BackgroundColour SetTextColor: mdc ! ForegroundColour SetBkColor: mdc ! iLeftMargin scrollpos.left + TabWidth 1 ! FirstSelectedLine swap ! SelStartX SelStartY ScrollAdjust swap ! GetHandle: mdc call TabbedTextOut drop ! ! 0 SelStartX SelStartY nip ScrollAdjust \ adjusted point at start of row ! BEGIN SelectionRemainingLength \ while some chars left ! WHILE ! VertLine + 2dup 2>r ! iLeftMargin scrollpos.left + TabWidth 1 ! NextSelectedLine swap ! 2r> swap ! GetHandle: mdc call TabbedTextOut drop ! REPEAT ! 2drop ! THEN ;M :M Redraw: ( -- ) Paint: self ! Update: self UpdateVScroll: self UpdateHScroll: self ;M \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Text Operations \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 530,558 ---- ;M ! :M UpdateScrollRange: ( -- ) \ Added to prevent deadlocks when called by other tasks ! \ Calculate the size of the text and update ScrollRange DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollRange -1 Text GetHandle: mdc call DrawTextEx VertLine / to lines ;M :M Redraw: ( -- ) Paint: self ! UpdateScrollRange: self UpdateVScroll: self UpdateHScroll: self ;M + :M SetFont: ( font -- ) + delete: font to font create: font + Handle: font to hFont + hFont SetFont: mdc + tm GetTextMetrics: mdc + tmAveCharWidth dup to HorzLine 20 * to HorzPage + tmHeight tmExternalLeading + dup to VertLine 7 * to VertPage + iTabLength HorzLine * TabWidth ! + Redraw: self + PauseForMessages BigCursor: self + ;M + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Text Operations \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 768,771 **** --- 725,733 ---- IF DeleteTextFromStart: self ELSE drop THEN ; + : ScrollRangeChanged? ( -- ) + X Y ColRow>xy bottom: ScrollRange > + swap right: ScrollRange > or + ; + :M OverwriteLineAtXY: ( a n -- ) dup>r *************** *** 775,779 **** :M CR: ( -- ) ! crlf$ count true to NewLine OverwriteLineAtXY: self Y UpdateLine: self 0 to X 1 +to Y --- 737,741 ---- :M CR: ( -- ) ! crlf$ count OverwriteLineAtXY: self Y UpdateLine: self 0 to X 1 +to Y *************** *** 793,797 **** WHILE CR: self /string 13 skip 10 skip REPEAT 3drop ! Update: self \ AutoScroll: self ;M --- 755,759 ---- WHILE CR: self /string 13 skip 10 skip REPEAT 3drop ! ScrollRangeChanged? IF UpdateScrollRange: self THEN \ AutoScroll: self ;M *************** *** 800,803 **** --- 762,766 ---- dup>r XYAddress 0 ReplaceText: self X Y r> +to X Y RowLength Y false UpdateRange + ScrollRangeChanged? IF UpdateScrollRange: self THEN ;M \ ************ special one for command line ********************* *************** *** 814,818 **** :M cls: ( -- ) 0 text c! - true to NewLine Redraw: self 0 to X 0 to Y \ 1 to lines \ 0 text ! --- 777,780 ---- *************** *** 951,954 **** --- 913,917 ---- :M Prompt: ( -- ) + UpdateScrollRange: self true to editing prompt zcount OverwriteTextAtXY: self *************** *** 973,977 **** \ -1 to CommandStart 0 to #chars - 0 to VirtualKey ;M --- 936,939 ---- *************** *** 1259,1263 **** 1024 to MaxHistory 100000 to MaxText - true to NewLine 0 to head -1 to wrap --- 1221,1224 ---- |
|
From: George H. <geo...@us...> - 2008-10-29 23:24:34
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv26196 Modified Files: task.f Log Message: Added extra comment Index: task.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** task.f 22 Aug 2008 21:12:25 -0000 1.16 --- task.f 29 Oct 2008 23:24:29 -0000 1.17 *************** *** 138,142 **** : task-sleep ( n -- ) \ W32F Task \ *G Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended ! \ ** forever. ms ; deprecated --- 138,142 ---- : task-sleep ( n -- ) \ W32F Task \ *G Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended ! \ ** forever. This word is \i obsolescent \d since it's identical to the ANSI word \b MS \d. ms ; deprecated |
|
From: George H. <geo...@us...> - 2008-10-29 23:21:02
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv25509/src Modified Files: GENERIC.F Window.f Log Message: Improved multi-tasking plus updated taskdemo (which hopefully now works for everybody). Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** Window.f 8 Oct 2008 09:15:07 -0000 1.21 --- Window.f 29 Oct 2008 23:20:55 -0000 1.22 *************** *** 932,936 **** : send-window ( lParam wParam Message_ID hWnd -- ) \ w32f \ *G Send a message to a window. ! Call SendMessage drop ; : LoadIconFile ( adr len -- hIcon ) \ w32f --- 932,936 ---- : send-window ( lParam wParam Message_ID hWnd -- ) \ w32f \ *G Send a message to a window. ! Call SendNotifyMessage drop ; : LoadIconFile ( adr len -- hIcon ) \ w32f Index: GENERIC.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** GENERIC.F 16 Jul 2008 20:48:23 -0000 1.21 --- GENERIC.F 29 Oct 2008 23:20:55 -0000 1.22 *************** *** 144,148 **** : SendMessage:SelfDrop ( lParam wParam message -- ) \ *G Send a windows message to our self and discard the result. ! SendMessage:Self drop ; \ ----------------------------------------------------------------- --- 144,148 ---- : SendMessage:SelfDrop ( lParam wParam message -- ) \ *G Send a windows message to our self and discard the result. ! hWnd call SendNotifyMessage drop ; \ ----------------------------------------------------------------- *************** *** 200,203 **** --- 200,207 ---- 0 swap WM_SETREDRAW hWnd call SendMessage drop ;M + : OwnedByTask ( -- f ) + 0 hWnd call GetWindowThreadProcessId + call GetCurrentThreadId = ; + :M Show: ( state -- ) \ *G The ShowWindow function sets the specified window's show state. \n *************** *** 221,226 **** \ ** current task the message is sent. hWnd ! if 0 hWnd call GetWindowThreadProcessId ! call GetCurrentThreadId = if hWnd Call ShowWindow else hWnd call ShowWindowAsync --- 225,229 ---- \ ** current task the message is sent. hWnd ! if OwnedByTask if hWnd Call ShowWindow else hWnd call ShowWindowAsync |
|
From: George H. <geo...@us...> - 2008-10-29 23:21:02
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv25509/src/console Modified Files: CommandWindow.f Log Message: Improved multi-tasking plus updated taskdemo (which hopefully now works for everybody). Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** CommandWindow.f 25 Oct 2008 21:41:26 -0000 1.21 --- CommandWindow.f 29 Oct 2008 23:20:55 -0000 1.22 *************** *** 464,474 **** ;M - :M Redraw: ( -- ) - Paint: self - Update: self - UpdateVScroll: self - UpdateHScroll: self - ;M - :M AutoHScroll: ( -- ) \ scroll caret into view horizontally PauseForMessages --- 464,467 ---- *************** *** 512,516 **** ;M ! :M On_Paint: ( -- ) \ all window refreshing is done by On_Paint: \ Set up metrics --- 505,509 ---- ;M ! :M On_Paint: ( -- ) \ all window refreshing is done by On_Paint: or update: \ Set up metrics *************** *** 555,558 **** --- 548,601 ---- ;M + :M update: ( -- ) \ Added to prevent deadlocks when called by other tasks + + \ Set up metrics + hFont SetFont: mdc + tm GetTextMetrics: mdc + tmAveCharWidth dup to HorzLine 20 * to HorzPage + tmHeight tmExternalLeading + dup to VertLine 7 * to VertPage + iTabLength HorzLine * TabWidth ! + + ForegroundColour SetTextColor: mdc + BackgroundColour SetBkColor: mdc + + \ NewLine if + \ Calculate the size of the text then draw it + DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or + ScrollRange -1 Text GetHandle: mdc call DrawTextEx VertLine / to lines false to NewLine + \ then + DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or + ScrollPos -1 Text GetHandle: mdc call DrawTextEx drop + + \ Draw highlighted text if any + SelectedLength + IF + BackgroundColour SetTextColor: mdc + ForegroundColour SetBkColor: mdc + iLeftMargin scrollpos.left + TabWidth 1 + FirstSelectedLine swap + SelStartX SelStartY ScrollAdjust swap + GetHandle: mdc call TabbedTextOut drop + + 0 SelStartX SelStartY nip ScrollAdjust \ adjusted point at start of row + BEGIN SelectionRemainingLength \ while some chars left + WHILE + VertLine + 2dup 2>r + iLeftMargin scrollpos.left + TabWidth 1 + NextSelectedLine swap + 2r> swap + GetHandle: mdc call TabbedTextOut drop + REPEAT + 2drop + THEN + ;M + + :M Redraw: ( -- ) + Paint: self + Update: self + UpdateVScroll: self + UpdateHScroll: self + ;M + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Text Operations \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
|
From: George H. <geo...@us...> - 2008-10-29 23:21:01
|
Update of /cvsroot/win32forth/win32forth/demos In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv25509/demos Modified Files: taskdemo.f Log Message: Improved multi-tasking plus updated taskdemo (which hopefully now works for everybody). Index: taskdemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** taskdemo.f 27 Oct 2008 22:46:18 -0000 1.8 --- taskdemo.f 29 Oct 2008 23:20:55 -0000 1.9 *************** *** 74,77 **** --- 74,79 ---- dup>r taskblocks +cells @ task>id @ \ get the task id \ console-lock lock \ locking here will lock the whole system + \ begin winpause console-lock trylock until \ can be used provided unlock in task exit is resored + \ but only on NT 4 or greater. ." Task " . ." completed" cr console-lock unlock \ Unlock here.( was locked at the task exit ) *************** *** 140,144 **** task-fast run-task drop key drop ! console-lock unlock \ To be sure the console is unlocked task-slow stop-task task-fast stop-task --- 142,146 ---- task-fast run-task drop key drop ! \ console-lock unlock \ To be sure the console is unlocked; do noy use since locks and unlocks MUST be balanced. task-slow stop-task task-fast stop-task |
|
From: George H. <geo...@us...> - 2008-10-27 22:46:26
|
Update of /cvsroot/win32forth/win32forth/demos In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv29973 Modified Files: taskdemo.f Log Message: Save and restore cursor location in tasks (as per original). Index: taskdemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** taskdemo.f 26 Oct 2008 23:35:01 -0000 1.7 --- taskdemo.f 27 Oct 2008 22:46:18 -0000 1.8 *************** *** 32,36 **** c-unlock loop ! console-lock lock 50 location @ gotoxy ." Exiting..." 1 ; \ my exit code and leave the console locked --- 32,36 ---- c-unlock loop ! c-lock 50 location @ gotoxy ." Exiting..." gotoxy 1 ; \ my exit code and leave the console locked *************** *** 73,77 **** WAIT_OBJECT_0 + dup>r taskblocks +cells @ task>id @ \ get the task id ! \ console-lock lock \ locking here wil lock the whole system ." Task " . ." completed" cr console-lock unlock \ Unlock here.( was locked at the task exit ) --- 73,77 ---- WAIT_OBJECT_0 + dup>r taskblocks +cells @ task>id @ \ get the task id ! \ console-lock lock \ locking here will lock the whole system ." Task " . ." completed" cr console-lock unlock \ Unlock here.( was locked at the task exit ) |
|
From: Jos v.d.V. <jo...@us...> - 2008-10-26 23:35:13
|
Update of /cvsroot/win32forth/win32forth/demos In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv17719 Modified Files: taskdemo.f Log Message: Jos: Preventing a locked console in demo2 when it is ready or stopped. Index: taskdemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** taskdemo.f 25 Oct 2008 23:24:27 -0000 1.6 --- taskdemo.f 26 Oct 2008 23:35:01 -0000 1.7 *************** *** 73,77 **** WAIT_OBJECT_0 + dup>r taskblocks +cells @ task>id @ \ get the task id ! \ console-lock lock \ locking here wil lock the whole system ." Task " . ." completed" cr console-lock unlock \ Unlock here.( was locked at the task exit ) --- 73,77 ---- WAIT_OBJECT_0 + dup>r taskblocks +cells @ task>id @ \ get the task id ! \ console-lock lock \ locking here wil lock the whole system ." Task " . ." completed" cr console-lock unlock \ Unlock here.( was locked at the task exit ) *************** *** 118,122 **** begin pad 256 fhndl @ read-line abort" IO Error!" ! tcb @ task-stop? not and while console-lock lock --- 118,122 ---- begin pad 256 fhndl @ read-line abort" IO Error!" ! tcb @ task-stop? not and while console-lock lock *************** *** 126,130 **** speed ms repeat ! fhndl @ close-file ; 0 value task-slow --- 126,130 ---- speed ms repeat ! fhndl @ close-file ; 0 value task-slow *************** *** 140,143 **** --- 140,144 ---- task-fast run-task drop key drop + console-lock unlock \ To be sure the console is unlocked task-slow stop-task task-fast stop-task |
|
From: George H. <geo...@us...> - 2008-10-25 23:24:35
|
Update of /cvsroot/win32forth/win32forth/demos In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv12791 Modified Files: taskdemo.f Log Message: Replaced TASK-SLEEP with MS Index: taskdemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** taskdemo.f 25 Oct 2008 15:18:46 -0000 1.5 --- taskdemo.f 25 Oct 2008 23:24:27 -0000 1.6 *************** *** 26,30 **** c-unlock 100 1 do ! location @ 15 * task-sleep \ sleep depends on line number, bigger=longer c-lock 40 location @ gotoxy --- 26,30 ---- c-unlock 100 1 do ! location @ 15 * ms \ sleep depends on line number, bigger=longer c-lock 40 location @ gotoxy *************** *** 124,128 **** pad swap type cr console-lock unlock ! speed task-sleep repeat fhndl @ close-file ; --- 124,128 ---- pad swap type cr console-lock unlock ! speed ms repeat fhndl @ close-file ; |
|
From: Rod O. <rod...@us...> - 2008-10-25 22:08:49
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv7617 Modified Files: CommandWindow.f Log Message: Rod: used a memory DC for font calculations so get-dc and release-dc not needed Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** CommandWindow.f 25 Oct 2008 15:18:04 -0000 1.20 --- CommandWindow.f 25 Oct 2008 21:41:26 -0000 1.21 *************** *** 22,25 **** --- 22,27 ---- defer LogKeyStrokes ' noop is LogKeyStrokes \ used in KeySave.f defined as menukey-more + WinDC mDC \ used for font calculations + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 36,40 **** :M SetFont: ( font -- ) delete: font to font create: font ! Handle: font to hFont paint: self PauseForMessages BigCursor: [ self ] ;M --- 38,44 ---- :M SetFont: ( font -- ) delete: font to font create: font ! Handle: font to hFont ! hFont SetFont: mdc ! paint: self PauseForMessages BigCursor: [ self ] ;M *************** *** 419,423 **** dup>r RowAddress TabWidth 1 2swap ! GetHandle: dc call GetTabbedTextExtent loword r> VertLine * ; --- 423,427 ---- dup>r RowAddress TabWidth 1 2swap ! GetHandle: mdc call GetTabbedTextExtent loword r> VertLine * ; *************** *** 437,444 **** : SCP ( -- ) \ SetCommandPosition ! get-dc hFont SetFont: dc X Y SetSelectionStart SetCaretPosition ! release-dc ; --- 441,449 ---- : SCP ( -- ) \ SetCommandPosition ! \ get-dc ! \ hFont SetFont: mdc X Y SetSelectionStart SetCaretPosition ! \ release-dc ; *************** *** 449,455 **** : UpdateRange ( SelStartCol SelStartRow SelEndCol SelEndRow f -- ) >r 2>r ! get-dc hFont SetFont: dc ColRow>XY ScrollAdjust 2r> ColRow>XY VertLine + ScrollAdjust r> UpdateRectangle ! release-dc ; --- 454,461 ---- : UpdateRange ( SelStartCol SelStartRow SelEndCol SelEndRow f -- ) >r 2>r ! \ get-dc ! \ hFont SetFont: mdc ColRow>XY ScrollAdjust 2r> ColRow>XY VertLine + ScrollAdjust r> UpdateRectangle ! \ release-dc ; *************** *** 518,526 **** BackgroundColour SetBkColor: dc ! NewLine if \ Calculate the size of the text then draw it DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollRange -1 Text GetHandle: dc call DrawTextEx VertLine / to lines false to NewLine ! then DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ScrollPos -1 Text GetHandle: dc call DrawTextEx drop --- 524,532 ---- BackgroundColour SetBkColor: dc ! \ NewLine if \ Calculate the size of the text then draw it DRAWTEXTPARAMS DT_CALCRECT DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ! ScrollRange -1 Text GetHandle: dc call DrawTextEx VertLine / to lines false to NewLine ! \ then DRAWTEXTPARAMS DT_NOCLIP DT_EXPANDTABS or DT_TABSTOP or DT_NOPREFIX or ScrollPos -1 Text GetHandle: dc call DrawTextEx drop *************** *** 559,563 **** swap >r 1 ! BEGIN 2dup swap TabWidth 1 2swap GetHandle: dc call GetTabbedTextExtent loword dup to CC r@ <= over nm < and WHILE 1+ CC to PC --- 565,569 ---- swap >r 1 ! BEGIN 2dup swap TabWidth 1 2swap GetHandle: mdc call GetTabbedTextExtent loword dup to CC r@ <= over nm < and WHILE 1+ CC to PC *************** *** 600,604 **** :M Select: ( col row -- ) \ select text from SelStart to SelEnd - col row ! get-dc hFont SetFont: dc SelEndCol SelEndRow \ previous SelEnd col row 2swap to SelEndRow to SelEndCol --- 606,610 ---- :M Select: ( col row -- ) \ select text from SelStart to SelEnd - col row ! \ get-dc hFont SetFont: dc SelEndCol SelEndRow \ previous SelEnd col row 2swap to SelEndRow to SelEndCol *************** *** 614,618 **** UpdateLines THEN ! release-dc ;M --- 620,624 ---- UpdateLines THEN ! \ release-dc ;M *************** *** 628,634 **** : On_Track ( h m -- h m ) ! get-dc hFont SetFont: dc MouseX MouseY GetColRow ! release-dc 2dup BeforeCommandLine StartBeforeCommandLine and >r 2dup AfterCommandLine StartAfterCommandLine and >r --- 634,640 ---- : On_Track ( h m -- h m ) ! \ get-dc hFont SetFont: dc MouseX MouseY GetColRow ! \ release-dc 2dup BeforeCommandLine StartBeforeCommandLine and >r 2dup AfterCommandLine StartAfterCommandLine and >r *************** *** 641,654 **** IF 0 to SelectedLength ! get-dc hFont SetFont: dc SelStartCol SelStartRow ColRow>XY ScrollAdjust SelEndCol SelEndRow ColRow>XY ScrollAdjust UpdateLines SelStartCol to SelEndCol SelStartRow to SelEndRow ! release-dc THEN ;M : SetStart ( x y -- ) \ used in On_Click and SelectAll: ! get-dc hFont SetFont: dc GetColRow 2dup SetSelectionStart over swap OnCommandLine --- 647,660 ---- IF 0 to SelectedLength ! \ get-dc hFont SetFont: dc SelStartCol SelStartRow ColRow>XY ScrollAdjust SelEndCol SelEndRow ColRow>XY ScrollAdjust UpdateLines SelStartCol to SelEndCol SelStartRow to SelEndRow ! \ release-dc THEN ;M : SetStart ( x y -- ) \ used in On_Click and SelectAll: ! \ get-dc hFont SetFont: dc GetColRow 2dup SetSelectionStart over swap OnCommandLine *************** *** 656,660 **** ELSE drop false THEN to Editing ! release-dc ; --- 662,666 ---- ELSE drop false THEN to Editing ! \ release-dc ; *************** *** 1243,1246 **** --- 1249,1253 ---- :M On_Init: ( -- ) + 0 Call CreateCompatibleDC PutHandle: mDC MaxText malloc to text text MaxText 45 fill 0 text c! \ text MaxText erase CommandFont SetFont: self \ this creates a caret in BigCursor: self *************** *** 1250,1252 **** --- 1257,1263 ---- ;M + :M On_Done: ( -- ) + GetHandle: mdc call DeleteDC drop + ;M + ;Class |
|
From: Jos v.d.V. <jo...@us...> - 2008-10-25 19:51:42
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1446 Modified Files: Primutil.f Log Message: Jos: Depracted rel>abs and abs>rel as George hinted. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.40 retrieving revision 1.41 diff -C2 -d -r1.40 -r1.41 *** Primutil.f 25 Oct 2008 15:17:24 -0000 1.40 --- Primutil.f 25 Oct 2008 19:51:36 -0000 1.41 *************** *** 23,31 **** \ v4 and previous versions : convert relative to absolute address \ post v4 : is a noop (win32forth loads at an absolute address) ! ; IMMEDIATE : ABS>REL ( absaddr -- reladdr ) \ v4 and previous versions : convert absolute to relative address \ post v4 : is a noop (win32forth loads at an absolute address) ! ; IMMEDIATE in-application --- 23,31 ---- \ v4 and previous versions : convert relative to absolute address \ post v4 : is a noop (win32forth loads at an absolute address) ! ; IMMEDIATE deprecated : ABS>REL ( absaddr -- reladdr ) \ v4 and previous versions : convert absolute to relative address \ post v4 : is a noop (win32forth loads at an absolute address) ! ; IMMEDIATE deprecated in-application |
|
From: Jos v.d.V. <jo...@us...> - 2008-10-25 19:51:42
|
Update of /cvsroot/win32forth/win32forth/src/Compat In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1446/Compat Modified Files: Evolve.f Log Message: Jos: Depracted rel>abs and abs>rel as George hinted. Index: Evolve.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Compat/Evolve.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Evolve.f 2 Sep 2008 07:01:22 -0000 1.8 --- Evolve.f 25 Oct 2008 19:51:36 -0000 1.9 *************** *** 109,112 **** --- 109,115 ---- deprecated \ since a long time + \ rel>abs and abs>rel are deprecated since version 6 + \ They are still in primutil.f to support old code + \ from src\shell.f |
|
From: Jos v.d.V. <jo...@us...> - 2008-10-25 15:18:51
|
Update of /cvsroot/win32forth/win32forth/demos In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv20108 Modified Files: taskdemo.f Log Message: Jos: Got demo1 working again. Index: taskdemo.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/taskdemo.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** taskdemo.f 22 Aug 2008 21:12:24 -0000 1.4 --- taskdemo.f 25 Oct 2008 15:18:46 -0000 1.5 *************** *** 32,36 **** c-unlock loop ! c-lock 50 location @ gotoxy ." Exiting..." c-unlock 1 ; \ my exit code 15 value taskcount \ number of tasks to start --- 32,37 ---- c-unlock loop ! console-lock lock 50 location @ gotoxy ." Exiting..." ! 1 ; \ my exit code and leave the console locked 15 value taskcount \ number of tasks to start *************** *** 67,78 **** taskwaits while ! INFINITE false taskhndls \ wait for 1 or more tasks to end ! taskwaits WaitForMultipleObjects \ wait on handles list dup WAIT_FAILED = if getlastwinerr then \ note the error WAIT_OBJECT_0 + dup>r taskblocks +cells @ task>id @ \ get the task id ! console-lock lock ! ." Task " . ." completed" cr ! console-lock unlock -1 +to taskwaits \ 1 fewer task, clean up the list taskhndls taskwaits cells+ @ \ get last handle in list --- 68,79 ---- taskwaits while ! INFINITE false taskhndls \ wait for 1 or more tasks to end ! taskwaits WaitForMultipleObjects \ wait on handles list dup WAIT_FAILED = if getlastwinerr then \ note the error WAIT_OBJECT_0 + dup>r taskblocks +cells @ task>id @ \ get the task id ! \ console-lock lock \ locking here wil lock the whole system ! ." Task " . ." completed" cr ! console-lock unlock \ Unlock here.( was locked at the task exit ) -1 +to taskwaits \ 1 fewer task, clean up the list taskhndls taskwaits cells+ @ \ get last handle in list *************** *** 86,93 **** : start-tasks ( n -- ) make-tasks ! run-tasks ! console-lock lock 0 25 gotoxy ." Main task is waiting for " taskcount . ." tasks" cr ! console-lock unlock wait-eachtask ." All tasks ended" cr --- 87,94 ---- : start-tasks ( n -- ) make-tasks ! console-lock lock \ Prevents locking by the tasks ! run-tasks \ They will wait till the console is unlocked 0 25 gotoxy ." Main task is waiting for " taskcount . ." tasks" cr ! console-lock unlock \ The tasks will continue to run here wait-eachtask ." All tasks ended" cr |
|
From: Jos v.d.V. <jo...@us...> - 2008-10-25 15:18:07
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv20085 Modified Files: CommandWindow.f Log Message: Jos: Changed a stacknotation Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** CommandWindow.f 16 Sep 2008 08:39:40 -0000 1.19 --- CommandWindow.f 25 Oct 2008 15:18:04 -0000 1.20 *************** *** 43,47 **** int Y :M SetXY: ( X Y -- ) to Y to X ;M ! :M GetXY: ( X Y -- ) X Y ;M int text \ pointer to text buffer --- 43,47 ---- int Y :M SetXY: ( X Y -- ) to Y to X ;M ! :M GetXY: ( -- X Y ) X Y ;M int text \ pointer to text buffer |
|
From: Jos v.d.V. <jo...@us...> - 2008-10-25 15:17:29
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv20047 Modified Files: Primutil.f Log Message: Jos: To prevent erors in the taskdemo (demo1) Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.39 retrieving revision 1.40 diff -C2 -d -r1.39 -r1.40 *** Primutil.f 20 Oct 2008 21:18:42 -0000 1.39 --- Primutil.f 25 Oct 2008 15:17:24 -0000 1.40 *************** *** 782,786 **** \ any pending message can be handled. 7 cells LocalAlloc: pMsg ! BEGIN PM_REMOVE 0 0 0 pMsg Call PeekMessage WHILE pMsg HandleMessages drop REPEAT ; --- 782,786 ---- \ any pending message can be handled. 7 cells LocalAlloc: pMsg ! BEGIN 0 ms PM_REMOVE 0 0 0 pMsg Call PeekMessage WHILE pMsg HandleMessages drop REPEAT ; |
|
From: Jos v.d.V. <jo...@us...> - 2008-10-25 15:16:27
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv20016 Modified Files: NewConsole.f Log Message: Jos: Changed some stacknotations Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** NewConsole.f 2 Sep 2008 07:01:23 -0000 1.28 --- NewConsole.f 25 Oct 2008 15:16:21 -0000 1.29 *************** *** 196,200 **** : c_getcolrow ( -- col row ) VisibleColRow: cmd ; : c_getxy ( -- x y ) GetXY: cmd ; ! : c_gotoxy ( -- x y ) GoToXY: cmd ; internal external --- 196,200 ---- : c_getcolrow ( -- col row ) VisibleColRow: cmd ; : c_getxy ( -- x y ) GetXY: cmd ; ! : c_gotoxy ( x y -- ) GoToXY: cmd ; internal external |
|
From: George H. <geo...@us...> - 2008-10-20 21:20:53
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv8398 Modified Files: w32fMsg.f Log Message: Fixed typo. Index: w32fMsg.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/w32fMsg.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** w32fMsg.f 2 Sep 2008 07:01:21 -0000 1.12 --- w32fMsg.f 20 Oct 2008 21:20:45 -0000 1.13 *************** *** 42,47 **** \ *B it can be launched by another win32forth application, ready for communication ! \ *P Technical note: Internally, theese features are implemented throught ! \ ** "shared memory" or "file memory mapping against pageing". \ *P Example : --- 42,47 ---- \ *B it can be launched by another win32forth application, ready for communication ! \ *P Technical note: Internally, these features are implemented through ! \ ** "shared memory" or "file memory mapping against paging". \ *P Example : |
|
From: George H. <geo...@us...> - 2008-10-20 21:18:50
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv8262 Modified Files: Primutil.f Log Message: Added a comment to IMPORT: about usage. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** Primutil.f 24 Sep 2008 21:49:57 -0000 1.38 --- Primutil.f 20 Oct 2008 21:18:42 -0000 1.39 *************** *** 223,228 **** r> to sys-warning? throw ; immediate ! : allot-to ( n1 -- ) \ extend the dictionary space of most recent ! \ word compile to length n1 last @ name> >body here swap - - dup 0< abort" buffer is already too long!" allot ; --- 223,228 ---- r> to sys-warning? throw ; immediate ! : allot-to ( n1 -- ) ! \ *G Extend the dictionary space of most recent word compile to length n1. last @ name> >body here swap - - dup 0< abort" buffer is already too long!" allot ; *************** *** 232,235 **** --- 232,239 ---- : import: ( c "name" -- ) + \ *G Create a word "name" in the current vocabulary that when it executes reverses the top c items on + \ ** the data stack and then executes the DLL function "name". + \ *P \b NOTE \d this word also executes PROC, which can be aliased with AS that behaves the same as if + \ ** c PROC "name" has been executed. \in-system-ok >IN @ >r dup proc r> >IN ! \ make sure proc exists before doing create header DoImport compile, |
|
From: George H. <geo...@us...> - 2008-10-08 20:25:07
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv13917 Modified Files: fkernel.f Log Message: Moved SLITERAL and .S to application space Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.58 retrieving revision 1.59 diff -C2 -d -r1.58 -r1.59 *** fkernel.f 5 Oct 2008 20:29:32 -0000 1.58 --- fkernel.f 8 Oct 2008 20:24:56 -0000 1.59 *************** *** 3503,3512 **** COMPILE (.") ," ; IMMEDIATE : SLITERAL ( a1 n1 -- ) \ compile string as literal COMPILE (S") HERE >R ", 0 C, ALIGN R> COUNT \N->CRLF ; IMMEDIATE - in-application - \ tjz, as posted from Bernd Paysan Thu, 05 Jul 2001 Thanks Bernd --- 3503,3512 ---- COMPILE (.") ," ; IMMEDIATE + in-application + : SLITERAL ( a1 n1 -- ) \ compile string as literal COMPILE (S") HERE >R ", 0 C, ALIGN R> COUNT \N->CRLF ; IMMEDIATE \ tjz, as posted from Bernd Paysan Thu, 05 Jul 2001 Thanks Bernd *************** *** 5777,5782 **** KEY ( k_ESC ) 27 = IF ABORT THEN ; - IN-SYSTEM - : .S ( -- ) \ display current data stack contents ?STACK --- 5777,5780 ---- *************** *** 5795,5798 **** --- 5793,5798 ---- THEN DROP ; + in-system + : .NAME ( xt -- ) \ show name, if can't find name, show address DUP >NAME DUP NAME> ['] [UNKNOWN] = \ if not found |
|
From: CamilleForth <cam...@us...> - 2008-10-08 09:17:49
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv5844 Modified Files: Debug.f Window.f Log Message: minor changes in comments cdo - Oct 8 2008 Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Window.f 16 Jun 2008 03:35:16 -0000 1.20 --- Window.f 8 Oct 2008 09:15:07 -0000 1.21 *************** *** 814,834 **** \ [cdo] removed WM_WIN32FORTH message handling (replaced by WM_COPYDATA) ! comment: ! :M Win32Forth: ( h m w l -- ) ! \ *G If you define an application specific window class or window object ! \ ** that redefines the method Win32Forth: to perform its own function ! \ ** rather than just doing a beep, then your window will be able to handle ! \ ** interprocess messages. ! forth-msg-chain do-chain ;M :M DefWindowProc: ( h m w l -- res ) \ *G Call the DefaultWindowProc for the window. - 2 pick WM_WIN32FORTH = - if Win32Forth: [ self ] - else DefaultWindowProc - then ;M - comment; - :M DefWindowProc: ( h m w l -- res ) - \ *G Call the DefaultWindowProc for the window. DefaultWindowProc ;M --- 814,834 ---- \ [cdo] removed WM_WIN32FORTH message handling (replaced by WM_COPYDATA) ! \ also removed Dexh comments which would continue to appear in doc ! \ :M Win32Forth: ( h m w l -- ) ! \ If you define an application specific window class or window object ! \ that redefines the method Win32Forth: to perform its own function ! \ rather than just doing a beep, then your window will be able to handle ! \ interprocess messages. ! \ forth-msg-chain do-chain ;M ! \ ! \ :M DefWindowProc: ( h m w l -- res ) ! \ Call the DefaultWindowProc for the window. ! \ 2 pick WM_WIN32FORTH = ! \ if Win32Forth: [ self ] ! \ else DefaultWindowProc ! \ then ;M :M DefWindowProc: ( h m w l -- res ) \ *G Call the DefaultWindowProc for the window. DefaultWindowProc ;M Index: Debug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** Debug.f 2 Sep 2008 07:01:20 -0000 1.21 --- Debug.f 8 Oct 2008 09:15:07 -0000 1.22 *************** *** 670,679 **** ' _.rstack is .rstack ! : unbug ( -- ) ip @ if ip 2@ ! ip off then ; ! : unbp \ synonym of UNBUG unbug ; --- 670,679 ---- ' _.rstack is .rstack ! : unbug ( -- ) \ terminates debugging ip @ if ip 2@ ! ip off then ; ! : unbp ( -- ) \ synonym of UNBUG unbug ; *************** *** 728,741 **** until tracing ; ! : ndbg ( - ) \ Switch to the normal stack ['] .s-base is debug-.s ; ! : debug ( -<name>- ) \ Shows the normal stack while debugging ndbg ' adebug ; ! : fdbg ( - ) \ Switch to the floating point stack ['] f.s-debug is debug-.s ; ! : fdebug ( -<name>- ) \ Shows the floating point stack while debugging fdbg ' adebug ; --- 728,744 ---- until tracing ; ! : ndbg ( - ) \ while debugging, use "F" command (do Forth command) ! \ and execute this word to display data stack ['] .s-base is debug-.s ; ! : debug ( -<name>- ) \ start the debugger to debug the word <name> ! \ put any parameters needed by <name> before ndbg ' adebug ; ! : fdbg ( - ) \ while debugging, use "F" command (do Forth command) ! \ and execute this word to display floating stack ['] f.s-debug is debug-.s ; ! : fdebug ( -<name>- ) \ same as DEBUG but displays floating data stack fdbg ' adebug ; *************** *** 744,748 **** \ see also mDebug for methods ! : bp \ synonym of DEBUG debug ; --- 747,751 ---- \ see also mDebug for methods ! : bp ( -<name>- ) \ synonym of DEBUG debug ; |
|
From: CamilleForth <cam...@us...> - 2008-10-08 09:06:33
|
Update of /cvsroot/win32forth/win32forth/doc/Noble stuff In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv4640/Noble stuff Log Message: Directory /cvsroot/win32forth/win32forth/doc/Noble stuff added to the repository |
|
From: George H. <geo...@us...> - 2008-10-05 20:29:40
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19547 Modified Files: FLOAT.F Order.f Log Message: Moved a few problematic words to application space to reduce number of in system warnings Index: Order.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Order.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Order.f 15 May 2008 04:28:26 -0000 1.5 --- Order.f 5 Oct 2008 20:29:32 -0000 1.6 *************** *** 31,35 **** GET-CURRENT SWAP SET-CURRENT ; ! in-system : (VOC) ( #threads -<name>- -- ) --- 31,35 ---- GET-CURRENT SWAP SET-CURRENT ; ! in-previous : (VOC) ( #threads -<name>- -- ) *************** *** 52,55 **** --- 52,57 ---- CONTEXT @ SET-CURRENT ; + in-application + : ALSO ( -- ) \ Duplicates topmost vocabulary in the search order CONTEXT DUP CELL+ #VOCS 1- CELLS MOVE ; *************** *** 64,70 **** --- 66,76 ---- THEN VOC-ALSO ; + in-previous + : FORTH-WORDLIST ( -- wid ) ['] FORTH VCFA>VOC ; + in-application + : GET-ORDER ( -- widn .. wid1 n ) \ get the whole search-order DEPTH >R *************** *** 85,88 **** --- 91,96 ---- THEN ; + in-previous + : +ORDER ( wid - ) \ add wid to search order >R GET-ORDER 1+ R> SWAP SET-ORDER ; Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.52 retrieving revision 1.53 diff -C2 -d -r1.52 -r1.53 *** FLOAT.F 3 Aug 2008 11:08:47 -0000 1.52 --- FLOAT.F 5 Oct 2008 20:29:32 -0000 1.53 *************** *** 499,503 **** external ! in-system : FLITERAL ( Compilation fs: r -- ; Runtime fs: -- r ) \ ANSI Floating --- 499,503 ---- external ! \ in-system : FLITERAL ( Compilation fs: r -- ; Runtime fs: -- r ) \ ANSI Floating *************** *** 510,516 **** postpone flit here CELLS/FLOAT cells allot f! ! ; immediate ! in-application \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 510,516 ---- postpone flit here CELLS/FLOAT cells allot f! ! ; immediate \ moved to application space to avoid messages. ! \ in-application \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
|
From: George H. <geo...@us...> - 2008-10-05 20:29:40
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19547/kernel Modified Files: fkernel.f Log Message: Moved a few problematic words to application space to reduce number of in system warnings Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.57 retrieving revision 1.58 diff -C2 -d -r1.57 -r1.58 *** fkernel.f 2 Sep 2008 07:01:23 -0000 1.57 --- fkernel.f 5 Oct 2008 20:29:32 -0000 1.58 *************** *** 3300,3309 **** : REVEAL ( -- ) LAST @ N>LINK LAST-LINK @ ! ; ! in-system : LITERAL ( n -- ) ! COMPILE LIT , ; IMMEDIATE ! in-application : CHAR ( <c> -- char ) \ parse char from input stream and put its ascii --- 3300,3309 ---- : REVEAL ( -- ) LAST @ N>LINK LAST-LINK @ ! ; ! \ in-system : LITERAL ( n -- ) ! COMPILE LIT , ; IMMEDIATE \ moved to application space to avoid messages. ! \ in-application : CHAR ( <c> -- char ) \ parse char from input stream and put its ascii *************** *** 4583,4591 **** : (IS) ( xt -- ) @(IP) >BODY ! ; - in-system - : ?IS ( xt -- xt ) \ error if not a deferred word DUP @ DODEFER <> THROW_NOTDEFER ?THROW ; : IS ( xt -<name>- ) \ assign xt to a defer STATE @ --- 4583,4591 ---- : (IS) ( xt -- ) @(IP) >BODY ! ; : ?IS ( xt -- xt ) \ error if not a deferred word DUP @ DODEFER <> THROW_NOTDEFER ?THROW ; + in-system + : IS ( xt -<name>- ) \ assign xt to a defer STATE @ |
|
From: George H. <geo...@us...> - 2008-10-05 20:29:40
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19547/lib Modified Files: toolbar.f Log Message: Moved a few problematic words to application space to reduce number of in system warnings Index: toolbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/toolbar.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** toolbar.f 27 Dec 2006 18:30:18 -0000 1.7 --- toolbar.f 5 Oct 2008 20:29:32 -0000 1.8 *************** *** 105,109 **** ; : ;ToolBarTable ( addr1 addr2 12 -- ) ! \in-system-ok 12 ?pairs here rot ! \ Resolve address of cust. table here 0 , \ no of buttons in cust. table --- 105,109 ---- ; : ;ToolBarTable ( addr1 addr2 12 -- ) ! 12 ?pairs here rot ! \ Resolve address of cust. table here 0 , \ no of buttons in cust. table *************** *** 123,127 **** ; : ToolBarTableExtraButtons: ( addr 12 -- addr 12 ) ! \in-system-ok dup 12 ?pairs over dup @ swap cell- ! ; --- 123,127 ---- ; : ToolBarTableExtraButtons: ( addr 12 -- addr 12 ) ! dup 12 ?pairs over dup @ swap cell- ! ; *************** *** 129,133 **** 2>r rot ( bidx) , swap ( id) , ( state) c, 2r> swap ( style) c, 0 w, 0 , ( txtno) , ! \in-system-ok dup 12 ?pairs over 1 swap +! ; : SeparatorButton, ( addr 12 -- addr 12 ) --- 129,133 ---- 2>r rot ( bidx) , swap ( id) , ( state) c, 2r> swap ( style) c, 0 w, 0 , ( txtno) , ! dup 12 ?pairs over 1 swap +! ; : SeparatorButton, ( addr 12 -- addr 12 ) *************** *** 168,172 **** ; : ;ToolStrings ( addr 13 -- ) ! \in-system-ok 13 ?pairs 0 , align here over ! \ Resolve address of address table --- 168,172 ---- ; : ;ToolStrings ( addr 13 -- ) ! 13 ?pairs 0 , align here over ! \ Resolve address of address table *************** *** 182,186 **** ; : ts," ( 13 -<string">- 13 ) ! \in-system-ok dup 13 ?pairs state @ if true abort" Illegal use of tool string compiler" --- 182,186 ---- ; : ts," ( 13 -<string">- 13 ) ! dup 13 ?pairs state @ if true abort" Illegal use of tool string compiler" |
|
From: 情報局 <fnl...@ya...> - 2008-10-05 07:07:50
|
※携帯から女性相手に直メールOK♪ ⇒プロフィールにアドレス公開中女性68% http://gtx754.com/fbb/?me=yHLDk8H4HH4DD5O69L8B7H72H969vF9HH8RR8D8FH9zL5PQ6FB882AwBHbB4H4HD5Ljji8Nj8 ※会う前に写真と生声で確認OK♪ ⇒写真・Tel番完全公開 http://gtx754.com/fbb/?me=yHLDk8H4HH4DD5O69L8B7H72H969vF9HH8RR8D8FH9zL5PQ6FB882AwBHbB4H4HD5Ljji8Nj8 完全無料だから、女性のPFを見るだけでも充分満足ですよ〜♪ ◆女性アドレス見放題特典◆も貴方のものにして下さい。 http://gtx754.com/fbb/?me=yHLDk8H4HH4DD5O69L8B7H72H969vF9HH8RR8D8FH9zL5PQ6FB882AwBHbB4H4HD5Ljji8Nj8 手続きは登録だけで[完了] 配信拒否はこちら no...@re... |
|
From: Ezra B. <ezr...@us...> - 2008-10-01 03:18:07
|
Update of /cvsroot/win32forth/win32forth/Help/html/IDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18509/Help/html/IDE Modified Files: IDE.gif Log Message: Doc updates. EAB Index: IDE.gif =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/IDE/IDE.gif,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvs98h74J and /tmp/cvsTLszh1 differ |
1040 messages has been excluded from this view by a project administrator.
