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...> - 2006-12-02 12:21:26
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv456/win32forth-stc/src Modified Files: 486asm.f dis486.f Log Message: gah:Fixed bug in dissembler and added FCOMI and FCMOV instructions Index: dis486.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** dis486.f 30 Nov 2006 20:17:07 -0000 1.7 --- dis486.f 2 Dec 2006 12:21:22 -0000 1.8 *************** *** 691,700 **** bits3-5 S" fcmovb fcmove fcmovbefcmovu ??? ??? ??? ??? " ! 7 .ss ; : fda ( addr op -- ) drop count dup 0xc0 < IF dup falu3 .dword mod-r/m(ModR/M) ! ELSE 0xe9 = IF .sop" fucompp" drop ELSE dup fcmova sti. --- 691,700 ---- bits3-5 S" fcmovb fcmove fcmovbefcmovu ??? ??? ??? ??? " ! 7 .ss ; : fda ( addr op -- ) drop count dup 0xc0 < IF dup falu3 .dword mod-r/m(ModR/M) ! ELSE dup 0xe9 = IF .sop" fucompp" drop ELSE dup fcmova sti. *************** *** 764,768 **** IF .sop" fnstsw" ." ax " drop ELSE dup 0x38 and ! CASE 0x28 OF .sop" fucomip" sti. endof 0x30 OF .sop" fcomip" sti. endof ??? --- 764,769 ---- IF .sop" fnstsw" ." ax " drop ELSE dup 0x38 and ! CASE 0x00 OF .sop" ffreep" sti. endof ! 0x28 OF .sop" fucomip" sti. endof 0x30 OF .sop" fcomip" sti. endof ??? *************** *** 922,926 **** else mod-r/m(ModR/M) then ., .regm(XX-XXX-NNN) ; ! : par ( adr op -- adr' ) opstr does> count (.sop") mmx-size r,r/m() ; --- 923,927 ---- else mod-r/m(ModR/M) then ., .regm(XX-XXX-NNN) ; ! : par ( adr op -- adr' ) opstr does> count (.sop") mmx-size r,r/m() ; *************** *** 930,937 **** par ceq "pcmpeq" par sus "psubus" ! par sbs "psubs" ! par sub "psub" par aus "paddus" ! par ads "padds" par add "padd" --- 931,938 ---- par ceq "pcmpeq" par sus "psubus" ! par sbs "psubs" ! par sub "psub" par aus "paddus" ! par ads "padds" par add "padd" *************** *** 1065,1069 **** repeat 3drop ; ! \ create ttable \ tval , ," value" --- 1066,1070 ---- repeat 3drop ; ! \ create ttable \ tval , ," value" *************** *** 1078,1082 **** : desc-stack ( n -- ) dup 0< if drop ." ? " else . then ; ! also forth definitions --- 1079,1083 ---- : desc-stack ( n -- ) dup 0< if drop ." ? " else . then ; ! also forth definitions Index: 486asm.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/486asm.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** 486asm.f 21 Sep 2006 16:26:32 -0000 1.1 --- 486asm.f 2 Dec 2006 12:21:22 -0000 1.2 *************** *** 25,28 **** --- 25,30 ---- \ simplified cell/ 8* 8/ 16*+ 16/mod + \ gah Friday, December 01 2006 - 22:18 added FCMOVcc FCOMI etc FFREEP instructions + ( declare the vocabularies needed ) only forth definitions ( vocabulary assembler ) also assembler definitions *************** *** 1498,1502 **** ?inst-pre register generic-entry2 ?noimmed ?reg,r/m code-w, compile-fields ; ! ( mov instruction ) : mov-compile ( compile a mov instruction ) --- 1500,1504 ---- ?inst-pre register generic-entry2 ?noimmed ?reg,r/m code-w, compile-fields ; ! ( mov instruction ) : mov-compile ( compile a mov instruction ) *************** *** 1781,1785 **** --- 1783,1797 ---- 0e0d9 ' 2byte opcode fchs 0e2db9b ' 3byte opcode fclex + 0c0da ' fmisc-compile opcode fcmovb + 0c8da ' fmisc-compile opcode fcmove + 0d0da ' fmisc-compile opcode fcmovbe + 0d8da ' fmisc-compile opcode fcmovu + 0c0db ' fmisc-compile opcode fcmovnb + 0c8db ' fmisc-compile opcode fcmovne + 0d0db ' fmisc-compile opcode fcmovnbe + 0d8db ' fmisc-compile opcode fcmovnu 02 ' fcom-compile opcode fcom + 0f0db ' fmisc-compile opcode fcomi + 0f0df ' fmisc-compile opcode fcomip 03 ' fcom-compile opcode fcomp 0d9de ' 2byte opcode fcompp *************** *** 1792,1795 **** --- 1804,1808 ---- 0f0 ' fxp-compile opcode fdivrp \ added for compatibility with some other assemblers 0c0dd ' fmisc-compile opcode ffree + 0c0df ' fmisc-compile opcode ffreep 00 ' fix-compile opcode fiadd 02 ' fix-compile opcode ficom *************** *** 1847,1850 **** --- 1860,1865 ---- 0e4d9 ' 2byte opcode ftst 0e0dd ' fmisc-compile opcode fucom + 0e8db ' fmisc-compile opcode fucomi + 0e8df ' fmisc-compile opcode fucomip 0e8dd ' fmisc-compile opcode fucomp 0e9da ' 2byte opcode fucompp |
|
From: George H. <geo...@us...> - 2006-12-02 12:09:57
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28164/win32forth/src Modified Files: 586ASMCM.f DIS486.F Log Message: gah:Fixed bug in dissembler and added FCOMI and FCMOV instructions Index: DIS486.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/DIS486.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** DIS486.F 4 Feb 2006 10:53:47 -0000 1.6 --- DIS486.F 2 Dec 2006 12:09:52 -0000 1.7 *************** *** 945,949 **** drop count dup 0xc0 < IF dup falu3 .s" dword " mod-r/m(ModR/M) ! ELSE 0xe9 = IF .s" fucompp" drop ELSE dup fcmova sti. --- 945,949 ---- drop count dup 0xc0 < IF dup falu3 .s" dword " mod-r/m(ModR/M) ! ELSE dup 0xe9 = IF .s" fucompp" drop ELSE dup fcmova sti. *************** *** 1024,1028 **** IF .s" fnstsw ax " drop ELSE dup 0x38 and ! CASE 0x28 OF .s" fucomip " sti. endof 0x30 OF .s" fcomip " sti. endof ??? --- 1024,1029 ---- IF .s" fnstsw ax " drop ELSE dup 0x38 and ! CASE 0x00 OF .sop" ffreep" sti. endof ! 0x28 OF .s" fucomip " sti. endof 0x30 OF .s" fcomip " sti. endof ??? Index: 586ASMCM.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/586ASMCM.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** 586ASMCM.f 21 Dec 2004 00:19:07 -0000 1.1 --- 586ASMCM.f 2 Dec 2006 12:09:52 -0000 1.2 *************** *** 1,3 **** --- 1,4 ---- \ 586asmcm.f 19/05/2003 17:13:07 arm conditional move macros for 586+ + \ Also floating-point extensions for P6 or better only forth also assembler *************** *** 43,45 **** --- 44,63 ---- 0x44 ' cmovcc-compile opcode cmovz + 0xf0db ' fmisc-compile opcode fcomi + 0xf0df ' fmisc-compile opcode fcomip + 0xe8db ' fmisc-compile opcode fucomi + 0xe8df ' fmisc-compile opcode fucomip + + 0xc0da ' fmisc-compile opcode fcmovb + 0xc8da ' fmisc-compile opcode fcmove + 0xd0da ' fmisc-compile opcode fcmovbe + 0xd8da ' fmisc-compile opcode fcmovu + 0xc0db ' fmisc-compile opcode fcmovnb + 0xc8db ' fmisc-compile opcode fcmovne + 0xd0db ' fmisc-compile opcode fcmovnbe + 0xd8db ' fmisc-compile opcode fcmovnu + + 0xc0df ' fmisc-compile opcode ffreep + + only forth definitions |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:35
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266 Modified Files: setup.exe Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 Binary files /tmp/cvsRIlbfl and /tmp/cvsc9XRZk differ |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:35
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/SciEdit Modified Files: Main.f Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** Main.f 26 Aug 2006 15:25:31 -0000 1.25 --- Main.f 2 Dec 2006 10:17:30 -0000 1.26 *************** *** 726,735 **** throw ! s" src\res\SciEditMDI.ico" s" SciEditMdi.exe" AddAppIcon 1 pause-seconds bye [else] ! s" src\res\SciEditMDI.ico" s" SciEditMdi.exe" AddAppIcon Main [then] --- 726,735 ---- throw ! s" src\res\SciEditMDI.ico" s" SciEditMdi.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye [else] ! s" src\res\SciEditMDI.ico" s" SciEditMdi.exe" Prepend<home>\ AddAppIcon Main [then] |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:35
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/Setup Modified Files: Setup.f Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: Setup.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Setup.f 28 Sep 2006 10:16:47 -0000 1.11 --- Setup.f 2 Dec 2006 10:17:30 -0000 1.12 *************** *** 4,12 **** \ Author: Andrew Stephenson \ Created: February 14th, 2004 - andrew ! \ Updated: Samstag, May 15 2004 - 12:15 - dbu \ \ Setup for Win32Forth ! \ this is all we of win32forth to create a smal Setup.exe FLOAD ..\..\src\comment.f FLOAD ..\..\src\numconv.f --- 4,12 ---- \ Author: Andrew Stephenson \ Created: February 14th, 2004 - andrew ! \ Updated: Samstag, Dezember 02 2006 - dbu \ \ Setup for Win32Forth ! \ This is all we need of win32forth to create a smal Setup.exe FLOAD ..\..\src\comment.f FLOAD ..\..\src\numconv.f *************** *** 77,82 **** unload-forth 0 Call ExitProcess ; \ exit setup ! : wait&bye cr ! ." Press any key to exit..." ekey drop setup-bye ; 3 proc CopyFile --- 77,82 ---- unload-forth 0 Call ExitProcess ; \ exit setup ! : wait&bye ! cr ." Press any key to exit..." ekey drop setup-bye ; 3 proc CopyFile *************** *** 103,108 **** : dashline ! ." ----------------------------------------------------------------------- " cr ! ; : SetUpForth ( -- f ) --- 103,107 ---- : dashline ! ." ----------------------------------------------------------------------- " cr ; : SetUpForth ( -- f ) *************** *** 125,130 **** ." P Rebuild Project Manager." cr cr ." G Rebuild Win32forth IDE." cr cr ! ." A Rebuild sample applications (Player4, Solipon2, Sudoku and" cr ! ." PlayVirginRadio)" cr cr ." D Copy Win32Forth dll files (w32fConsole.dll, w32fScintilla.dll," cr ." wincon.dll and Zip32.dll) into the Windows system folder:" cr --- 124,129 ---- ." P Rebuild Project Manager." cr cr ." G Rebuild Win32forth IDE." cr cr ! ." A Rebuild sample applications (Player4, Solipon2, Sudoku," cr ! ." PlayVirginRadio and PictureViewer)" cr cr ." D Copy Win32Forth dll files (w32fConsole.dll, w32fScintilla.dll," cr ." wincon.dll and Zip32.dll) into the Windows system folder:" cr *************** *** 200,292 **** : cleanbuild ( f -- ) \ clean up the files before install ! cls cr ! c" WIN32FOR.EXE" filedelete ! c" WIN32FOR.DBG" filedelete ! c" WINED.EXE" filedelete ! if c" HYPER.NDX" filedelete ! c" HELP.NDX" filedelete ! then ! c" FORTHFORM.EXE" filedelete ! c" PROJECT.EXE" filedelete ! C" SciEditMdi.EXE" filedelete ! ; : buildstage1 ! ." -- Stage 1" cr ! c" FKERNEL.EXE fload src\extend.f bye" procexec ! c" WIN32FOR.EXE" filecheck ! ; : buildmeta ! ." -- Meta Compile" cr ! c" WIN32FOR.EXE fload src\kernel\meta.f bye" procexec ! c" FKERNEL.EXE" filecheck ! ; : buildmetafixed ! ." -- Meta Compile (fixed loadpoint)" cr ! c" WIN32FOR.EXE fload src\kernel\meta.f setsize bye" procexec ! c" FKERNEL.EXE" filecheck ! ; : buildextend ! ." -- Extend" cr ! c" FKERNEL.EXE fload src\extend.f bye" procexec ! c" WIN32FOR.EXE" filecheck ! ; : buildwined ! ." -- WinEd" cr ! c" WIN32FOR.EXE fload apps\wined\wined.f bye" procexec ! c" WINED.EXE" filecheck ! ; : buildindex ! ." -- Hyper link indices" cr ! ." -- building HELP.NDX" cr ! s" HELP.CFG" &WINED.CFG place ! s" HELP.NDX" &WINED.NDX place ! build-index c" HELP.NDX" filecheck ! ." -- building HYPER.NDX" cr ! s" WINED.CFG" &WINED.CFG place ! s" HYPER.NDX" &WINED.NDX place ! build-index c" HYPER.NDX" filecheck ! ; : buildforthform ! ." -- ForthForm" cr ! c" WIN32FOR.EXE fload apps\forthform\forthform.f bye" procexec ! c" FORTHFORM.EXE" filecheck ! ; : buildproject ! ." -- ProjectManager" cr ! c" WIN32FOR.EXE fload apps\ProMgr\ProjectManager.f bye" procexec ! c" PROJECT.EXE" filecheck ! ; : buildscintilla ! ." -- SciEdit" cr ! c" WIN32FOR.EXE fload apps\SciEdit\Main.f bye" procexec ! c" SciEditMdi.EXE" filecheck ! ; : buildide ! ." -- Win32Forth IDE" cr ! c" WIN32FOR.EXE fload apps\Win32ForthIDE\Main.f bye" procexec ! c" Win32ForthIde.exe" filecheck ! ; : buildsamples ! ." -- Sample applications" cr ! c" WIN32FOR.EXE fload apps\Player4\Player4.f bye" procexec ! c" Player4.EXE" filecheck ! c" WIN32FOR.EXE fload apps\Solipon2\SOLIPION.F bye" procexec ! c" SOLIPION.EXE" filecheck ! c" WIN32FOR.EXE fload apps\Sudoku\Sudoku.F bye" procexec ! c" Sudoku.EXE" filecheck ! c" WIN32FOR.EXE fload apps\PlayVirginRadio\PlayVirginRadio.F bye" procexec ! c" PlayVirginRadio.EXE" filecheck ! ; : copydll { addr \ buf$ } \ copy a dll into the windows system folder --- 199,303 ---- : cleanbuild ( f -- ) \ clean up the files before install ! cls cr ! if c" HYPER.NDX" filedelete ! c" HELP.NDX" filedelete ! then ! c" FORTHFORM.EXE" filedelete ! C" Player4.exe" filedelete ! C" PlayVirginRadio.exe" filedelete ! c" PROJECT.EXE" filedelete ! C" SciEditMdi.EXE" filedelete ! C" solipion.exe" filedelete ! C" Sudoku.exe" filedelete ! c" WIN32FOR.EXE" filedelete ! c" WIN32FOR.DBG" filedelete ! c" Win32ForthIde.exe" filedelete ! c" WINED.EXE" filedelete ! c" PictureViewer.EXE" filedelete ! ; : buildstage1 ! ." -- Stage 1" cr ! c" FKERNEL.EXE fload src\extend.f bye" procexec ! c" WIN32FOR.EXE" filecheck ! ; : buildmeta ! ." -- Meta Compile" cr ! c" WIN32FOR.EXE fload src\kernel\meta.f bye" procexec ! c" FKERNEL.EXE" filecheck ! ; : buildmetafixed ! ." -- Meta Compile (fixed loadpoint)" cr ! c" WIN32FOR.EXE fload src\kernel\meta.f setsize bye" procexec ! c" FKERNEL.EXE" filecheck ! ; : buildextend ! ." -- Extend" cr ! c" FKERNEL.EXE fload src\extend.f bye" procexec ! c" WIN32FOR.EXE" filecheck ! ; : buildwined ! ." -- WinEd" cr ! c" WIN32FOR.EXE chdir apps\wined fload wined.f bye" procexec ! c" WINED.EXE" filecheck ! ; : buildindex ! ." -- Hyper link indices" cr ! ." -- building HELP.NDX" cr ! s" HELP.CFG" &WINED.CFG place ! s" HELP.NDX" &WINED.NDX place ! build-index c" HELP.NDX" filecheck ! ." -- building HYPER.NDX" cr ! s" WINED.CFG" &WINED.CFG place ! s" HYPER.NDX" &WINED.NDX place ! build-index c" HYPER.NDX" filecheck ! ; : buildforthform ! ." -- ForthForm" cr ! c" WIN32FOR.EXE chdir apps\forthform fload forthform.f bye" procexec ! c" FORTHFORM.EXE" filecheck ! ; : buildproject ! ." -- ProjectManager" cr ! c" WIN32FOR.EXE chdir apps\ProMgr fload ProjectManager.f bye" procexec ! c" PROJECT.EXE" filecheck ! ; : buildscintilla ! ." -- SciEdit" cr ! c" WIN32FOR.EXE chdir apps\SciEdit fload Main.f bye" procexec ! c" SciEditMdi.EXE" filecheck ! ; : buildide ! ." -- Win32Forth IDE" cr ! c" WIN32FOR.EXE chdir apps\Win32ForthIDE fload main.f bye" procexec ! c" Win32ForthIde.exe" filecheck ! ; : buildsamples ! ." -- Sample applications" cr ! c" WIN32FOR.EXE chdir apps\Player4 fload Player4.f bye" procexec ! c" Player4.EXE" filecheck ! ! c" WIN32FOR.EXE chdir apps\Solipon2 fload SOLIPION.F bye" procexec ! c" SOLIPION.EXE" filecheck ! ! c" WIN32FOR.EXE chdir apps\Sudoku fload Sudoku.F bye" procexec ! c" Sudoku.EXE" filecheck ! ! c" WIN32FOR.EXE chdir apps\PlayVirginRadio fload PlayVirginRadio.F bye" procexec ! c" PlayVirginRadio.EXE" filecheck ! ! c" WIN32FOR.EXE chdir apps\PictureViewer fload PictureViewer.f bye" procexec ! c" PictureViewer.EXE" filecheck ! ; : copydll { addr \ buf$ } \ copy a dll into the windows system folder *************** *** 299,303 **** buf$ filecheck then ! ; : copywindowdll ( -- ) \ copy the win32forth dll's to the windows system folder --- 310,314 ---- buf$ filecheck then ! ; : copywindowdll ( -- ) \ copy the win32forth dll's to the windows system folder *************** *** 306,429 **** c" wincon.dll" copydll c" Zip32.dll" copydll ! ; \ install processing : (install) ( f -- ) ! dup cleanbuild \ delete old EXE, DBG and NDX files ! buildstage1 \ create a temporary win32for.exe (used to metacompile the kernel) ! buildmeta \ metacompile the kernel (build fkernel.exe) ! buildextend \ extend the kernel (build win32forth.exe) ! buildwined \ build WinEd ! if buildindex \ build the index files for WinEd ! then ! buildforthform \ build ForthForm ! buildproject \ build ProjectManager ! \ buildscintilla \ build SciEdit ! buildsamples \ build sample applications ! buildide \ build Win32Forth IDE ; : install-silent ( f -- ) ! cls cr ! ." INSTALL SILENT requested" cr cr ! dashline cr ! (install) ! setup-bye ; \ install processing : install ! ! cls cr ! ." INSTALL requested" cr cr ! dashline cr ! ." We are going to briefly recompile Win32Forth from scratch. " cr ! ." If you don't wish to do this right now you can press ESC or" cr ! ." CTRL-C to abort now. " cr ! cr ! ." GO AHEAD, touch enter, we think you will enjoy it. There is" cr ! ." an active group of us here to answer questions & help you. " cr ! ." Some do it for fun, some do it for intellectual stimulation." cr ! ." You can try again when ever you want, by running Setup.exe" cr ! ." again before using Win32Forth as this is a required step. " cr ! cr dashline cr ! ." During the setup process, you will NOT be required to make " cr ! ." any interaction with the process. We will set your internal" cr ! ." user paths to your new configuration. We will be surprised " cr ! ." if it does not complete successfully. " cr ! cr ! ." Please make sure you're not running any other versions of " cr ! ." Win32Forth; that is, you should save your work and end any " cr ! ." WIN3FOR.EXE, WINED.EXE, or FORTHFORM.EXE that might be " cr ! ." running. This is required for a successful meta-compile. " cr ! cr ! ." If the above is not the cause of the problem, the task in " cr ! ." error will wait for you to acknowledge it by pressing the " cr ! ." <enter> key. Please note the error information (use copy) " cr ! ." and paste into an email. Send this to us at the news group " cr ! ." win...@ya..., where we will attempt to fix " cr ! ." the problem. Generally all goes well. :-) " cr ! cr ! ." Your USER PREFERENCES are set by clicking on the little man" cr ! ." in the green shirt on the menu bar at the top of WinEd. " cr ! cr ! checkcont ! true (install) ! endedok ; \ meta compile, full processing : makeall ! cls cr ! ." MAKEALL requested" cr ! dashline ! ." Your system will be rebuilt, and you can change the size of the" cr ! ." Application-, System- and Codespace." cr ! checkcont ! buildmetafixed ! buildextend ! buildwined ! buildindex ! buildforthform ! buildproject ! \ buildscintilla \ build SciEdit ! buildsamples \ build sample applications ! buildide \ build Win32Forth IDE ! endedok ; \ meta only ! : meta ! cls cr ! ." META requested" cr ! dashline ! ." Rebuilding FKERNEL.EXE" cr ! checkcont ! buildmeta ! endedok ; \ extend : extend ! cls cr ! ." EXTEND requested" cr ! dashline ! ." Rebuilding WIN32FOR.EXE" cr ! checkcont ! buildextend ! endedok ; \ metaextend : metaextend ! cls cr ! ." METAEXTEND requested" cr ! dashline ! ." Rebuilding FKERNEL.EXE and" cr ! ." Rebuilding WIN32FOR.EXE" cr ! checkcont ! buildmetafixed ! buildextend ! endedok ; --- 317,439 ---- c" wincon.dll" copydll c" Zip32.dll" copydll ! ; \ install processing : (install) ( f -- ) ! dup cleanbuild \ delete old EXE, DBG and NDX files ! buildstage1 \ create a temporary win32for.exe (used to metacompile the kernel) ! buildmeta \ metacompile the kernel (build fkernel.exe) ! buildextend \ extend the kernel (build win32forth.exe) ! buildwined \ build WinEd ! if buildindex \ build the index files for WinEd ! then ! buildforthform \ build ForthForm ! buildproject \ build ProjectManager ! buildscintilla \ build SciEdit ! buildsamples \ build sample applications ! buildide \ build Win32Forth IDE ; : install-silent ( f -- ) ! cls cr ! ." INSTALL SILENT requested" cr cr ! dashline cr ! (install) ! setup-bye ; \ install processing : install ! cls cr ! ." INSTALL requested" cr cr ! dashline cr ! ." We are going to briefly recompile Win32Forth from scratch. " cr ! ." If you don't wish to do this right now you can press ESC or" cr ! ." CTRL-C to abort now. " cr ! cr ! ." GO AHEAD, touch enter, we think you will enjoy it. There is" cr ! ." an active group of us here to answer questions & help you. " cr ! ." Some do it for fun, some do it for intellectual stimulation." cr ! ." You can try again when ever you want, by running Setup.exe" cr ! ." again before using Win32Forth as this is a required step. " cr ! cr dashline cr ! ." During the setup process, you will NOT be required to make " cr ! ." any interaction with the process. We will set your internal" cr ! ." user paths to your new configuration. We will be surprised " cr ! ." if it does not complete successfully. " cr ! cr ! ." Please make sure you're not running any other versions of " cr ! ." Win32Forth; that is, you should save your work and end any " cr ! ." WIN3FOR.EXE, WINED.EXE, or FORTHFORM.EXE that might be " cr ! ." running. This is required for a successful meta-compile. " cr ! cr ! ." If the above is not the cause of the problem, the task in " cr ! ." error will wait for you to acknowledge it by pressing the " cr ! ." <enter> key. Please note the error information (use copy) " cr ! ." and paste into an email. Send this to us at the news group " cr ! ." win...@ya..., where we will attempt to fix " cr ! ." the problem. Generally all goes well. :-) " cr ! cr ! ." Your USER PREFERENCES are set by clicking on the little man" cr ! ." in the green shirt on the menu bar at the top of WinEd. " cr ! cr ! checkcont ! true (install) ! endedok ; \ meta compile, full processing : makeall ! cls cr ! ." MAKEALL requested" cr ! dashline ! ." Your system will be rebuilt, and you can change the size of the" cr ! ." Application-, System- and Codespace." cr ! checkcont ! buildmetafixed ! buildextend ! buildwined ! buildindex ! buildforthform ! buildproject ! buildscintilla \ build SciEdit ! buildsamples \ build sample applications ! buildide \ build Win32Forth IDE ! endedok ; \ meta only ! : meta ( -- ) ! cls cr ! ." META requested" cr ! dashline ! ." Rebuilding FKERNEL.EXE" cr ! checkcont ! buildmeta ! endedok ; \ extend : extend ! cls cr ! ." EXTEND requested" cr ! dashline ! ." Rebuilding WIN32FOR.EXE" cr ! checkcont ! buildextend ! endedok ; \ metaextend : metaextend ! cls cr ! ." METAEXTEND requested" cr ! dashline ! ." Rebuilding FKERNEL.EXE and" cr ! ." Rebuilding WIN32FOR.EXE" cr ! checkcont ! buildmetafixed ! buildextend ! endedok ; *************** *** 431,441 **** \ changed September 10th, 2003 - 12:51 dbu : wined ! cls cr ! ." WINED requested" cr ! dashline ! ." Rebuilding WINED.EXE" cr ! checkcont ! buildwined ! endedok ; --- 441,451 ---- \ changed September 10th, 2003 - 12:51 dbu : wined ! cls cr ! ." WINED requested" cr ! dashline ! ." Rebuilding WINED.EXE" cr ! checkcont ! buildwined ! endedok ; *************** *** 443,453 **** \ new September 10th, 2003 - 12:51 dbu : index ! cls cr ! ." INDEX requested" cr ! dashline ! ." Rebuilding index files" cr ! checkcont ! buildindex ! endedok ; --- 453,463 ---- \ new September 10th, 2003 - 12:51 dbu : index ! cls cr ! ." INDEX requested" cr ! dashline ! ." Rebuilding index files" cr ! checkcont ! buildindex ! endedok ; *************** *** 455,465 **** \ new September 16th, 2003 dbu : forthform ! cls cr ! ." ForthForm requested" cr ! dashline ! ." Rebuilding ForthForm" cr ! checkcont ! buildforthform ! endedok ; --- 465,475 ---- \ new September 16th, 2003 dbu : forthform ! cls cr ! ." ForthForm requested" cr ! dashline ! ." Rebuilding ForthForm" cr ! checkcont ! buildforthform ! endedok ; *************** *** 467,477 **** \ Sonntag, May 30 2004 - 9:50 dbu : project ! cls cr ! ." ProjectManager requested" cr ! dashline ! ." Rebuilding ProjectManager" cr ! checkcont ! buildproject ! endedok ; --- 477,487 ---- \ Sonntag, May 30 2004 - 9:50 dbu : project ! cls cr ! ." ProjectManager requested" cr ! dashline ! ." Rebuilding ProjectManager" cr ! checkcont ! buildproject ! endedok ; *************** *** 479,532 **** \ new June 26th, 2004 - 6:50 aws : scintilla ! cls cr ! ." Scintilla Editor requested" cr ! dashline ! ." Rebuilding Scintilla Editor" cr ! checkcont ! buildscintilla \ build SciEdit ! endedok ; ! \ Scintilla Editor \ Mittwoch, Juni 07 2006 - 18:01 dbu : ide ! cls cr ! ." Win32Forth IDE requested" cr ! dashline ! ." Rebuilding Win32Forth IDE" cr ! checkcont ! buildide \ build Win32Forth IDE ! endedok ; \ Sample applications \ new Samstag, Juni 11 2005 - 8:41 dbu ! : samples ! cls cr ! ." Sample applications requested" cr ! dashline ! ." Rebuilding Sample applications" cr ! checkcont ! buildsamples ! endedok ; : dllcopy ! cls cr ! ." DLL copy requested" cr ! dashline ! ." Copy Win32Forth dll's to the windows system folder '" ! SystemDirectory$ count type ." '" cr ! false (checkcont) ! copywindowdll ! endedok ; : create-links ! cls cr ! ." Createing of shortcuts requested" cr ! false (checkcont) ! create_links_on_desktop ! endedok ; --- 489,542 ---- \ new June 26th, 2004 - 6:50 aws : scintilla ! cls cr ! ." Scintilla Editor requested" cr ! dashline ! ." Rebuilding Scintilla Editor" cr ! checkcont ! buildscintilla \ build SciEdit ! endedok ; ! \ Win32ForthIDE Editor \ Mittwoch, Juni 07 2006 - 18:01 dbu : ide ! cls cr ! ." Win32Forth IDE requested" cr ! dashline ! ." Rebuilding Win32Forth IDE" cr ! checkcont ! buildide \ build Win32Forth IDE ! endedok ; \ Sample applications \ new Samstag, Juni 11 2005 - 8:41 dbu ! : samples ! cls cr ! ." Sample applications requested" cr ! dashline ! ." Rebuilding Sample applications" cr ! checkcont ! buildsamples ! endedok ; : dllcopy ! cls cr ! ." DLL copy requested" cr ! dashline ! ." Copy Win32Forth dll's to the windows system folder '" ! SystemDirectory$ count type ." '" cr ! false (checkcont) ! copywindowdll ! endedok ; : create-links ! cls cr ! ." Createing of shortcuts requested" cr ! false (checkcont) ! create_links_on_desktop ! endedok ; |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:34
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/ProMgr Modified Files: ProjectManager.f Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: ProjectManager.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** ProjectManager.f 26 Aug 2006 15:25:31 -0000 1.18 --- ProjectManager.f 2 Dec 2006 10:17:30 -0000 1.19 *************** *** 1942,1960 **** : InitDir ( -- ) ! current-dir$ count SetDir: OpenProjectDialog ; ! Initialization-chain Chain-add InitDir ! :noname ( -- ) ! init-console ! if initialization-chain do-chain then ! exception@ if bye then ! default-application ; is default-hello 0 0 ' PM application Project.exe \ add the Application Icon needs Resources ! s" src\res\Project.ico" s" Project.exe" AddAppIcon 1 pause-seconds bye --- 1942,1961 ---- : InitDir ( -- ) ! current-dir$ count SetDir: OpenProjectDialog ; Initialization-chain Chain-add InitDir ! :noname ( -- ) ! init-console ! if initialization-chain do-chain then ! exception@ if bye then ! default-application ; is default-hello + &forthdir count &appdir place 0 0 ' PM application Project.exe + &appdir off \ add the Application Icon needs Resources ! s" src\res\Project.ico" s" Project.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:34
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/WinEd Modified Files: WinEd.f Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** WinEd.f 31 Jul 2006 12:21:37 -0000 1.14 --- WinEd.f 2 Dec 2006 10:17:30 -0000 1.15 *************** *** 144,153 **** also hidden ' uninit-shared-forth is uninit-shared-type previous throw ! &forthdir count temp$ place s" WinEd.exe" temp$ +place ! s" src\res\WinEd.ico" temp$ count AddAppIcon 1 pause-seconds bye [else] ! &forthdir count temp$ place s" WinEd.exe" temp$ +place ! s" src\res\WinEd.ico" temp$ count AddAppIcon WinEd [then] --- 144,151 ---- also hidden ' uninit-shared-forth is uninit-shared-type previous throw ! s" src\res\WinEd.ico" s" WinEd.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye [else] ! s" src\res\WinEd.ico" s" WinEd.exe" Prepend<home>\ AddAppIcon WinEd [then] |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:34
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/ForthForm Modified Files: FORTHFORM.F Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: FORTHFORM.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** FORTHFORM.F 20 Nov 2006 14:18:17 -0000 1.15 --- FORTHFORM.F 2 Dec 2006 10:17:30 -0000 1.16 *************** *** 1245,1249 **** forthform also \ add the Application Icon to the resource of the exe-file if possible ! \+ sysgen s" src\res\ForthForm.ico" s" ForthForm.exe" AddAppIcon \+ sysgen previous --- 1245,1249 ---- forthform also \ add the Application Icon to the resource of the exe-file if possible ! \+ sysgen s" src\res\ForthForm.ico" s" ForthForm.exe" Prepend<home>\ AddAppIcon \+ sysgen previous |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:33
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/Win32ForthIDE Modified Files: Main.f Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** Main.f 21 Oct 2006 11:11:47 -0000 1.32 --- Main.f 2 Dec 2006 10:17:30 -0000 1.33 *************** *** 19,23 **** only forth also editor definitions \ put all words into the EDITOR vocabulary ! true value sysgen s" apps\Win32ForthIDE" "fpath+ --- 19,28 ---- only forth also editor definitions \ put all words into the EDITOR vocabulary ! true value sysgen ! ! cr .( .forthdir =) .forthdir ! cr .( .dir =) .dir ! ! key drop s" apps\Win32ForthIDE" "fpath+ *************** *** 1023,1031 **** also hidden ' uninit-shared-forth is uninit-shared-type previous throw ! s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" AddAppIcon 1 pause-seconds bye [else] ! s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" AddAppIcon Main [then] --- 1028,1036 ---- also hidden ' uninit-shared-forth is uninit-shared-type previous throw ! s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye [else] ! s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" Prepend<home>\ AddAppIcon Main [then] |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:33
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/Player4 Modified Files: PLAYER4.F Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** PLAYER4.F 26 Aug 2006 15:25:31 -0000 1.62 --- PLAYER4.F 2 Dec 2006 10:17:30 -0000 1.63 *************** *** 661,666 **** false to MciDebug? NoConsoleIO NoConsoleInImage ' player4 turnkey Player4.exe ! s" Player4.ico" s" Player4.exe" AddAppIcon 1 pause-seconds bye [else] --- 661,668 ---- false to MciDebug? NoConsoleIO NoConsoleInImage + + &forthdir count &appdir place ' player4 turnkey Player4.exe ! s" Player4.ico" s" Player4.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye [else] |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:33
|
Update of /cvsroot/win32forth/win32forth/apps/Solipon2 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/Solipon2 Modified Files: SOLIPION.F Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: SOLIPION.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** SOLIPION.F 26 Aug 2006 15:25:31 -0000 1.6 --- SOLIPION.F 2 Dec 2006 10:17:30 -0000 1.7 *************** *** 227,231 **** \ ------------------------------------------------------------------------------ ! \ ----- Sounds inspired of the famous quadrix of mike kemper \ ------------------------------------------------------------------------------ --- 227,231 ---- \ ------------------------------------------------------------------------------ ! \ ----- Sounds inspired of the famous quadrix of mike kemper \ ------------------------------------------------------------------------------ *************** *** 260,264 **** <hypothesis>handle <hypothesis>size r@ read-file 2drop r> close-file drop ! then <hypothesis>flag? music? and --- 260,264 ---- <hypothesis>handle <hypothesis>size r@ read-file 2drop r> close-file drop ! then <hypothesis>flag? music? and *************** *** 831,835 **** create string4$ cell allot : TheSmallsDots ( -- ) ! 0 0 screen-mwidth screen-mheight LTGRAY FillArea: solipion-dc \ BLACK LineColor: solipion-dc --- 831,835 ---- create string4$ cell allot : TheSmallsDots ( -- ) ! 0 0 screen-mwidth screen-mheight LTGRAY FillArea: solipion-dc \ BLACK LineColor: solipion-dc *************** *** 1691,1695 **** false to auto? True to best? ! Start: SOLIPIONW --- 1691,1695 ---- false to auto? True to best? ! Start: SOLIPIONW *************** *** 1706,1710 **** \ The Beginning \ --------------------------------------------------------------- ! : SOLIPION ( -- ) --- 1706,1710 ---- \ The Beginning \ --------------------------------------------------------------- ! : SOLIPION ( -- ) *************** *** 1731,1735 **** !bests New-Game ! endof 'O' +k_control of <<<bleep1>>> --- 1731,1735 ---- !bests New-Game ! endof 'O' +k_control of <<<bleep1>>> *************** *** 1817,1822 **** ; ' solipion turnkey solipion \ build an application on disk ! s" apps\Solipon2\solipion.ico" s" solipion.exe" AddAppIcon 1 pause-seconds ! --- 1817,1823 ---- ; + &forthdir count &appdir place ' solipion turnkey solipion \ build an application on disk ! s" apps\Solipon2\solipion.ico" s" solipion.exe" Prepend<home>\ AddAppIcon 1 pause-seconds ! |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:17:33
|
Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16266/apps/PlayVirginRadio Modified Files: PlayVirginRadio.f Log Message: Build process updated, to set the current dir correctly when compiling an application with the Setup. Index: PlayVirginRadio.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** PlayVirginRadio.f 9 Feb 2006 18:01:44 -0000 1.9 --- PlayVirginRadio.f 2 Dec 2006 10:17:30 -0000 1.10 *************** *** 164,175 **** \ Create the exe-file ' Main turnkey PlayVirginRadio.exe \ add the Application icon to the EXE file ! s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" AddAppIcon 1 pause-seconds bye [else] ! s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" AddAppIcon Main [then] --- 164,176 ---- \ Create the exe-file + &forthdir count &appdir place ' Main turnkey PlayVirginRadio.exe \ add the Application icon to the EXE file ! s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" Prepend<home>\ AddAppIcon 1 pause-seconds bye [else] ! s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" Prepend<home>\ AddAppIcon Main [then] |
|
From: Dirk B. <db...@us...> - 2006-12-02 10:14:56
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15124/src Modified Files: paths.f Log Message: - Backport of my search-path implementation from the STC-Version. Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** paths.f 23 Nov 2006 10:53:16 -0000 1.27 --- paths.f 2 Dec 2006 10:14:51 -0000 1.28 *************** *** 49,52 **** --- 49,54 ---- IF $current-dir! THEN drop ; + IN-SYSTEM + : .dir ( -- ) \ *G Print the current directory. *************** *** 60,100 **** IN-APPLICATION ! : path: ( -- ) \ *G Defines a directory search path. \n \ ** The first 2 cells are used too handle a search path. \n \ ** The next 260 bytes are reserved for a counted string of a path. \n ! \ ** followed by null. \n ! \ ** At runtime it returns address of the counted string of a path create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( - path ) [ 2 cells ] literal + ; - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ Multiple directory path search capability for file open - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - INTERNAL ! create path-file$ MAX-PATH 1+ allot ! ! : path-source ( path -- 2variable_path-source ) \ *G Path-source points to a substring in a path. \n ! \ ** Path-source returns this address. 2 cells- ; EXTERNAL ! path: path-ptr deprecated ! \ *G The old functionality had the bad habbit to pass a pointer through a ! \ ** value instead of passing the parameter over the stack. \n ! \ ** Use win32forth\src\Compat\OldPaths.f for the old functionality. \n ! \ ** Words like first-path" and next-path" are now able to handle ! \ ** each path separately without saving and restoring a path-ptr. ! ! path: search-path ! \ *G search-path defines the path buffer for Forth.\n Applications that let Forth ! \ ** compile should not change it in a way that Forth is not able to compile. ! ! : next-path" ( path -- a1 n1 ) \ *G Get the next path from dir list. dup>r path-source 2@ 2dup ';' scan 2dup 1 /string r> path-source 2! --- 62,91 ---- IN-APPLICATION ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Multiple directory path search capability for file open ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! ! IN-APPLICATION ! ! : path: ( - ) \ *G Defines a directory search path. \n \ ** The first 2 cells are used too handle a search path. \n \ ** The next 260 bytes are reserved for a counted string of a path. \n ! \ ** followed by 0. \n ! \ ** In runtime it returns adres of the counted string of a path create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( - path ) [ 2 cells ] literal + ; INTERNAL ! : path-source ( path - 2variable_path-source ) \ *G Path-source points to a substring in a path. \n ! \ ** Path-source returns this adress. 2 cells- ; EXTERNAL ! : next-path" ( path -- a1 n1 ) \ w32f path \ *G Get the next path from dir list. dup>r path-source 2@ 2dup ';' scan 2dup 1 /string r> path-source 2! *************** *** 106,118 **** ; ! : reset-path-source ( path -- ) \ *G Points the path-source to the whole path. dup>r count r> path-source 2! ; ! : first-path" ( path -- a1 n1 ) \ *G Get the first forth directory path. dup>r reset-path-source r> next-path" ; ! : "path+ ( a1 n1 path -- ) \ *G Append a directory to a path. >r 2dup upper --- 97,109 ---- ; ! : reset-path-source ( path -- ) \ w32f path \ *G Points the path-source to the whole path. dup>r count r> path-source 2! ; ! : first-path" ( path -- a1 n1 ) \ w32f path \ *G Get the first forth directory path. dup>r reset-path-source r> next-path" ; ! : "path+ ( a1 n1 path -- ) \ w32f path \ *G Append a directory to a path. >r 2dup upper *************** *** 129,216 **** then r>drop ; ! : "fpath+ ( a1 n1 -- ) ! \ *G Append a directory to the Forth path. ! search-path "path+ ; - : fpath+ ( -<directory>- ) - \ *G Append a directory to the Forth path. - /parse-s$ count "fpath+ ; ! : .path ( path -- ) ! \ *G Display a directory search path list. ! count ! begin ?dup ! while 2dup ';' scan 2dup 2>r nip - dup char+ ?cr type ! 2r> 1 /string dup ! if ." ;" ! then ! repeat drop ; ! : .fpath ( -- ) ! \ *G Display the Forth directory search path list. ! search-path .path ; ! INTERNAL ! : volume-indication? ( addr -- flag ) ! \ *G True when the counted string at addr starts with x: or \\name ! dup 2 + c@ ascii : <> ! if count drop 2 s" \\" compare 0= ! else drop true ! then ! ; 6 PROC SearchPath ! : full-path { a1 n1 path \ searchpath$ filename$ current$ -- a2 n2 f1 } ! \ *G Find file a1,n1 in a path and return the full path. \n ! \ ** a2,n2 and f1=false, succeeded. ! a1 n1 MAX-PATH 1+ localalloc ascii-z to filename$ ! MAX-PATH 1+ localalloc: searchpath$ MAX_PATH 1+ LocalAlloc: current$ ! current-dir$ count current$ place current$ +null \ save current dir path first-path" ! begin dup>r searchpath$ place searchpath$ +null ! searchpath$ volume-indication? \ Test for another volume ! if searchpath$ char+ $current-dir! \ 0 fails, then try next ! else true ! then ! if 0 \ file component ! path-file$ \ found file name buffer ! max-path \ size of buffer ! defextz$ \ file extension ! filename$ \ file name ! searchpath$ char+ \ search path ! call SearchPath ! 0<> if path-file$ zcount false \ path found ! current$ char+ $current-dir! ! not abort" $current-dir!" \ restore current dir ! r>drop exit \ clear the retun stack and exit ! then ! then ! r> ! while searchpath$ off path next-path" ! repeat a1 n1 path-file$ place path-file$ count true \ return input file and error flag ! current$ char+ $current-dir! not abort" $current-dir!" \ restore current dir ! ; ! EXTERNAL : program-path-init ( -- ) \ *G Initialize the Forth directory search path list. Automatically done at program \ ** initialization and when Paths.f is loaded. ! search-path off \ clear path list ! s" %CURRENTDIR%" "fpath+ ! s" %FORTHDIR%" "fpath+ ! s" %APPDIR%" "fpath+ s" src" "fpath+ s" src\lib" "fpath+ - \ s" src\tools" "fpath+ \ this is causing problems when compiling the IDE... s" src\gdi" "fpath+ \ GDI class library s" src\res" "fpath+ s" src\console" "fpath+ s" doc" "fpath+ \ last ; --- 120,299 ---- then r>drop ; ! in-system + : .path ( path -- ) \ w32f path system + \ *G Display a directory search path list. + \ ** Note: The path source will be resetted for this path. + dup >r first-path" + begin dup + if 2dup cr type + then nip + while r@ next-path" + repeat r> reset-path-source ; + in-application ! INTERNAL ! : volume-indication? ( addr - flag ) ! \ True when the counted string at adr starts with x: or \\name ! dup 2 + c@ [char] : <> ! if count drop 2 s" \\" compare 0= ! else drop true ! then ; + : save-current ( current$ -- ) + \ save current dir + dup current-dir$ count rot place +null ; ! : restore-current ( current$ -- ) ! \ Restore current dir ! char+ $current-dir! not abort" $current-dir!" ; ! create path-file$ MAX-PATH 1+ allot ! ! : search-error ( addr -- ) ! \ return input file and error flag ! count path-file$ place path-file$ count ! true ; 6 PROC SearchPath ! ! EXTERNAL ! ! : full-path { a1 n1 path \ searchpath$ filename$ current$ -- a2 n2 f1 } ! \ *G Find the file \i a1,n1 \d in the path \i path \d and return the full path. ! \ ** \i a2,n2 \d . \i f1 \d = false if succeeded. ! a1 n1 MAX-PATH 1+ LocalAlloc ascii-z to filename$ \ save file name ! MAX_PATH 1+ LocalAlloc: current$ ! current$ save-current \ save current dir ! ! MAX-PATH 1+ LocalAlloc: searchpath$ ! path first-path" ! begin dup ! if searchpath$ place searchpath$ +null ! searchpath$ volume-indication? \ Test for another volume ! if searchpath$ char+ $current-dir! \ 0 fails, then try next ! else true ! then ! ! if path-file$ off ! 0 \ file component ! path-file$ \ found file name buffer ! max-path \ size of buffer ! defextz$ \ file extension ! filename$ \ file name ! searchpath$ char+ \ search path ! call SearchPath 0<> ! if path-file$ zcount false \ path found ! current$ restore-current \ restore current dir ! exit \ and exit ! else true \ try next path... ! then ! then ! else nip ! then ! while path next-path" ! repeat ! ! current$ restore-current \ restore current dir ! filename$ search-error ; \ return input file and error flag ! ! : find-path { a1 n1 basepath path \ filename$ current$ search-current$ -- a2 n2 f1 } ! \ *G Find the file \i a1,n1 \d in the path \i basepath \d by scanning the sub folders ! \ ** defined in \i path \d. Returns the full path of the file if possible. ! \ ** \i a2,n2 \d . \i f1 \d = false if succeeded. ! ! \ Note: We have to save the file name in a temporay buffer, ! \ because a1 n2 can point to the internal buffer new$ and ! \ this buffer can be changed during the search (by current-dir$ ! \ for example). ! MAX-PATH 1+ LocalAlloc: filename$ ! a1 n1 filename$ place \ save file name ! ! MAX_PATH 1+ LocalAlloc: current$ ! current$ save-current \ save current dir ! ! MAX_PATH 1+ LocalAlloc: search-current$ ! ! basepath first-path" ! begin dup ! if \ set the next base folder we shall look in ! search-current$ place search-current$ +null ! search-current$ char+ $current-dir! ! ! \ and try to find the file in this folder ! if filename$ count path full-path 0= ! if current$ restore-current ! 0 exit \ we found the file !!! ! else 2drop true \ try the next folder... ! then ! then ! else nip ! then ! while basepath next-path" ! repeat ! ! current$ restore-current \ restore current dir ! filename$ search-error ; \ return input file and error flag ! ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ "open with Multiple directory path search ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! ! path: search-base-path \ w32f path ! \ *G The path buffer for the base search folders for Forth.\n ! \ ** Applications that let Forth compile should not change it. ! ! path: search-path \ w32f path ! \ *G The path buffer for the sub folders to search in. ! \ ** Applications that let Forth compile should not change it. ! ! : "fbase-path+ ( a1 n1 -- ) \ w32f path ! \ *G Append a directory to the Forth search base path. ! search-base-path "path+ ; ! ! : "fpath+ ( a1 n1 -- ) \ w32f path ! \ *G Append a directory to the Forth search path. ! search-path "path+ ; ! ! in-system ! ! : fbase-path+ ( -<directory>- -- ) \ w32f path system ! \ *G Append a directory to the Forth search base path. ! /parse-s$ count "fbase-path+ ; ! ! : fpath+ ( -<directory>- -- ) \ w32f path system ! \ *G Append a directory to the Forth search path. ! /parse-s$ count "fpath+ ; ! ! : .fpath ( -- ) \ w32f path system ! \ *G Display the Forth directory search path list. ! cr ." Base path: " search-base-path .path ! cr ." Search path: " search-path .path ; ! ! in-application : program-path-init ( -- ) \ *G Initialize the Forth directory search path list. Automatically done at program \ ** initialization and when Paths.f is loaded. ! search-base-path off \ clear path list ! s" %CURRENTDIR%" "fbase-path+ ! s" %FORTHDIR%" "fbase-path+ ! s" %APPDIR%" "fbase-path+ + search-path off \ clear path list + s" ." "fpath+ \ current dir is first s" src" "fpath+ s" src\lib" "fpath+ s" src\gdi" "fpath+ \ GDI class library + s" src\tools" "fpath+ s" src\res" "fpath+ s" src\console" "fpath+ + s" demos" "fpath+ s" doc" "fpath+ \ last ; *************** *** 219,235 **** INITIALIZATION-CHAIN CHAIN-ADD PROGRAM-PATH-INIT ! : "path-file { a1 n1 \ current$ -- a2 n2 f1 } ! \ *G Find file a1,n1 in the Forth path and return the full path. \n \ ** a2,n2 and f1=false, succeeded. ! \ first try it in the current directory ! a1 n1 search-path full-path ! -if 3drop \ then try it in the forth directory ! a1 n1 search-path full-path ! then ; ! ! ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ "open with Multiple directory path search ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ create open-path$ MAXSTRING allot --- 302,309 ---- INITIALIZATION-CHAIN CHAIN-ADD PROGRAM-PATH-INIT ! : "path-file ( a1 n1 -- a2 n2 f1 ) ! \ *G Find file a1,n1 in the Forth search path and return the full path. \n \ ** a2,n2 and f1=false, succeeded. ! search-base-path search-path find-path ; create open-path$ MAXSTRING allot |
|
From: Alex M. <ale...@us...> - 2006-11-30 20:17:37
|
Update of /cvsroot/win32forth/win32forth-stc/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21033 Modified Files: gkernel.f gmeta-compiler.f Log Message: arm: more support for type system Index: gmeta-compiler.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gmeta-compiler.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** gmeta-compiler.f 31 Oct 2006 00:06:53 -0000 1.9 --- gmeta-compiler.f 30 Nov 2006 20:17:32 -0000 1.10 *************** *** 633,636 **** --- 633,659 ---- [THEN] + ALSO ASSEMBLER DEFINITIONS + + : label a; tcode-here constant ; + + : (end-code) + a; + in-meta check-labels + [ asm-hidden ] ?finished ?unres [ assembler ] ?csp + in-code? off + ; + + ' (end-code) is end-code + ' (end-code) is ;c + + PREVIOUS DEFINITIONS + + : ofa-meta ( -- ) + tcode-here ofa-h - \ length of code section + last-h @ n>ofa tsys-w! \ save it + ; + + ' ofa-meta is ofa-calc + : init-assembler ( -- ) \ prepare for assembly code [ assembler ] clear-labels *************** *** 661,688 **** >r code r> t-align t-here t-ecxaddr make-tjmp, \ name -> mov ecx, # here | jmp xt ! macro[ next c; ]macro ; ! ! ALSO ASSEMBLER DEFINITIONS ! ! : label a; tcode-here constant ; ! ! : (end-code) ! a; ! in-meta check-labels ! [ asm-hidden ] ?finished ?unres [ assembler ] ?csp ! in-code? off ! ; ! ! ' (end-code) is end-code ! ' (end-code) is ;c ! ! PREVIOUS DEFINITIONS ! ! : ofa-meta ( -- ) ! tcode-here ofa-h - \ length of code section ! last-h @ n>ofa tsys-w! \ save it ! ; ! ! ' ofa-meta is ofa-calc \ ====================================================================== --- 684,689 ---- >r code r> t-align t-here t-ecxaddr make-tjmp, \ name -> mov ecx, # here | jmp xt ! macro[ c; ]macro ! ofa-meta ; \ ====================================================================== *************** *** 721,726 **** mov ecx, # r@ jmp s" 't-ptr dovoc" evaluate - next (end-code) ]macro r>drop in-application --- 722,727 ---- mov ecx, # r@ jmp s" 't-ptr dovoc" evaluate (end-code) + ofa-meta ]macro r>drop in-application *************** *** 763,767 **** cr ct-link ! begin @ dup while dup ctlink>ptr tsys-there --- 764,768 ---- cr ct-link ! begin @ dup while dup ctlink>ptr tsys-there *************** *** 1017,1023 **** >r code r@ t-literal ! macro[ ! next c; ! ]macro r>drop ; --- 1018,1022 ---- >r code r@ t-literal ! macro[ next c; ]macro r>drop ; *************** *** 1114,1118 **** 2dup ste-o ! ste-i ! ! last-h @ n>ste dup>r 1+ tsys-c! r> tsys-c! ; \ ====================================================================== --- 1113,1117 ---- 2dup ste-o ! ste-i ! ! last-h @ n>ste dup>r 1+ tsys-c! r> tsys-c! ; \ ====================================================================== Index: gkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** gkernel.f 22 Nov 2006 00:07:14 -0000 1.26 --- gkernel.f 30 Nov 2006 20:17:32 -0000 1.27 *************** *** 244,251 **** \ -------------------------- Primitives ----------------------------- - gcode _next - next - ;g - code dovar ( -- n ) \ variable mov -4 [ebp], eax --- 244,247 ---- *************** *** 2457,2475 **** then ; \ ---------------------------- Defining Words -------------------------------- ! 1 constant tval ! 2 constant tvar 3 constant tcon ! 4 constant tusr 5 constant tdef 6 constant tloc 7 constant tcol ! : mov-tos,#n ( n -- ) \ generate a mov eax, # n sync-code \ generate pending code $C0C7 code-w, code-, ; \ mov eax, # ! : mov-ecx,#n ( n -- ) \ generate a mov ecx, # n sync-code \ generate pending code $C1C7 code-w, code-, ; \ mov ecx, # --- 2453,2478 ---- then ; + : unnest ( -- ) \ generate a return + $c3 code-c, ; immediate + \ ---------------------------- Defining Words -------------------------------- ! 1 constant tval \ constants for type system ! 2 constant tvar \ in support of TO and +TO 3 constant tcon ! 4 constant tusr 5 constant tdef 6 constant tloc 7 constant tcol + 8 constant tvoc + 9 constant tflt + 10 constant tstr + 11 constant tobj ! : mov-tos,#n ( n -- ) \ generate a mov eax, # n sync-code \ generate pending code $C0C7 code-w, code-, ; \ mov eax, # ! : mov-ecx,#n ( n -- ) \ generate a mov ecx, # n sync-code \ generate pending code $C1C7 code-w, code-, ; \ mov ecx, # *************** *** 2491,2496 **** tfa! \ set the type here mov-ecx,#n xt-jmp, \ name -> mov ecx, # here | jmp xt ! ofa-calc \ length calculation ! _next (copy-code) ; \ stops disasm : (comp-cons) ( xt -- ) execute postpone literal ; \ execute & compile a literal --- 2494,2498 ---- tfa! \ set the type here mov-ecx,#n xt-jmp, \ name -> mov ecx, # here | jmp xt ! ofa-calc ; \ length calculation : (comp-cons) ( xt -- ) execute postpone literal ; \ execute & compile a literal *************** *** 2508,2512 **** 0 1 in/out : create ( -<name>- ) \ pointer ['] dovar tvar dogen ! ['] (comp-create) compiles-last \ doesn't work because of DOES> needs fixed ; --- 2510,2514 ---- 0 1 in/out : create ( -<name>- ) \ pointer ['] dovar tvar dogen ! ['] (comp-create) compiles-last \ doesn't work because of DOES> , needs fixed ??? ; *************** *** 3180,3186 **** : _dosconsole ( fl -- ) \ true = open, false = close if call AllocConsole drop ! STD_OUTPUT_HANDLE call getstdhandle to stdout ! STD_INPUT_HANDLE call getstdhandle to stdin ! STD_ERROR_HANDLE call getstdhandle to stderr else call FreeConsole drop then ; --- 3182,3188 ---- : _dosconsole ( fl -- ) \ true = open, false = close if call AllocConsole drop ! STD_OUTPUT_HANDLE call GetStdHandle to stdout ! STD_INPUT_HANDLE call GetStdHandle to stdin ! STD_ERROR_HANDLE call GetStdHandle to stderr else call FreeConsole drop then ; *************** *** 4550,4556 **** 0 value localstk \ support for locals (including localalloc) - : unnest ( -- ) \ generate a return - $c3 code-c, ; immediate - \ EXIT compiles _LOCALFREE, but leaves LOCALSTK alone so that ; can \ also compile _LOCALFREE --- 4552,4555 ---- *************** *** 4875,4881 **** |: (voc) ( #threads -<name>- -- ) #wordlist dup \ wid address ! header code-here swap voc>vxt ! \ set the xt for this name ! mov-ecx,#n ['] dovoc xt-jmp, \ set ecx, jmp to dovoc ! postpone unnest ; --- 4874,4881 ---- |: (voc) ( #threads -<name>- -- ) #wordlist dup \ wid address ! header tvoc tfa! \ header, it's vocabulary ! code-here swap voc>vxt ! \ set the xt for this name ! mov-ecx,#n ['] dovoc xt-jmp, \ set ecx, jmp to dovoc ! ofa-calc ; |
|
From: Alex M. <ale...@us...> - 2006-11-30 20:17:15
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20806 Modified Files: dis486.f Log Message: arm: more support for type system Index: dis486.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** dis486.f 22 Nov 2006 00:06:53 -0000 1.6 --- dis486.f 30 Nov 2006 20:17:07 -0000 1.7 *************** *** 1087,1094 **** tval of r@ execute . ." value " .id endof tcon of r@ execute . ." constant " .id endof ! tvar of ." variable " .id ." ( @ is " r@ execute @ 10. ." ) " endof tcol of ." : " .id endof ! tdef of ." defer " .id ." ( xt is " r@ defer@ .name ." )" endof ! swap ." : " .id endcase dup (in/out@) swap --- 1087,1095 ---- tval of r@ execute . ." value " .id endof tcon of r@ execute . ." constant " .id endof ! tvar of ." variable " .id ." ( is " r@ execute @ 10. ." ) " endof tcol of ." : " .id endof ! tdef of ." defer " .id ." ( is " r@ defer@ .name ." )" endof ! tvoc of ." vocabulary " .id endof ! swap ." : " .id endcase dup (in/out@) swap *************** *** 1103,1109 **** ; ! : see ( <name> -- ) ! defined ?missing ! dup describe dup >name n>ofa w@ over + \ length to disassemble swap --- 1104,1109 ---- ; ! : 'see ( xt -- ) ! dup dup describe dup >name n>ofa w@ over + \ length to disassemble swap *************** *** 1116,1120 **** next-inst c@ $c3 = if cr inst then ." ( end )" 2drop ! ; only forth also definitions --- 1116,1125 ---- next-inst c@ $c3 = if cr inst then ." ( end )" 2drop ! dup >name n>tfa c@ tdef = if \ if it's a defer ! defer@ recurse \ do again for deferred word ! else drop then ; ! ! : see ( <name> -- ) ! defined ?missing 'see ; only forth also definitions |
|
From: Alex M. <ale...@us...> - 2006-11-30 20:17:13
|
Update of /cvsroot/win32forth/win32forth-stc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20665 Modified Files: gkernel.exe Log Message: arm: more support for type system Index: gkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/gkernel.exe,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 Binary files /tmp/cvsPBgPrn and /tmp/cvsHExtcI differ |
|
From: Jos v.d.V. <jo...@us...> - 2006-11-29 13:23:38
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3771 Modified Files: FloadCmdLine.htm Log Message: Jos: Made the DEX part a bit clearer. Index: FloadCmdLine.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/FloadCmdLine.htm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** FloadCmdLine.htm 29 Aug 2006 10:31:46 -0000 1.6 --- FloadCmdLine.htm 29 Nov 2006 13:23:34 -0000 1.7 *************** *** 1,19 **** ! <html> <head> ! <meta http-equiv="Content-Language" content="en-gb"> ! <meta name="GENERATOR" content="dexh00"> ! <meta name="ProgId" content="FrontPage.Editor.Document"> ! <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> ! <title> ! </title><style><!-- ! h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } ! h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> </style> </head> ! <body><h1 align="center"> ! <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id$"> ! <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> ! <img border="0" src="FORTHPRO.gif" ! width="32" height="32"> Win32Forth</h1> <hr /><h1>Experimental shell integration for Win32Forth </h1><hr /><br />FloadCmdLine allows compiling from the context menu. --- 1,15 ---- ! <?xml version="1.0"?> ! <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" ! "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> ! <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> ! <meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" /> ! <meta name="GENERATOR" content="DexH v03" /> ! <style type="text/css"> </style> + <title> + </title> </head> ! <body> <hr /><h1>Experimental shell integration for Win32Forth </h1><hr /><br />FloadCmdLine allows compiling from the context menu. *************** *** 21,41 **** <br />The CMenuExtender can be downloaded from: <a href="http://www.monctoncomputerservice.com/revenger_inc/download.html">here.</a> ! <p><b>How it works:</b> ! <br />1.Create a menu entry for Win32Forth using CMExtEd. ! <br />2.Name it Win32Forth. ! <br />3.Enter FloadCmdLine on the commandline in CMExtEd. ! <br />4.Use change to check it. ! <br />5.Be sure that Append file is active. ! <br />6.Make a copy of Win32for.exe ! <br />7.Compile FloadCmdLine.f with the <b>copied</b> Win32for.exe ! <br />8.Replace the Win32Forth with Win32Forth from the \src directory. ! <br />9.Then start the explorer and click right on a *.f file. ! <br />10.Choose Win32Forth. ! </p><p><b>Notes:</b> <br />1.Only testet under XP. <br />2.It is also possible to add WinEd to the context menu. ! Then leave the commandline in CMExtEd empty. </p><pre><b><a name="0">: FloadCmdLine ( - ) </a></b></pre><p> Compiles the file in the command line. ! </p><hr><p>Document $Id$</p> </body></html> --- 17,40 ---- <br />The CMenuExtender can be downloaded from: <a href="http://www.monctoncomputerservice.com/revenger_inc/download.html">here.</a> ! <p><b>How it works when Win32Forth is in c:\win32forth :</b> ! </p><br />1.Start CMExtEd. ! <br />2.Create a New item for Win32Forth using the Custom Command option. ! <br />3.Caption: Win32Forth. ! <br />4.Command: c:\win32forth\Win32for.exe ! <br />5.commandline: FloadCmdLine ! <br />6.Activate: Append file. ! <br />7.Icon: Choose a nice Icon and Click op OK ! <br />8.Use change to check it. ! <br />9.Fload c:win32forth\src\FloadCmdLine.f ! <br />10.Copy c:\win32forth\src\Win32for.exe to c:\win32forth\Win32for.exe ! <br />11.Overwrite the orginal version. ! <br />12.Then start the explorer and click right on a *.f file. ! <br />13.Choose Win32Forth. ! <p><b>Notes:</b> <br />1.Only testet under XP. <br />2.It is also possible to add WinEd to the context menu. ! Then leave the commandline in CMExtEd empty and activate: Append file. </p><pre><b><a name="0">: FloadCmdLine ( - ) </a></b></pre><p> Compiles the file in the command line. ! </p><hr /> </body></html> |
|
From: Jos v.d.V. <jo...@us...> - 2006-11-29 13:23:10
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3377 Modified Files: floadcmdline.f Log Message: Jos: Made the DEX part a bit clearer. Index: floadcmdline.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/floadcmdline.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** floadcmdline.f 27 Jul 2006 07:21:10 -0000 1.5 --- floadcmdline.f 29 Nov 2006 13:22:58 -0000 1.6 *************** *** 10,29 **** \ *W <a href="http://www.monctoncomputerservice.com/revenger_inc/download.html">here.</a> ! \ *P \bHow it works:\d ! \ ** \n1.Create a menu entry for Win32Forth using CMExtEd. ! \ ** \n2.Name it Win32Forth. ! \ ** \n3.Enter FloadCmdLine on the commandline in CMExtEd. ! \ ** \n4.Use change to check it. ! \ ** \n5.Be sure that Append file is active. ! \ ** \n6.Make a copy of Win32for.exe ! \ ** \n7.Compile FloadCmdLine.f with the \bcopied\d Win32for.exe ! \ ** \n8.Replace the Win32Forth with Win32Forth from the \src directory. ! \ ** \n9.Then start the explorer and click right on a *.f file. ! \ ** \n10.Choose Win32Forth. \ *P \bNotes:\d \ ** \n1.Only testet under XP. \ ** \n2.It is also possible to add WinEd to the context menu. ! \ ** Then leave the commandline in CMExtEd empty. in-system --- 10,33 ---- \ *W <a href="http://www.monctoncomputerservice.com/revenger_inc/download.html">here.</a> ! \ *P \bHow it works when Win32Forth is in c:\win32forth :\d ! ! \ ** \n1.Start CMExtEd. ! \ ** \n2.Create a New item for Win32Forth using the Custom Command option. ! \ ** \n3.Caption: Win32Forth. ! \ ** \n4.Command: c:\win32forth\Win32for.exe ! \ ** \n5.commandline: FloadCmdLine ! \ ** \n6.Activate: Append file. ! \ ** \n7.Icon: Choose a nice Icon and Click op OK ! \ ** \n8.Use change to check it. ! \ ** \n9.Fload c:win32forth\src\FloadCmdLine.f ! \ ** \n10.Copy c:\win32forth\src\Win32for.exe to c:\win32forth\Win32for.exe ! \ ** \n11.Overwrite the orginal version. ! \ ** \n12.Then start the explorer and click right on a *.f file. ! \ ** \n13.Choose Win32Forth. \ *P \bNotes:\d \ ** \n1.Only testet under XP. \ ** \n2.It is also possible to add WinEd to the context menu. ! \ ** Then leave the commandline in CMExtEd empty and activate: Append file. in-system |
|
From: Jos v.d.V. <jo...@us...> - 2006-11-26 10:28:26
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv10674 Modified Files: TESTEXAMPLE.F Log Message: Jos: Small bugfix, thanks to Ezra. Index: TESTEXAMPLE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/TESTEXAMPLE.F,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TESTEXAMPLE.F 21 Dec 2004 00:18:45 -0000 1.1 --- TESTEXAMPLE.F 26 Nov 2006 10:28:21 -0000 1.2 *************** *** 16,20 **** anew tst ! needs example.frm \ load the form window mywin \ this will be parent --- 16,20 ---- anew tst ! needs example.f \ load the form window mywin \ this will be parent |
|
From: Rod O. <rod...@us...> - 2006-11-23 18:52:37
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv30594/src/lib Modified Files: toolbar.f Log Message: Rod: Changed On_BeginAdjust: to return false so that customizable toolbars now work when using a manifest for XP Visual Styles Index: toolbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/toolbar.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** toolbar.f 13 Sep 2006 09:34:57 -0000 1.5 --- toolbar.f 23 Nov 2006 18:52:32 -0000 1.6 *************** *** 22,25 **** --- 22,29 ---- Change log: + November 23rd, 2006 - 18:45 - Rod + Changed On_BeginAdjust: to return false so that a toolbar is now restored + correctly when using a manifest for XP Visual Styles (ComCtl32.dll version 6) + September 12th, 2006 - 20:47 - gah Added \in-system-ok to account for ?pairs being moved to system space *************** *** 592,597 **** :M On_BeginAdjust: ( -- f ) \ Beginning customization true SaveRestore: self ! true ! ;M :M On_EndAdjust: ( -- f ) \ User done with customization --- 596,601 ---- :M On_BeginAdjust: ( -- f ) \ Beginning customization true SaveRestore: self ! false \ ComCtl32.dll version 6 for XP requires false here ! ;M \ otherwise SaveRestore: restores an empty toolbar :M On_EndAdjust: ( -- f ) \ User done with customization |
|
From: George H. <geo...@us...> - 2006-11-23 16:15:38
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1084/win32forth/apps/ForthForm Modified Files: FORMOBJECT.F Log Message: gah:Fix for delete problem from Ezra Boyce Index: FORMOBJECT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** FORMOBJECT.F 20 Nov 2006 14:18:17 -0000 1.13 --- FORMOBJECT.F 23 Nov 2006 16:15:30 -0000 1.14 *************** *** 1111,1114 **** --- 1111,1115 ---- GetType: ActiveControl dec-array ActiveControl ?ControlNumber >Link#: ControlList + Free: ActiveControl ActiveControl Dispose \ closes control before disposing 0 Data!: ControlList *************** *** 1139,1142 **** --- 1140,1144 ---- 0 Data!: ControlList \ zero it DeleteLink: ControlList \ and delete + Free: ActiveControl ActiveControl Dispose \ ditto for old control r> >Link#: ControlList \ as we were |
|
From: George H. <geo...@us...> - 2006-11-23 10:53:20
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29586/win32forth/src Modified Files: paths.f Log Message: gah:Corrected full-path to use the local path instead of the global search-path Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** paths.f 25 Sep 2006 11:44:34 -0000 1.26 --- paths.f 23 Nov 2006 10:53:16 -0000 1.27 *************** *** 90,98 **** \ ** Use win32forth\src\Compat\OldPaths.f for the old functionality. \n \ ** Words like first-path" and next-path" are now able to handle ! \ ** each path separate without saving and restoring a path-ptr. path: search-path \ *G search-path defines the path buffer for Forth.\n Applications that let Forth ! \ ** compile should not change it in a way that Forth is not able too compile. : next-path" ( path -- a1 n1 ) --- 90,98 ---- \ ** Use win32forth\src\Compat\OldPaths.f for the old functionality. \n \ ** Words like first-path" and next-path" are now able to handle ! \ ** each path separately without saving and restoring a path-ptr. path: search-path \ *G search-path defines the path buffer for Forth.\n Applications that let Forth ! \ ** compile should not change it in a way that Forth is not able to compile. : next-path" ( path -- a1 n1 ) *************** *** 172,176 **** MAX_PATH 1+ LocalAlloc: current$ current-dir$ count current$ place current$ +null \ save current dir ! search-path first-path" begin dup>r searchpath$ place searchpath$ +null searchpath$ volume-indication? \ Test for another volume --- 172,176 ---- MAX_PATH 1+ LocalAlloc: current$ current-dir$ count current$ place current$ +null \ save current dir ! path first-path" begin dup>r searchpath$ place searchpath$ +null searchpath$ volume-indication? \ Test for another volume *************** *** 192,196 **** then r> ! while searchpath$ off search-path next-path" repeat a1 n1 path-file$ place path-file$ count true \ return input file and error flag current$ char+ $current-dir! not abort" $current-dir!" \ restore current dir --- 192,196 ---- then r> ! while searchpath$ off path next-path" repeat a1 n1 path-file$ place path-file$ count true \ return input file and error flag current$ char+ $current-dir! not abort" $current-dir!" \ restore current dir |
|
From: Alex M. <ale...@us...> - 2006-11-22 00:07:18
|
Update of /cvsroot/win32forth/win32forth-stc/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5713 Modified Files: gkernel.f Log Message: arm: further support for type system; cleaner optimisation Index: gkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v retrieving revision 1.25 retrieving revision 1.26 diff -C2 -d -r1.25 -r1.26 *** gkernel.f 13 Nov 2006 00:49:28 -0000 1.25 --- gkernel.f 22 Nov 2006 00:07:14 -0000 1.26 *************** *** 545,550 **** next; - \ -------------------- stack operators ------------------------------- - code sp@ ( -- addr ) \ get addr of the stack 0 1 in/out --- 545,548 ---- *************** *** 799,802 **** --- 797,801 ---- next; + (( code 3reverse ( n1 n2 n3 -- n3 n2 n1 ) \ *G exchange first and third items on data stack *************** *** 818,821 **** --- 817,844 ---- mov 0 [ebp], ecx next; + )) + + code s-reverse ( n[k]..2 1 0 k -- 0 1 2..n[k] ) \ w32f + \ *g reverse n items on stack \n + \ ** usage: 1 2 3 4 5 5 s-reverse ==> 5 4 3 2 1 + -1 -1 in/out + lea ecx, -4 [ebp] \ ecx points 4 under top of stack + lea eax, 4 [ecx] [eax*4] \ eax points 4 over stack + \ bump pointers, if they overlap, stop + @@1: sub eax, # 4 \ adjust top + add ecx, # 4 \ adjust bottom + cmp ecx, eax \ compare + jae short @@2 \ ecx passing ebx, so exit + \ rotate a pair + mov edx, 0 [eax] \ bottom to edx + xor 0 [ecx], edx \ exchange top and edx + xor edx, 0 [ecx] + xor 0 [ecx], edx + mov 0 [eax], edx \ eax to bottom + jmp short @@1 \ next pair + + @@2: mov eax, [ebp] + lea ebp, 4 [ebp] + next c; \ -------------------- Memory operators ------------------------------- |
|
From: Alex M. <ale...@us...> - 2006-11-22 00:06:56
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5696 Modified Files: dis486.f optliterals.f Log Message: arm: further support for type system; cleaner optimisation Index: dis486.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** dis486.f 13 Nov 2006 00:49:19 -0000 1.5 --- dis486.f 22 Nov 2006 00:06:53 -0000 1.6 *************** *** 1075,1079 **** \ tcol ! : desc-stack ( n -- ) dup 0< if drop ." ? " else . then ; --- 1075,1079 ---- \ tcol ! : desc-stack ( n -- ) dup 0< if drop ." ? " else . then ; *************** *** 1082,1093 **** : describe ( xt -- ) ! >name cr ! dup ." : " count type ! dup (in/out@) swap ! ." ( " desc-stack ." -- " desc-stack ! dup ." ) "oper-col ." ( len=" n>ofa w@ . dup ." type=" n>tfa c@ . ! ." flag=" n>flg c@ h.2 ." )" ; --- 1082,1104 ---- : describe ( xt -- ) ! dup>r >name cr ! dup dup n>tfa c@ ! case ! tval of r@ execute . ." value " .id endof ! tcon of r@ execute . ." constant " .id endof ! tvar of ." variable " .id ." ( @ is " r@ execute @ 10. ." ) " endof ! tcol of ." : " .id endof ! tdef of ." defer " .id ." ( xt is " r@ defer@ .name ." )" endof ! swap ." : " .id ! endcase ! dup (in/out@) swap ! ." ( " desc-stack ." -- " desc-stack ! dup ." ) " oper-col ." \ len=" n>ofa w@ . dup ." type=" n>tfa c@ . ! dup ." flag=" n>flg c@ h.2 ! dup cr oper-col ." \ file=" >ffa@ .id ! dup ." @ " >vfa@ 10. ! r>drop drop ; Index: optliterals.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/optliterals.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** optliterals.f 13 Nov 2006 00:49:19 -0000 1.9 --- optliterals.f 22 Nov 2006 00:06:53 -0000 1.10 *************** *** 34,63 **** cr .( Loading optimiser [literals]...) ! [undefined] optimise [if] vocabulary optimise [then] - code s-reverse ( n[k]..2 1 0 k -- 0 1 2..n[k] ) \ w32f - \ *g reverse n items on stack \n - \ ** usage: 1 2 3 4 5 5 s-reverse ==> 5 4 3 2 1 - lea ecx, -4 [ebp] \ ecx points 4 under top of stack - lea eax, 4 [ecx] [eax*4] \ eax points 4 over stack - \ bump pointers, if they overlap, stop - @@1: sub eax, # 4 \ adjust top - add ecx, # 4 \ adjust bottom - cmp ecx, eax \ compare - jae short @@2 \ ecx passing ebx, so exit - \ rotate a pair - mov edx, 0 [eax] \ bottom to edx - xor 0 [ecx], edx \ exchange top and edx - xor edx, 0 [ecx] - xor 0 [ecx], edx - mov 0 [eax], edx \ eax to bottom - jmp short @@1 \ next pair - - @@2: mov eax, [ebp] - lea ebp, 4 [ebp] - next c; - also optimise definitions --- 34,41 ---- cr .( Loading optimiser [literals]...) ! [undefined] optimise [if] vocabulary optimise [then] also optimise definitions *************** *** 73,76 **** --- 51,57 ---- )) + \ To help the optimiser, some code words that deal with constants + \ are broken up into their constituent parts for compile time + :noname drop cell postpone literal ; compiles-for cell :noname drop postpone cell postpone + ; compiles-for cell+ *************** *** 82,85 **** --- 63,69 ---- :noname drop 1 postpone literal postpone + ; dup compiles-for 1+ compiles-for char+ + \ This stack of literals should really be a queue, as we need fifo. Emulated + \ by reversing the contents as it's popped. + 100 stack lits *************** *** 89,108 **** reset-stack-chain chain-add reset-lits ! 0 value std-delay ! : std-adjust ( -- ) \ generate delayed stack adjust ! std-delay if ! macro[ lea ebp, std-delay negate cells [ebp] ]macro ! 0 to std-delay ! then ; ! : std+n { n } \ adjust stack ! macro[ lea ebp, n negate cells [ebp] ]macro ; \ addressing the data stack ! \ std[0] refers to top of stack (eax in this case) ! \ std[-1] is next left (as in a stack diagram) ! \ std[1] is a new right stack entry ! macro: std[] ( n -- ) \ generate code to address stack entry n dup if dup 0< if 1+ then --- 73,91 ---- reset-stack-chain chain-add reset-lits ! \ The stack is addressed much in the same way PICK would; 0 refers to the top of ! \ stack, and 1 to next of stack. -1 refers to the first new entry, and ! \ so on for increasing negative numbers. ! \ Keep in mind that the stack (addressed by ebp) grows downwards, so 3 n+stk makes ! \ the stack 3 cells bigger, and conversely -1 n+stk makes it one smaller. ! : n+stk ( n ) \ adjust stack ! ?dup if >r macro[ lea ebp, r@ negate cells [ebp] ]macro r>drop then ; \ addressing the data stack ! \ stk[0] refers to top of stack (eax in this case) ! \ stk[-1] is next left (as in a stack diagram) ! \ stk[1] is a new right stack entry ! macro: stk[] ( n -- ) \ generate code to address stack entry n dup if dup 0< if 1+ then *************** *** 110,133 **** else drop eax then ;m ! macro: std[-1] -1 std[] ;m \ next of stack ! macro: std[0] 0 std[] ;m \ top of stack ! macro: std[1] 1 std[] ;m \ new on stack ! ! : mov-tos,n[ebp] { off } macro[ mov eax, off [ebp] ]macro ; ! : mov-n[ebp],tos { off } macro[ mov off [ebp], eax ]macro ; ! macro: std[],# std[] , dword # ;m ! : #n->std[] { n off } n if ! n -1 = if macro[ or off std[],# n ]macro ! else macro[ mov off std[],# n ]macro then ! else macro[ and off std[],# n ]macro then ; ! : pop-tos { } 0 mov-tos,n[ebp] -1 std+n ; ! : push-tos { } -4 mov-n[ebp],tos 1 std+n ; macro: tos,#n ( n ) eax, # ;m \ macro: supports asm fragments --- 93,116 ---- else drop eax then ;m ! \ not yet working ! 0 value stk-delay ! : stk-adjust ( -- ) \ generate delayed stack adjust ! stk-delay n+stk 0 to stk-delay ; ! : n[ebp]->tos { off } macro[ mov eax, off [ebp] ]macro ; ! : tos->n[ebp] { off } macro[ mov off [ebp], eax ]macro ; ! macro: stk[],# stk[] , dword # ;m ! : #n->stk[] { n off } n if ! n -1 = if macro[ or off stk[],# n ]macro ! else macro[ mov off stk[],# n ]macro then ! else macro[ and off stk[],# n ]macro then ; ! : pop-tos { } 0 n[ebp]->tos -1 n+stk ; ! : push-tos { } -4 tos->n[ebp] 1 n+stk ; macro: tos,#n ( n ) eax, # ;m \ macro: supports asm fragments *************** *** 169,181 **** in-sync @ 0= if \ recursing? in-sync on \ no, so set ! std-adjust lits>0? dup if \ anything to do? ! -4 mov-n[ebp],tos \ save tos ! lits spop 0 #n->std[] \ load tos lits sdepth 0 ?do \ do for n-1 entries lits spop over i - ! #n->std[] \ generate a move loop ! std+n \ adjust stack else drop then --- 152,164 ---- in-sync @ 0= if \ recursing? in-sync on \ no, so set ! stk-adjust lits>0? dup if \ anything to do? ! -4 tos->n[ebp] \ save tos ! lits spop 0 #n->stk[] \ load tos lits sdepth 0 ?do \ do for n-1 entries lits spop over i - ! #n->stk[] \ generate a move loop ! n+stk \ adjust stack else drop then *************** *** 196,200 **** : opt> opt<= not-tos ; ! : optswap 1 #n->std[] 1 std+n ; create opt-lit-table1 --- 179,183 ---- : opt> opt<= not-tos ; ! : optswap 1 #n->stk[] 1 n+stk ; create opt-lit-table1 *************** *** 272,276 **** lits>0? if litstart push-tos cells dup if ! mov-tos,n[ebp] else drop then else --- 255,259 ---- lits>0? if litstart push-tos cells dup if ! n[ebp]->tos else drop then else |
|
From: Alex M. <ale...@us...> - 2006-11-22 00:06:48
|
Update of /cvsroot/win32forth/win32forth-stc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5684 Modified Files: gkernel.exe Log Message: arm: further support for type system; cleaner optimisation Index: gkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/gkernel.exe,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 Binary files /tmp/cvshpAv6z and /tmp/cvsmXMeKK differ |
1040 messages has been excluded from this view by a project administrator.
