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...> - 2013-07-21 00:08:52
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv26722 Modified Files: Console1.f ConsoleStatbar.f Log Message: Added Id: Index: ConsoleStatbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleStatbar.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** ConsoleStatbar.f 27 Feb 2012 15:04:54 -0000 1.11 --- ConsoleStatbar.f 21 Jul 2013 00:08:50 -0000 1.12 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + \ ConsoleStatbar.f (was ConsoleStabarNew.f) Index: Console1.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/Console1.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Console1.f 22 Apr 2013 19:53:53 -0000 1.10 --- Console1.f 21 Jul 2013 00:08:50 -0000 1.11 *************** *** 1,2 **** --- 1,4 ---- + \ $Id$ + \ Console1.f ( was Console1New.f) |
|
From: George H. <geo...@us...> - 2013-07-21 00:04:18
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv26411 Modified Files: setup.exe Log Message: latest setup Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.49 retrieving revision 1.50 diff -C2 -d -r1.49 -r1.50 Binary files /tmp/cvszBhLNq and /tmp/cvsRgUDqG differ |
|
From: George H. <geo...@us...> - 2013-07-20 23:58:25
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv26079 Modified Files: fkernel.f Log Message: Removed DOESS> check entirely (it never worked anyway). Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.94 retrieving revision 1.95 diff -C2 -d -r1.94 -r1.95 *** fkernel.f 20 Jul 2013 20:35:00 -0000 1.94 --- fkernel.f 20 Jul 2013 23:58:22 -0000 1.95 *************** *** 4678,4687 **** |: ?TO_CHECK ( xt -- xt_body ) DUP @ >R ! DUP DOES>? SWAP \ no DOES> words ! >BODY DUP CELL+ @ -1 = ROT OR \ no special words ! R@ DOCON = OR \ no constants ! R@ DOCOL = OR \ no colon definitions ! R@ DOVAR = OR \ no variables ! R> DODEFER = OR \ no deferred words THROW_NOTVALUE ?THROW ; --- 4678,4686 ---- |: ?TO_CHECK ( xt -- xt_body ) DUP @ >R ! >BODY DUP CELL+ @ -1 = \ no special words ! R@ DOCON = OR \ no constants ! R@ DOCOL = OR \ no colon definitions ! R@ DOVAR = OR \ no variables ! R> DODEFER = OR \ no deferred words THROW_NOTVALUE ?THROW ; |
|
From: George H. <geo...@us...> - 2013-07-20 20:56:28
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv19219 Modified Files: version.f Log Message: Updated to V6.15.02 Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** version.f 11 Mar 2013 00:19:30 -0000 1.21 --- version.f 20 Jul 2013 20:56:26 -0000 1.22 *************** *** 3,7 **** cr .( Loading META version info) ! 61501 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61502 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: George H. <geo...@us...> - 2013-07-20 20:55:10
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv19178 Modified Files: Win32Forth.nsi Log Message: Updated to V6.15.02 Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** Win32Forth.nsi 11 Mar 2013 00:15:22 -0000 1.16 --- Win32Forth.nsi 20 Jul 2013 20:55:08 -0000 1.17 *************** *** 8,14 **** !define VER_MAJOR 6 !define VER_MINOR 15 ! !define VER_REVISION 01 ! !define VER_DISPLAY "6.15.01" ! !define VER_FILE "61501" !define VER_FOLDER "615xx" --- 8,14 ---- !define VER_MAJOR 6 !define VER_MINOR 15 ! !define VER_REVISION 02 ! !define VER_DISPLAY "6.15.02" ! !define VER_FILE "61502" !define VER_FOLDER "615xx" |
|
From: George H. <geo...@us...> - 2013-07-20 20:35:03
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17673 Modified Files: fkernel.f Log Message: Corrected fault in TO not throwing errors for DOES> words. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.93 retrieving revision 1.94 diff -C2 -d -r1.93 -r1.94 *** fkernel.f 30 Jun 2013 14:30:21 -0000 1.93 --- fkernel.f 20 Jul 2013 20:35:00 -0000 1.94 *************** *** 4678,4687 **** |: ?TO_CHECK ( xt -- xt_body ) DUP @ >R ! >BODY DUP CELL+ @ -1 = \ no special words ! R@ DOCON = OR \ no constants ! R@ DOCOL = OR \ no colon definitions ! R@ DODOES = OR \ no DOES> words ! R@ DOVAR = OR \ no variables ! R> DODEFER = OR \ no deferred words THROW_NOTVALUE ?THROW ; --- 4678,4687 ---- |: ?TO_CHECK ( xt -- xt_body ) DUP @ >R ! DUP DOES>? SWAP \ no DOES> words ! >BODY DUP CELL+ @ -1 = ROT OR \ no special words ! R@ DOCON = OR \ no constants ! R@ DOCOL = OR \ no colon definitions ! R@ DOVAR = OR \ no variables ! R> DODEFER = OR \ no deferred words THROW_NOTVALUE ?THROW ; |
|
From: George H. <geo...@us...> - 2013-07-14 12:43:23
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12137 Modified Files: Ed_HyperLink.F Log Message: Added initialisation of (source) so commandline is handled correctly. Index: Ed_HyperLink.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_HyperLink.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Ed_HyperLink.F 2 Sep 2008 06:38:41 -0000 1.8 --- Ed_HyperLink.F 14 Jul 2013 12:43:20 -0000 1.9 *************** *** 365,368 **** --- 365,369 ---- : command-options ( -- ) \ command line parsing command-args off + cmdline (source) 2! BEGIN /parse-word dup 1+ c@ '/' = \ either '/' |
|
From: George H. <geo...@us...> - 2013-07-13 21:31:40
|
Update of /cvsroot/win32forth/win32forth/src/gdi In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13236 Modified Files: gdiDC.f Log Message: Modified ExtFloodFill: as suggested by Dirk Bruehl. Index: gdiDC.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** gdiDC.f 26 Apr 2008 11:14:36 -0000 1.10 --- gdiDC.f 13 Jul 2013 21:31:38 -0000 1.11 *************** *** 1134,1138 **** \ ** encountered. This style is useful for filling areas with multicolored boundaries. swap GetObjectColor swap ! 4reverse hObject call BitBlt ?win-error ;M \ ---------------------------------------------------------------------- --- 1134,1138 ---- \ ** encountered. This style is useful for filling areas with multicolored boundaries. swap GetObjectColor swap ! 4reverse hObject call ExtFloodFill ?win-error ;M \ ---------------------------------------------------------------------- |
|
From: George H. <geo...@us...> - 2013-06-30 14:30:24
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1961 Modified Files: fkernel.f Log Message: Adjusted user area to account for variables at negative offset. Windows Exceptions now caught properly (again). Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.92 retrieving revision 1.93 diff -C2 -d -r1.92 -r1.93 *** fkernel.f 15 May 2013 17:22:11 -0000 1.92 --- fkernel.f 30 Jun 2013 14:30:21 -0000 1.93 *************** *** 5817,5820 **** --- 5817,5821 ---- mov fs: 0x14 , edx \ save in TIB at pvArbitrary mov RP0 [UP] , eax \ save RP0 + sub esp, # USEROFFS \ subtract user offset push dword # EXCEPT-HANDLER \ err handler address |
|
From: Jos v.d.V. <jo...@us...> - 2013-06-28 12:41:27
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv24492 Modified Files: CommandWindow.f Log Message: Jos: Solving the F12 crash Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** CommandWindow.f 24 Dec 2012 16:16:45 -0000 1.31 --- CommandWindow.f 28 Jun 2013 12:41:24 -0000 1.32 *************** *** 1217,1222 **** ;M ! :M WM_KEYDOWN ( h m w l -- res ) ! over KeysOn IF dup HandleKeyDown: self THEN Case \ these are the codes specified in keyboard.cpp VK_F1 of 0x10001 endof --- 1217,1222 ---- ;M ! :M WM_KEYDOWN ( h m w l -- res ) \ 4 ! drop KeysOn IF dup HandleKeyDown: self THEN Case \ these are the codes specified in keyboard.cpp VK_F1 of 0x10001 endof *************** *** 1247,1255 **** EndCase dup ! IF ! VK_CONTROL call GetKeyState 32768 and IF 0x40000 or THEN VK_SHIFT call GetKeyState 32768 and IF 0x80000 or THEN THEN ! dup IF LogKeyStrokes KeysOn IF dup HandleKeys THEN PutKey: self THEN 0 ;M --- 1247,1259 ---- EndCase dup ! IF VK_CONTROL call GetKeyState 32768 and IF 0x40000 or THEN VK_SHIFT call GetKeyState 32768 and IF 0x80000 or THEN THEN ! dup IF LogKeyStrokes KeysOn ! IF HandleKeys ! ELSE drop ! THEN ! ELSE drop ! THEN 0 ;M |
|
From: Jos v.d.V. <jo...@us...> - 2013-06-28 11:51:11
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv21388 Modified Files: Window.f Log Message: Jos Simplified it further Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Window.f 28 Jun 2013 11:29:05 -0000 1.31 --- Window.f 28 Jun 2013 11:51:08 -0000 1.32 *************** *** 683,687 **** :M WM_KEYDOWN ( h m w l -- res ) ! swap case VK_F1 of K_F1 vga-skey endof VK_F2 of K_F2 vga-skey endof --- 683,687 ---- :M WM_KEYDOWN ( h m w l -- res ) ! drop case VK_F1 of K_F1 vga-skey endof VK_F2 of K_F2 vga-skey endof *************** *** 708,712 **** VK_NEXT of K_PGDN vga-skey endof endcase ! drop 0 ;M : set-mousexy ( l -- ) --- 708,712 ---- VK_NEXT of K_PGDN vga-skey endof endcase ! 0 ;M : set-mousexy ( l -- ) |
|
From: Jos v.d.V. <jo...@us...> - 2013-06-28 11:29:07
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv20128 Modified Files: Window.f Log Message: Jos bugfix in wm_keydown Index: Window.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** Window.f 23 Mar 2013 22:00:33 -0000 1.30 --- Window.f 28 Jun 2013 11:29:05 -0000 1.31 *************** *** 683,687 **** :M WM_KEYDOWN ( h m w l -- res ) ! over case VK_F1 of K_F1 vga-skey endof VK_F2 of K_F2 vga-skey endof --- 683,687 ---- :M WM_KEYDOWN ( h m w l -- res ) ! swap case VK_F1 of K_F1 vga-skey endof VK_F2 of K_F2 vga-skey endof *************** *** 708,712 **** VK_NEXT of K_PGDN vga-skey endof endcase ! 0 ;M : set-mousexy ( l -- ) --- 708,712 ---- VK_NEXT of K_PGDN vga-skey endof endcase ! drop 0 ;M : set-mousexy ( l -- ) |
|
From: George H. <geo...@us...> - 2013-06-14 01:02:39
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18056 Modified Files: FLOAT.F Log Message: Fixed bug in Fdrop and F2drop Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.60 retrieving revision 1.61 diff -C2 -d -r1.60 -r1.61 *** FLOAT.F 15 May 2013 17:22:11 -0000 1.60 --- FLOAT.F 14 Jun 2013 01:02:35 -0000 1.61 *************** *** 575,579 **** \ *G Remove r from the floating-point stack. fstack-check_1 ! sub FSP_MEMORY , # B/FLOAT float; --- 575,580 ---- \ *G Remove r from the floating-point stack. fstack-check_1 ! sub ecx , # B/FLOAT ! mov FSP_MEMORY , ecx float; *************** *** 653,657 **** \ *G Remove the top 2 FP stack entries. fstack-check_2 ! sub FSP_MEMORY , # B/FLOAT 2* float; --- 654,659 ---- \ *G Remove the top 2 FP stack entries. fstack-check_2 ! sub ecx , # B/FLOAT 2* ! mov FSP_MEMORY , ecx float; |
|
From: Jos v.d.V. <jo...@us...> - 2013-06-02 21:57:43
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1746 Modified Files: Primutil.f Log Message: Jos correcting comments Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.61 retrieving revision 1.62 diff -C2 -d -r1.61 -r1.62 *** Primutil.f 1 Jun 2013 12:30:48 -0000 1.61 --- Primutil.f 2 Jun 2013 21:57:41 -0000 1.62 *************** *** 748,752 **** 11 constant win2008r2 \ Windows Server 2008 R2 12 constant win7 \ Windows 7 ! 13 constant win8 \ To check for a version, say Win2K or greater, try WINVER WIN2K >= --- 748,753 ---- 11 constant win2008r2 \ Windows Server 2008 R2 12 constant win7 \ Windows 7 ! 13 constant win8 \ Windows 8 ! \ To check for a version, say Win2K or greater, try WINVER WIN2K >= *************** *** 796,800 **** endof 2 of r@ 154 + c@ \ Product Type ! VER_NT_WORKSTATION = if win8 \ Windows 7 else win2008r2 \ Windows Server 2008 R2 then --- 797,801 ---- endof 2 of r@ 154 + c@ \ Product Type ! VER_NT_WORKSTATION = if win8 \ Windows 8 else win2008r2 \ Windows Server 2008 R2 then |
|
From: Jos v.d.V. <jo...@us...> - 2013-06-01 12:34:08
|
Update of /cvsroot/win32forth/win32forth In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14512 Modified Files: Win32for.cfg Log Message: Jos Adapted for W8 Index: Win32for.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth/Win32for.cfg,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Win32for.cfg 7 Feb 2010 07:27:19 -0000 1.3 --- Win32for.cfg 1 Jun 2013 12:34:05 -0000 1.4 *************** *** 3,7 **** \ All system configurations should be in this file ! .( Win32Forth: a 32 Bit Forth for Windows 95/98/ME/NT4/W2K/XP/VISTA and WIN7) .version .cversion --- 3,7 ---- \ All system configurations should be in this file ! .( Win32Forth: a 32 Bit Forth for Windows 95/98/ME/NT4/W2K/XP/VISTA/W7 and W8) .version .cversion |
|
From: Jos v.d.V. <jo...@us...> - 2013-06-01 12:30:50
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv14204 Modified Files: Primutil.f Utils.f Log Message: Jos Adapted for Windows8 Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** Utils.f 11 Jul 2011 18:50:40 -0000 1.29 --- Utils.f 1 Jun 2013 12:30:48 -0000 1.30 *************** *** 68,71 **** --- 68,72 ---- WIN2008R2 of ." SERVER 2008 R2" endof WIN7 of ." WIN7" endof + WIN8 of ." WIN8" endof endcase ; Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.60 retrieving revision 1.61 diff -C2 -d -r1.60 -r1.61 *** Primutil.f 22 Apr 2013 19:53:53 -0000 1.60 --- Primutil.f 1 Jun 2013 12:30:48 -0000 1.61 *************** *** 748,752 **** 11 constant win2008r2 \ Windows Server 2008 R2 12 constant win7 \ Windows 7 ! \ To check for a version, say Win2K or greater, try WINVER WIN2K >= --- 748,752 ---- 11 constant win2008r2 \ Windows Server 2008 R2 12 constant win7 \ Windows 7 ! 13 constant win8 \ To check for a version, say Win2K or greater, try WINVER WIN2K >= *************** *** 795,800 **** then endof endcase - endof drop -1 dup \ unknown windows version --- 795,805 ---- then endof + 2 of r@ 154 + c@ \ Product Type + VER_NT_WORKSTATION = if win8 \ Windows 7 + else win2008r2 \ Windows Server 2008 R2 + then + endof + drop -2 dup \ unknown product Type endcase endof drop -1 dup \ unknown windows version |
|
From: Jos v.d.V. <jo...@us...> - 2013-05-17 21:33:51
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv15555 Modified Files: Winlib.f Log Message: Increasing the section *PROCS Index: Winlib.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Winlib.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Winlib.f 24 Jun 2011 17:02:02 -0000 1.5 --- Winlib.f 17 May 2013 21:33:47 -0000 1.6 *************** *** 13,17 **** \ init the pdp area; see the structure PDP in the kernel ! APP-HERE DUP DUP 0x3000 DUP APP-ALLOT + PDP 2 CELLS+ ! PDP CELL+ ! PDP ! \ ---------------------- Debugging/Info routines ---------------------- --- 13,18 ---- \ init the pdp area; see the structure PDP in the kernel ! APP-HERE DUP DUP 0xC300 DUP APP-ALLOT + PDP 2 CELLS+ ! PDP CELL+ ! PDP ! ! \ ---------------------- Debugging/Info routines ---------------------- |
|
From: George H. <geo...@us...> - 2013-05-15 17:22:14
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28242 Modified Files: FLOAT.F Log Message: dofvalue! and dofvalue+! now use cfa-code. Added maxascii to support xchars (work in progress). Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.59 retrieving revision 1.60 diff -C2 -d -r1.59 -r1.60 *** FLOAT.F 15 May 2013 12:00:31 -0000 1.59 --- FLOAT.F 15 May 2013 17:22:11 -0000 1.60 *************** *** 427,441 **** internal ! code (dofvalue! ( adr -- ) ( fs: r -- ) ! mov ebx, -8 [ebx] [edi] fstack-check_1 >FPU \ to st(0) ! fstp FSIZE DATASTACK_MEMORY pop ebx float; ! ! code (dofvalue+! ( adr -- ) ( fs: r -- ) ! mov ebx, -12 [ebx] [edi] fstack-check_1 >FPU --- 427,442 ---- internal ! cfa-code dofvalue! ( fs: r -- ) ! push ebx ! mov ebx, -4 [eax] fstack-check_1 >FPU \ to st(0) ! fstp FSIZE datastack_memory pop ebx float; ! cfa-code dofvalue+! ( fs: r -- ) ! push tos ! mov ebx, -8 [eax] fstack-check_1 >FPU *************** *** 446,452 **** float; - cfa-func dofvalue! (dofvalue! ; - cfa-func dofvalue+! (dofvalue+! ; - external --- 447,450 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2013-05-15 12:04:39
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv8363 Modified Files: Opengl.f Log Message: Adapted for the new +FTO Index: Opengl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Opengl.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Opengl.f 2 Aug 2008 10:16:51 -0000 1.6 --- Opengl.f 15 May 2013 12:04:37 -0000 1.7 *************** *** 224,235 **** synonym fsqr fsqrt - : (+fto ( n 'cell-array - ) >body dup f@ f+ f! ; - - : +fto - state @ \ compiletime: ( FS: n - ) ( -<name_fvalue>- ) - \in-system-ok if postpone ['] compile (+fto - else ' (+fto \ runtime: ( FS: n - ) ( 'fvalue - ) - then ; immediate - : val>+$,. ( str$ val - ) s>d (ud,.) rot +place ; --- 224,227 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2013-05-15 12:00:34
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv8034 Modified Files: FLOAT.F Log Message: Optimized dofvalue! and dofvalue+! Not clear why I can't use cfa-code Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.58 retrieving revision 1.59 diff -C2 -d -r1.58 -r1.59 *** FLOAT.F 22 Apr 2013 19:53:53 -0000 1.58 --- FLOAT.F 15 May 2013 12:00:31 -0000 1.59 *************** *** 427,432 **** internal ! cfa-func dofvalue! 2 cells - @ f! ; \ to be optimised ! cfa-func dofvalue+! 3 cells - @ f+! ; \ to be optimised external --- 427,451 ---- internal ! code (dofvalue! ( adr -- ) ( fs: r -- ) ! mov ebx, -8 [ebx] [edi] ! fstack-check_1 ! >FPU \ to st(0) ! fstp FSIZE DATASTACK_MEMORY ! pop ebx ! float; ! ! ! code (dofvalue+! ( adr -- ) ( fs: r -- ) ! mov ebx, -12 [ebx] [edi] ! fstack-check_1 ! >FPU ! fld FSIZE DATASTACK_MEMORY ! faddp st(1), st ! fstp fsize datastack_memory ! pop tos ! float; ! ! cfa-func dofvalue! (dofvalue! ; ! cfa-func dofvalue+! (dofvalue+! ; external *************** *** 442,450 **** : FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating ext \ *G Define a floating point value initialised from the FP stack. - \ create f, - \ ;code - \ fld fsize 4 [eax] - \ FPU> - \ float; create here 0 , dofvalue! , dofvalue+! , here swap ! f, ;code --- 461,464 ---- *************** *** 454,487 **** float; - \ in-previous - \ - \ code _fto ( FS: n - ; 'fvalue - ) - \ fstack-check_1 - \ >FPU - \ add ebx, # cell \ >body - \ fstp FSIZE DATASTACK_MEMORY - \ pop ebx - \ float; - \ - \ in-system - \ : FTO \ W32F Floating extra synonym fto to \ W32F Floating extra \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d ! \ *P Store r into -<fvalue>-. If -<fvalue>- is not defined with fvalue then memory may ! \ ** be corrupted; no checks are made so the user should take care. FTO should not be ! \ ** POSTPONEd. ! \ state @ ! \ if postpone ['] postpone _fto ! \ else ' _fto ! \ then ; IMMEDIATE synonym +fto +to \ W32F Floating extra \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d ! \ *P Add r into -<fvalue>-. If -<fvalue>- is not defined with fvalue then memory may ! \ ** be corrupted; no checks are made so the user should take care. +FTO should not be ! \ ** POSTPONEd. --- 468,481 ---- float; synonym fto to \ W32F Floating extra \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d ! \ *P Store r into -<fvalue>-. synonym +fto +to \ W32F Floating extra \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d ! \ *P Add r into -<fvalue>-. |
|
From: George H. <geo...@us...> - 2013-04-22 19:53:56
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv28876 Modified Files: FLOAT.F KEYBOARD.F Primutil.f Log Message: Added 200X words (work in progress). Tidied up some comments. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.59 retrieving revision 1.60 diff -C2 -d -r1.59 -r1.60 *** Primutil.f 20 Mar 2013 23:51:21 -0000 1.59 --- Primutil.f 22 Apr 2013 19:53:53 -0000 1.60 *************** *** 16,19 **** --- 16,23 ---- DECIMAL \ start everything in decimal + : HOLDS ( c-addr u -- ) \ 200X core-ext + \ *G Add string c-addr u to pictured numeric output buffer. + begin ?dup while 1- 2dup + c@ hold repeat drop ; + \ -------------------- Address Conversion ----------------------------------- *************** *** 193,196 **** --- 197,223 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ Move multiple values to and from return stack + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + + : N>R ( i*x +n -- ) ( R: -- j*x +n ) \ "n-to-r" 200X TOOLS EXT + \ *G Interpretation: must be paired with NR> on the same line. + \ ** Execution: Remove n+1 items from the data stack and store them for later retrieval by NR>. + \ ** The return stack may be used to store the data. Until this data has been retrieved by NR>: + \ ** this data will not be overwritten by a subsequent invocation of N>R and + \ ** a program may not access data placed on the return stack before the invocation of + \ ** N>R. + + \ *P NOTE: +n MUST not exceed 8191 (or 1023 during callbacks) minus the number of values previously + \ ** placed on the return stack OTHERWISE the user area (or for callbacks the data stack will be + \ ** corrupted probably causing a CRASH. + r> over begin ?dup while >r rot r> swap >r 1- repeat swap >r >r ; + + : NR> ( -- i*x +n ) ( R: j*x +n -- ) \ "n-r-from" 200X TOOLS EXT + \ *G Interpretation: must be paired with N>R on the same line. + \ ** Execution: Retrieve the items previously stored by an invocation of N>R. n is the number of items + \ ** placed on the data stack. It is an ambiguous condition if NR> is used with data not stored by N>R. + r> r> dup begin ?dup while r> swap >r -rot r> 1- repeat swap >r ; + + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 439,443 **** \ *P \b Note: \d This word is obsolescent and is included as a concession to existing \ ** implementations. Its function is superseded by >NUMBER. ! char+ 64 >number drop ; VARIABLE SPAN ( -- a-addr ) \ ANSI Core Ext --- 466,470 ---- \ *P \b Note: \d This word is obsolescent and is included as a concession to existing \ ** implementations. Its function is superseded by >NUMBER. ! char+ 64 >number drop ; deprecated VARIABLE SPAN ( -- a-addr ) \ ANSI Core Ext *************** *** 446,453 **** \ *P \b Note: \d This word is obsolescent and is included as a concession to existing \ ** implementations. : EXPECT ( a1 n1 -- ) \ accept the text ! accept span ! ; : UNUSED ( -- n1 ) \ return unused HERE in BYTES --- 473,484 ---- \ *P \b Note: \d This word is obsolescent and is included as a concession to existing \ ** implementations. + deprecated + DPR-WARNING? DPR-WARNING-OFF : EXPECT ( a1 n1 -- ) \ accept the text ! accept span ! ; deprecated ! ! to DPR-WARNING? : UNUSED ( -- n1 ) \ return unused HERE in BYTES Index: KEYBOARD.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/KEYBOARD.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** KEYBOARD.F 15 May 2008 04:28:26 -0000 1.2 --- KEYBOARD.F 22 Apr 2013 19:53:53 -0000 1.3 *************** *** 22,29 **** in-application ! 0x01 fkey K_F1 0x02 fkey K_F2 0x03 fkey K_F3 ! 0x04 fkey K_F4 0x05 fkey K_F5 0x06 fkey K_F6 ! 0x07 fkey K_F7 0x08 fkey K_F8 0x09 fkey K_F9 ! 0x10 fkey K_F10 0x11 fkey K_F11 0x12 fkey K_F12 in-system --- 22,43 ---- in-application ! 0x01 fkey K-F1 0x02 fkey K-F2 0x03 fkey K-F3 ! 0x04 fkey K-F4 0x05 fkey K-F5 0x06 fkey K-F6 ! 0x07 fkey K-F7 0x08 fkey K-F8 0x09 fkey K-F9 ! 0x10 fkey K-F10 0x11 fkey K-F11 0x12 fkey K-F12 ! ! SYNONYM K_F1 K-F1 ! SYNONYM K_F2 K-F2 ! SYNONYM K_F3 K-F3 ! SYNONYM K_F4 K-F4 ! SYNONYM K_F5 K-F5 ! SYNONYM K_F6 K-F6 ! SYNONYM K_F7 K-F7 ! SYNONYM K_F8 K-F8 ! SYNONYM K_F9 K-F9 ! SYNONYM K_F10 K-F10 ! SYNONYM K_F11 K-F11 ! SYNONYM K_F12 K-F12 ! in-system *************** *** 34,51 **** in-application ! 0x00 splkey K_HOME 0x01 splkey K_END 0x02 splkey K_INSERT ! 0x03 splkey K_DELETE 0x04 splkey K_LEFT 0x05 splkey K_RIGHT ! 0x06 splkey K_UP 0x07 splkey K_DOWN 0x08 splkey K_SCROLL ! 0x09 splkey K_PAUSE 0x10 splkey K_PGUP 0x11 splkey K_PGDN ! : +K_SHIFT ( c1 -- c2 ) shift_mask or ; \ add in shift bit \ 07/18/95 08:56 tjz ALT keys are for Windows Use ONLY!" ! : +K_ALT ( c1 -- c2 ) alt_mask or ; \ add in the Alt bit : +K_CONTROL ( c1 -- c2 ) dup proc_mask 0x7FF or and upc 'A' 'Z' between if 0xFF1F and \ handle control letters ! else control_mask or \ add in control bit then ; --- 48,79 ---- in-application ! 0x00 splkey K-HOME 0x01 splkey K-END 0x02 splkey K-INSERT ! 0x03 splkey K-DELETE 0x04 splkey K-LEFT 0x05 splkey K-RIGHT ! 0x06 splkey K-UP 0x07 splkey K-DOWN 0x08 splkey K-SCROLL ! 0x09 splkey K-PAUSE 0x10 splkey K-PRIOR 0x11 splkey K-NEXT ! SYNONYM K_HOME K-HOME ! SYNONYM K_END K-END ! SYNONYM K_INSERT K-INSERT ! SYNONYM K_DELETE K-DELETE ! SYNONYM K_LEFT K-LEFT ! SYNONYM K_RIGHT K-RIGHT ! SYNONYM K_UP K-UP ! SYNONYM K_DOWN K-DOWN ! SYNONYM K_SCROLL K-SCROLL ! SYNONYM K_PAUSE K-PAUSE ! SYNONYM K_PGDN K-NEXT ! SYNONYM K_PGUP K-PRIOR ! ! ! : +K_SHIFT ( c1 -- c2 ) K-SHIFT-MASK or ; \ add in shift bit \ 07/18/95 08:56 tjz ALT keys are for Windows Use ONLY!" ! : +K_ALT ( c1 -- c2 ) K-ALT-MASK or ; \ add in the Alt bit : +K_CONTROL ( c1 -- c2 ) dup proc_mask 0x7FF or and upc 'A' 'Z' between if 0xFF1F and \ handle control letters ! else K-CTRL-MASK or \ add in control bit then ; Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.57 retrieving revision 1.58 diff -C2 -d -r1.57 -r1.58 *** FLOAT.F 14 Feb 2013 20:05:47 -0000 1.57 --- FLOAT.F 22 Apr 2013 19:53:53 -0000 1.58 *************** *** 425,428 **** --- 425,435 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + internal + + cfa-func dofvalue! 2 cells - @ f! ; \ to be optimised + cfa-func dofvalue+! 3 cells - @ f+! ; \ to be optimised + + external + in-system *************** *** 431,455 **** create B/FLOAT allot ; ! : FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating extra \ *G Define a floating point value initialised from the FP stack. ! create f, ;code ! fld fsize 4 [eax] FPU> float; ! in-previous ! ! code _fto ( FS: n - ; 'fvalue - ) ! fstack-check_1 ! >FPU ! add ebx, # cell \ >body ! fstp FSIZE DATASTACK_MEMORY ! pop ebx ! float; ! ! in-system ! : FTO \ W32F Floating extra \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d --- 438,471 ---- create B/FLOAT allot ; ! in-previous ! ! : FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating ext \ *G Define a floating point value initialised from the FP stack. ! \ create f, ! \ ;code ! \ fld fsize 4 [eax] ! \ FPU> ! \ float; ! create here 0 , dofvalue! , dofvalue+! , here swap ! f, ;code ! mov ecx, 4 [eax] ! fld fsize 0 [ecx] FPU> float; ! \ in-previous ! \ ! \ code _fto ( FS: n - ; 'fvalue - ) ! \ fstack-check_1 ! \ >FPU ! \ add ebx, # cell \ >body ! \ fstp FSIZE DATASTACK_MEMORY ! \ pop ebx ! \ float; ! \ ! \ in-system ! \ : FTO \ W32F Floating extra ! synonym fto to \ W32F Floating extra \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d *************** *** 457,464 **** \ ** be corrupted; no checks are made so the user should take care. FTO should not be \ ** POSTPONEd. ! state @ ! if postpone ['] postpone _fto ! else ' _fto ! then ; IMMEDIATE in-previous --- 473,488 ---- \ ** be corrupted; no checks are made so the user should take care. FTO should not be \ ** POSTPONEd. ! \ state @ ! \ if postpone ['] postpone _fto ! \ else ' _fto ! \ then ; IMMEDIATE ! ! synonym +fto +to \ W32F Floating extra ! \ *G \b Interpretation: ( -<fvalue>- -- fs: r -- ) \n ! \ ** Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) \d ! \ *P Add r into -<fvalue>-. If -<fvalue>- is not defined with fvalue then memory may ! \ ** be corrupted; no checks are made so the user should take care. +FTO should not be ! \ ** POSTPONEd. ! in-previous *************** *** 514,517 **** --- 538,576 ---- \ in-application + in-system + + also assembler + + : DFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + \ *G Skip leading space delimiters. Parse name delimited by a space. Offset is the first + \ ** double-float aligned value greater than or equal to n1. n2 = offset + 1 double-float. + \ ** Create a definition for name with the execution semantics given below. + \ ** name Execution: ( addr1 -- addr2 ) + \ ** Add the offset calculated during the compile time action to addr1 giving the + \ ** double-float aligned address addr2. + double field+ ; + + : FFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + \ *G Skip leading space delimiters. Parse name delimited by a space. Offset is the first + \ ** float aligned value greater than or equal to n1. n2 = offset + 1 float. + \ ** Create a definition for name with the execution semantics given below. + \ ** name Execution: ( addr1 -- addr2 ) + \ ** Add the offset calculated during the compile time action to addr1 giving the float + \ ** aligned address addr2. + fsize field+ ; + + : SFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + \ *G Skip leading space delimiters. Parse name delimited by a space. Offset is the first + \ ** singe-float aligned value greater than or equal to n1. n2 = offset + 1 single-float. + \ ** Create a definition for name with the execution semantics given below. + \ ** name Execution: ( addr1 -- addr2 ) + \ ** Add the offset calculated during the compile time action to addr1 giving the + \ ** single-float aligned address addr2. + float field+ ; + + previous + + in-previous + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ Floating point stack operators |
|
From: George H. <geo...@us...> - 2013-04-22 19:20:23
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv27314/html Modified Files: class-controls.htm dexh-float.htm dexh-switch.htm Log Message: Updated dexed files and help database Index: dexh-float.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-float.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dexh-float.htm 15 Mar 2013 00:25:01 -0000 1.2 --- dexh-float.htm 22 Apr 2013 19:20:21 -0000 1.3 *************** *** 98,104 **** </p><p><b><code>: FVARIABLE ( compiling "name" -- ; run-time -- addr) \ ANSI Floating </code></b><br>Define a floating-point variable in the dictionary. The contents are undefined. ! </p><p><b><code>: FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating extra </code></b><br>Define a floating point value initialised from the FP stack. ! </p><p><b><code>: FTO \ W32F Floating extra </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> --- 98,104 ---- </p><p><b><code>: FVARIABLE ( compiling "name" -- ; run-time -- addr) \ ANSI Floating </code></b><br>Define a floating-point variable in the dictionary. The contents are undefined. ! </p><p><b><code>: FVALUE ( compiling "name" -- ; fs: r -- ; run-time FS: -- r ) \ W32F Floating ext </code></b><br>Define a floating point value initialised from the FP stack. ! </p><p><b><code>synonym fto to \ W32F Floating extra </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> *************** *** 106,109 **** --- 106,115 ---- be corrupted; no checks are made so the user should take care. FTO should not be POSTPONEd. + </p><p><b><code>synonym +fto +to \ W32F Floating extra + </code></b><br><b> Interpretation: ( -<fvalue>- -- fs: r -- ) <br /> + Compilation: ( -<fvalue>- -- Run-time: FS: r -- ) </b> + </p><p>Add r into -<fvalue>-. If -<fvalue>- is not defined with fvalue then memory may + be corrupted; no checks are made so the user should take care. +FTO should not be + POSTPONEd. </p><p><b><code>: FCONSTANT ( "name" -- ; fs: r -- ) \ ANSI Floating </code></b><br> <b> Interpretation: ( "name" ; fs: r -- ) </b> <br /> *************** *** 120,123 **** --- 126,150 ---- <b> Run-time: ( fs: -- r ) </b> <br /> Place r on the floating-point stack. + </p><p><b><code>: DFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + </code></b><br>Skip leading space delimiters. Parse name delimited by a space. Offset is the first + double-float aligned value greater than or equal to n1. n2 = offset + 1 double-float. + Create a definition for name with the execution semantics given below. + name Execution: ( addr1 -- addr2 ) + Add the offset calculated during the compile time action to addr1 giving the + double-float aligned address addr2. + </p><p><b><code>: FFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + </code></b><br>Skip leading space delimiters. Parse name delimited by a space. Offset is the first + float aligned value greater than or equal to n1. n2 = offset + 1 float. + Create a definition for name with the execution semantics given below. + name Execution: ( addr1 -- addr2 ) + Add the offset calculated during the compile time action to addr1 giving the float + aligned address addr2. + </p><p><b><code>: SFIELD: ( n1 "name" -- n2 ) ( addr -- 'addr ) + </code></b><br>Skip leading space delimiters. Parse name delimited by a space. Offset is the first + singe-float aligned value greater than or equal to n1. n2 = offset + 1 single-float. + Create a definition for name with the execution semantics given below. + name Execution: ( addr1 -- addr2 ) + Add the offset calculated during the compile time action to addr1 giving the + single-float aligned address addr2. </p><a name="Sec#3"></a> <h3>FP Stack operations Index: class-controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/class-controls.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** class-controls.htm 15 Mar 2013 00:25:01 -0000 1.5 --- class-controls.htm 22 Apr 2013 19:20:21 -0000 1.6 *************** *** 760,770 **** </code></b><br>Spinner Control Class. </p><p>This class is a combination of an up-down control and a Text Box (the buddy). ! </p><p><b><code>:m start: ( parent -- ) </code></b><br>Start the control. ! </p><p><b><code>:m TheBox: ( -- spinbox ) </code></b><br>Object address of the text box for directly manipulating it (though it shouldn't really be done). ! </p><p><b><code>:m Move: ( x y w h -- ) </code></b><br>Move the text box to the specified positon and the up-down control as well. ! </p><p><b><code>:m SetFont: ( hndl -- ) </code></b><br>Set the font of the text box. </p><p><b><code>:M Close: ( -- ) --- 760,772 ---- </code></b><br>Spinner Control Class. </p><p>This class is a combination of an up-down control and a Text Box (the buddy). ! </p><p><b><code>:M start: ( parent -- ) </code></b><br>Start the control. ! </p><p><b><code>:M TheBox: ( -- spinbox ) </code></b><br>Object address of the text box for directly manipulating it (though it shouldn't really be done). ! </p><p><b><code>:M Move: ( x y w h -- ) </code></b><br>Move the text box to the specified positon and the up-down control as well. ! </p><p><b><code>:M Select: ( -- ) ! </code></b><br>Selects the text inside the spinner ! </p><p><b><code>:M SetFont: ( hndl -- ) </code></b><br>Set the font of the text box. </p><p><b><code>:M Close: ( -- ) Index: dexh-switch.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-switch.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** dexh-switch.htm 15 Mar 2013 00:25:01 -0000 1.3 --- dexh-switch.htm 22 Apr 2013 19:20:21 -0000 1.4 *************** *** 29,33 **** of the stack ) if no matching condition has been added to the switch and open it for adding conditions. </p><p><b><code>: [SWITCH ( "name" "default" -- head ) \ FORTH SYSTEM ! </code></b><br>Define a new switch "name" whose default action is -<default>- and open it for adding conditions. </p><p><b><code>: SWITCH: ( "name" "<code to perform> ;" -- head ) \ FORTH SYSTEM --- 29,33 ---- of the stack ) if no matching condition has been added to the switch and open it for adding conditions. </p><p><b><code>: [SWITCH ( "name" "default" -- head ) \ FORTH SYSTEM ! </code></b><br>Define a new switch "name" whose default action is "default" and open it for adding conditions. </p><p><b><code>: SWITCH: ( "name" "<code to perform> ;" -- head ) \ FORTH SYSTEM *************** *** 35,39 **** forth code (up to the terminating ;). The forth words must call the switch "name" as a recursive call with "name" to perform recursion, since ! RECURSE won't work. </p><p><b><code>: [+SWITCH ( "name" -- head ) \ FORTH SYSTEM </code></b><br>Open existing SWITCH "name" for additional conditions. --- 35,39 ---- forth code (up to the terminating ;). The forth words must call the switch "name" as a recursive call with "name" to perform recursion, since ! RECURSE merely runs the inline code again. </p><p><b><code>: [+SWITCH ( "name" -- head ) \ FORTH SYSTEM </code></b><br>Open existing SWITCH "name" for additional conditions. |
|
From: Jos v.d.V. <jo...@us...> - 2013-04-13 15:34:24
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv3193 Modified Files: UpDownControl.f Log Message: Jos: Added Select: Index: UpDownControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/UpDownControl.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** UpDownControl.f 15 Mar 2013 00:23:07 -0000 1.6 --- UpDownControl.f 13 Apr 2013 15:34:21 -0000 1.7 *************** *** 106,128 **** TextBox TheBox ! :m start: ( parent -- ) \ *G Start the control. dup Start: TheBox \ both must have same parent Start: super ! ;m ! :m TheBox: ( -- spinbox ) \ *G Object address of the text box for directly manipulating it (though it shouldn't really be done). ! Addr: TheBox ;m ! :m Move: ( x y w h -- ) \ *G Move the text box to the specified positon and the up-down control as well. Move: TheBox \ allow the updowncontrol to move with the editcontrol ! GetHandle: TheBox SetBuddy: self ;m ! :m SetFont: ( hndl -- ) \ *G Set the font of the text box. ! Setfont: TheBox ;m :M Close: ( -- ) --- 106,136 ---- TextBox TheBox ! :M start: ( parent -- ) \ *G Start the control. dup Start: TheBox \ both must have same parent Start: super ! ;M ! :M TheBox: ( -- spinbox ) \ *G Object address of the text box for directly manipulating it (though it shouldn't really be done). ! Addr: TheBox ;M ! :M Move: ( x y w h -- ) \ *G Move the text box to the specified positon and the up-down control as well. Move: TheBox \ allow the updowncontrol to move with the editcontrol ! GetHandle: TheBox SetBuddy: self ;M ! :M Select: ( -- ) ! \ *G Selects the text inside the spinner ! SetFocus: TheBox ! 0 0 word-join EM_SETSEL ! GetHandle: TheBox Call SendMessage ;M ! ! ! :M SetFont: ( hndl -- ) \ *G Set the font of the text box. ! Setfont: TheBox ;M ! :M Close: ( -- ) |
|
From: Jos v.d.V. <jo...@us...> - 2013-04-01 12:22:05
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv15833 Modified Files: Debug.f Log Message: Jos Just some comment Index: Debug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** Debug.f 20 Mar 2013 23:51:21 -0000 1.24 --- Debug.f 1 Apr 2013 12:22:02 -0000 1.25 *************** *** 792,797 **** loop 2drop cell - ! ; ! : patchinto ( a1 -<name1 name2>- ) ! 1 #patchinto ; --- 792,797 ---- loop 2drop cell - ! ; ! : patchinto ( a1 -<name1 name2>- ) \ Patch a1 into the definition name1 ! 1 #patchinto ; \ at the first occurance of name2 |
|
From: George H. <geo...@us...> - 2013-03-30 21:02:51
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18936/kernel Modified Files: Tag: V614XX fkernel.f version.f Log Message: Bug fixes for CMOVE CMOVE> WORD RESIZE RECURSE and RESTORE-INPUT Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.63 retrieving revision 1.63.2.1 diff -C2 -d -r1.63 -r1.63.2.1 *** fkernel.f 21 Oct 2009 21:57:53 -0000 1.63 --- fkernel.f 30 Mar 2013 21:02:48 -0000 1.63.2.1 *************** *** 655,659 **** pop edi pop esi ! repnz movsb mov esi, eax xor edi, edi --- 655,659 ---- pop edi pop esi ! rep movsb mov esi, eax xor edi, edi *************** *** 672,676 **** dec esi std ! repnz movsb cld mov esi, eax --- 672,676 ---- dec esi std ! rep movsb cld mov esi, eax *************** *** 2615,2624 **** \ -------------------- 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. CODE WORD ( char "<chars>ccc<char>" -- c-addr ) \ parse the input stream \ for a string delimited by char. Skip all leading char. Give a ! \ counted string (the string is ended with a null, not included \ in count). Use only inside colon definition. push esi --- 2615,2621 ---- \ -------------------- Parse Input Stream -------------------- CODE WORD ( char "<chars>ccc<char>" -- c-addr ) \ parse the input stream \ for a string delimited by char. Skip all leading char. Give a ! \ counted string (the string is ended with a blank, not included \ in count). Use only inside colon definition. push esi *************** *** 2678,2683 **** add edi, # 1 rep movsb \ move rest of word ! xor eax, eax \ clear EAX ! stosb \ append a NULL to pocket xor edi, edi \ edi is zero pop esi --- 2675,2680 ---- add edi, # 1 rep movsb \ move rest of word ! mov eax, # 32 ! stosb \ append a BLANK to pocket xor edi, edi \ edi is zero pop esi *************** *** 3289,3293 **** : IMMEDIATE ( -- ) \ mark the last header created as an immediate word ! LAST @ N>BFA BFA_IMMEDIATE TOGGLE ; \ Deprecated words will be removed from Win32Forth some time in the --- 3286,3290 ---- : IMMEDIATE ( -- ) \ mark the last header created as an immediate word ! LAST @ N>BFA BFA_IMMEDIATE over c@ or swap c! ; \ Deprecated words will be removed from Win32Forth some time in the *************** *** 3309,3313 **** : CHAR ( <c> -- char ) \ parse char from input stream and put its ascii \ code on stack. If <c> is longer than a char, takes its first char. ! BL WORD 1+ C@ ; : ' ( <name> -- cfa ) \ get cfa of parsed word --- 3306,3310 ---- : CHAR ( <c> -- char ) \ parse char from input stream and put its ascii \ code on stack. If <c> is longer than a char, takes its first char. ! BL WORD COUNT 0<> SWAP C@ AND ; : ' ( <name> -- cfa ) \ get cfa of parsed word *************** *** 3952,3956 **** : realloc ( n addr -- addr' fl ) mem>link dup malloc-unlink \ remove from list ! if nip TRUE \ if not in list exit \ then fail the function then --- 3949,3953 ---- : realloc ( n addr -- addr' fl ) mem>link dup malloc-unlink \ remove from list ! if nip link>mem TRUE \ if not in list exit \ then fail the function then *************** *** 4508,4519 **** PARMS-INIT DOCOL COMPILE, !CSP ] ; : :NONAME ( -- xt ) \ start a headerless colon definition ! ALIGN HERE :COLONDEF ; ! : : ( -<name>- ) \ Forth's primary function defining word ! HEADER HIDE :COLONDEF ; : RECURSE ( -- ) \ cause current definition to execute itself ! ?COMP LAST @ NAME> COMPILE, ; IMMEDIATE --- 4505,4518 ---- PARMS-INIT DOCOL COMPILE, !CSP ] ; + | VARIABLE ANON ANON OFF + : :NONAME ( -- xt ) \ start a headerless colon definition ! ALIGN HERE DUP ANON ! :COLONDEF ; ! : : ( "name" -- ) \ Forth's primary function defining word ! HEADER HIDE ANON OFF :COLONDEF ; : RECURSE ( -- ) \ cause current definition to execute itself ! ?COMP ANON @ DUP 0= IF DROP LAST @ NAME> THEN COMPILE, ; IMMEDIATE *************** *** 4989,4992 **** --- 4988,4993 ---- IF LOADFILE COUNT CUR-FILE PLACE \ make current again + source-position 0 source-id reposition-file THROW_FILEREADFAIL ?THROW + TIB MAXSTRING SOURCE-ID READ-LINE THROW_FILEREADFAIL ?THROW drop (SOURCE) ! THEN FALSE ; *************** *** 5943,5947 **** FALSE TO ?:M ( -- f1 ) THROW_METH;M ?THROW \ Methods must END in ;M ! ?CSP REVEAL PARMS IF COMPILE UNNESTP --- 5944,5948 ---- FALSE TO ?:M ( -- f1 ) THROW_METH;M ?THROW \ Methods must END in ;M ! ?CSP ANON @ 0= IF REVEAL THEN ANON OFF PARMS IF COMPILE UNNESTP Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.16.2.2 retrieving revision 1.16.2.3 diff -C2 -d -r1.16.2.2 -r1.16.2.3 *** version.f 23 Mar 2013 21:38:04 -0000 1.16.2.2 --- version.f 30 Mar 2013 21:02:48 -0000 1.16.2.3 *************** *** 3,7 **** cr .( Loading META version info) ! 61402 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61403 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
1040 messages has been excluded from this view by a project administrator.
