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: Christa M. <edu...@ma...> - 2007-08-08 08:10:51
|
|
From: Nora W. <suk...@ix...> - 2007-08-05 12:01:13
|
|
From: Alex M. <ale...@us...> - 2007-07-31 10:50:13
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27426 Modified Files: dis486.f Log Message: arm: correct $A2 and $A3 disasm; reported by Mihail; mak at rtc dot ru Index: dis486.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** dis486.f 14 May 2007 16:01:00 -0000 1.20 --- dis486.f 31 Jul 2007 10:50:09 -0000 1.21 *************** *** 465,474 **** : mv2 ( addr op -- addr' ) ! .sop-mov .disp16/32 ., bit0 IF dis.data16 ! IF ." ax" ! ELSE ." eax" THEN ! ELSE ." al" THEN ; --- 465,474 ---- : mv2 ( addr op -- addr' ) ! .sop-mov swap .disp16/32 swap ., bit0 IF dis.data16 ! IF ." ax" ! ELSE ." eax" THEN ! ELSE ." al" THEN ; |
|
From: riversongs.Com <in...@el...> - 2007-07-27 04:54:03
|
Hi. Neighbour has sent you a postcard. See your card as often as you wish during the next 15 days. SEEING YOUR CARD If your email software creates links to Web pages, click on your card's direct www address below while you are connected to the Internet: http://75.33.234.11/?6b9ea6878b15d7703a3b01bdad81d9b848ca9a8 Or copy and paste it into your browser's "Location" box (where Internet addresses go). We hope you enjoy your awesome card. Wishing you the best, Administrator, riversongs.Com |
|
From: greet2k.Com <ni...@ma...> - 2007-07-26 09:01:38
|
Hi. Colleague has sent you a postcard. See your card as often as you wish during the next 15 days. SEEING YOUR CARD If your email software creates links to Web pages, click on your card's direct www address below while you are connected to the Internet: http://65.30.23.75/?19d3383b4c009ee64d82c3a9ebeed43560 Or copy and paste it into your browser's "Location" box (where Internet addresses go). We hope you enjoy your awesome card. Wishing you the best, Postmaster, greet2k.Com |
|
From: gerardo h. <cy...@hy...> - 2007-07-26 06:41:50
|
Привествуем Вас!
Одним из основных рекламных законов – чем ярче идея,
тем больше внимания она привлекает у аудитории.
Другое дело, что помимо собственно привлечения внимания
необходимо создать интерес к рекламному предложению, пробудить желание
воспользоваться им и создать
все условия для совершения главного действия - покупки.
Е-MAIL РЕКЛАМА - ЭТО САМЫЙ ПОДХОДЯЩИЙ ВАРИАНТ!
И еще самое приятное это наши летние скидки
На все вопросы подробно
по телефону:(495) 136`38-58
-- |
|
From: Jerry M. <pu...@ct...> - 2007-07-23 10:49:33
|
|
From: Bentley Q. C. <yu...@co...> - 2007-07-14 18:30:36
|
Big News For SZSN! Shares Rocket! UP 37.5% Shandong Zhouyuan Seed and Nursery Co., Ltd (SZSN) $0.33 UP 37.5% SZSN new releases show huge expansion and Multi-Million dollar projects. Share prices rocket! Friday's trading was strong. Get On SZSN first thing Monday! As people are changing, this may become of competitive significance in the very near future. Obviously these industrial phases, from discovery and innovation through growth to maturity have been documented for many different industries and are well understood. So the question is, how do you create such an environment? Then they can concentrate on these three questions: How can you find better solutions? Fat man versus thin man What happens in a race between a fat man and a thin man? Alistair Schofield suggests a number of strategies to leave you in control. I don't look upon it as something I chose to do, but rather as something that chose me. This can quite easily translate into: 'be content with the current situation and do not strive to change it'. But compared with other forms of communication, is it really so bad? The result is that this generation of school and university leavers are far more inclined to seek positions in organisations where their creative leadership skills are valued. As a result of this trend, the majority of jobs and therefore of vacancies, exist at levels that would not previously have been thought of as entry points into an organisation. They allow you to choose the information you require and pull it together in one place without having to give out your email address or be interrupted by numerous email newsletters. We look at the information to hand, then use our judgement and analysis to find the solution. Invariably all have emphasised the measures organisations can take to ensure that persistent offenders are deterred from taking time off. The approach is not analytical, but the approach of 'designing the way forward'. I mean, Boxing Day is brilliant, I'm completely knackered of course but everyone's happy and I can have a bit of a drink. This approach works quite frequently. So the question is, how do you create such an environment? Therefore, commuters could arrange to share a car with three friends. He encourages us to apply our minds to eight thinking strategies that are based on his concept of triangular thinking. In the CATEGORY APPROACH we put the fat man into the relevant 'fat man' category - and fat men tend not to run very fast. Why is the surface smooth? Companies who deliver both will attract the best, most socially responsible talent in the market. I mean, how many houses do you know that have a chimney at all, let alone one big enough for me to get down. We analyse some more. About the author David A. Creating such an environment is not a challenge of management, but a challenge of leadership - But that's another subject. The simple fact is that a lot of people just don't like to admit that their homes are so insecure that a fat bloke dressed in red can come and go as he pleases". In an industry that has had to be regulated to prevent it from lying, their demonstrably higher purpose could be a winning formula. In the CATEGORY APPROACH we put the fat man into the relevant 'fat man' category - and fat men tend not to run very fast. During the last few months there have been a variety of articles in the national and trade press focussing on the problem of absenteeism at work. You just climb over the wall and tell the Police you are going to a fancy dress party. This sense of wellbeing overflowed into great customer relationships. At this point we might believe that we have covered all the approaches. About the author Edward de Bono is the world's leading authority in the field of creative thinking and the teaching of thinking as a skill. In case you are wondering, to do this in Outlook, use the 'Organise' tool which, depending on the version you are using, could be a button on the toolbar or can be found in the 'Tools' menu. He only gives this out to trusted friends and senior customers and, as a result, he is able to very quickly identify the emails he responds to first. Why bother to try something that is impossible? You have a strong, remunerative and lasting grasp on the accounting and the cash flow. So he had better adjust to the scenario and forget about trying to compete with thin men. They put corporate performance first and their own rewards second, therefore putting their personal performance ahead of their egos. A new mobile phone may be able to take photographs, play music and download emails, but you don't have to buy one. So those receiving money for their permits would be getting paid to leave their cars at home. |
|
From: Dirk B. <db...@us...> - 2007-07-14 06:07:42
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17953/extsrc/installer Modified Files: Files.nsi Uninstall.nsi Win32Forth.nsi Log Message: New developer Version 6.13 prepared. Index: Files.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Files.nsi,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Files.nsi 14 Jul 2007 04:56:04 -0000 1.5 --- Files.nsi 14 Jul 2007 06:07:37 -0000 1.6 *************** *** 543,546 **** --- 543,547 ---- File "..\..\..\win32forth\doc\p-relnotes.6.10.htm" File "..\..\..\win32forth\doc\p-relnotes.6.12.htm" + File "..\..\..\win32forth\doc\p-relnotes.6.14.htm" File "..\..\..\win32forth\doc\p-relnotes.htm" File "..\..\..\win32forth\doc\p-structures.htm" Index: Uninstall.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Uninstall.nsi,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Uninstall.nsi 14 Jul 2007 04:56:04 -0000 1.5 --- Uninstall.nsi 14 Jul 2007 06:07:37 -0000 1.6 *************** *** 513,516 **** --- 513,517 ---- Delete "$INSTDIR\doc\p-relnotes.6.10.htm" Delete "$INSTDIR\doc\p-relnotes.6.12.htm" + Delete "$INSTDIR\doc\p-relnotes.6.14.htm" Delete "$INSTDIR\doc\p-relnotes.htm" Delete "$INSTDIR\doc\p-structures.htm" Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Win32Forth.nsi 14 Jul 2007 04:56:04 -0000 1.9 --- Win32Forth.nsi 14 Jul 2007 06:07:37 -0000 1.10 *************** *** 7,14 **** ; Define your application version !define VER_MAJOR 6 ! !define VER_MINOR 12 !define VER_REVISION 00 ! !define VER_DISPLAY "6.12.00" ! !define VER_FILE "61200" ; Define your application name --- 7,14 ---- ; Define your application version !define VER_MAJOR 6 ! !define VER_MINOR 13 !define VER_REVISION 00 ! !define VER_DISPLAY "6.13.00" ! !define VER_FILE "61300" ; Define your application name |
|
From: Dirk B. <db...@us...> - 2007-07-14 05:24:27
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1247/doc Added Files: p-relnotes.6.14.htm Log Message: New developer Version 6.13 prepared. --- NEW FILE: p-relnotes.6.14.htm --- <html> <head> <meta http-equiv="Content-Language" content="en-gb"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Win32Forth</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"><img border="0" src="FORTHPRO.gif" width="32" height="32"> Win32Forth</h1> <h2 align="center"><font face="Tahoma"> <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id: p-relnotes.6.14.htm,v 1.1 2007/07/14 05:24:21 dbu_de Exp $"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release Notes for version 6.14.00 </h2> <ul> <li><a href="p-relnotes.6.12.htm">Previous version release notes </a></li> </ul> <h2>Contributors (in alphabetical order) </h2> <dir> <li>Robert Dudley Ackerman</li> <li>Ezra Boyce</li> <li>Dirk Busch</li> <li>Thomas Dixon</li> <li>Brad Eckert</li> <li>Bruno Gauthier</li> <li>George Hubert</li> <li>Alex McDonald</li> <li>Rod Oakford</li> <li>Andrew Stephenson</li> <li>Jos van de Ven</li> <li>and others...</li> </dir> <h2>Distributions</h2> <dir> <li>SourceForge distributions at <a href="http://sourceforge.net/project/showfiles.php?group_id=55294"> http://sourceforge.net/project/showfiles.php?group_id=55294</a> <img border="0" src="ONWEB.gif" width="16" height="16"></li> <li>CVS at <a href="http://sourceforge.net/cvs/?group_id=55294"> http://sourceforge.net/cvs/?group_id=55294</a> <img border="0" src="ONWEB.gif" width="16" height="16"></li> <li>Prebuilt CVS distributions at <a href="http://www.win32forth.org"> www.win32forth.org</a> <img border="0" src="ONWEB.gif" width="16" height="16"></li> </dir> <h2>Mailing lists</h2> <dir> <li>Discussion group at <a href="http://groups.yahoo.com/group/win32forth"> http://groups.yahoo.com/group/win32forth</a> <img border="0" src="ONWEB.gif" width="16" height="16"></li> <li>Bug reports at <a href="http://sourceforge.net/tracker/?group_id=55294&atid=476499"> http://sourceforge.net/tracker/?group_id=55294&atid=476499</a> <img border="0" src="ONWEB.gif" width="16" height="16"></li> <li>CVS Commit List at <a href="http://sourceforge.net/mailarchive/forum.php?forum_id=43364"> http://sourceforge.net/mailarchive/forum.php?forum_id=43364</a> <img border="0" src="ONWEB.gif" width="16" height="16">, subscriptions at <a href="http://lists.sourceforge.net/lists/listinfo/win32forth-cvs"> http://lists.sourceforge.net/lists/listinfo/win32forth-cvs</a> <img border="0" src="ONWEB.gif" width="16" height="16"></li> </dir> <h2>Overview </h2> <p> </p> <h2>System Changes</h2> <p> </p> <h3>Bug fixes</h3> <p>A large number of bugs have been fixed. Changes since December 12, 2005 can be found at the <a href="http://sourceforge.net/mailarchive/forum.php?forum_id=43364">CVS Commit List</a>.</p> <h2>New Applications</h2> <ul> </ul> <h2>New Tools</h2> <ul> </ul> <h2>New Controls</h2> <ul> </ul> <h2>New classes</h2> <ul> </ul> <h2>New Libraries</h2> <ul> </ul> <h2>New Demos</h2> <ul> </ul> <hr> <p>Document $Id: p-relnotes.6.14.htm,v 1.1 2007/07/14 05:24:21 dbu_de Exp $</p> </body> </html> |
|
From: Dirk B. <db...@us...> - 2007-07-14 05:24:24
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1247/src/kernel Modified Files: version.f Log Message: New developer Version 6.13 prepared. Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** version.f 14 Jul 2007 04:52:37 -0000 1.13 --- version.f 14 Jul 2007 05:24:21 -0000 1.14 *************** *** 3,7 **** cr .( Loading META version info) ! 61200 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61300 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: Dirk B. <db...@us...> - 2007-07-14 05:24:24
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1247 Modified Files: fkernel.exe setup.exe Log Message: New developer Version 6.13 prepared. Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 Binary files /tmp/cvsh5eDX9 and /tmp/cvs1SR36V differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.42 retrieving revision 1.43 diff -C2 -d -r1.42 -r1.43 Binary files /tmp/cvswYaj5f and /tmp/cvs01Bdr2 differ |
|
From: Dirk B. <db...@us...> - 2007-07-14 04:56:09
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/win32 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22970/extsrc/w32fScintilla/win32 Modified Files: ScintRes.aps ScintRes.rc Log Message: New stable Version 6.12.00 released via SourceForge. Index: ScintRes.rc =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/win32/ScintRes.rc,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ScintRes.rc 23 Sep 2006 15:10:30 -0000 1.4 --- ScintRes.rc 14 Jul 2007 04:56:04 -0000 1.5 *************** *** 32,37 **** VS_VERSION_INFO VERSIONINFO ! FILEVERSION 1,6,6,2 ! PRODUCTVERSION 1,6,6,2 FILEFLAGSMASK 0x3fL #ifdef _DEBUG --- 32,37 ---- VS_VERSION_INFO VERSIONINFO ! FILEVERSION 1,6,6,3 ! PRODUCTVERSION 1,6,6,3 FILEFLAGSMASK 0x3fL #ifdef _DEBUG *************** *** 51,55 **** VALUE "CompanyName", "Win32Forth developer team\0" VALUE "FileDescription", "Scintilla Source Editing Component\0" ! VALUE "FileVersion", "1, 6, 6, 2\0" VALUE "InternalName", "Scintilla\0" VALUE "LegalCopyright", "Copyright 1998-2005 by Neil Hodgson, 2004-2006 by Win32Forth developer team\0" --- 51,55 ---- VALUE "CompanyName", "Win32Forth developer team\0" VALUE "FileDescription", "Scintilla Source Editing Component\0" ! VALUE "FileVersion", "1, 6, 6, 3\0" VALUE "InternalName", "Scintilla\0" VALUE "LegalCopyright", "Copyright 1998-2005 by Neil Hodgson, 2004-2006 by Win32Forth developer team\0" *************** *** 58,62 **** VALUE "PrivateBuild", "\0" VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "1, 6, 6, 2\0" VALUE "SpecialBuild", "\0" END --- 58,62 ---- VALUE "PrivateBuild", "\0" VALUE "ProductName", "Win32Forth\0" ! VALUE "ProductVersion", "1, 6, 6, 3\0" VALUE "SpecialBuild", "\0" END Index: ScintRes.aps =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/win32/ScintRes.aps,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvsnWKjb2 and /tmp/cvs72rsoV differ |
|
From: Dirk B. <db...@us...> - 2007-07-14 04:56:09
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22970/extsrc/w32fScintilla/src Modified Files: LexForth.cxx Log Message: New stable Version 6.12.00 released via SourceForge. Index: LexForth.cxx =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/src/LexForth.cxx,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** LexForth.cxx 23 Sep 2006 15:10:30 -0000 1.3 --- LexForth.cxx 14 Jul 2007 04:56:04 -0000 1.4 *************** *** 313,317 **** int iStart = pos1; ! int iEnd = pos2; char ch1 = styler.SafeGetCharAt(pos1-1); --- 313,317 ---- int iStart = pos1; ! // int iEnd = pos2; char ch1 = styler.SafeGetCharAt(pos1-1); *************** *** 337,342 **** { styler.ColourTo( iStart, SCE_FORTH_STRING ); ! styler.ColourTo( iEnd, SCE_FORTH_STRING ); ! cur_pos = iEnd + 1; } } --- 337,342 ---- { styler.ColourTo( iStart, SCE_FORTH_STRING ); ! styler.ColourTo( pos2+1, SCE_FORTH_STRING ); ! cur_pos = pos2 + 1; } } *************** *** 400,404 **** #endif delete []buffer; ! delete []szLastToken; return; } --- 400,404 ---- #endif delete []buffer; ! delete []szLastToken; return; } |
|
From: Dirk B. <db...@us...> - 2007-07-14 04:56:09
|
Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/installer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22970/extsrc/installer Modified Files: Files.nsi Uninstall.nsi Win32Forth.nsi Log Message: New stable Version 6.12.00 released via SourceForge. Index: Files.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Files.nsi,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Files.nsi 1 Sep 2006 07:25:53 -0000 1.4 --- Files.nsi 14 Jul 2007 04:56:04 -0000 1.5 *************** *** 11,14 **** --- 11,15 ---- File "..\..\..\win32forth\setup.exe" File "..\..\..\win32forth\solipion.exe.manifest" + File "..\..\..\win32forth\sqlite3.dll" File "..\..\..\win32forth\w32fConsole.dll" File "..\..\..\win32forth\w32fScintilla.dll" *************** *** 44,47 **** --- 45,51 ---- File "..\..\..\win32forth\apps\Chess\TOOLSET.F" File "..\..\..\win32forth\apps\Chess\_fcp3D.f" + SetOutPath "$INSTDIR\apps\Console-Games\" + File "..\..\..\win32forth\apps\Console-Games\strek.f" + File "..\..\..\win32forth\apps\Console-Games\tetris.f" SetOutPath "$INSTDIR\apps\ForthForm\" File "..\..\..\win32forth\apps\ForthForm\ABOUT.F" *************** *** 57,63 **** --- 61,71 ---- File "..\..\..\win32forth\apps\ForthForm\EXAMPLE.ff" File "..\..\..\win32forth\apps\ForthForm\EXAMPLE.frm" + File "..\..\..\win32forth\apps\ForthForm\ExampleII.f" + File "..\..\..\win32forth\apps\ForthForm\EXAMPLEII.ff" + File "..\..\..\win32forth\apps\ForthForm\EXAMPLEII.frm" File "..\..\..\win32forth\apps\ForthForm\FORMCONTROLS.F" File "..\..\..\win32forth\apps\ForthForm\FormHelp.f" File "..\..\..\win32forth\apps\ForthForm\FormMenu.f" + File "..\..\..\win32forth\apps\ForthForm\FormMonitor.f" File "..\..\..\win32forth\apps\ForthForm\FORMOBJECT.F" File "..\..\..\win32forth\apps\ForthForm\FormPad.f" *************** *** 70,77 **** --- 78,93 ---- File "..\..\..\win32forth\apps\ForthForm\GroupAction.f" File "..\..\..\win32forth\apps\ForthForm\GroupAction.ff" + File "..\..\..\win32forth\apps\ForthForm\JoinStr.f" + File "..\..\..\win32forth\apps\ForthForm\New Files.txt" File "..\..\..\win32forth\apps\ForthForm\POINT.F" File "..\..\..\win32forth\apps\ForthForm\PREFERENCES.ff" File "..\..\..\win32forth\apps\ForthForm\quiksort.f" File "..\..\..\win32forth\apps\ForthForm\RECT.F" + File "..\..\..\win32forth\apps\ForthForm\Splitter1.f" + File "..\..\..\win32forth\apps\ForthForm\Splitter2.f" + File "..\..\..\win32forth\apps\ForthForm\Splitter3.f" + File "..\..\..\win32forth\apps\ForthForm\Splitter4.f" + File "..\..\..\win32forth\apps\ForthForm\Splitter5.f" + File "..\..\..\win32forth\apps\ForthForm\Splitter6.f" File "..\..\..\win32forth\apps\ForthForm\SplitterWindow.f" File "..\..\..\win32forth\apps\ForthForm\SplitterWindow.ff" *************** *** 98,101 **** --- 114,130 ---- File "..\..\..\win32forth\apps\ForthForm\res\stop1.BMP" File "..\..\..\win32forth\apps\ForthForm\res\stop2.BMP" + SetOutPath "$INSTDIR\apps\Internet\" + File "..\..\..\win32forth\apps\Internet\iRipper.f" + File "..\..\..\win32forth\apps\Internet\telnet.f" + SetOutPath "$INSTDIR\apps\Internet\WebServer\" + File "..\..\..\win32forth\apps\Internet\WebServer\DSTR.F" + File "..\..\..\win32forth\apps\Internet\WebServer\HTTP.F" + File "..\..\..\win32forth\apps\Internet\WebServer\HTTPecho.f" + File "..\..\..\win32forth\apps\Internet\WebServer\HTTPerr.F" + File "..\..\..\win32forth\apps\Internet\WebServer\HTTPfile.F" + File "..\..\..\win32forth\apps\Internet\WebServer\HTTPmime.F" + File "..\..\..\win32forth\apps\Internet\WebServer\SCOOP.F" + File "..\..\..\win32forth\apps\Internet\WebServer\sockserv.f" + File "..\..\..\win32forth\apps\Internet\WebServer\WebServer.F" SetOutPath "$INSTDIR\apps\PictureViewer\" File "..\..\..\win32forth\apps\PictureViewer\AddPVResourcesToWin32for.f" *************** *** 336,340 **** --- 365,377 ---- File "..\..\..\win32forth\apps\Win32ForthIDE\EdImageWindow.f" File "..\..\..\win32forth\apps\Win32ForthIDE\EdMenu.f" + File "..\..\..\win32forth\apps\Win32ForthIDE\EdPreferences.f" + File "..\..\..\win32forth\apps\Win32ForthIDE\EdPreferences.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\EdPreferences.frm" + File "..\..\..\win32forth\apps\Win32ForthIDE\EdPrompt.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\EdPrompt.frm" File "..\..\..\win32forth\apps\Win32ForthIDE\EdRemote.f" + File "..\..\..\win32forth\apps\Win32ForthIDE\EdReplace.f" + File "..\..\..\win32forth\apps\Win32ForthIDE\EdReplace.ff" + File "..\..\..\win32forth\apps\Win32ForthIDE\EdReplace.frm" File "..\..\..\win32forth\apps\Win32ForthIDE\EdStatusbar.f" File "..\..\..\win32forth\apps\Win32ForthIDE\EdTabControl.f" *************** *** 399,402 **** --- 436,441 ---- File "..\..\..\win32forth\apps\WinEd\res\WinEdit.res" SetOutPath "$INSTDIR\demos\" + File "..\..\..\win32forth\demos\BANNER.BLK" + File "..\..\..\win32forth\demos\CalendarDemo.f" File "..\..\..\win32forth\demos\clock.swf" File "..\..\..\win32forth\demos\DIALOGS.F" *************** *** 410,413 **** --- 449,453 ---- File "..\..\..\win32forth\demos\MDIDialogExample.f" File "..\..\..\win32forth\demos\MDIExample.f" + File "..\..\..\win32forth\demos\MSCALcontrol.f" File "..\..\..\win32forth\demos\MultiHello.f" File "..\..\..\win32forth\demos\PdfControlDemo.f" *************** *** 415,418 **** --- 455,459 ---- File "..\..\..\win32forth\demos\RebarControlDemo.f" File "..\..\..\win32forth\demos\ROMCALC.F" + File "..\..\..\win32forth\demos\SQLite Demo.f" File "..\..\..\win32forth\demos\TabControlDemo.f" File "..\..\..\win32forth\demos\taskdemo.f" *************** *** 427,430 **** --- 468,472 ---- File "..\..\..\win32forth\demos\WINPAR.F" File "..\..\..\win32forth\demos\WINSER.F" + File "..\..\..\win32forth\demos\WinSock Demo.f" SetOutPath "$INSTDIR\demos\AccelDemo\" File "..\..\..\win32forth\demos\AccelDemo\Accel.f" *************** *** 465,468 **** --- 507,511 ---- File "..\..\..\win32forth\doc\p-486asm.htm" File "..\..\..\win32forth\doc\p-AcceleratorTables.htm" + File "..\..\..\win32forth\doc\p-ansfile.htm" File "..\..\..\win32forth\doc\p-ansi.htm" File "..\..\..\win32forth\doc\p-arch1.htm" *************** *** 471,474 **** --- 514,518 ---- File "..\..\..\win32forth\doc\p-arch3.htm" File "..\..\..\win32forth\doc\p-architecture.htm" + File "..\..\..\win32forth\doc\p-block.htm" File "..\..\..\win32forth\doc\p-callback.htm" File "..\..\..\win32forth\doc\p-chains.htm" *************** *** 476,479 **** --- 520,524 ---- File "..\..\..\win32forth\doc\p-classes.htm" File "..\..\..\win32forth\doc\p-debugging.htm" + File "..\..\..\win32forth\doc\p-dexh-createdocs.htm" File "..\..\..\win32forth\doc\p-dexh.htm" File "..\..\..\win32forth\doc\p-faq.htm" *************** *** 485,488 **** --- 530,534 ---- File "..\..\..\win32forth\doc\p-imageman.htm" File "..\..\..\win32forth\doc\p-index.htm" + File "..\..\..\win32forth\doc\p-interpif.htm" File "..\..\..\win32forth\doc\p-locals-stack.gif" File "..\..\..\win32forth\doc\p-locals.htm" *************** *** 502,505 **** --- 548,552 ---- File "..\..\..\win32forth\doc\p-task.htm" File "..\..\..\win32forth\doc\p-using-if.htm" + File "..\..\..\win32forth\doc\p-W32fdexh.htm" File "..\..\..\win32forth\doc\p-windlls.htm" File "..\..\..\win32forth\doc\Paths.htm" *************** *** 511,514 **** --- 558,564 ---- File "..\..\..\win32forth\doc\Setup04.jpg" File "..\..\..\win32forth\doc\Setup05.jpg" + File "..\..\..\win32forth\doc\Sock.htm" + File "..\..\..\win32forth\doc\SockServer.htm" + File "..\..\..\win32forth\doc\SQLite.htm" File "..\..\..\win32forth\doc\TELLUS.gif" File "..\..\..\win32forth\doc\Unicode.htm" *************** *** 516,519 **** --- 566,570 ---- File "..\..\..\win32forth\doc\UTILDOC.TXT" File "..\..\..\win32forth\doc\w32f-glossary.csv" + File "..\..\..\win32forth\doc\WebServer.htm" File "..\..\..\win32forth\doc\WIN32FOR.jpg" File "..\..\..\win32forth\doc\WINED1.jpg" *************** *** 624,627 **** --- 675,679 ---- File "..\..\..\win32forth\doc\ForthForm\FF-PropertyFormDialog.gif" File "..\..\..\win32forth\doc\ForthForm\FF-Rebuilding The System.htm" + File "..\..\..\win32forth\doc\ForthForm\FF-Release Notes.htm" File "..\..\..\win32forth\doc\ForthForm\FF-Splitter Windows.htm" File "..\..\..\win32forth\doc\ForthForm\FF-SplitterDialog.gif" *************** *** 630,633 **** --- 682,686 ---- File "..\..\..\win32forth\doc\ForthForm\FF-textbutton.gif" File "..\..\..\win32forth\doc\ForthForm\FF-Toolbar Functions.htm" + File "..\..\..\win32forth\doc\ForthForm\FF-Toolbar Preview Window.gif" File "..\..\..\win32forth\doc\ForthForm\FF-Toolbar.gif" File "..\..\..\win32forth\doc\ForthForm\FF-ToolsMenu.gif" *************** *** 811,814 **** --- 864,868 ---- File "..\..\..\win32forth\src\lib\ListBox.f" File "..\..\..\win32forth\src\lib\Listview.f" + File "..\..\..\win32forth\src\lib\LoadProject.f" File "..\..\..\win32forth\src\lib\MDI.F" File "..\..\..\win32forth\src\lib\MdiDialog.f" *************** *** 830,834 **** --- 884,890 ---- File "..\..\..\win32forth\src\lib\Security.f" File "..\..\..\win32forth\src\lib\sendmessage.f" + File "..\..\..\win32forth\src\lib\sock.f" File "..\..\..\win32forth\src\lib\SoundVolume.f" + File "..\..\..\win32forth\src\lib\SQLite.F" File "..\..\..\win32forth\src\lib\StatusBar.f" File "..\..\..\win32forth\src\lib\STRUCT.F" *************** *** 847,850 **** --- 903,915 ---- File "..\..\..\win32forth\src\lib\Win32Help.f" File "..\..\..\win32forth\src\lib\w_search.f" + SetOutPath "$INSTDIR\src\lib\Ext_classes\" + File "..\..\..\win32forth\src\lib\Ext_classes\$X.F" + File "..\..\..\win32forth\src\lib\Ext_classes\2ARRAY.F" + File "..\..\..\win32forth\src\lib\Ext_classes\2ARRAYGEN.F" + File "..\..\..\win32forth\src\lib\Ext_classes\ARRAY11.F" + File "..\..\..\win32forth\src\lib\Ext_classes\Objlist.f" + File "..\..\..\win32forth\src\lib\Ext_classes\ORDERED-COL.F" + File "..\..\..\win32forth\src\lib\Ext_classes\Sequence.f" + File "..\..\..\win32forth\src\lib\Ext_classes\VAR11.F" SetOutPath "$INSTDIR\src\lib\fmacro\" File "..\..\..\win32forth\src\lib\fmacro\FMACRO.F" *************** *** 898,901 **** --- 963,968 ---- File "..\..\..\win32forth\src\tools\MsdnHelp.f" File "..\..\..\win32forth\src\tools\SdkHelp.f" + File "..\..\..\win32forth\src\tools\StartForthForm.f" + File "..\..\..\win32forth\src\tools\StartIde.f" File "..\..\..\win32forth\src\tools\TESTANSI.F" File "..\..\..\win32forth\src\tools\tools.f" Index: Uninstall.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Uninstall.nsi,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Uninstall.nsi 1 Sep 2006 07:25:53 -0000 1.4 --- Uninstall.nsi 14 Jul 2007 04:56:04 -0000 1.5 *************** *** 10,13 **** --- 10,14 ---- Delete "$INSTDIR\setup.exe" Delete "$INSTDIR\solipion.exe.manifest" + Delete "$INSTDIR\sqlite3.dll" Delete "$INSTDIR\w32fConsole.dll" Delete "$INSTDIR\w32fScintilla.dll" *************** *** 42,45 **** --- 43,48 ---- Delete "$INSTDIR\apps\Chess\TOOLSET.F" Delete "$INSTDIR\apps\Chess\_fcp3D.f" + Delete "$INSTDIR\apps\Console-Games\strek.f" + Delete "$INSTDIR\apps\Console-Games\tetris.f" Delete "$INSTDIR\apps\ForthForm\ABOUT.F" Delete "$INSTDIR\apps\ForthForm\CaseEx.f" *************** *** 54,60 **** --- 57,67 ---- Delete "$INSTDIR\apps\ForthForm\EXAMPLE.ff" Delete "$INSTDIR\apps\ForthForm\EXAMPLE.frm" + Delete "$INSTDIR\apps\ForthForm\ExampleII.f" + Delete "$INSTDIR\apps\ForthForm\EXAMPLEII.ff" + Delete "$INSTDIR\apps\ForthForm\EXAMPLEII.frm" Delete "$INSTDIR\apps\ForthForm\FORMCONTROLS.F" Delete "$INSTDIR\apps\ForthForm\FormHelp.f" Delete "$INSTDIR\apps\ForthForm\FormMenu.f" + Delete "$INSTDIR\apps\ForthForm\FormMonitor.f" Delete "$INSTDIR\apps\ForthForm\FORMOBJECT.F" Delete "$INSTDIR\apps\ForthForm\FormPad.f" *************** *** 67,74 **** --- 74,89 ---- Delete "$INSTDIR\apps\ForthForm\GroupAction.f" Delete "$INSTDIR\apps\ForthForm\GroupAction.ff" + Delete "$INSTDIR\apps\ForthForm\JoinStr.f" + Delete "$INSTDIR\apps\ForthForm\New Files.txt" Delete "$INSTDIR\apps\ForthForm\POINT.F" Delete "$INSTDIR\apps\ForthForm\PREFERENCES.ff" Delete "$INSTDIR\apps\ForthForm\quiksort.f" Delete "$INSTDIR\apps\ForthForm\RECT.F" + Delete "$INSTDIR\apps\ForthForm\Splitter1.f" + Delete "$INSTDIR\apps\ForthForm\Splitter2.f" + Delete "$INSTDIR\apps\ForthForm\Splitter3.f" + Delete "$INSTDIR\apps\ForthForm\Splitter4.f" + Delete "$INSTDIR\apps\ForthForm\Splitter5.f" + Delete "$INSTDIR\apps\ForthForm\Splitter6.f" Delete "$INSTDIR\apps\ForthForm\SplitterWindow.f" Delete "$INSTDIR\apps\ForthForm\SplitterWindow.ff" *************** *** 94,97 **** --- 109,123 ---- Delete "$INSTDIR\apps\ForthForm\res\stop1.BMP" Delete "$INSTDIR\apps\ForthForm\res\stop2.BMP" + Delete "$INSTDIR\apps\Internet\iRipper.f" + Delete "$INSTDIR\apps\Internet\telnet.f" + Delete "$INSTDIR\apps\Internet\WebServer\DSTR.F" + Delete "$INSTDIR\apps\Internet\WebServer\HTTP.F" + Delete "$INSTDIR\apps\Internet\WebServer\HTTPecho.f" + Delete "$INSTDIR\apps\Internet\WebServer\HTTPerr.F" + Delete "$INSTDIR\apps\Internet\WebServer\HTTPfile.F" + Delete "$INSTDIR\apps\Internet\WebServer\HTTPmime.F" + Delete "$INSTDIR\apps\Internet\WebServer\SCOOP.F" + Delete "$INSTDIR\apps\Internet\WebServer\sockserv.f" + Delete "$INSTDIR\apps\Internet\WebServer\WebServer.F" Delete "$INSTDIR\apps\PictureViewer\AddPVResourcesToWin32for.f" Delete "$INSTDIR\apps\PictureViewer\ChangesPV6.2.txt" *************** *** 318,322 **** --- 344,356 ---- Delete "$INSTDIR\apps\Win32ForthIDE\EdImageWindow.f" Delete "$INSTDIR\apps\Win32ForthIDE\EdMenu.f" + Delete "$INSTDIR\apps\Win32ForthIDE\EdPreferences.f" + Delete "$INSTDIR\apps\Win32ForthIDE\EdPreferences.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\EdPreferences.frm" + Delete "$INSTDIR\apps\Win32ForthIDE\EdPrompt.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\EdPrompt.frm" Delete "$INSTDIR\apps\Win32ForthIDE\EdRemote.f" + Delete "$INSTDIR\apps\Win32ForthIDE\EdReplace.f" + Delete "$INSTDIR\apps\Win32ForthIDE\EdReplace.ff" + Delete "$INSTDIR\apps\Win32ForthIDE\EdReplace.frm" Delete "$INSTDIR\apps\Win32ForthIDE\EdStatusbar.f" Delete "$INSTDIR\apps\Win32ForthIDE\EdTabControl.f" *************** *** 377,380 **** --- 411,416 ---- Delete "$INSTDIR\apps\WinEd\res\WinEdit.h" Delete "$INSTDIR\apps\WinEd\res\WinEdit.res" + Delete "$INSTDIR\demos\BANNER.BLK" + Delete "$INSTDIR\demos\CalendarDemo.f" Delete "$INSTDIR\demos\clock.swf" Delete "$INSTDIR\demos\DIALOGS.F" *************** *** 388,391 **** --- 424,428 ---- Delete "$INSTDIR\demos\MDIDialogExample.f" Delete "$INSTDIR\demos\MDIExample.f" + Delete "$INSTDIR\demos\MSCALcontrol.f" Delete "$INSTDIR\demos\MultiHello.f" Delete "$INSTDIR\demos\PdfControlDemo.f" *************** *** 393,396 **** --- 430,434 ---- Delete "$INSTDIR\demos\RebarControlDemo.f" Delete "$INSTDIR\demos\ROMCALC.F" + Delete "$INSTDIR\demos\SQLite Demo.f" Delete "$INSTDIR\demos\TabControlDemo.f" Delete "$INSTDIR\demos\taskdemo.f" *************** *** 405,408 **** --- 443,447 ---- Delete "$INSTDIR\demos\WINPAR.F" Delete "$INSTDIR\demos\WINSER.F" + Delete "$INSTDIR\demos\WinSock Demo.f" Delete "$INSTDIR\demos\AccelDemo\Accel.f" Delete "$INSTDIR\demos\AccelDemo\AccelDemo.bmp" *************** *** 438,441 **** --- 477,481 ---- Delete "$INSTDIR\doc\p-486asm.htm" Delete "$INSTDIR\doc\p-AcceleratorTables.htm" + Delete "$INSTDIR\doc\p-ansfile.htm" Delete "$INSTDIR\doc\p-ansi.htm" Delete "$INSTDIR\doc\p-arch1.htm" *************** *** 444,447 **** --- 484,488 ---- Delete "$INSTDIR\doc\p-arch3.htm" Delete "$INSTDIR\doc\p-architecture.htm" + Delete "$INSTDIR\doc\p-block.htm" Delete "$INSTDIR\doc\p-callback.htm" Delete "$INSTDIR\doc\p-chains.htm" *************** *** 449,452 **** --- 490,494 ---- Delete "$INSTDIR\doc\p-classes.htm" Delete "$INSTDIR\doc\p-debugging.htm" + Delete "$INSTDIR\doc\p-dexh-createdocs.htm" Delete "$INSTDIR\doc\p-dexh.htm" Delete "$INSTDIR\doc\p-faq.htm" *************** *** 458,461 **** --- 500,504 ---- Delete "$INSTDIR\doc\p-imageman.htm" Delete "$INSTDIR\doc\p-index.htm" + Delete "$INSTDIR\doc\p-interpif.htm" Delete "$INSTDIR\doc\p-locals-stack.gif" Delete "$INSTDIR\doc\p-locals.htm" *************** *** 475,478 **** --- 518,522 ---- Delete "$INSTDIR\doc\p-task.htm" Delete "$INSTDIR\doc\p-using-if.htm" + Delete "$INSTDIR\doc\p-W32fdexh.htm" Delete "$INSTDIR\doc\p-windlls.htm" Delete "$INSTDIR\doc\Paths.htm" *************** *** 484,487 **** --- 528,534 ---- Delete "$INSTDIR\doc\Setup04.jpg" Delete "$INSTDIR\doc\Setup05.jpg" + Delete "$INSTDIR\doc\Sock.htm" + Delete "$INSTDIR\doc\SockServer.htm" + Delete "$INSTDIR\doc\SQLite.htm" Delete "$INSTDIR\doc\TELLUS.gif" Delete "$INSTDIR\doc\Unicode.htm" *************** *** 489,492 **** --- 536,540 ---- Delete "$INSTDIR\doc\UTILDOC.TXT" Delete "$INSTDIR\doc\w32f-glossary.csv" + Delete "$INSTDIR\doc\WebServer.htm" Delete "$INSTDIR\doc\WIN32FOR.jpg" Delete "$INSTDIR\doc\WINED1.jpg" *************** *** 594,597 **** --- 642,646 ---- Delete "$INSTDIR\doc\ForthForm\FF-PropertyFormDialog.gif" Delete "$INSTDIR\doc\ForthForm\FF-Rebuilding The System.htm" + Delete "$INSTDIR\doc\ForthForm\FF-Release Notes.htm" Delete "$INSTDIR\doc\ForthForm\FF-Splitter Windows.htm" Delete "$INSTDIR\doc\ForthForm\FF-SplitterDialog.gif" *************** *** 600,603 **** --- 649,653 ---- Delete "$INSTDIR\doc\ForthForm\FF-textbutton.gif" Delete "$INSTDIR\doc\ForthForm\FF-Toolbar Functions.htm" + Delete "$INSTDIR\doc\ForthForm\FF-Toolbar Preview Window.gif" Delete "$INSTDIR\doc\ForthForm\FF-Toolbar.gif" Delete "$INSTDIR\doc\ForthForm\FF-ToolsMenu.gif" *************** *** 771,774 **** --- 821,825 ---- Delete "$INSTDIR\src\lib\ListBox.f" Delete "$INSTDIR\src\lib\Listview.f" + Delete "$INSTDIR\src\lib\LoadProject.f" Delete "$INSTDIR\src\lib\MDI.F" Delete "$INSTDIR\src\lib\MdiDialog.f" *************** *** 790,794 **** --- 841,847 ---- Delete "$INSTDIR\src\lib\Security.f" Delete "$INSTDIR\src\lib\sendmessage.f" + Delete "$INSTDIR\src\lib\sock.f" Delete "$INSTDIR\src\lib\SoundVolume.f" + Delete "$INSTDIR\src\lib\SQLite.F" Delete "$INSTDIR\src\lib\StatusBar.f" Delete "$INSTDIR\src\lib\STRUCT.F" *************** *** 807,810 **** --- 860,871 ---- Delete "$INSTDIR\src\lib\Win32Help.f" Delete "$INSTDIR\src\lib\w_search.f" + Delete "$INSTDIR\src\lib\Ext_classes\$X.F" + Delete "$INSTDIR\src\lib\Ext_classes\2ARRAY.F" + Delete "$INSTDIR\src\lib\Ext_classes\2ARRAYGEN.F" + Delete "$INSTDIR\src\lib\Ext_classes\ARRAY11.F" + Delete "$INSTDIR\src\lib\Ext_classes\Objlist.f" + Delete "$INSTDIR\src\lib\Ext_classes\ORDERED-COL.F" + Delete "$INSTDIR\src\lib\Ext_classes\Sequence.f" + Delete "$INSTDIR\src\lib\Ext_classes\VAR11.F" Delete "$INSTDIR\src\lib\fmacro\FMACRO.F" Delete "$INSTDIR\src\lib\fmacro\fsl_util.f" *************** *** 854,857 **** --- 915,920 ---- Delete "$INSTDIR\src\tools\MsdnHelp.f" Delete "$INSTDIR\src\tools\SdkHelp.f" + Delete "$INSTDIR\src\tools\StartForthForm.f" + Delete "$INSTDIR\src\tools\StartIde.f" Delete "$INSTDIR\src\tools\TESTANSI.F" Delete "$INSTDIR\src\tools\tools.f" *************** *** 1095,1098 **** --- 1158,1163 ---- RMDir "$INSTDIR\extsrc\w32fConsole\" RMDir "$INSTDIR\extsrc\installer\" + RMDir "$INSTDIR\extsrc\" + RMDir "$INSTDIR\Templates\" RMDir "$INSTDIR\src\tools\" *************** *** 1100,1103 **** --- 1165,1169 ---- RMDir "$INSTDIR\src\old\" RMDir "$INSTDIR\src\lib\fmacro\" + RMDir "$INSTDIR\src\lib\Ext_classes\" RMDir "$INSTDIR\src\lib\" RMDir "$INSTDIR\src\kernel\" *************** *** 1107,1110 **** --- 1173,1177 ---- RMDir "$INSTDIR\src\" RMDir "$INSTDIR\proj\" + RMDir "$INSTDIR\installer\" RMDir "$INSTDIR\doc\SciEdit\" RMDir "$INSTDIR\doc\ProMgr\" *************** *** 1136,1143 **** RMDir "$INSTDIR\apps\PictureViewer\Res\" RMDir "$INSTDIR\apps\PictureViewer\" RMDir "$INSTDIR\apps\ForthForm\res\" RMDir "$INSTDIR\apps\ForthForm\" RMDir "$INSTDIR\apps\Chess\" RMDir "$INSTDIR\apps\" - RMDir "$INSTDIR\extsrc\" RMDir "$INSTDIR\" --- 1203,1212 ---- RMDir "$INSTDIR\apps\PictureViewer\Res\" RMDir "$INSTDIR\apps\PictureViewer\" + RMDir "$INSTDIR\apps\Internet\WebServer\" + RMDir "$INSTDIR\apps\Internet\" RMDir "$INSTDIR\apps\ForthForm\res\" RMDir "$INSTDIR\apps\ForthForm\" + RMDir "$INSTDIR\apps\Console-Games\" RMDir "$INSTDIR\apps\Chess\" RMDir "$INSTDIR\apps\" RMDir "$INSTDIR\" Index: Win32Forth.nsi =================================================================== RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/installer/Win32Forth.nsi,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Win32Forth.nsi 1 Sep 2006 07:25:53 -0000 1.8 --- Win32Forth.nsi 14 Jul 2007 04:56:04 -0000 1.9 *************** *** 7,14 **** ; Define your application version !define VER_MAJOR 6 ! !define VER_MINOR 11 ! !define VER_REVISION 10 ! !define VER_DISPLAY "6.11.10" ! !define VER_FILE "61110" ; Define your application name --- 7,14 ---- ; Define your application version !define VER_MAJOR 6 ! !define VER_MINOR 12 ! !define VER_REVISION 00 ! !define VER_DISPLAY "6.12.00" ! !define VER_FILE "61200" ; Define your application name *************** *** 116,120 **** ; CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\SciEdit.lnk" "$INSTDIR\SciEditMdi.EXE" "" "$INSTDIR\src\res\SciEditMDI.ico" "" "" "" "Win32Forth SciEdit" CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\Win32ForthIDE.lnk" "$INSTDIR\Win32ForthIDE.EXE" "" "$INSTDIR\src\res\SciEditMDI.ico" "" "" "" "Win32Forth IDE" ! CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\ForthForm.lnk" "$INSTDIR\ForthForm.EXE" "" "$INSTDIR\src\res\ForthForm.ico" "" "" "" "Win32Forth Dialog-Editor" CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\ForthProject.lnk" "$INSTDIR\Project.EXE" "" "$INSTDIR\src\res\Project.ico" "" "" "" "Win32Forth Project Manager" CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\Setup.lnk" "$INSTDIR\Setup.EXE" "" "$INSTDIR\src\res\Win32for.ico" "" "" "" "Win32Forth Setup" --- 116,120 ---- ; CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\SciEdit.lnk" "$INSTDIR\SciEditMdi.EXE" "" "$INSTDIR\src\res\SciEditMDI.ico" "" "" "" "Win32Forth SciEdit" CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\Win32ForthIDE.lnk" "$INSTDIR\Win32ForthIDE.EXE" "" "$INSTDIR\src\res\SciEditMDI.ico" "" "" "" "Win32Forth IDE" ! CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\ForthForm.lnk" "$INSTDIR\ForthForm.EXE" "" "$INSTDIR\src\res\ForthForm.ico" "" "" "" "Win32Forth Dialog-Editor" CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\ForthProject.lnk" "$INSTDIR\Project.EXE" "" "$INSTDIR\src\res\Project.ico" "" "" "" "Win32Forth Project Manager" CreateShortCut "$SMPROGRAMS\${APPNAMEANDVERSION}\Setup.lnk" "$INSTDIR\Setup.EXE" "" "$INSTDIR\src\res\Win32for.ico" "" "" "" "Win32Forth Setup" *************** *** 215,218 **** --- 215,219 ---- Delete "$INSTDIR\Win32for.exe" Delete "$INSTDIR\WinEd.exe" + Delete "$INSTDIR\PictureViewer.exe" !include "Uninstall.nsi" |
|
From: Dirk B. <db...@us...> - 2007-07-14 04:52:40
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21817 Modified Files: fkernel.exe setup.exe Log Message: New stable Version 6.12.00 released via SourceForge. Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 Binary files /tmp/cvsBjthxX and /tmp/cvsz2ESlg differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.41 retrieving revision 1.42 diff -C2 -d -r1.41 -r1.42 Binary files /tmp/cvsdeqDe6 and /tmp/cvsy6q4ap differ |
|
From: Dirk B. <db...@us...> - 2007-07-14 04:52:40
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21817/src/kernel Modified Files: version.f Log Message: New stable Version 6.12.00 released via SourceForge. Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** version.f 3 Oct 2006 07:44:22 -0000 1.12 --- version.f 14 Jul 2007 04:52:37 -0000 1.13 *************** *** 3,7 **** cr .( Loading META version info) ! 61110 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61200 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: Alex M. <ale...@us...> - 2007-07-12 21:00:31
|
Update of /cvsroot/win32forth/win32forth-stc/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3305/src/kernel Modified Files: gkernel.f gmeta-compiler.f Log Message: arm: correct compiler; metat generating incorrect code for smart compile, (words using compilation> in the kernel like IF etc) and simplified the kernel once this was fixed. Index: gmeta-compiler.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gmeta-compiler.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** gmeta-compiler.f 13 May 2007 22:13:26 -0000 1.14 --- gmeta-compiler.f 12 Jul 2007 21:00:18 -0000 1.15 *************** *** 572,577 **** drop endcase ! dup cell- \ comp field ! xt-xt-call, swap tsys-! \ point at xt-call, ct>name n>ffa xt-fptr swap tsys-! \ update the ffa ; --- 572,579 ---- drop endcase ! dup cell- \ comp field ! dup tsys-@ ct-call, = if \ if it's a ct-call, placeholder ! xt-xt-call, swap tsys-! \ point at xt-call, ! else drop then ct>name n>ffa xt-fptr swap tsys-! \ update the ffa ; *************** *** 694,698 **** : immediate ( -- ) ! ct-execute last-h @ name>ct tsys-! \ set the xt-call, token to execute ; --- 696,700 ---- : immediate ( -- ) ! ct-execute last-h @ name>ct tsys-! \ set the compile, token to execute ; *************** *** 1319,1325 **** [transition] exit \ exit current definition tcode-here \ this xt ! last-h @ name>ct tsys-! \ set xt2 token t; ! t: break $cc tcode-c, t; --- 1321,1327 ---- [transition] exit \ exit current definition tcode-here \ this xt ! last-h @ name>ct cell- tsys-! \ set xt2 token t; ! t: break $cc tcode-c, t; Index: gkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v retrieving revision 1.41 retrieving revision 1.42 diff -C2 -d -r1.41 -r1.42 *** gkernel.f 6 Jul 2007 09:06:39 -0000 1.41 --- gkernel.f 12 Jul 2007 21:00:18 -0000 1.42 *************** *** 2330,2338 **** \ : x swap ; inline ! : >ct ( xt -- ct ) dup cell- @ + ; \ given an xt, get the ct : >comp ( xt -- comp ) >ct cell- ; \ point to the comp field : >comp! ( xt2 xt1 -- ) >comp ! ; \ set the compile word - : >ct-exec ( xt -- ) >ct 2@ execute ; \ execute the ct : >name ( xt -- nfa ) >ct ct>name ; \ get the name \ ------------------------- Code generation words --------------------------- --- 2330,2344 ---- \ : x swap ; inline ! : >ct ( xt -- ct ) dup cell- @ + ; \ given an xt, get the ct (rel addr) : >comp ( xt -- comp ) >ct cell- ; \ point to the comp field : >comp! ( xt2 xt1 -- ) >comp ! ; \ set the compile word : >name ( xt -- nfa ) >ct ct>name ; \ get the name + : _>ct-exec ( xt -- ) >ct 2@ execute ; \ execute the ct + + defer >ct-exec ' _>ct-exec is >ct-exec \ defered for exits + + : _compile, ( xt -- ) dup >comp @ execute ; \ compile xt on the stack + + defer compile, ' _compile, is compile, \ ------------------------- Code generation words --------------------------- *************** *** 2346,2351 **** defer sync-code ' noop is sync-code - : compile, ( xt -- ) dup >comp @ execute ; \ compile xt on the stack - : xt-reladdr, ( xt -- ) \ generate relative address code-here - cell- code-, ; \ the xt relative adjusted --- 2352,2355 ---- *************** *** 2364,2381 **** code-here to tail-call ; \ possible tail call ! : (compiles-set) ( xt1 xt2 -- ) \ set the correct ct token ! >ct dup @ \ ( xt1 ct ct ) ! dup ['] execute = if \ can't set if execute (immediate) ! throw_ctexecute throw ! then ! ['] compile, = if \ it's a standard word ! cell- \ set the compile action (comp) ! then ! ; : compiles-last ( xt -- ) ! latestxt @ (compiles-set) ; \ sets xt as compilation for last name ! ! : compiles-for ( xt <name> -- ) ! ' (compiles-set) ; \ parsing; set the compilation word \ The kernel has no assembler, so there's no "postponed assembly" possible. --- 2368,2376 ---- code-here to tail-call ; \ possible tail call ! : compiles-for ( xt <name> -- ) ! ' >comp! ; \ parsing; set the compilation word : compiles-last ( xt -- ) ! latestxt @ >comp! ; \ sets xt as compilation for last name \ The kernel has no assembler, so there's no "postponed assembly" possible. *************** *** 2402,2406 **** : inline ( -- ) \ code will be inlined tail-call 0= if \ there's no calls, so inlineable ! ['] xt-inline, compiles-last \ tail-call is set for any call then ; --- 2397,2401 ---- : inline ( -- ) \ code will be inlined tail-call 0= if \ there's no calls, so inlineable ! ['] xt-inline, compiles-last \ as tail-call is set for any call then ; *************** *** 2795,2802 **** postpone >ct-exec ; ! : [compile] ( -<name>- ) \ compile immediate word (comp-only) \ compile only ! compilation> ( -- xt ) drop ' dup >ct @ ['] compile, <> if postpone literal postpone >ct-exec --- 2790,2798 ---- postpone >ct-exec ; ! (( ! -- REMOVED as immediacy is difficult to determine using smart compile, : [compile] ( -<name>- ) \ compile immediate word (comp-only) \ compile only ! compilation> ( -- xt ) drop \ this code may not work! use POSTPONE ' dup >ct @ ['] compile, <> if postpone literal postpone >ct-exec *************** *** 2805,2808 **** --- 2801,2805 ---- then ; + )) \ -------------------- String Literals -------------------------------------- *************** *** 4258,4262 **** xor throw_mismatch ?throw ; ! : >mark ( -- addr ) sync-code code-here ; \ mark a link for later resolution by : <resolve ( orig -- ) \ fixup relative jump at orig sync-code --- 4255,4261 ---- xor throw_mismatch ?throw ; ! : >mark ( -- addr ) ! sync-code ! code-here ; \ mark a link for later resolution by : <resolve ( orig -- ) \ fixup relative jump at orig sync-code *************** *** 4273,4281 **** ;g - gcode _-?branch \ test & branch for -if - test eax, eax \ set the cond code - jz 0 \ dest (forward direction) - ;g - gcode _branch \ unconditional branch jmp 0 \ dest --- 4272,4275 ---- *************** *** 4285,4291 **** _?branch (copy-code) ; - : -?branch ( -- ) \ test & branch for -if - _-?branch (copy-code) ; - : branch ( -- ) \ generate unconditional jump _branch (copy-code) ; --- 4279,4282 ---- *************** *** 4306,4310 **** (comp-only) \ compile only compilation> ( -- xt ) drop ! -?branch >mark 2 ; 1 1 in/out \ jump will get filled in later : then ( c: orig -- ) \ resolve the forward jump --- 4297,4302 ---- (comp-only) \ compile only compilation> ( -- xt ) drop ! postpone dup ! postpone if ; 1 1 in/out : then ( c: orig -- ) \ resolve the forward jump *************** *** 4627,4636 **** ofa (ofa-calc) ; ! defer ; immediate \ changed to suit the type of colon def ! |: ;noname ( -- ) \ ; for :noname postpone exit \ this may compile _localfree postpone [ ?csp \ stop compiling, check stack - ['] (comp-only) is ; ; --- 4619,4630 ---- ofa (ofa-calc) ; ! : ; ( -- ) \ dummy compile for ; ! (comp-only) ! compilation> ; ! |: ;noname ( -- ) \ ; for :noname + drop \ because after compilation> postpone exit \ this may compile _localfree postpone [ ?csp \ stop compiling, check stack ; *************** *** 4639,4642 **** --- 4633,4637 ---- ofa 1+ (ofa-calc) \ length calculation (don't include the ret) reveal ; \ reveal the name + \ Words to support : *************** *** 4653,4657 **** -cell code-, \ ptr to the comp field code-here dup latestxt ! \ the xt, leave a copy on the stack (colon-sys) ! ['] ;noname is ; \ set the noname ; word (:noname) ; 0 0 in/out --- 4648,4652 ---- -cell code-, \ ptr to the comp field code-here dup latestxt ! \ the xt, leave a copy on the stack (colon-sys) ! ['] ;noname ['] ; >comp! \ set the noname ; word (:noname) ; 0 0 in/out *************** *** 4660,4664 **** header hide tcol tfa! \ type is a colon-def ! ['] ;name is ; \ set the named ; word (:noname) ; 0 0 in/out --- 4655,4659 ---- header hide tcol tfa! \ type is a colon-def ! ['] ;name ['] ; >comp! \ set the named ; word (:noname) ; 0 0 in/out *************** *** 4717,4723 **** r@ 1+ \ code for does> (after ret) last @ name>xt \ last name created ( xt nfa ) ! dup >ct @ ['] execute <> if \ if this isn't an immediate ! ['] xt-call, over (compiles-set) \ reset the standard compile word ! then addr-off + dup>r \ xt for create, jump part - cell- \ make relative --- 4712,4716 ---- r@ 1+ \ code for does> (after ret) last @ name>xt \ last name created ( xt nfa ) ! ['] xt-call, over >comp! \ reset the standard compile word addr-off + dup>r \ xt for create, jump part - cell- \ make relative *************** *** 4748,4751 **** --- 4741,4752 ---- code-here compiles-last \ make the defined word compile this ; + + : compile-only> ( -- ) \ shorthand for (comp-only) comp + (comp-only) + compilation> drop + postpone (comp-only) + postpone compilation> + postpone drop + ; \ -------------------- Error Handler -------------------------------- *************** *** 5377,5381 **** \ Code to fetch local values ! gcode _localn mov -4 [ebp], eax lea ebp, -4 [ebp] --- 5378,5382 ---- \ Code to fetch local values ! gcode _localn mov -4 [ebp], eax lea ebp, -4 [ebp] *************** *** 5454,5457 **** --- 5455,5459 ---- : (local) ( addr cnt -- ) \ create name in locals vocab + (comp-only) compilation> drop dup if \ looks like std vocab header 1 +to localstk \ total count of stack parms *************** *** 5505,5509 **** 2dup s" \" str= >r \ is it { [...] \ ... 2dup s" |" str= r> or not \ is it { [...] | ... ! if (local) \ no, it's a local else 2drop 0 to locflg then \ onto uninited locals repeat --- 5507,5511 ---- 2dup s" \" str= >r \ is it { [...] \ ... 2dup s" |" str= r> or not \ is it { [...] | ... ! if postpone (local) \ no, it's a local else 2drop 0 to locflg then \ onto uninited locals repeat *************** *** 5524,5528 **** 2dup s" |" str= not while ! (local) \ declare a local repeat 2drop localsgen, \ compile runtime code (equiv of 0 0 (local)) --- 5526,5530 ---- 2dup s" |" str= not while ! postpone (local) \ declare a local repeat 2drop localsgen, \ compile runtime code (equiv of 0 0 (local)) |
|
From: Alex M. <ale...@us...> - 2007-07-12 21:00:31
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3305/src Modified Files: Class.f asmwin32.f optinline.f optliterals.f Log Message: arm: correct compiler; metat generating incorrect code for smart compile, (words using compilation> in the kernel like IF etc) and simplified the kernel once this was fixed. Index: asmwin32.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/asmwin32.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** asmwin32.f 22 Mar 2007 02:08:33 -0000 1.6 --- asmwin32.f 12 Jul 2007 21:00:18 -0000 1.7 *************** *** 34,49 **** also asm-hidden definitions ! : (_end-code) ! _end-code ! \ *enhance needs work to support standard ;name ! \ ;name ! ['] (comp-only) is ; ! ; ! ! ' (_end-code) is end-code : (_code) ( start a native code definition ) : init-asm postpone [ \ runs in interpreted mode, not compile - ['] end-code is ; \ set the code ; word ; --- 34,41 ---- also asm-hidden definitions ! ' _end-code is end-code : (_code) ( start a native code definition ) : init-asm postpone [ \ runs in interpreted mode, not compile ; Index: Class.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/Class.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Class.f 22 May 2007 07:36:20 -0000 1.12 --- Class.f 12 Jul 2007 21:00:18 -0000 1.13 *************** *** 1281,1285 **** \ Total Hack to be removed when TO and +TO are properly sorted. ! code oldto call ' to >ct @ next ;c : (classto) ( n -<value>- -- ) --- 1281,1286 ---- \ Total Hack to be removed when TO and +TO are properly sorted. ! \ code oldto call ' to >ct @ next ;c ! defer oldto ' to >comp @ is oldto : (classto) ( n -<value>- -- ) *************** *** 1304,1308 **** ' (classto) compiles-for to ! code old+to call ' +to >ct @ next ;c : (class+to) ( n -<value>- -- ) --- 1305,1310 ---- ' (classto) compiles-for to ! \ code old+to call ' +to >ct @ next ;c ! defer old+to ' +to >comp @ is old+to : (class+to) ( n -<value>- -- ) Index: optliterals.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/optliterals.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** optliterals.f 13 May 2007 21:39:26 -0000 1.15 --- optliterals.f 12 Jul 2007 21:00:18 -0000 1.16 *************** *** 44,48 **** : compiles-nse ( xt -- ) \ compiles-for and no side effects ! ' dup>r (compiles-set) \ set the compiling word r> >name n>flg dup sc@ nse or swap c! ; --- 44,48 ---- : compiles-nse ( xt -- ) \ compiles-for and no side effects ! ' dup>r >comp! \ set the compiling word r> >name n>flg dup sc@ nse or swap c! ; *************** *** 54,65 **** \ 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+ ! :noname drop postpone -cell postpone + ; compiles-for cell- ! :noname drop postpone cells postpone + ; compiles-for cells+ ! :noname drop 1 postpone literal postpone - ; compiles-for 1- ! :noname drop 2 postpone literal postpone - ; compiles-for 2- ! :noname drop 2 postpone literal postpone + ; compiles-for 2+ ! :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 --- 54,65 ---- \ are broken up into their constituent parts for compile time ! :noname drop postpone cell postpone + ; compiles-for cell+ ! :noname drop postpone -cell postpone + ; compiles-for cell- ! :noname drop postpone cells postpone + ; compiles-for cells+ ! :noname drop 1 postpone literal postpone - ; compiles-for 1- ! :noname drop 2 postpone literal postpone - ; compiles-for 2- ! :noname drop 2 postpone literal postpone + ; compiles-for 2+ ! :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 *************** *** 112,146 **** 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 - - : var->tos { var } macro[ mov eax, var ]macro ; - : cvar->tos { var } macro[ movzx eax, byte var ]macro ; - : #n->tos ( n ) >r macro[ mov r@ tos,#n ]macro r>drop ; - : tos->var { var } macro[ mov var , eax ]macro ; - : tos->cvar { var } macro[ mov var , al ]macro ; - : #n->var { var n } macro[ mov var , dword # n ]macro ; - : #n->cvar { var c } macro[ mov var , byte # c ]macro ; - - : add-v,tos { var } macro[ add var , eax ]macro ; - : add-v,#n { var n } n if macro[ add var , dword # n ]macro then ; - : add-tos,#n ( n ) dup if >r macro[ add r@ tos,#n ]macro r>drop else drop then ; - : sub-tos,#n ( n ) >r macro[ sub r@ tos,#n ]macro r>drop ; - : shl-tos,#n ( n ) >r macro[ shl r@ tos,#n ]macro r>drop ; - : shr-tos,#n ( n ) >r macro[ shr r@ tos,#n ]macro r>drop ; - : sar-tos,#n ( n ) >r macro[ sar r@ tos,#n ]macro r>drop ; - : and-tos,#n ( n ) >r macro[ and r@ tos,#n ]macro r>drop ; - : or-tos,#n ( n ) >r macro[ or r@ tos,#n ]macro r>drop ; - : xor-tos,#n ( n ) >r macro[ xor r@ tos,#n ]macro r>drop ; - : cmp-tos,#n ( n ) >r macro[ cmp r@ tos,#n ]macro r>drop ; - : jne-mark2 ( -- ) macro[ jne 0 ]macro >mark 2 ; - : not-tos ( -- ) macro[ not eax ]macro ; - - : loop-add { n } macro[ add [esp], dword # n jno 0 ]macro ; - : setcc { } macro[ cmp eax, # 1 sbb eax, eax ]macro ; - : imul-tos,#n ( n ) $C069 code-w, code-, ; \ no opcode for this? imul eax, # n - : litstack ( n xt -- ) \ stack literal drop lits spush ; \ the xt is of literal, just loose it --- 112,115 ---- *************** *** 174,177 **** --- 143,177 ---- ' litsync is sync-code + : 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 + + : var->tos { var } macro[ mov eax, var ]macro ; + : cvar->tos { var } macro[ movzx eax, byte var ]macro ; + : #n->tos ( n ) >r macro[ mov r@ tos,#n ]macro r>drop ; + : tos->var { var } macro[ mov var , eax ]macro ; + : tos->cvar { var } macro[ mov var , al ]macro ; + : #n->var { var n } macro[ mov var , dword # n ]macro ; + : #n->cvar { var c } macro[ mov var , byte # c ]macro ; + + : add-v,tos { var } macro[ add var , eax ]macro ; + : add-v,#n { var n } n if macro[ add var , dword # n ]macro then ; + : add-tos,#n ( n ) dup if >r macro[ add r@ tos,#n ]macro r>drop else drop then ; + : sub-tos,#n ( n ) >r macro[ sub r@ tos,#n ]macro r>drop ; + : shl-tos,#n ( n ) >r macro[ shl r@ tos,#n ]macro r>drop ; + : shr-tos,#n ( n ) >r macro[ shr r@ tos,#n ]macro r>drop ; + : sar-tos,#n ( n ) >r macro[ sar r@ tos,#n ]macro r>drop ; + : and-tos,#n ( n ) >r macro[ and r@ tos,#n ]macro r>drop ; + : or-tos,#n ( n ) >r macro[ or r@ tos,#n ]macro r>drop ; + : xor-tos,#n ( n ) >r macro[ xor r@ tos,#n ]macro r>drop ; + : cmp-tos,#n ( n ) >r macro[ cmp r@ tos,#n ]macro r>drop ; + : jne-mark2 ( -- ) macro[ jne 0 ]macro >mark 2 ; + : not-tos ( -- ) macro[ not eax ]macro ; + + : loop-add { n } macro[ add [esp], dword # n jno 0 ]macro ; + : setcc { } macro[ cmp eax, # 1 sbb eax, eax ]macro ; + : imul-tos,#n ( n ) $C069 code-w, code-, ; \ no opcode for this? imul eax, # n + : opt/ ( xt -- ) lits>1? if lits s2pop swap rot execute lits spush else xt-inline, then ; *************** *** 250,254 **** begin dup @ dup \ fetch the entry while ! r@ swap (compiles-set) 2 cells+ \ next entry repeat r>drop 2drop ; execute \ do it now --- 250,254 ---- begin dup @ dup \ fetch the entry while ! r@ swap >comp! 2 cells+ \ next entry repeat r>drop 2drop ; execute \ do it now *************** *** 322,325 **** --- 322,356 ---- ' optc! compiles-for c! + : optloc-save ( -- ) \ generate save if locals not in use + sync-code + localstk 0= if \ if zero, not using locals + macro[ + push lp [up] \ push local ptr + mov lp [up] , esp \ new local ptr + ]macro + -1 to localstk \ mark as localalloc + then ; + + : optloc ( xt -- ) \ optimise localalloc + drop + lits>0? if \ constant? + lits spop aligned >r \ align it + optloc-save \ generate possible save + postpone dup + macro[ + sub esp, # r@ \ adjust rstack pointer + ]macro r>drop + else + optloc-save \ generate possible save + macro[ + sub esp, eax \ subtract n1 from return stack + and esp, # -4 \ cell align return stack + ]macro + then + macro[ + mov eax, esp \ move to top of stack + ]macro + ; ' optloc compiles-for localalloc + : optof ( xt -- ) \ optimise the constant case "n of ... endof" drop 1+ >r Index: optinline.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/optinline.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** optinline.f 13 May 2007 21:39:26 -0000 1.8 --- optinline.f 12 Jul 2007 21:00:18 -0000 1.9 *************** *** 42,45 **** --- 42,46 ---- \ set some optimisation for constants in the kernel + \ should really be done in meta compilation ' (comp-cons) compiles-for bl *************** *** 49,52 **** --- 50,59 ---- ' (comp-cons) compiles-for cell ' (comp-cons) compiles-for -cell + ' (comp-cons) compiles-for maxbuffer + ' (comp-cons) compiles-for maxcounted + ' (comp-cons) compiles-for maxstring + ' (comp-cons) compiles-for r/o + ' (comp-cons) compiles-for w/o + ' (comp-cons) compiles-for r/w ' (comp-val) compiles-for stdin ' (comp-val) compiles-for stdout *************** *** 161,165 **** ' xt-inline, compiles-for wcount ' xt-inline, compiles-for lcount ! ' xt-inline, compiles-for zcount ' xt-inline, compiles-for bounds --- 168,172 ---- ' xt-inline, compiles-for wcount ' xt-inline, compiles-for lcount ! \ ' xt-inline, compiles-for zcount ' xt-inline, compiles-for bounds |
|
From: Alex M. <ale...@us...> - 2007-07-12 21:00:31
|
Update of /cvsroot/win32forth/win32forth-stc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3305 Modified Files: gkernel.exe Log Message: arm: correct compiler; metat generating incorrect code for smart compile, (words using compilation> in the kernel like IF etc) and simplified the kernel once this was fixed. Index: gkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/gkernel.exe,v retrieving revision 1.48 retrieving revision 1.49 diff -C2 -d -r1.48 -r1.49 Binary files /tmp/cvsuurMCw and /tmp/cvssCfjl3 differ |
|
From: Jos v.d.V. <jo...@us...> - 2007-07-07 18:20:27
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18296 Removed Files: Sockets.f Log Message: Jos: Removed sockets since it is not used in any source again and because socket.f does a better job. --- Sockets.f DELETED --- |
|
From: Jos v.d.V. <jo...@us...> - 2007-07-07 18:13:47
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15657 Added Files: WebServer.htm Log Message: Jos: The dexfile for the webserver. --- NEW FILE: WebServer.htm --- <?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>WebServer -- Webserver </h1><hr /><h2>Glossary </h2><pre><b><a name="0">80 httpserver http </a></b></pre><p>our http-server instance </p><pre><b><a name="1">: server-set-title ( -- ) </a></b></pre><p>set title of the console window </p><pre><b><a name="2">s" doc\" Prepend<home>\ webpath place </a></b></pre><p>the path to the web content </p><pre><b><a name="3">: server-choose-path { \ $path -- } </a></b></pre><p>chosse the path for the folder with the web content </p><pre><b><a name="4">: server-init ( -- ) </a></b></pre><p>init the server </p><pre><b><a name="5">: server-run ( -- ) </a></b></pre><p>run the server </p><pre><b><a name="6">: server-exit ( -- ) </a></b></pre><p>close the server </p><pre><b><a name="7">: www-server ( -- ) </a></b></pre><p>Starts the server. Tell your firewall that Win32Forth is allowed to use port 80. <br /> Then you should able to see the server in your browser by using: <br /> http://localhost/p-index.htm <br /> Assuming that the file p-index.htm is in your webpath. <br /> When you would like to use the websever over the internet. <br /> you must replace "localhost" by your IP-adres. <br /> The IP-adres can be seen at http://checkip.dyndns.org <br /> </p> |
|
From: Jos v.d.V. <jo...@us...> - 2007-07-07 18:12:17
|
Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15236 Modified Files: WebServer.F Log Message: Jos: Added some user notes. Index: WebServer.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/WebServer.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** WebServer.F 13 Jun 2007 17:38:15 -0000 1.2 --- WebServer.F 7 Jul 2007 18:12:13 -0000 1.3 *************** *** 2,5 **** --- 2,10 ---- \ Tom Dixon + \ *D doc\ + \ *! WebServer + \ *T WebServer -- Webserver + \ *S Glossary + anew -WebServer.f *************** *** 48,53 **** then ; ! : www-server ! \ *G main server-set-title --- 53,66 ---- then ; ! : www-server ( -- ) ! \ *G Starts the server. ! \ ** Tell your firewall that Win32Forth is allowed to use port 80. \n ! \ ** Then you should able to see the server in your browser by using: \n ! \ ** http://localhost/p-index.htm \n ! \ ** Assuming that the file p-index.htm is in your webpath. \n ! \ ** When you would like to use the websever over the internet. \n ! \ ** you must replace "localhost" by your IP-adres. \n ! \ ** The IP-adres can be seen at http://checkip.dyndns.org \n ! server-set-title *************** *** 70,74 **** : www-server-hello ( -- ) \ startup stuff - \ default initialization (needed for all turnkey apps) init-console --- 83,86 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2007-07-07 18:11:37
|
Update of /cvsroot/win32forth/win32forth/apps/Internet In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14877 Modified Files: iRipper.f Log Message: Jos: Minor bugfix. Index: iRipper.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Internet/iRipper.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** iRipper.f 13 Jun 2007 15:41:03 -0000 1.1 --- iRipper.f 7 Jul 2007 18:11:34 -0000 1.2 *************** *** 11,22 **** CollectFile$ $createFile close-file abort" close error" ; - : UrlDownloadToFile ( z"url" - ) - CollectFile$ count drop swap 0 0 2swap 0 call URLDownloadToFile drop ; - create site$ LMAXCOUNTED allot create long$ LMAXCOUNTED allot - : .long$ ( - ) cr long$ lcount 100 min type ; \ Rip will copy the specified file from the internet to the current \ directory using the same name. --- 11,21 ---- CollectFile$ $createFile close-file abort" close error" ; create site$ LMAXCOUNTED allot create long$ LMAXCOUNTED allot : .long$ ( - ) cr long$ lcount 100 min type ; + : UrlDownloadToFile ( z"url" - ) + CollectFile$ count drop swap 0 0 2swap 0 call URLDownloadToFile drop ; + \ Rip will copy the specified file from the internet to the current \ directory using the same name. *************** *** 25,32 **** 2dup current-dir$ count CollectFile$ place s" \" CollectFile$ +place ! CollectFile$ +place CreateCollectFile site$ lcount long$ lplace long$ +lplace ! long$ +LNULL .long$ long$ lcount drop UrlDownloadToFile ; --- 24,31 ---- 2dup current-dir$ count CollectFile$ place s" \" CollectFile$ +place ! CollectFile$ +place CollectFile$ +NULL .long$ CreateCollectFile site$ lcount long$ lplace long$ +lplace ! long$ +LNULL long$ lcount drop UrlDownloadToFile ; |
|
From: Jos v.d.V. <jo...@us...> - 2007-07-07 14:44:30
|
Update of /cvsroot/win32forth/win32forth-stc/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv31814 Added Files: Shell.f Log Message: Jos: Added shell.f --- NEW FILE: Shell.f --- \ $Id: Shell.f,v 1.1 2007/07/07 14:44:26 jos_ven Exp $ \ \ SHELL support \ \ Moved here from UTILS.F and partly rewritten by Dirk Busch \ Dienstag, März 29 2005 cr .( Loading Shell Words...) only forth also definitions IN-APPLICATION \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 6 Old original version of $EXEC, superceeded by the following series of words \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ INTERNAL create StartupInfo here 0 , \ cb 0 , \ lpReserved 0 , \ lpDesktop 0 , \ lpTitle 373 , \ dwX 3 , \ dwY 0 , \ dwXSize 0 , \ dwYSize 80 , \ dwXCountChars 50 , \ dwYCountChars 0 , \ dwFillAttribute STARTF_USEPOSITION STARTF_USECOUNTCHARS + STARTF_USESHOWWINDOW + , \ dwFlags SW_SHOWNORMAL W, \ wShowWindow 0 W, \ cbReserved2 0 , \ lpReserved2 0 , \ hStdInput 0 , \ hStdOutput 0 , \ hStdError here over - swap ! create ProcInfo 0 , \ hProcess 0 , \ hThread 0 , \ dwPriocessId 0 , \ dwThreadId 10 proc CreateProcess : (CreateProcess) ( a1 -- f1 ) \ pass to NT without any interpretation \ Note: a1 must point to a zString !!! ProcInfo 4 cells erase \ clear procinfo >r \ null terminated parameter string ProcInfo \ lppiProcInfo StartupInfo \ lpsiStartInfo 0 \ lpszCurDir 0 \ lpvEnvironment 0 \ fdwCreate 0 \ fInheritHandles 0 \ lpsaThread 0 \ lpsaProcess r> \ lpszCommandLine 0 \ lpszImageName call CreateProcess 0= ; 1 proc CloseHandle : EXEC-CLOSE-THREAD-HANDLE ( -- ) ProcInfo cell+ @ call CloseHandle drop ; : EXEC-CLOSE-PROCESS-HANDLE ( -- ) ProcInfo @ call CloseHandle drop ; : EXEC-CLOSE-HANDLES ( -- ) EXEC-CLOSE-THREAD-HANDLE EXEC-CLOSE-PROCESS-HANDLE ; 2 proc WaitForInputIdle 2 proc WaitForSingleObject : (EXEC-PROCESS-WAIT) { hProcess -- } \ Wait for terminating of a process INFINITE hProcess call WaitForInputIdle WAIT_FAILED <> if begin KEY? drop \ keep the Win32Forth message loop alive 1 hProcess call WaitForSingleObject WAIT_OBJECT_0 = until then ; : EXEC-PROCESS-WAIT ( -- ) \ Wait for terminating the process ProcInfo @ (EXEC-PROCESS-WAIT) ; EXTERNAL : zEXEC ( a1 -- f1 ) \ execute a command line (CreateProcess) ; DEPRECATED \ use zEXEC-CMD or zEXEC-CMD-WAIT instead : zEXEC-CMD ( a1 -- f1 ) \ execute a command line (CreateProcess) dup 0= if EXEC-CLOSE-HANDLES then ; : zEXEC-CMD-WAIT ( a1 -- f1 ) \ execute a command line, and wait for terminating of the process (CreateProcess) dup 0= IF EXEC-CLOSE-THREAD-HANDLE \ close the thread handle EXEC-PROCESS-WAIT \ wait for the process EXEC-CLOSE-PROCESS-HANDLE \ and close the process handle then ; : EXEC-CMD ( a1 -- f1 ) dup +null 1+ zEXEC-CMD ; : EXEC-CMD-WAIT ( a1 -- f1 ) dup +null 1+ zEXEC-CMD-WAIT ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ SHELL support with interpreted string replacement for selected words \ %FILENAME %DIR %LINE \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ INTERNAL named-new$ &execbuf variable &linenum &linenum off : execbuf+ ( a1 n1 a2 -- ) \ append to the exec buffer &execbuf 2dup c@ + MAXCOUNTED > abort" Too long for EXEC buffer" +place ; EXTERNAL true value new-prompt? INTERNAL create cur-file maxstring allot \ *** : $EXECBUF-PREPARE ( a1 -- ) \ preprocess for file and line parameters base @ >r decimal &execbuf off \ pre-zero the buffer count begin 2dup ascii % scan dup while 2dup 2>r nip - execbuf+ 2r> over s" %FILENAME" tuck ISTR= if new-prompt? if cur-file count "path-file if cr ." File doesn't exist, create it? [Y/N] (N):" key upc 'Y' <> abort" Aborting" then execbuf+ else cur-file count execbuf+ then 9 /string \ remove %FILENAME else over s" %DIR" tuck ISTR= if &prognam count 2dup "to-pathend" nip - execbuf+ 4 /string \ remove %DIR else over s" %LINE" tuck ISTR= if &linenum @ 0 <# #s #> execbuf+ 5 /string \ remove %LINE else over 1 execbuf+ 1 /string \ remove one % char then then then repeat nip - execbuf+ r> base ! ; EXTERNAL : $EXEC ( a1 -- f1 ) \ Invoke a DOS command string with \ preprocess for file and line parameters \ f1 = TRUE on error $EXECBUF-PREPARE &execbuf EXEC-CMD ; : $EXEC-WAIT ( a1 -- f1 ) \ Invoke a DOS command string with \ preprocess for file and line parameters \ and wait for terminating of the process. \ f1 = TRUE on error $EXECBUF-PREPARE &execbuf EXEC-CMD-WAIT ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ create editor$ ," %DIRWinEd.exe '%FILENAME' %LINE" MAXSTRING allot-to create browse$ ," %DIRWinEd.exe /B '%FILENAME' %LINE" MAXSTRING allot-to create shell$ ," CMD /C " MAXSTRING allot-to create dos$ ," CMD" MAXSTRING allot-to : editor" ( -<string">- ) \ set the editor command string ascii " word count editor$ place ; : browse" ( -<string">- ) \ set the browser command string ascii " word count browse$ place ; : shell" ( -<string">- ) \ set the shell command string ascii " word count shell$ place ; : dos" ( -<string">- ) \ set the dos command string ascii " word count dos$ place dos$ +NULL ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ User specifiable string delimiter utility \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ IN-SYSTEM : .quote ( - ) ascii " emit ; : type-quoted ( adr n - ) .quote type .quote ; : .shell \ display the editor, browser, shell & dos strings cr ." EDITOR: " editor$ count type-quoted cr ." BROWSE: " browse$ count type-quoted cr ." SHELL: " shell$ count type-quoted cr ." DOS: " dos$ count type-quoted ; synonym .editor .shell DEPRECATED synonym .dos .shell DEPRECATED synonym .browse .shell DEPRECATED \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 10 A utility to allow invoking a DOS shell on a following commandline \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ IN-APPLICATION INTERNAL create shell-name$ ," SHELL.BAT" MAXSTRING allot-to create shell-buf MAXSTRING allot 0 value ?shell-pause EXTERNAL : $shell ( a1 -- ) dup c@ if shell-name$ count w/o create-file \ make the file abort" Couldn't create SHELL.BAT" >r \ save file handle ( a1 ) count r@ write-file drop \ write commandline crlf$ count r@ write-file drop \ line terminator ?shell-pause if s" PAUSE" r@ write-file drop \ wait for results crlf$ count r@ write-file drop \ line terminator then r> close-file drop \ close the file shell$ count shell-buf place \ the command shell-name$ count shell-buf +place \ append batch name shell-buf EXEC-CMD drop \ perform command else drop ?shell-pause if dos$ EXEC-CMD drop then then ; : shell ( -<string>- ) true to ?shell-pause 0 word $shell ; : dos ( -<string>- ) false to ?shell-pause 0 word $shell ; synonym ` shell DEPRECATED synonym sys shell DEPRECATED \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ 25 HTML linkage support \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 6 proc ShellExecute : ("ShellExecute) { operation addr cnt hWnd -- errorcode } \ open file using default application SW_SHOWNORMAL \ nShowCmd Null \ default directory Null \ parameters addr cnt asciiz \ file name to execute operation \ operation to perform hWnd \ parent Call ShellExecute ; : "ShellExecute { addr cnt hWnd -- errorcode } \ open file using default application z" open" addr cnt hWnd ("ShellExecute) ; : "Web-Link { adr len hWnd \ web$ -- } \ open the Web link supplied, using the web browser LMAXSTRING LocalAlloc: web$ web$ off \ reset buffer initially adr len bl skip -trailing to len to adr \ remove leading & trailing blanks adr len 4 min s" WWW." caps-compare 0= \ if www. present adr len 5 min s" FILE:" caps-compare 0= or \ or http: present adr len 5 min s" HTTP:" caps-compare 0= or \ or http: present adr len 5 min s" NEWS:" caps-compare 0= or \ or news: present adr len 4 min s" FTP:" caps-compare 0= or \ or ftp: present adr len 4 min s" FTP." caps-compare 0= or \ or ftp. present adr len 7 min s" MAILTO:" caps-compare 0= or \ or mailto: present len 0= or \ or NULL string IF adr len web$ LPLACE \ then pass through un-modified ELSE s" www." web$ LPLACE \ else prepend "www." adr len web$ +LPLACE \ append specified string s" .com" web$ +LPLACE \ append ".com" THEN web$ +LNULL \ null terminate string web$ @ \ if there is any thing there IF web$ lcount hwnd "ShellExecute drop \ tell Windows we want this link ELSE beep THEN ; : Web ( -<www.???.com>- ) \ open the Web link specified, using the Web browser bl word count conhndl "Web-Link ; : "file-link ( adr len hWnd -- ) \ open a local file in default browser s" file:" temp$ place \ build string >R Prepend<home>\ temp$ +place \ file:<absolute path>\<file name>.<ext> temp$ count r> "web-link ; \s |
1040 messages has been excluded from this view by a project administrator.
