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: Jos v.d.V. <jo...@us...> - 2007-03-10 15:05:06
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19721 Modified Files: Primutil.f Log Message: Jos: A simulation of an unknown windows system revealed that a correction was needed. Sorry. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** Primutil.f 10 Mar 2007 14:18:50 -0000 1.21 --- Primutil.f 10 Mar 2007 15:05:02 -0000 1.22 *************** *** 702,708 **** endof 6 of winvista endof endcase endof - drop -1 dup \ unknown windows version endcase to winver r>drop _localfree --- 702,708 ---- endof 6 of winvista endof + drop -1 dup \ unknown windows version endcase endof endcase to winver r>drop _localfree |
|
From: Jos v.d.V. <jo...@us...> - 2007-03-10 14:45:28
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv12235 Modified Files: setup.exe Log Message: Jos: Reduced the size by using the batchfile for setup.exe Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 Binary files /tmp/cvsmfCJ4z and /tmp/cvsvYIYeT differ |
|
From: Jos v.d.V. <jo...@us...> - 2007-03-10 14:32:06
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6860 Modified Files: setup.exe Log Message: Jos: The updated setup with right Primutil.f Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 Binary files /tmp/cvsMdffSd and /tmp/cvsUlA6g9 differ |
|
From: Jos v.d.V. <jo...@us...> - 2007-03-10 14:18:54
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1098 Modified Files: Primutil.f Log Message: Jos: Resolved the meta-compiler problem. The stack is clean again. Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Primutil.f 4 Mar 2007 21:55:12 -0000 1.20 --- Primutil.f 10 Mar 2007 14:18:50 -0000 1.21 *************** *** 704,709 **** endcase endof - endcase to winver drop -1 dup \ unknown windows version r>drop _localfree ; --- 704,709 ---- endcase endof drop -1 dup \ unknown windows version + endcase to winver r>drop _localfree ; |
|
From: Jos v.d.V. <jo...@us...> - 2007-03-10 13:02:32
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2486 Modified Files: LoadProject.f Log Message: Jos: Moved it to the system-area Index: LoadProject.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/LoadProject.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** LoadProject.f 28 Feb 2007 12:05:05 -0000 1.2 --- LoadProject.f 10 Mar 2007 13:02:27 -0000 1.3 *************** *** 3,6 **** --- 3,8 ---- Needs src\lib\w_search.f + IN-SYSTEM + map-handle ProjectHndl *************** *** 24,32 **** temp$ count "path-only" pad place pad dup +null count "chdir ! cr ." Loading " temp$ count 2dup type \in-system-ok included else abort" Invalid projectfile" then ; \s --- 26,35 ---- temp$ count "path-only" pad place pad dup +null count "chdir ! cr ." Loading " temp$ count 2dup type included else abort" Invalid projectfile" then ; + IN-PREVIOUS \s |
|
From: Alex M. <ale...@us...> - 2007-03-04 21:55:27
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3075 Modified Files: Primutil.f Log Message: arm: correct error in winver for Vista Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** Primutil.f 28 Sep 2006 10:16:48 -0000 1.19 --- Primutil.f 4 Mar 2007 21:55:12 -0000 1.20 *************** *** 667,670 **** --- 667,671 ---- 7 constant winxp 8 constant win2003 + 9 constant winvista \ To check for a version, say Win2K or greater, try WINVER WIN2K >= *************** *** 672,676 **** 0 value winver ! : winver-init ( -- n ) \ get windows version 148 dup _localalloc dup>r ! \ set length of structure r@ call GetVersionEx \ call os for version --- 673,677 ---- 0 value winver ! : winver-init ( -- ) \ get windows version 148 dup _localalloc dup>r ! \ set length of structure r@ call GetVersionEx \ call os for version *************** *** 700,706 **** --- 701,709 ---- endcase endof + 6 of winvista endof endcase endof endcase to winver + drop -1 dup \ unknown windows version r>drop _localfree ; |
|
From: Ezra B. <ezr...@us...> - 2007-03-04 02:59:29
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1542/src/lib Modified Files: ExUtils.f bitmap.f Log Message: Small change to using arrow keys to size a selection box. Bug fix in bitmap.f. EAB Index: bitmap.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/bitmap.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** bitmap.f 27 Dec 2006 18:30:18 -0000 1.7 --- bitmap.f 4 Mar 2007 02:58:40 -0000 1.8 *************** *** 443,449 **** then sprite-bitmap ?dup ! if sprite-bitmap call DeleteObject drop 0 to sprite-bitmap ! then 0 to &bitmap Close: super ;M --- 443,449 ---- then sprite-bitmap ?dup ! if Call DeleteObject drop 0 to sprite-bitmap ! then 0 to &bitmap Close: super ;M Index: ExUtils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** ExUtils.f 24 Feb 2007 18:11:05 -0000 1.8 --- ExUtils.f 4 Mar 2007 02:58:40 -0000 1.9 *************** *** 198,200 **** --- 198,205 ---- z" " conhndl Call SetWindowText drop ; + : >str ( n -- addr cnt ) \ converts n to counted string, return unique buffer + (.) new$ dup>r place + r@ +NULL + r> count ; + \s |
|
From: Ezra B. <ezr...@us...> - 2007-03-04 02:58:44
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1542/apps/ForthForm Modified Files: FORMOBJECT.F Log Message: Small change to using arrow keys to size a selection box. Bug fix in bitmap.f. EAB Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** FORMOBJECT.F 3 Mar 2007 15:31:30 -0000 1.18 --- FORMOBJECT.F 4 Mar 2007 02:58:40 -0000 1.19 *************** *** 751,770 **** : adjust-left ( -- ) selecting? not ?exit ! Left: FormBox 1- Top: FormBox Right: FormBox Bottom: FormBox SetRect: FormBox Paint: self ; : adjust-right ( -- ) selecting? not ?exit ! Left: FormBox Top: FormBox Right: FormBox 1+ Bottom: FormBox SetRect: FormBox Paint: self ; : adjust-up ( -- ) selecting? not ?exit ! Left: FormBox Top: FormBox 1- Right: FormBox Bottom: FormBox SetRect: FormBox Paint: self ; : adjust-down ( -- ) selecting? not ?exit ! Left: FormBox Top: FormBox Right: FormBox Bottom: FormBox 1+ SetRect: FormBox Paint: self ; --- 751,770 ---- : adjust-left ( -- ) selecting? not ?exit ! Left: FormBox cell- Top: FormBox Right: FormBox Bottom: FormBox SetRect: FormBox Paint: self ; : adjust-right ( -- ) selecting? not ?exit ! Left: FormBox Top: FormBox Right: FormBox cell+ Bottom: FormBox SetRect: FormBox Paint: self ; : adjust-up ( -- ) selecting? not ?exit ! Left: FormBox Top: FormBox cell- Right: FormBox Bottom: FormBox SetRect: FormBox Paint: self ; : adjust-down ( -- ) selecting? not ?exit ! Left: FormBox Top: FormBox Right: FormBox Bottom: FormBox cell+ SetRect: FormBox Paint: self ; |
|
From: Jos v.d.V. <jo...@us...> - 2007-03-03 15:31:37
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18947 Modified Files: FORMOBJECT.F Log Message: Jos: Enabled F9 again. Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** FORMOBJECT.F 13 Jan 2007 02:14:08 -0000 1.17 --- FORMOBJECT.F 3 Mar 2007 15:31:30 -0000 1.18 *************** *** 1331,1334 **** --- 1331,1335 ---- K_DOWN of adjust-down endof K_F12 of K_F12 PushKey: TheMainWindow endof + K_F9 of K_F9 PushKey: TheMainWindow endof K_F1 of K_F1 PushKey: TheMainWindow endof endcase ;M |
|
From: Alex M. <ale...@us...> - 2007-03-02 15:17:00
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25040 Modified Files: dis486.f optliterals.f Log Message: arm: simplify disassembler for intended SEE improvements Index: dis486.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** dis486.f 1 Feb 2007 23:01:39 -0000 1.12 --- dis486.f 2 Mar 2007 15:16:54 -0000 1.13 *************** *** 3,16 **** \ 80386 Disassembler ! \ rbs - changed vars and functions to hint at parameters used and what they do. ! \ Also removed "ptr" from "byte ptr" and "word ptr" as it is unnecessary and ! \ inconsistent with "dword" which did not append "ptr" January 5th, 2003 ! \ Andrew McKewan, April 1994 ! \ Tom Zimmer, 05/18/94 port to Win32f ! \ Modified to word in decimal 08/03/94 10:04 tjz ! \ 06-??-95 SMuB NEXT sequence defined in FKERNEL ! \ 06-21-95 SMuB removed redundant COUNT calls from txb, lxs. ! \ 04-??-97 Extended by C.L. to include P6 and MMX instructions cr .( Loading 80486 Disassembler...) --- 3,31 ---- \ 80386 Disassembler ! \ ------------------------------------------------------------------------ ! \ Copyright [c] 2005 by Alex McDonald (alex at rivadpm dot com) ! \ Dirk Busch (dirk.yahoo @ schneider-busch.de) ! \ George Hubert (georgeahubert at yahoo.co.uk) ! ! \ Based on work by Tom Zimmer and others ! ! \ ! \ This program is free software; you can redistribute it and/or modify it ! \ under the terms of the GNU General Public License as published by the ! \ Free Software Foundation; either version 2 of the License, or <at your ! \ option> any later version. ! \ ! \ This program is distributed in the hope that it will be useful, but ! \ WITHOUT ANY WARRANTY; without even the implied warranty of ! \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ! \ General Public License for more details. ! \ ! \ You should have received a copy of the GNU General Public License along ! \ with this program; if not, write to the Free Software Foundation, Inc., ! \ 675 Mass Ave, Cambridge, MA 02139, USA. ! \ ! ! \ ------------------------------------------------------------------------ cr .( Loading 80486 Disassembler...) *************** *** 102,106 **** : cmnt-col 60 col ; \ set to comment field ! : .ss ( n adr len w ) oper-col >r drop swap r@ * + r> type opnd-col ; : .# ( -- ) ." # " ; : ., ( -- ) ." , " ; --- 117,121 ---- : cmnt-col 60 col ; \ set to comment field ! : .ss ( n adr w ) oper-col >r swap r@ * + r> type opnd-col ; : .# ( -- ) ." # " ; : ., ( -- ) ." , " ; *************** *** 109,124 **** : ??? ( n1 -- ) .sop" ???" drop ; ! : .word ." word " ; ! : .dword ." dword " ; ! : .float ." float " ; ! : .double ." double " ; ! : .extended ." extended " ; ! : .qword ." qword " ; ! : .tbyte ." tbyte " ; ! : .far ." far " ; ! : .al, ." al, " ; ! : .ax, ." ax, " ; ! : .eax, ." eax, " ; : .sop-fwait .sop" fwait" ; --- 124,140 ---- : ??? ( n1 -- ) .sop" ???" drop ; ! : .word ." word " ; ! : .dword ." dword " ; ! : .float ." float " ; ! : .double ." double " ; ! : .extended ." extended " ; ! : .qword ." qword " ; ! : .tbyte ." tbyte " ; ! : .far ." far " ; ! : .al, ." al, " ; ! : .ax, ." ax, " ; ! : .eax, ." eax, " ; ! : .dx ." dx" ; : .sop-fwait .sop" fwait" ; *************** *** 136,180 **** \ r/op includes general, special, segment, MMX registers or extended opcode ! : bits0-1 ( n -- n' ) 3 and ; \ isolate bits 0 thru 1 ! : bits0-2 ( n -- n' ) 7 and ; \ isolate bits 0 thru 2 ! : bits0-3 ( n -- n' ) 15 and ; \ isolate bits 0 thru 3 : bits3-5 ( n -- n' ) 3 rshift bits0-2 ; \ isolate bits 3 thru 5 : bits3-4 ( n -- n' ) 3 rshift bits0-1 ; \ isolate bits 3 thru 4 ! : .[ ( -- ) ." [" ; ! : .] ( -- ) ." ]" ; ! : .*2] ( -- ) ." *2]" ; ! : .*4] ( -- ) ." *4]" ; ! : .*8] ( -- ) ." *8]" ; ! ! : .cnd-code(op) ( code -- ) bits0-3 S" o nob aee nebea s nsp npl geleg " 2 .ss ; \ was tttn ! : .sreg(XX-NNN-XXX) ( sreg -- ) bits3-5 S" escsssdsfsgsXXXX" 2 .ss ; ! : .creg(XX-NNN-XXX) ( eee -- ) bits3-5 S" cr0???cr2cr3cr4?????????" 3 .ss ; ! : .dreg(XX-NNN-XXX) ( eee -- ) bits3-5 S" dr0dr1dr2dr3??????dr6dr7" 3 .ss ; ! : .treg(XX-NNN-XXX) ( eee -- ) bits3-5 S" ?????????tr3tr4tr5tr6tr7" 3 .ss ; \ obsolete ! ! : .regm(XX-XXX-NNN) ( n -- ) bits0-2 S" mm0mm1mm2mm3mm4mm5mm6mm7" 3 .ss ; ! : .reg8(XX-XXX-NNN) ( n -- ) bits0-2 S" alcldlblahchdhbh" 2 .ss ; ! : .reg16(XX-XXX-NNN) ( n -- ) bits0-2 S" axcxdxbxspbpsidi" 2 .ss ; ! : .reg32(XX-XXX-NNN) ( n -- ) bits0-2 S" eaxecxedxebxespebpesiedi" 3 .ss ; ! ! : .[reg32](XX-XXX-NNN) ( n -- ) bits0-2 .[ .reg32(XX-XXX-NNN) .] ; ! : .[reg*2](XX-XXX-NNN) ( n -- ) bits0-2 .[ .reg32(XX-XXX-NNN) .*2] ; ! : .[reg*4](XX-XXX-NNN) ( n -- ) bits0-2 .[ .reg32(XX-XXX-NNN) .*4] ; ! : .[reg*8](XX-XXX-NNN) ( n -- ) bits0-2 .[ .reg32(XX-XXX-NNN) .*8] ; ! : .[base16](XX-XXX-1NN) ( r/m -- ) bits0-1 S" [si][di][bp][bx]" 4 .ss ; \ r/m = 4, 5, 6, 7 ! : .[ind16](XX-XXX-0NN) ( r/m -- ) bits0-1 S" [bx+si][bx+di][bp+si][bp+di]" 7 .ss ; \ r/m = 0, 1, 2, 3 : .reg16/32(XX-XXX-NNN) ( n -- ) dis.16-bit-data if .reg16(XX-XXX-NNN) else .reg32(XX-XXX-NNN) then ; - : .[reg16](XX-XXX-NNN) ( r/m -- ) bits0-2 dup 4 < if .[ind16](XX-XXX-0NN) else .[base16](XX-XXX-1NN) then ; ! : .reg(XX-XXX-NNN) ( a n -- a ) ! dis.mmx-reg? ! if .regm(XX-XXX-NNN) ! else dis.size ! if .reg16/32(XX-XXX-NNN) ! else .reg8(XX-XXX-NNN) ! then then ; --- 152,187 ---- \ r/op includes general, special, segment, MMX registers or extended opcode ! : bits0-1 ( n -- n' ) %0011 and ; \ isolate bits 0 thru 1 ! : bits0-2 ( n -- n' ) %0111 and ; \ isolate bits 0 thru 2 ! : bits0-3 ( n -- n' ) %1111 and ; \ isolate bits 0 thru 3 : bits3-5 ( n -- n' ) 3 rshift bits0-2 ; \ isolate bits 3 thru 5 : bits3-4 ( n -- n' ) 3 rshift bits0-1 ; \ isolate bits 3 thru 4 + : bit3 ( n -- f ) %1000 and ; + : bit2 ( n -- f ) %0100 and ; + : bit1 ( n -- f ) %0010 and ; + : bit0 ( n -- f ) %0001 and ; ! : .cnd-code ( code -- ) bits0-3 z" o nob aee nebea s nsp npl geleg " 2 .ss ; \ was tttn ! : .sreg(XX-NNN-XXX) ( sreg -- ) bits3-5 z" escsssdsfsgs????" 2 .ss ; ! : .creg(XX-NNN-XXX) ( eee -- ) bits3-5 z" cr0???cr2cr3cr4?????????" 3 .ss ; ! : .dreg(XX-NNN-XXX) ( eee -- ) bits3-5 z" dr0dr1dr2dr3??????dr6dr7" 3 .ss ; ! : .treg(XX-NNN-XXX) ( eee -- ) bits3-5 z" ?????????tr3tr4tr5tr6tr7" 3 .ss ; \ obsolete ! : .regm(XX-XXX-NNN) ( n -- ) bits0-2 z" mm0mm1mm2mm3mm4mm5mm6mm7" 3 .ss ; ! : .reg8(XX-XXX-NNN) ( n -- ) bits0-2 z" alcldlblahchdhbh" 2 .ss ; ! : .reg16(XX-XXX-NNN) ( n -- ) bits0-2 z" axcxdxbxspbpsidi" 2 .ss ; ! : .reg32(XX-XXX-NNN) ( n -- ) bits0-2 z" eaxecxedxebxespebpesiedi" 3 .ss ; : .reg16/32(XX-XXX-NNN) ( n -- ) dis.16-bit-data if .reg16(XX-XXX-NNN) else .reg32(XX-XXX-NNN) then ; ! : .[ind16](XX-XXX-0NN) ( r/m -- ) bits0-1 z" [bx+si][bx+di][bp+si][bp+di]" 7 .ss ; \ r/m = 0, 1, 2, 3 ! : .[base16](XX-XXX-1NN) ( r/m -- ) bits0-1 z" [si][di][bp][bx]" 4 .ss ; \ r/m = 4, 5, 6, 7 ! : .[reg16](XX-XXX-NNN) ( r/m -- ) bit2 if .[ind16](XX-XXX-0NN) else .[base16](XX-XXX-1NN) then ; ! ! : .reg(XX-XXX-NNN) ( n -- ) ! dis.mmx-reg? if .regm(XX-XXX-NNN) ! else dis.size if .reg16/32(XX-XXX-NNN) ! else .reg8(XX-XXX-NNN) ! then then ; *************** *** 206,209 **** --- 213,222 ---- THEN show-name ; + : .[reg32 ( n -- ) ." [" bits0-2 .reg32(XX-XXX-NNN) ; \ prints [reg + : .[reg32](XX-XXX-NNN) ( n -- ) .[reg32 ." ]" ; + : .[reg*2](XX-XXX-NNN) ( n -- ) .[reg32 ." *2]" ; + : .[reg*4](XX-XXX-NNN) ( n -- ) .[reg32 ." *4]" ; + : .[reg*8](XX-XXX-NNN) ( n -- ) .[reg32 ." *8]" ; + : .[index]=SS-III-BBB ( sib -- ) parse/sib over 4 = \ ( b i s ) i=4? *************** *** 270,287 **** : r,r/m() ( adr -- adr' ) ! count dup 3 rshift ( op/reg->reg/m ) .reg(XX-XXX-NNN) ., mod-r/m(ModR/M) ; : r/m,r() ( adr -- adr' ) ! count dup >r mod-r/m(ModR/M) ., r> 3 rshift .reg(XX-XXX-NNN) ; : r/m() ( adr op -- adr' ) ! 2 and if r,r/m() else r/m,r() then ; \ -------------------- Simple Opcodes -------------------- : opstr ( -- "name" ) ! create ! /parse-word count ", ; : inh ( -<name>- ) --- 283,299 ---- : r,r/m() ( adr -- adr' ) ! count dup bits3-5 ( op/reg->reg/m ) .reg(XX-XXX-NNN) ., mod-r/m(ModR/M) ; : r/m,r() ( adr -- adr' ) ! count dup >r mod-r/m(ModR/M) ., r> bits3-5 .reg(XX-XXX-NNN) ; : r/m() ( adr op -- adr' ) ! bit1 if r,r/m() else r/m,r() then ; \ -------------------- Simple Opcodes -------------------- : opstr ( -- "name" ) ! create /parse-word count ", ; : inh ( -<name>- ) *************** *** 290,293 **** --- 302,307 ---- inh clc "clc" inh stc "stc" + inh cli "cli" + inh sti "sti" inh cld "cld" inh std "std" *************** *** 305,310 **** inh cmc "cmc" inh xlt "xlat" - inh cli "cli" - inh sti "sti" inh clt "clts" inh inv "invd" --- 319,322 ---- *************** *** 327,331 **** : str ( addr code -- addr' ) ! opstr does> count oper-col type 1 and if ." d" else ." b" then cmnt-col ; str mvs "movs" --- 339,343 ---- : str ( addr code -- addr' ) ! opstr does> oper-col count type bit0 if ." d" else ." b" then cmnt-col ; str mvs "movs" *************** *** 338,342 **** : pre ( addr code -- addr' ) ! opstr does> count (.sop") drop true to dis.prefix-op ; pre cs: "cs:" --- 350,354 ---- : pre ( addr code -- addr' ) ! inh true to dis.prefix-op ; pre cs: "cs:" *************** *** 360,375 **** : isd ( adr code -- adr' ) drop dis.16-bit-data if .sop" insw" else .sop" insd" then ; : osd ( adr code -- adr' ) drop dis.16-bit-data if .sop" outsw" else .sop" outsd" then ; ! : inp ( adr code -- adr' ) .sop" in" opnd-col 1 and IF dis.16-bit-data IF .ax, ELSE .eax, THEN ELSE .al, THEN count $. ; ! : ind ( adr code -- adr' ) .sop" in" opnd-col 1 and IF dis.16-bit-data IF ." ax, dx" ELSE ." eax, dx" THEN ELSE ." al, dx" THEN ; ! : otp ( adr code -- adr' ) .sop" out" opnd-col 1 and IF count $. dis.16-bit-data IF ." , ax" ELSE ." , eax" THEN ELSE count $. ." , al" THEN ; ! : otd ( adr code -- adr' ) .sop" out" opnd-col 1 and IF dis.16-bit-data IF ." dx, ax" ELSE ." dx, eax" THEN ELSE ." dx, al" THEN ; \ -------------------- ALU Opcodes -------------------- ! : .alu ( n -- ) bits3-5 S" addor adcsbbandsubxorcmp" 3 .ss ; : alu ( adr op -- adr' ) dup .alu r/m() ; ! ! : ali ( adr op -- adr' ) >r count dup .alu --- 372,391 ---- : isd ( adr code -- adr' ) drop dis.16-bit-data if .sop" insw" else .sop" insd" then ; : osd ( adr code -- adr' ) drop dis.16-bit-data if .sop" outsw" else .sop" outsd" then ; ! ! : inp/ind ( adr code -- adr' ) .sop" in" opnd-col bit0 if dis.16-bit-data if .ax, else .eax, then else .al, then ; ! : inp ( adr code -- adr' ) inp/ind count $. ; ! : ind ( adr code -- adr' ) inp/ind .dx ; ! ! : .out ( adr code -- adr' ) .sop" out" opnd-col ; ! : otp/otd ( adr code -- adr' ) bit0 if dis.16-bit-data if ." , ax" else ." , eax" then else ." , al" then ; ! : otp ( adr code -- adr' ) .out swap count $. swap otp/otd ; ! : otd ( adr code -- adr' ) .out .dx otp/otd ; \ -------------------- ALU Opcodes -------------------- ! : .alu ( n -- ) bits3-5 z" addor adcsbbandsubxorcmp" 3 .ss ; : alu ( adr op -- adr' ) dup .alu r/m() ; ! : ali ( adr op -- adr' ) >r count dup .alu *************** *** 383,401 **** then ; ! : ala ( adr op -- adr' ) ! dup .alu 1 and if 0 .reg(XX-XXX-NNN) .imm16/32[pc++] else 0 .reg8(XX-XXX-NNN) .imm8[pc++] then ; \ -------------------- Test/Xchg -------------------- : txb ( addr op -- addr' ) ! dup bits0-1 S" testtestxchgxchg" 4 .ss ! 1 and ! IF 1 to dis.size r,r/m() \ SMuB removed COUNT ! ELSE 0 to dis.size r,r/m() \ SMuB removed COUNT ! THEN ; : tst ( addr op -- addr' ) ! .sop" test" 1 and IF dis.16-bit-data IF .ax, --- 399,414 ---- then ; ! : ala ( adr op -- adr' ) ! dup .alu bit0 if 0 .reg(XX-XXX-NNN) .imm16/32[pc++] else 0 .reg8(XX-XXX-NNN) .imm8[pc++] then ; \ -------------------- Test/Xchg -------------------- : txb ( addr op -- addr' ) ! dup bit1 z" testxchg" 4 .ss ! bit0 to dis.size r,r/m() ; : tst ( addr op -- addr' ) ! .sop" test" bit0 IF dis.16-bit-data IF .ax, *************** *** 410,414 **** : ppp ( addr op -- addr' ) ! opstr does> oper-col count type drop dis.16-bit-data 0= IF ." d" THEN opnd-col ; --- 423,427 ---- : ppp ( addr op -- addr' ) ! opstr does> count oper-col type drop dis.16-bit-data 0= IF ." d" THEN opnd-col ; *************** *** 429,433 **** : pps ( addr op -- addr' ) .sop" pop" .sreg(XX-NNN-XXX) ; : 8F. ( addr op -- addr' ) drop count .sop" pop" r/m16/32(ModR/M) ; ! : psi ( addr op -- addr' ) .sop" push" 2 and IF .imm8[pc++] ELSE .imm16/32[pc++] THEN ; \ -------------------- Move -------------------- --- 442,446 ---- : pps ( addr op -- addr' ) .sop" pop" .sreg(XX-NNN-XXX) ; : 8F. ( addr op -- addr' ) drop count .sop" pop" r/m16/32(ModR/M) ; ! : psi ( addr op -- addr' ) .sop" push" bit1 IF .imm8[pc++] ELSE .imm16/32[pc++] THEN ; \ -------------------- Move -------------------- *************** *** 435,439 **** : mov ( addr op -- addr' ) .sop-mov r/m() ; : mri ( addr op -- addr' ) ! .sop-mov dup 8 and IF .reg16/32(XX-XXX-NNN) .imm16/32[pc++] ELSE .reg8(XX-XXX-NNN) .imm8[pc++] --- 448,452 ---- : mov ( addr op -- addr' ) .sop-mov r/m() ; : mri ( addr op -- addr' ) ! .sop-mov dup bit3 IF .reg16/32(XX-XXX-NNN) .imm16/32[pc++] ELSE .reg8(XX-XXX-NNN) .imm8[pc++] *************** *** 474,478 **** : mv1 ( addr op -- addr' ) ! .sop-mov 1 and IF dis.16-bit-data IF .ax, --- 487,491 ---- : mv1 ( addr op -- addr' ) ! .sop-mov bit0 IF dis.16-bit-data IF .ax, *************** *** 484,488 **** : mv2 ( addr op -- addr' ) ! .sop-mov .disp16/32[pc++] ., 1 and IF dis.16-bit-data IF ." ax" --- 497,501 ---- : mv2 ( addr op -- addr' ) ! .sop-mov .disp16/32[pc++] ., bit0 IF dis.16-bit-data IF ." ax" *************** *** 493,497 **** : lea ( addr op -- addr' ) .sop" lea" drop 1 to dis.size r,r/m() ; ! : lxs ( addr op -- addr' ) 1 and IF .sop" lds" ELSE .sop" les" THEN r,r/m() ; : bnd ( addr op -- addr' ) .sop" bound" drop 1 to dis.size r,r/m() ; : arp ( addr op -- addr' ) .sop" arpl" drop 1 to dis.size true to dis.16-bit-data r,r/m() ; --- 506,510 ---- : lea ( addr op -- addr' ) .sop" lea" drop 1 to dis.size r,r/m() ; ! : lxs ( addr op -- addr' ) bit0 IF .sop" lds" ELSE .sop" les" THEN r,r/m() ; : bnd ( addr op -- addr' ) .sop" bound" drop 1 to dis.size r,r/m() ; : arp ( addr op -- addr' ) .sop" arpl" drop 1 to dis.size true to dis.16-bit-data r,r/m() ; *************** *** 506,516 **** : jsr ( addr op -- addr' ) .sop" call" drop .rel16/32 ; ! : jmp ( addr op -- addr' ) .sop" jmp" 2 and if .rel8 else .rel16/32 then ; ! : .jxx ( addr op -- addr' ) oper-col ." j" .cnd-code(op) opnd-col ; : bra ( addr op -- addr' ) .jxx .rel8 ; ! : lup ( addr op -- addr' ) bits0-1 S" loopnzloopz loop jecxz " 6 .ss .rel8 ; : lbr ( addr op -- addr' ) .jxx .rel16/32 ; ! : rtn ( addr op -- addr' ) .sop" ret" ." near " 1 and 0= IF wCount $. THEN ; ! : rtf ( addr op -- addr' ) .sop" ret" .far 1 and 0= IF wCount $. THEN ; : ent ( addr op -- addr' ) .sop" enter" drop wCount $. ., count $. ; --- 519,529 ---- : jsr ( addr op -- addr' ) .sop" call" drop .rel16/32 ; ! : jmp ( addr op -- addr' ) .sop" jmp" bit1 if .rel8 else .rel16/32 then ; ! : .jxx ( addr op -- addr' ) oper-col ." j" .cnd-code opnd-col ; : bra ( addr op -- addr' ) .jxx .rel8 ; ! : lup ( addr op -- addr' ) bits0-1 z" loopnzloopz loop jecxz " 6 .ss .rel8 ; : lbr ( addr op -- addr' ) .jxx .rel16/32 ; ! : rtn ( addr op -- addr' ) .sop" ret" ." near " bit0 0= IF wCount $. THEN ; ! : rtf ( addr op -- addr' ) .sop" ret" .far bit0 0= IF wCount $. THEN ; : ent ( addr op -- addr' ) .sop" enter" drop wCount $. ., count $. ; *************** *** 544,552 **** \ -------------------- Shifts & Rotates -------------------- ! : .shift ( n -- ) bits0-2 S" rolrorrclrcrshlshrxxxsar" 3 .ss ; : shf ( addr op -- addr' ) >r count ! dup 3 rshift .shift mod-r/m(ModR/M) ., r> 0xD2 and --- 557,565 ---- \ -------------------- Shifts & Rotates -------------------- ! : .shift ( n -- ) bits3-5 z" rolrorrclrcrshlshrxxxsar" 3 .ss ; : shf ( addr op -- addr' ) >r count ! dup .shift mod-r/m(ModR/M) ., r> 0xD2 and *************** *** 605,613 **** THEN ; ! : falu1 ( xopcode -- ) bits3-5 S" fadd fmul fcom fcompfsub fsubrfdiv fdivr" 5 .ss ; ! : falu3 ( op -- ) bits3-5 S" fiadd fimul ficom ficompfisub fisubrfidiv fidivr" 6 .ss ; ! : falu5 ( xopcode -- ) bits3-5 s" fadd fmul ???? ???? fsubrfsub fdivrfdiv " 5 .ss ; ! : falu6 ( op -- ) bits3-5 s" ffree ??? fst fstp fucom fucomp??? ??? " 6 .ss ; ! : falu7 ( op -- ) bits3-5 S" faddp fmulp ??? ??? fsubrpfsubp fdivrpfdivp " 6 .ss ; : sti. ( op -- ) bits0-2 ." st(" 1 .r ." )" ; --- 618,626 ---- THEN ; ! : falu1 ( xopcode -- ) bits3-5 z" fadd fmul fcom fcompfsub fsubrfdiv fdivr" 5 .ss ; ! : falu3 ( op -- ) bits3-5 z" fiadd fimul ficom ficompfisub fisubrfidiv fidivr" 6 .ss ; ! : falu5 ( xopcode -- ) bits3-5 z" fadd fmul ???? ???? fsubrfsub fdivrfdiv " 5 .ss ; ! : falu6 ( op -- ) bits3-5 z" ffree ??? fst fstp fucom fucomp??? ??? " 6 .ss ; ! : falu7 ( op -- ) bits3-5 z" faddp fmulp ??? ??? fsubrpfsubp fdivrpfdivp " 6 .ss ; : sti. ( op -- ) bits0-2 ." st(" 1 .r ." )" ; *************** *** 633,639 **** 0x0f and dup 8 < IF ! S" f2xm1 fyl2x fptan fpatan fxtractfprem1 fdecstpfincstp" ELSE 8 - ! S" fprem fyl2xp1fsqrt fsincosfrndintfscale fsin fcos " THEN 7 .ss ; --- 646,652 ---- 0x0f and dup 8 < IF ! z" f2xm1 fyl2x fptan fpatan fxtractfprem1 fdecstpfincstp" ELSE 8 - ! z" fprem fyl2xp1fsqrt fsincosfrndintfscale fsin fcos " THEN 7 .ss ; *************** *** 642,648 **** 0x0f and dup 8 < IF ! S" fchs fabs ??? ??? ftst fxam ??? ??? " ELSE 8 - ! S" fld1 fldl2t fldl2e fldpi fldlg2 fldln2 fldz ??? " THEN 7 .ss ; --- 655,661 ---- 0x0f and dup 8 < IF ! z" fchs fabs ??? ??? ftst fxam ??? ??? " ELSE 8 - ! z" fld1 fldl2t fldl2e fldpi fldlg2 fldln2 fldz ??? " THEN 7 .ss ; *************** *** 689,693 **** : fcmova ( op -- ) bits3-5 ! S" fcmovb fcmove fcmovbefcmovu ??? ??? ??? ??? " 7 .ss ; --- 702,706 ---- : fcmova ( op -- ) bits3-5 ! z" fcmovb fcmove fcmovbefcmovu ??? ??? ??? ??? " 7 .ss ; *************** *** 712,716 **** : fcmovb ( op -- ) bits3-5 ! S" fcmovnb fcmovne fcmovnbefcmovnu ??? fucomi fcomi ??? " 8 .ss ; : fdb ( addr op -- addr' ) --- 725,729 ---- : fcmovb ( op -- ) bits3-5 ! z" fcmovnb fcmovne fcmovnbefcmovnu ??? fucomi fcomi ??? " 8 .ss ; : fdb ( addr op -- addr' ) *************** *** 772,785 **** : gp6 ( addr op -- addr' ) ! drop count dup bits3-5 S" sldtstr lldtltr verrverw??? ???" 4 .ss r/m16(ModR/M) ; : gp7 ( addr op -- addr' ) ! drop count dup bits3-5 dup S" sgdt sidt lgdt lidt smsw ??? lmsw invlpg" 6 .ss ! 4 and 4 = if r/m16(ModR/M) else r/m16/32(ModR/M) then ; ! : .btx(XXXN-NXXX) ( n -- ) bits3-4 S" bt btsbtrbtc" 3 .ss ; : gp8 ( addr op -- addr' ) --- 785,798 ---- : gp6 ( addr op -- addr' ) ! drop count dup bits3-5 z" sldtstr lldtltr verrverw??? ???" 4 .ss r/m16(ModR/M) ; : gp7 ( addr op -- addr' ) ! drop count dup bits3-5 dup z" sgdt sidt lgdt lidt smsw ??? lmsw invlpg" 6 .ss ! bit2 if r/m16(ModR/M) else r/m16/32(ModR/M) then ; ! : .btx(XXXN-NXXX) ( n -- ) bits3-4 z" bt btsbtrbtc" 3 .ss ; : gp8 ( addr op -- addr' ) *************** *** 811,816 **** : btx ( addr op -- addr' ) .btx(XXXN-NXXX) r/m,r() ; ! : cxc ( addr op -- addr' ) .sop" cmpxchg" 1 and to dis.size r/m,r() ; ! : xad ( addr op -- addr' ) .sop" xadd" 1 and to dis.size r/m,r() ; : cx8 ( addr op -- addr' ) .sop" cmpxchg8b" drop count r/m16/32(ModR/M) ; : bsp ( addr op -- addr' ) .sop" bswap" .reg32(XX-XXX-NNN) ; --- 824,829 ---- : btx ( addr op -- addr' ) .btx(XXXN-NXXX) r/m,r() ; ! : cxc ( addr op -- addr' ) .sop" cmpxchg" bit0 to dis.size r/m,r() ; ! : xad ( addr op -- addr' ) .sop" xadd" bit0 to dis.size r/m,r() ; : cx8 ( addr op -- addr' ) .sop" cmpxchg8b" drop count r/m16/32(ModR/M) ; : bsp ( addr op -- addr' ) .sop" bswap" .reg32(XX-XXX-NNN) ; *************** *** 819,827 **** : mvx { addr op \ op2 -- addr' } addr op ! dup 8 and if .sop" movsx" else .sop" movzx" then ! 1 and >r count dup to op2 parse/sib r> \ size bit if swap .reg32(XX-XXX-NNN) ., \ word to dword case --- 832,840 ---- : mvx { addr op \ op2 -- addr' } addr op ! dup bit3 if .sop" movsx" else .sop" movzx" then ! bit0 >r count dup to op2 parse/sib r> \ size bit if swap .reg32(XX-XXX-NNN) ., \ word to dword case *************** *** 844,851 **** >r count dup bits3-5 dup >r ! S" testXXXXnot neg mul imuldiv idiv" 4 .ss mod-r/m(ModR/M) ! r> 0= if ! r@ 1 and if .imm16/32[pc++] else .imm8[pc++] then --- 857,864 ---- >r count dup bits3-5 dup >r ! z" test??? not neg mul imuldiv idiv" 4 .ss mod-r/m(ModR/M) ! r> 0= if ., ! r@ bit0 if .imm16/32[pc++] else .imm8[pc++] then *************** *** 879,896 **** : set ( adr op -- ) ! oper-col ." set" .cnd-code(op) opnd-col count r/m8(ModR/M) ; : cmv ( adr op -- ) ! oper-col ." cmov" .cnd-code(op) opnd-col r,r/m() ; \ --------------------- MMX Operations ----------------- ! : mmx-size ( op -- ) bits0-1 S" bwdq" 1 .ss ; ! : upl ( adr op -- adr' ) bits0-1 S" punpcklbwpunpcklwdpunpckldq" 9 .ss r,r/m() ; ! : uph ( adr op -- adr' ) bits0-1 S" punpckhbwpunpckhwdpunpckhdq" 9 .ss r,r/m() ; : .psx(XXNN-XXXX) ( op -- ) --- 892,909 ---- : set ( adr op -- ) ! oper-col ." set" .cnd-code opnd-col count r/m8(ModR/M) ; : cmv ( adr op -- ) ! oper-col ." cmov" .cnd-code opnd-col r,r/m() ; \ --------------------- MMX Operations ----------------- ! : mmx-size ( op -- ) bits0-1 z" bwdq" 1 .ss ; ! : upl ( adr op -- adr' ) bits0-1 z" punpcklbwpunpcklwdpunpckldq" 9 .ss r,r/m() ; ! : uph ( adr op -- adr' ) bits0-1 z" punpckhbwpunpckhwdpunpckhdq" 9 .ss r,r/m() ; : .psx(XXNN-XXXX) ( op -- ) *************** *** 1019,1023 **** false to dis.prefix-op \ SMuB count ! dup 1 and to dis.size dup cells op1-table + @ execute dis.prefix-op 0= --- 1032,1036 ---- false to dis.prefix-op \ SMuB count ! dup bit0 to dis.size dup cells op1-table + @ execute dis.prefix-op 0= *************** *** 1045,1052 **** ! : dis-db cr ." db " count $. ; ! : dis-dw cr ." dw " wCount $. ; ! : dis-dd cr ." dd " LCount $. ; ! : dis-ds cr ." string " 0x22 emit count 2dup type + 0x22 emit ; : dis ( adr -- ) --- 1058,1065 ---- ! : .db cr ." db " count $. ; ! : .dw cr ." dw " wCount $. ; ! : .dd cr ." dd " LCount $. ; ! : .ds cr ." string " 0x22 emit count 2dup type + 0x22 emit ; : dis ( adr -- ) *************** *** 1057,1064 **** while case ! 'B' of drop dis-db endof ! 'W' of drop dis-dw endof ! 'D' of drop dis-dd endof ! 'S' of drop dis-ds endof rot drop endcase --- 1070,1077 ---- while case ! 'B' of drop .db endof ! 'W' of drop .dw endof ! 'D' of drop .dd endof ! 'S' of drop .ds endof rot drop endcase *************** *** 1108,1112 **** ['] compile, of endof ['] execute of ." , immediate" endof ! dup ." , " show-name ." is non-std compilation part" endcase drop drop --- 1121,1125 ---- ['] compile, of endof ['] execute of ." , immediate" endof ! dup ., show-name ." is non-std compilation part" endcase drop drop Index: optliterals.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/optliterals.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** optliterals.f 11 Dec 2006 10:42:36 -0000 1.11 --- optliterals.f 2 Mar 2007 15:16:54 -0000 1.12 *************** *** 40,44 **** also optimise definitions ! (( no stack effects; needs work 1 constant nse \ no side effects --- 40,44 ---- also optimise definitions ! (( no side effects; needs work 1 constant nse \ no side effects |
|
From: Alex M. <ale...@us...> - 2007-03-02 15:16:54
|
Update of /cvsroot/win32forth/win32forth-stc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25025 Modified Files: gkernel.exe Log Message: arm: simplify disassembler for intended SEE improvements Index: gkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/gkernel.exe,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 Binary files /tmp/cvsngRRyx and /tmp/cvsQKA8Nb differ |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-28 12:05:15
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18687 Modified Files: LoadProject.f Log Message: Jos: Changed to allow projects to be outside the Forth-pad. Index: LoadProject.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/LoadProject.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** LoadProject.f 26 Feb 2007 18:02:06 -0000 1.1 --- LoadProject.f 28 Feb 2007 12:05:05 -0000 1.2 *************** *** 20,30 **** ProjectHndl CountMappedFile false w-search \ Search the line with BuildFile= if ProjectHndl CountMappedFile nip over - -rot + swap ! 2dup 0xd scan nip - temp$ place ProjectHndl close-map-file drop ! temp$ count cr 2dup type \in-system-ok included else abort" Invalid projectfile" then - - ; --- 20,30 ---- ProjectHndl CountMappedFile false w-search \ Search the line with BuildFile= if ProjectHndl CountMappedFile nip over - -rot + swap ! 2dup 0xd scan nip - Prepend<home>\ temp$ place ProjectHndl close-map-file drop ! temp$ count "path-only" pad place ! pad dup +null count "chdir ! cr ." Loading " temp$ count 2dup type \in-system-ok included else abort" Invalid projectfile" then ; |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-26 18:02:21
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32426 Added Files: LoadProject.f Log Message: Jos: Needed to load the latest project --- NEW FILE: LoadProject.f --- Anew -LoadProject.f Needs src\lib\w_search.f map-handle ProjectHndl create LatestProjectFile$ ," LatestProject.dat" : CountMappedFile ( ProjectHndl - ) dup >hfileAddress @ swap >hfileLength @ ; : LoadProject LatestProjectFile$ count Prepend<home>\ ProjectHndl open-map-file abort" Use Win32Forth IDE to open or define a project" s" *BuildFile= " ProjectHndl CountMappedFile temp$ place \ load the fpj filename ProjectHndl close-map-file drop temp$ dup +null count ProjectHndl open-map-file abort" Project not found. Use Win32Forth IDE to open or define a project" ProjectHndl CountMappedFile false w-search \ Search the line with BuildFile= if ProjectHndl CountMappedFile nip over - -rot + swap 2dup 0xd scan nip - temp$ place ProjectHndl close-map-file drop temp$ count cr 2dup type \in-system-ok included else abort" Invalid projectfile" then ; \s |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-25 19:05:11
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22383 Modified Files: ConsoleMenu.f Log Message: Jos: Enabled F12 in Win32Forth and ForthForm in order to compile a project in a quick way. The last opened projectfile of the IDE is used Index: ConsoleMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleMenu.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** ConsoleMenu.f 24 Feb 2007 16:49:44 -0000 1.8 --- ConsoleMenu.f 25 Feb 2007 19:05:07 -0000 1.9 *************** *** 114,119 **** over [ 'W' +k_control ] literal = if 0= open-web EXIT then over [ 'L' +k_control ] literal = ! if 0= load-forth EXIT then over [ 'P' +k_control ] literal = if 0= print-screen EXIT then --- 114,121 ---- over [ 'W' +k_control ] literal = if 0= open-web EXIT then + over [ K_F12 ] literal = + if 0= 2>r >r LoadProject r> 2r> EXIT then over [ 'L' +k_control ] literal = ! if 0= load-forth EXIT then over [ 'P' +k_control ] literal = if 0= print-screen EXIT then *************** *** 241,244 **** --- 243,247 ---- MENULINE "Win32Forth IDE" ".IDE" MENULINE "ForthForm" ".ForthForm" + MENUITEM "Compile &Project\tF12" LoadProject ; MENUSEPARATOR MENULINE "&Class and Vocabulary browser..." "class-browser" |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-25 19:05:00
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22347 Modified Files: Extend.f Log Message: Jos: Enabled F12 in Win32Forth and ForthForm in order to compile a project in a quick way. The last opened projectfile of the IDE is used Index: Extend.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Extend.f 28 Sep 2006 10:16:48 -0000 1.11 --- Extend.f 25 Feb 2007 19:04:53 -0000 1.12 *************** *** 76,79 **** --- 76,80 ---- FLOAD src\keysave.f \ keyboard macro recording FLOAD src\tools\tools.f \ load various tool's when they are needed + FLOAD src\lib\LoadProject.f \ Loads the latest known project FLOAD src\console\ConsoleMenu.f \ menu bar for the console sys-FLOAD src\console\ConsoleStatBar.f \ status bar for the console window |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-25 19:04:47
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22328/ForthForm Modified Files: FORTHFORM.F FormMenu.f Log Message: Jos: Enabled F12 in Win32Forth and ForthForm in order to compile a project in a quick way. The last opened projectfile of the IDE is used Index: FORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** FORTHFORM.F 24 Feb 2007 20:17:22 -0000 1.19 --- FORTHFORM.F 25 Feb 2007 19:04:42 -0000 1.20 *************** *** 196,203 **** if s" Win32Forth*IDE" "SetToForeground drop else s" Win32ForthIDE.exe" PrePend<Home>\ ! \ GetHandle: TheMainWindow ! CONHNDL ExecuteFile then ; : Start-ProjectManager ( -- ) \ start the project manager if not started ?promgr-started ?exit --- 196,207 ---- if s" Win32Forth*IDE" "SetToForeground drop else s" Win32ForthIDE.exe" PrePend<Home>\ ! conhndl ExecuteFile then ; + : ffLoadProject ( -- ) \ start the project manager if not started + s" Win32for.exe" PrePend<Home>\ + temp$ place s" LoadProject" temp$ +place temp$ + exec-cmd drop ; + : Start-ProjectManager ( -- ) \ start the project manager if not started ?promgr-started ?exit *************** *** 952,956 **** 'N' +k_control of doNew endof 'O' +k_control of doOpen endof ! K_F12 of SetFocus: Monitor endof K_F1 of doFormHelp endof endcase ;M --- 956,961 ---- 'N' +k_control of doNew endof 'O' +k_control of doOpen endof ! K_F9 of SetFocus: Monitor endof ! K_F12 of ffLoadProject endof K_F1 of doFormHelp endof endcase ;M Index: FormMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FormMenu.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** FormMenu.f 27 Dec 2006 18:43:57 -0000 1.4 --- FormMenu.f 25 Feb 2007 19:04:42 -0000 1.5 *************** *** 50,53 **** --- 50,55 ---- MenuSeparator MenuItem "Win32Forth IDE" Start-Win32ForthIDE ; + MENUITEM "Compile &Project\tF12" FFLoadProject ; + \ MenuItem "Project Manager " Start-ProjectManager ; MenuSeparator |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-25 19:04:47
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22328/Win32ForthIDE Modified Files: ProjectTree.f Log Message: Jos: Enabled F12 in Win32Forth and ForthForm in order to compile a project in a quick way. The last opened projectfile of the IDE is used Index: ProjectTree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** ProjectTree.f 13 Oct 2006 03:55:11 -0000 1.15 --- ProjectTree.f 25 Feb 2007 19:04:42 -0000 1.16 *************** *** 596,599 **** --- 596,607 ---- (source) 2! >in off ch word count ; + : SaveProjectName ( -- ) + LatestProjectFile$ count + r/w create-file abort" Can't create the projectname on disk." dup>r + GetProjectFileName: TheProject + r> write-file abort" Can't save the projectname on disk." + close-file drop + ; + :M OpenProject: ( -- ) ProjectFile.filename c@ *************** *** 617,620 **** --- 625,629 ---- else true abort" Search path not found!" then \ now we read in files + SaveProjectName begin rem-buffer nip while ',' get-word pad place |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-25 13:58:15
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22163/ProMgr Modified Files: ProjectManager.f Log Message: Jos: Removed init-msg-buffer since it is now in the initialization-chain Index: ProjectManager.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** ProjectManager.f 2 Dec 2006 10:17:30 -0000 1.19 --- ProjectManager.f 25 Feb 2007 13:58:11 -0000 1.20 *************** *** 1928,1932 **** InitScintillaControl \ Dienstag, August 03 2004 dbu \+ sysgen read-path-file - init-msg-buffer Start: ProjectWindow \+ sysgen true promgr-started --- 1928,1931 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-25 13:58:15
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22163/Win32ForthIDE Modified Files: Main.f Log Message: Jos: Removed init-msg-buffer since it is now in the initialization-chain Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.35 retrieving revision 1.36 diff -C2 -d -r1.35 -r1.36 *** Main.f 13 Jan 2007 02:20:10 -0000 1.35 --- Main.f 25 Feb 2007 13:58:12 -0000 1.36 *************** *** 1021,1025 **** GetHandle: frame hwndOwner ! DefaultPrinter \ initialise PSD and PD init-shared-type - init-msg-buffer ['] sciedit_win32forth-message is win32forth-message InitClassBrowsers --- 1021,1024 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-24 20:17:27
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23327 Modified Files: FORTHFORM.F Log Message: Jos: Solved the bye problem in the Forth-console. Index: FORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** FORTHFORM.F 21 Feb 2007 20:52:54 -0000 1.18 --- FORTHFORM.F 24 Feb 2007 20:17:22 -0000 1.19 *************** *** 196,200 **** if s" Win32Forth*IDE" "SetToForeground drop else s" Win32ForthIDE.exe" PrePend<Home>\ ! GetHandle: TheMainWindow ExecuteFile then ; --- 196,201 ---- if s" Win32Forth*IDE" "SetToForeground drop else s" Win32ForthIDE.exe" PrePend<Home>\ ! \ GetHandle: TheMainWindow ! CONHNDL ExecuteFile then ; *************** *** 1003,1007 **** : FForm ( -- ) - init-msg-buffer \+ sysgen check-if-running init-forthform --- 1004,1007 ---- *************** *** 1016,1020 **** --- 1016,1025 ---- also forth definitions + + : EndForthForm ( -- ) + doCloseAllForms false fform-started k_bye ; + : ff ( -- ) \ main executable word + ['] EndForthForm is bye ['] FForm catch ExitOnError ; |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-24 18:15:47
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6897 Modified Files: EdMenu.f Log Message: Jos: Renamed the Win32Forth-menu to Tools. Now you can find all the extra programs in the same menu. That will be easier for new users. Index: EdMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** EdMenu.f 21 Feb 2007 20:50:16 -0000 1.16 --- EdMenu.f 24 Feb 2007 18:15:44 -0000 1.17 *************** *** 26,29 **** --- 26,33 ---- then ; + : Start-Win32Forth ( -- ) \ Start Win32Forth + s" Win32for.exe" PrePend<Home>\ GetHandle: MainWindow ExecuteFile + ; + MenuBar MainMenu Popup "&File" *************** *** 153,161 **** :MenuItem mp_showtb "&Show Toolbar" IDM_SHOW_TOOLBAR DoCommand ; \ :MenuItem mp_customizetb "&Customize toolbar" Customize: ControlToolbar ; - MenuSeparator - MenuItem "&Show ForthForm" Start-fform ; ! Popup "&Win32Forth" :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; :MenuItem mp_reset "&Reset" IDM_RESET_CON_IO DoCommand ; --- 157,166 ---- :MenuItem mp_showtb "&Show Toolbar" IDM_SHOW_TOOLBAR DoCommand ; \ :MenuItem mp_customizetb "&Customize toolbar" Customize: ControlToolbar ; ! Popup "&Tools" ! MenuItem "&Win32Forth" Start-Win32Forth ; ! MenuItem "&ForthForm" Start-fform ; ! MenuSeparator :MenuItem mp_compile "&Compile\tF12" IDM_COMPILE DoCommand ; :MenuItem mp_reset "&Reset" IDM_RESET_CON_IO DoCommand ; |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-24 18:11:08
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4799 Modified Files: ExUtils.f w_search.f Log Message: Jos: Adapted for the Tools menu of the IDE Index: w_search.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** w_search.f 21 Feb 2007 20:59:32 -0000 1.6 --- w_search.f 24 Feb 2007 18:11:05 -0000 1.7 *************** *** 305,312 **** ; : "SetToForeground ( adr cnt - hwnd|0 ) ! search-window dup \ Search for a window and sets it in the foreground ! if SW_SHOWNORMAL over call ShowWindow drop ! dup Call SetForegroundWindow drop then ; --- 305,316 ---- ; + : WindowToForeground ( hwnd - ) + SW_SHOWNORMAL over call ShowWindow drop + Call SetForegroundWindow drop + ; + : "SetToForeground ( adr cnt - hwnd|0 ) ! search-window dup \ Search for a window and sets it in the foreground ! if dup WindowToForeground then ; Index: ExUtils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** ExUtils.f 24 Feb 2007 16:51:50 -0000 1.7 --- ExUtils.f 24 Feb 2007 18:11:05 -0000 1.8 *************** *** 27,30 **** --- 27,31 ---- then ; + Initialization-chain Chain-add init-msg-buffer init-msg-buffer |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-24 16:52:02
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5908 Modified Files: ExUtils.f Log Message: Jos: Adapted for the menu tools Index: ExUtils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** ExUtils.f 13 Oct 2006 03:50:29 -0000 1.6 --- ExUtils.f 24 Feb 2007 16:51:50 -0000 1.7 *************** *** 27,30 **** --- 27,32 ---- then ; + init-msg-buffer + : ?fform-started ( -- f ) msg-buffer @ FFormID = ; |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-24 16:49:47
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5087 Modified Files: ConsoleMenu.f Log Message: Jos: Extended the menu tools with IDE and ForthForm Index: ConsoleMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleMenu.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** ConsoleMenu.f 22 Jul 2006 08:32:12 -0000 1.7 --- ConsoleMenu.f 24 Feb 2007 16:49:44 -0000 1.8 *************** *** 239,242 **** --- 239,245 ---- POPUP "&Tools" + MENULINE "Win32Forth IDE" ".IDE" + MENULINE "ForthForm" ".ForthForm" + MENUSEPARATOR MENULINE "&Class and Vocabulary browser..." "class-browser" MENULINE "&Help System" "help-system" |
|
From: Jos v.d.V. <jo...@us...> - 2007-02-24 16:46:38
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3913 Modified Files: tools.f Added Files: StartForthForm.f StartIde.f Log Message: Jos: Extensions for the menu tools --- NEW FILE: StartIde.f --- needs excontrols.f \ extended controls for Win32Forth needs ExUtils.f \ general utilities needs w_search.f : Start-Win32ForthIDE ( -- ) \ start the editor if not already started editor-present? if s" Win32Forth*IDE" "SetToForeground drop else s" Win32ForthIDE.exe" PrePend<Home>\ conhndl ExecuteFile then ; ' Start-Win32ForthIDE is .Ide Start-Win32ForthIDE \s Index: tools.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/tools.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** tools.f 22 Jul 2006 08:32:13 -0000 1.5 --- tools.f 24 Feb 2007 16:46:33 -0000 1.6 *************** *** 9,12 **** --- 9,26 ---- INTERNAL EXTERNAL \ externally available definitions start here + + defer .ide + :noname ( -- ) \ load the class and vocabulary browser + turnkeyed? 0= + \in-system-ok IF s" src\Tools\StartIde.f" Prepend<home>\ INCLUDED + then ; is .ide + + defer .ForthForm + :noname ( -- ) \ load the class and vocabulary browser + turnkeyed? 0= + \in-system-ok IF s" src\Tools\StartForthForm.f" Prepend<home>\ INCLUDED + then ; is .ForthForm + + defer class-browser :noname ( -- ) \ load the class and vocabulary browser --- NEW FILE: StartForthForm.f --- needs excontrols.f \ extended controls for Win32Forth needs ExUtils.f \ general utilities needs w_search.f : Start-fform ( -- ) \ Start ForthForm when not started OR ?fform-started \ put ForthForm in front when started. if s" ForthForm*." "SetToForeground drop else s" ForthForm.exe" PrePend<Home>\ conhndl ExecuteFile then ; ' Start-fform is .ForthForm Start-fform \s |
1040 messages has been excluded from this view by a project administrator.
