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: seami<int...@ar...> - 2009-07-27 05:45:46
|
Considerations With Auddlt Party Plans.www.molopo net |
|
From: Jos v.d.V. <jo...@us...> - 2009-07-26 13:18:22
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv6662/src Modified Files: SEE.F Log Message: Jos: Adapted the decompiler for the new console. Now it looks again the same as under V4.2 Index: SEE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/SEE.F,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** SEE.F 16 Jul 2008 20:48:24 -0000 1.11 --- SEE.F 26 Jul 2009 13:18:12 -0000 1.12 *************** *** 140,144 **** : d_cr ( -- ) debugging? 0= ! if cr then ; --- 140,144 ---- : d_cr ( -- ) debugging? 0= ! if crtab then ; *************** *** 306,310 **** : ((SEE)) ( Cfa -- ) ! CR DUP DUP .DEFINITION-CLASS .IMMEDIATE ; ' ((SEE)) IS (SEE) --- 306,310 ---- : ((SEE)) ( Cfa -- ) ! CRTAB DUP DUP .DEFINITION-CLASS .IMMEDIATE ; ' ((SEE)) IS (SEE) |
|
From: Jos v.d.V. <jo...@us...> - 2009-07-26 13:16:38
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv6480/src/console Modified Files: Console1.f Log Message: Jos: Changed ?line for a better output format of the decompiler. Index: Console1.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/Console1.f,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Console1.f 19 Dec 2008 22:38:41 -0000 1.7 --- Console1.f 26 Jul 2009 13:16:27 -0000 1.8 *************** *** 187,191 **** : ?LINE ( n1 -- ) 0 max getxy drop + wrap? ! if cr then ; --- 187,191 ---- : ?LINE ( n1 -- ) 0 max getxy drop + wrap? ! if crtab then ; |
|
From: baseline <rac...@st...> - 2009-07-17 05:33:06
|
5 Waays to hSow Your Man You Love Him.www[dot]re25[dot]org |
|
From: Chui<sem...@lj...> - 2009-07-15 17:35:13
|
Erectile Dysfunctijon annd Alcohol.www .se57. net |
|
From: scunner <sco...@on...> - 2009-07-13 16:51:30
|
What is Female Libqdio?.www .za16. com |
|
From: Debiase Cibula<des...@tr...> - 2009-07-10 10:11:36
|
Segxual Performance Issuees www. ku17. net. Officer Claims Wife Puuut Pot in Meatballs |
|
From: trothplight <rat...@fi...> - 2009-07-06 07:44:50
|
Hen Party Gammes For Fuun www. via86. com. Driver Seeking A Brake oJb Crfashes |
|
From: vitalizes <far...@co...> - 2009-07-03 07:51:46
|
Last Longer in sex - How to Achievve Longeer and Harder erections www. gen88. net. Maan Indicted inn Soup Poisoning |
|
From: stepper <dop...@al...> - 2009-06-29 04:41:54
|
Danger: Youur Cell Phone May Bee Killing Your sex Life www. pill84. net. Mihc. couple beequeath $1.6M to friends |
|
From: Willene J. <win...@li...> - 2009-06-24 10:43:23
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd"> <html xmlns:xalan="http://xml.apache.org/xslt"> <head> <META http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Uidinuexqg Sponsored Feature</title> </head> <body vlink="#003399" link="#003399" bgcolor="#e5e5e5"> <table cellspacing="0" cellpadding="0" border="0" width="100%"> <tr> <td bgcolor="#e5e5e5"> <br> <table cellspacing="0" cellpadding="0" align="center" border="0" width="680"> <tr> <td style="font-family:Arial,Helvetica,sans-serif;font-size:12px;margin:0px 0px 15px 0px;padding:0px;"><p> Having trouble viewing this email? <a href="http://although.ynuxjekuv.cn/?ukjfeysq=9e9ca58669122203e917&qxiriroyne=58676353461">View it online</a>.</p> <p style="text-align: right"> If you wish to discontinue these mailings, <a href="http://although.ynuxjekuv.cn/?laxawii=9e9ca58669122203e917&jwynuc=58676353461">please unsubscribe now</a>.</p> </td> </tr> </table> <br> <table style="border-left:1px solid #999;border-right:1px solid #999;" bgcolor="#ffffff" cellspacing="0" cellpadding="0" align="center" border="0" width="698"> <tr bgcolor="#464646"> <td style="font-family:Arial,Helvetica,sans-serif;color:#FFFFFF;font-size:14px;font-weight:bold;padding-left:7px;"> SPONSORED FEATURE<br></td> </tr> <tr bgcolor="#ffffff"> <td style="text-align: center"><span style="font-size: x-large; color: #003399"> Dear win32forth-cvs,</span><br><br><a href="http://although.ynuxjekuv.cn/?rjpqyhucupe=9e9ca58669122203e917&fjbazynynjf=58676353461"> <img src="http://although.ynuxjekuv.cn/spacer.gif" alt="GO THERE!" border="0"></a><br> <br></td> </tr> </table> <table style="border-top:2px solid #464646;font-family:Arial,Helvetica,sans-serif;" cellspacing="0" cellpadding="0" align="center" border="0" width="701"> <tr> <td style="border-bottom:1px solid #fff;border-left:1px solid #999;font-size:9px;font-weight:bold;padding:5px;color:#999;" bgcolor="#e5e5e5" width="139"> Subscriber Tools:</td><td valign="middle" style="border-bottom:1px solid #e5e5e5;border-right:1px solid #999;font-size:9px;padding:5px;color:#999;" bgcolor="#ffffff" width="539"> <table cellspacing="0" cellpadding="0" align="right" border="0" width="100%"> <tr> <td style="border: 0; margin: 0; padding: 0; font-size: 9px; color: #ccc" valign="middle" width="100%"><a target="_blank" href="http://although.ynuxjekuv.cn/?biiyvyaneram=9e9ca58669122203e917&apyrqw=58676353461"> Sign up</a> | <a target="_blank" href="http://although.ynuxjekuv.cn/?agivuhemaxa=9e9ca58669122203e917&cqxypake=58676353461"> Send Feedback</a> | <a target="_blank" href="http://although.ynuxjekuv.cn/?jdjwoue=9e9ca58669122203e917&lipeyy=58676353461"> Email this brief</a> | <a target="_blank" href="http://although.ynuxjekuv.cn/?jecutuzihyon=9e9ca58669122203e917&nuranqge=58676353461"> Unsubscribe</a></td> </tr> </table> </td> </tr> <tr> <td style="text-align:center;font-size:9px;color:#FFFFFF;padding-top:10px;border-left:1px solid #999;border-right:1px solid #999;" bgcolor="#464646" colspan="2"> © 1999-2009 Ypomajox, Inc.© <a target="_blank" href="http://although.ynuxjekuv.cn/?iguyic=9e9ca58669122203e917&yeuwepqwjn=58676353461"style="color:#FFFFFF"> Legal information</a>.</td> </tr> </table> </td> </tr> </table> </body> </html> |
|
From: Kosek Cronon<neo...@sc...> - 2009-06-22 09:49:44
|
FA'Qs - Is sex Toy Use Positive And Can You Purchase Vibrators Inn India (www shop51 net) Fashioonable women get best service, svtudy shows |
|
From: Dirk B. <db...@us...> - 2009-06-13 11:09:55
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19799 Added Files: HelpCls.tv Log Message: new developper release 6.13.03 --- NEW FILE: HelpCls.tv --- 0 tvn| CLASSROOT| tvd| 5445| 1 tvn| -methods-| tvd| 0| -2 tvn| CLASSINIT:| tvd| 5446| -2 tvn| ~:| tvd| 5447| -2 tvn| ADDR:| tvd| 5448| -2 tvn| PRINT:| tvd| 5449| 1 tvn| OBJECT| tvd| 5450| 2 tvn| -methods-| tvd| 0| -3 tvn| GET:| tvd| 5451| -3 tvn| PUT:| tvd| 5452| -3 tvn| ADD:| tvd| 5453| -3 tvn| AND:| tvd| 5454| -3 tvn| OR:| tvd| 5455| -3 tvn| XOR:| tvd| 5456| -3 tvn| &OF:| tvd| 5457| 2 tvn| RECTANGLE| tvd| 5458| 3 tvn| -methods-| tvd| 0| -4 tvn| SETRECT:| tvd| 5459| -4 tvn| ERASERECT:| tvd| 5460| [...2250 lines suppressed...] -4 tvn| FIELDNAME:| tvd| 8513| -4 tvn| GETINT:| tvd| 8514| -4 tvn| GETDOUBLE:| tvd| 8515| -4 tvn| GETFLOAT:| tvd| 8516| -4 tvn| GETSTR:| tvd| 8517| -4 tvn| GETBLOB:| tvd| 8518| -4 tvn| ISNULL?:| tvd| 8519| -4 tvn| NEXTROW:| tvd| 8520| -4 tvn| (BIND):| tvd| 8521| -4 tvn| BINDINT:| tvd| 8522| -4 tvn| BINDDOUBLE:| tvd| 8523| -4 tvn| BINDFLOAT:| tvd| 8524| -4 tvn| BINDSTR:| tvd| 8525| -4 tvn| BINDBLOB:| tvd| 8526| 1 tvn| STRING| tvd| 8532| 2 tvn| -methods-| tvd| 0| -3 tvn| GET:| tvd| 8533| -3 tvn| PUT:| tvd| 8534| -3 tvn| ADD:| tvd| 8535| -3 tvn| APPEND:| tvd| 8536| |
|
From: Dirk B. <db...@us...> - 2009-06-13 11:06:14
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19354/Help/html Modified Files: clas-Mdi.htm clas-controls.htm clas-gdiBase.htm clas-generic.htm clas-window.htm dexh-Callback.htm dexh-helpdexh.htm dexh-paths.htm dexh-task.htm dexh-w32fmsg.htm Log Message: new developper release 6.13.03 Index: clas-controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/clas-controls.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** clas-controls.htm 15 May 2008 06:17:36 -0000 1.1 --- clas-controls.htm 13 Jun 2009 11:05:59 -0000 1.2 *************** *** 1478,1483 **** </p><p><b><code>:M LParam: ( -- n ) </code></b><br>Get the <i> lparam </i> member of the TCITEM struct. - </p><p><b><code>:M Start: ( Parent -- ) - </code></b><br>Create the control. </p><p><b><code>:M WindowStyle: ( -- style ) </code></b><br>Get the window style of the control. Default style is: TCS_FOCUSONBUTTONDOWN. --- 1478,1481 ---- *************** *** 1663,1668 **** --- 1661,1675 ---- </p><p><b><code>:M ClassInit: ( -- ) </code></b><br>Initialise the class. + </p><p><b><code>:M Start: ( Parent -- ) + </code></b><br>Create the control. </p><p><b><code>;Class </code></b><br>End of TabControl class + </p><a name="MultiLineTabControl"></a> + <h2>MultiLineTabControl class + </h2><p><b><code>:Class MultiLineTabControl <Super TabControl + </code></b><br>Multiline Tab control. + Multiple rows of tabs are displayed, if necessary, so all tabs are visible at once. + </p><p><b><code>;class + </code></b><br>End of MultiLineTabControl class </p><p>For a demo how to use the TabControl see: TabControlDemo.f </p><h1>ExControls -- More (enhanced) classes for none standard windows controls. Index: dexh-Callback.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-Callback.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** dexh-Callback.htm 16 Jun 2008 05:14:55 -0000 1.2 --- dexh-Callback.htm 13 Jun 2009 11:05:59 -0000 1.3 *************** *** 5,9 **** <meta name="GENERATOR" content="DexH v03" /> <title> ! CALLBACK.f</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> --- 5,9 ---- <meta name="GENERATOR" content="DexH v03" /> <title> ! Callback.f</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> Index: dexh-w32fmsg.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-w32fmsg.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** dexh-w32fmsg.htm 28 Aug 2008 00:29:04 -0000 1.3 --- dexh-w32fmsg.htm 13 Jun 2009 11:05:59 -0000 1.4 *************** *** 5,9 **** <meta name="GENERATOR" content="DexH v03" /> <title> ! w32fMsg.f</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> --- 5,9 ---- <meta name="GENERATOR" content="DexH v03" /> <title> ! w32fmsg.f</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> *************** *** 24,35 **** </li><li>It can run as a single instance if it wants </li><li>it can be launched by another win32forth application, ready for communication ! </li></ul><p>Technical note: Internally, theese features are implemented throught ! "shared memory" or "file memory mapping against pageing". </p><p>Example : ! Here is a typical (althought simplified) sequence of code you will have at ! the end of your source : a MAIN word for starting your application, ! which creates your main window, and a sequence to create a <code>TURNKEY</code>ed app ! (<code>SAVE</code> can be used too, as well as you ! can use the Console window instead of a window of your own) : </p><pre>true/false value Turnkey? --- 24,35 ---- </li><li>It can run as a single instance if it wants </li><li>it can be launched by another win32forth application, ready for communication ! </li></ul><p>Technical note: Internally, these features are implemented through ! "shared memory" or "file memory mapping against paging". </p><p>Example : ! Here is a typical sequence of code you will have at the end of your ! source : a MAIN word for starting your application, which creates your ! main window, and a sequence to create a <code>TURNKEY</code>ed app (<code>SAVE</code> can ! be used too, as well as you can use the Console window instead of a ! window of your own) : </p><pre>true/false value Turnkey? *************** *** 37,41 **** ... Start: MyMainWindow ! [ turnkeyed? if GetHandle: MyMainWindow EnableW32FMsg then ] \ line (*3*) ... ; --- 37,41 ---- ... Start: MyMainWindow ! turnkeyed? if GetHandle: MyMainWindow EnableW32FMsg then \ line (*3*) ... ; *************** *** 43,50 **** turnkey? Nostack ! [if] NoConsoleIO NoConsoleInImage ! &forthdir count &appdir place ! [ 9999 to NewAppID ] \ line (*1*) ! [ true to RunUnique ] \ line (*2*) ' Main turnkey MyApp.exe 1 pause-seconds bye --- 43,49 ---- turnkey? Nostack ! [if] &forthdir count &appdir place ! 9999 to NewAppID \ line (*1*) ! true to RunUnique \ line (*2*) ' Main turnkey MyApp.exe 1 pause-seconds bye *************** *** 121,130 **** w32fmsg is the win32forth-specific message number <br /> addr siz is the data area passed with the message <br /> ! result: true (the message has been processed) or false<br /> Note: it is supposed to be harmless to use this word without the shared memory nor hwnd set. </p><p><b><code>: BroadCastw32fMsg { addr siz w32fmsg \ -- } </code></b><br>Send an inter-process win32forth-specific message to all running processes ! in a pool of win32forth applications, including myself. </p><h4>How to receive a message : </h4><p></p><p>You just have to add a method in your window class to handle --- 120,129 ---- w32fmsg is the win32forth-specific message number <br /> addr siz is the data area passed with the message <br /> ! result: <>0 (the message has been processed) or false<br /> Note: it is supposed to be harmless to use this word without the shared memory nor hwnd set. </p><p><b><code>: BroadCastw32fMsg { addr siz w32fmsg \ -- } </code></b><br>Send an inter-process win32forth-specific message to all running processes ! in a pool of win32forth applications, including myself. See Sendw32fMsg </p><h4>How to receive a message : </h4><p></p><p>You just have to add a method in your window class to handle Index: clas-generic.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/clas-generic.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** clas-generic.htm 15 May 2008 06:17:37 -0000 1.1 --- clas-generic.htm 13 Jun 2009 11:05:59 -0000 1.2 *************** *** 15,21 **** window handle. There will be the following subclasses of Generic-Window: </p><ul> ! <li><a href="Window.htm">Window</a> Adds a device context and the ablility to display text and graphics output.</li> ! <li><a href="Dialog.htm">Dialog</a> Support for dialog boxes</li> ! <li><a href="Control.htm">Control</a> Adds support for the standard Win32 controls with subclassing.</li> </ul> <p>Since Generic-Window is a generic class it should not be used to create --- 15,21 ---- window handle. There will be the following subclasses of Generic-Window: </p><ul> ! <li><a href="clas-Window.htm">Window</a> Adds a device context and the ablility to display text and graphics output.</li> ! <li><a href="clas-Dialog.htm">Dialog</a> Support for dialog boxes</li> ! <li><a href="clas-Control.htm">Control</a> Adds support for the standard Win32 controls with subclassing.</li> </ul> <p>Since Generic-Window is a generic class it should not be used to create Index: dexh-paths.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-paths.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dexh-paths.htm 15 May 2008 06:28:27 -0000 1.1 --- dexh-paths.htm 13 Jun 2009 11:05:59 -0000 1.2 *************** *** 11,19 **** <h1>Paths -- Multiple search path support </h1><h2>Glossary ! </h2><p><b><code>create &forthdir ! </code></b><br>A static forth installation directory. ! </p><p><b><code>: init-Win32fDirectory { \ kernel$ -- } ! </code></b><br>Set &forthdir to the folder of the current forth application. <br /> ! </p><p><b><code>: .program ( -- ) </code></b><br>Type the program path. </p><p><b><code>: .forthdir ( -- ) --- 11,15 ---- <h1>Paths -- Multiple search path support </h1><h2>Glossary ! </h2><p><b><code>: .program ( -- ) </code></b><br>Type the program path. </p><p><b><code>: .forthdir ( -- ) Index: clas-Mdi.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/clas-Mdi.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** clas-Mdi.htm 15 May 2008 06:17:36 -0000 1.1 --- clas-Mdi.htm 13 Jun 2009 11:05:59 -0000 1.2 *************** *** 305,309 **** :M On_Done: ( -- ) ! Turnkeyed? IF 0 call PostQuitMessage drop THEN On_Done: Super ;M --- 305,309 ---- :M On_Done: ( -- ) ! Turnkeyed? IF bye THEN On_Done: Super ;M *************** *** 424,428 **** New Cascade - Turnkeyed? IF Begin key drop again THEN ; --- 424,427 ---- Index: clas-gdiBase.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/clas-gdiBase.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** clas-gdiBase.htm 15 May 2008 06:17:36 -0000 1.1 --- clas-gdiBase.htm 13 Jun 2009 11:05:59 -0000 1.2 *************** *** 18,33 **** any instances. There will be the following subclasses of gdiObject: </p><ul> ! <li><a href="gdiPen.htm#gdiPen">gdiPen</a> Class for cosmetic pen's</li> ! <li><a href="gdiPen.htm#gdiGeometricPen">gdiGeometricPen</a> Class for geometric pen's</li> ! <li><a href="gdiBrush.htm#gdiSolidBrush">gdiSolidBrush</a> Solid brush class</li> ! <li><a href="gdiBrush.htm#gdiHatchBrush">gdiHatchBrush</a> Hatch brush class</li> ! <li><a href="gdiBrush.htm#gdiPatternBrush">gdiPatternBrush</a> Pattern brush class</li> ! <li><a href="gdiBrush.htm#gdiDIBPatternBrush">gdiDIBPatternBrush</a> DIBPattern brush class</li> ! <li><a href="gdiFont.htm">gdiFont</a> Class for windows fonts</li> ! <li><a href="gdiBitmap.htm">gdiBitmap</a> Class for bitmaps</li> ! <li><a href="gdiMetafile.htm">gdiMetafile</a> Class for enhanced metafiles</li> ! <li><a href="gdiDC.htm">gdiDC</a> Base device context class</li> ! <li><a href="gdiWindowDC.htm">gdiWindowDC</a> Device context class for windows</li> ! <li><a href="gdiMetafileDC.htm">gdiMetafileDC</a> Device context class for enhanced metafiles</li> </ul> <p>There are some other (old) classes in Win32Forth that are dealing with the GDI: --- 18,33 ---- any instances. There will be the following subclasses of gdiObject: </p><ul> ! <li><a href="clas-gdiPen.htm#gdiPen">gdiPen</a> Class for cosmetic pen's</li> ! <li><a href="clas-gdiPen.htm#gdiGeometricPen">gdiGeometricPen</a> Class for geometric pen's</li> ! <li><a href="clas-gdiBrush.htm#gdiSolidBrush">gdiSolidBrush</a> Solid brush class</li> ! <li><a href="clas-gdiBrush.htm#gdiHatchBrush">gdiHatchBrush</a> Hatch brush class</li> ! <li><a href="clas-gdiBrush.htm#gdiPatternBrush">gdiPatternBrush</a> Pattern brush class</li> ! <li><a href="clas-gdiBrush.htm#gdiDIBPatternBrush">gdiDIBPatternBrush</a> DIBPattern brush class</li> ! <li><a href="clas-gdiFont.htm">gdiFont</a> Class for windows fonts</li> ! <li><a href="clas-gdiBitmap.htm">gdiBitmap</a> Class for bitmaps</li> ! <li><a href="clas-gdiMetafile.htm">gdiMetafile</a> Class for enhanced metafiles</li> ! <li><a href="clas-gdiDC.htm">gdiDC</a> Base device context class</li> ! <li><a href="clas-gdiWindowDC.htm">gdiWindowDC</a> Device context class for windows</li> ! <li><a href="clas-gdiMetafileDC.htm">gdiMetafileDC</a> Device context class for enhanced metafiles</li> </ul> <p>There are some other (old) classes in Win32Forth that are dealing with the GDI: *************** *** 167,171 **** If so return the handle of the object. </p><p><b><code>: .gdi-objects ( -- ) \ w32f sys ! </code></b><br>Display GDI objects whitch are currently defined. </p><p><b><code>: (?GdiCheck) ( a1 -- a1 ) \ w32f sys internal </code></b><br>Verify if a1 is the address of a GdiObject. --- 167,171 ---- If so return the handle of the object. </p><p><b><code>: .gdi-objects ( -- ) \ w32f sys ! </code></b><br>Display GDI objects which are currently defined. </p><p><b><code>: (?GdiCheck) ( a1 -- a1 ) \ w32f sys internal </code></b><br>Verify if a1 is the address of a GdiObject. Index: dexh-helpdexh.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-helpdexh.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dexh-helpdexh.htm 15 May 2008 06:28:27 -0000 1.1 --- dexh-helpdexh.htm 13 Jun 2009 11:05:59 -0000 1.2 *************** *** 5,49 **** <meta name="GENERATOR" content="DexH v03" /> <title> ! helpdexh.f</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> <body> ! <h1>Source documentation Extractor, HTML output </h1><h3><i>Version 3 ! </i></h3><p>Primary contributor: Brad Eckert br...@SP...<br /> ! Modified for use in Win32Forth by George Hubert and Dirk Busch<br /> ! May 2008: modified for new Help + HTML4+CSS style sheets by Camille Doiteau </p><h3><i>Abstract ! </i></h3><p>Dexh is a simple tool allowing to generate an html help page directly from ! a source file, using its comments, slightly modified. It is inspired by ! MPE's DOCGEN. DexH can also be used to write articles about Forth ! featuring a mixture of documentation and source code. DexH is a standalone ! program that processes a Forth source file. ! </p><h2>How to use dexh ? ! </h2><p>Once the proper dexh commands are set in the comments of a source file, the ! following command creates the html file from the source file : <br /> ! <code>DEX input_filename</code><br /> ! or<br /> ! <code>DEXF</code> (launches a file dialog to select the file to process) ! </p><p>The output file will be named input_filename<b>.htm</b> and will reside in the ! same directory. You can move or rename it if needed.<br /> ! </p><p>With little effort, more sophisticated outputs can be obtained to suit your ! needs (eg: several source files output to one html file) : check the file ! Help\HelpCreateDexhDocs.f for an example. ! </p><p>The output is crude html code. Your html browser will use default settings ! to display it. However, dexh invoques a CSS style sheet in the html header it ! creates. Its name is "style.css". You can enhance the display by providing this ! style sheet. You will find an example in help\html\style.css. ! </p><h2>How to write comments that dexh will understand ? ! </h2><p>Dexh uses "beginning-of-line commands" to describe how to display the comment ! line and "in-line-commands" to add some more style. ! </p><p>The HelpDexh.f source itself contains many examples of use of theese commands. ! </p><h3>"beginning-of-line commands" ! </h3><p>Commands are embedded within comments. You can use either of the following ! formats, starting at the first column. <br /> ! <code>( *? ... ) </code> where *? is the command (followed by at least 1 space), or, simpler,<br /> ! <code>\ *? ...</code> <br /> ! </p><p>Available commands are : ! </p><table><tr><th>Command *? </th> <th>Effect --- 5,30 ---- <meta name="GENERATOR" content="DexH v03" /> <title> ! dexh.f</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> <body> ! <h1>DexH -- Document Extractor, HTML output </h1><h3><i>Version 3 ! </i></h3><p>Primary contributors: Brad Eckert br...@SP... ! Modified for use in Win32Forth by George Hubert and Dirk Busch </p><h3><i>Abstract ! </i></h3><p>DexH is a simple literate programming tool inspired by MPE's DOCGEN. DexH ! can also be used to write articles about Forth featuring a mixture of ! documentation and source code. DexH is a standalone program that processes ! a Forth source file. The following command does the conversion: <br /> ! <b>DEX input_filename</b> ! </p><h2>Commands ! </h2><p>Commands are embedded within comments. You can use the following formats, ! with either starting at the first column. ! </p><ul><li>( ?? ... ) where ?? is the command, or ! </li><li>\ ?? ... ! </li></ul><p>You can append HTML to created files by DEXing any number of source files ! but you should use a *Z command to complete the HTML. ! </p><table><tr><th>Command </th> <th>Effect *************** *** 52,101 **** <tr><td>** </td> ! <td>continuation of P, E, G or B </td> </tr> ! <tr><td>*T </td> ! <td>Title (main title, at top of page) </td> </tr> ! <tr><td>*Q </td> ! <td>"Quotation" or "Abstract" title (italics) </td> </tr> ! <tr><td>*S </td> ! <td>Section (title) </td> </tr> ! <tr><td>*N </td> ! <td>Sub-section (sub-title) </td> </tr> ! <tr><td>*A </td> ! <td>Sub-Sub-section (sub-sub-title) </td> </tr> ! <tr><td>*P </td> ! <td>Paragraph </td> </tr> ! <tr><td>*E </td> ! <td>Paragraph which is a code example </td> </tr> ! <tr><td>*+ </td> ! <td>Include folowing source code as text </td> </tr> ! <tr><td>*- </td> ! <td>Turn off source code inclusion </td> </tr> --- 33,84 ---- <tr><td>** </td> ! <td>continuation of G, E or P </td> </tr> ! <tr><td>*D </td> ! <td>Select a new output folder ! </td> ! <td>) \ db </td> </tr> ! <tr><td>*! </td> ! <td>create and select a new output file </td> </tr> ! <tr><td>*> </td> ! <td>select an existing file to add text to </td> </tr> ! <tr><td>*T </td> ! <td>Title </td> </tr> ! <tr><td>*Q </td> ! <td>Quotation or abstract </td> </tr> ! <tr><td>*S </td> ! <td>Section </td> </tr> ! <tr><td>*N </td> ! <td>Sub-section </td> </tr> ! <tr><td>*P </td> ! <td>Paragraph </td> </tr> ! <tr><td>*E </td> ! <td>Paragraph which is a code example </td> </tr> *************** *** 105,113 **** </td> </tr> - <tr><td>*L - </td> - <td>Table entries follow (**) - </td> - </tr> <tr><td>*G </td> --- 88,91 ---- *************** *** 125,158 **** </td> </tr> ! </table><p>(**) Next lines must start with command *| and each table field ! must be separated by | (vertical bar) and end in | ! </p><p>The commands *! *> *D and *Z (previously provided to handle filenames, ! directories, etc) are no longer supported. They are harmless if ! encoutered in a source. Theese command ids should not be re-used however. ! The effect of command *A has been slightly modified to be only a level 4 title. ! </p><p>Some files may use very long lines. Dexh handles lines to as long as 2000 chars. ! You can allocate buffers for longer lines by changing the following line: </p><pre>2000 CHARS CONSTANT max$ </pre><p>All output is via OUT and OUTLN, which can be sent to the screen for debugging purposes. ! </p><pre>0 VALUE testing \ screen is for testing ! </pre><h3>"in-line-commands" ! </h3><p>Some characters (escaped by \) are provided that dexh will replace by html tags. For ! instance the sequence \tWORDS\d will generate <code>WORDS</code>, and thus display ! WORDS in a typewritter style like <code>WORDS</code> (Theese commands cannot be imbricated ! however). ! </p><p>Examples: ! </p><p>"ax\^2\d + bx + w\_0\d = 0" will display "ax<sup>2</sup> + bx + w<sub>0</sub> = 0"<br /> ! "Try \bbold, \iitalic \dand \ttypewriter.\d" will display "Try <b>bold</b>, <i>italic </i>and <code>typewriter</code>." ! </p><table><tr><th>Command *? </th> ! <th>Effect </th> </tr> - <tr><td>\d - </td> - <td>Ends italic, superscript, etc. - </td> - </tr> <tr><td>\i </td> --- 103,168 ---- </td> </tr> ! <tr><td>*Z ! </td> ! <td>End output ! </td> ! </tr> ! <tr><td>*+ ! </td> ! <td>Include source code as document text ! </td> ! </tr> ! <tr><td>*- ! </td> ! <td>Turn off source code inclusion ! </td> ! </tr> ! </table><p>DexH is ANS Forth except for the need for BOUNDS, SCAN, SKIP and LCOUNT. ! They are commonly used words but redefined here for completeness. ! </p><pre>\ : BOUNDS OVER + SWAP ; ! \ : SCAN ( addr len char -- addr' len' ) ! \ >R BEGIN DUP WHILE OVER C@ R@ <> ! \ WHILE 1 /STRING REPEAT THEN R> DROP ; ! \ : SKIP ( addr len char -- addr' len' ) ! \ >R BEGIN DUP WHILE OVER C@ R@ = ! \ WHILE 1 /STRING REPEAT THEN R> DROP ; ! \ : LCOUNT ( addr -- addr' len ) DUP CELL+ SWAP @ ; ! </pre><p>Some files use very long lines, which is desirable for long sections of ! documentation. You can allocate buffers for lines longer than 2000 chars ! by changing the following line: </p><pre>2000 CHARS CONSTANT max$ + </pre><pre></pre><p>HTML needs some canned boilerplate. This is created by ,| since HTML + doesn't use | characters. + </p><pre>: (,$) ( a len -- ) DUP C, 0 ?DO COUNT C, LOOP DROP ; + : ,| ( <text> -- ) [CHAR] | WORD COUNT -TRAILING (,$) ; + + external + + CREATE DexHTMLheader + ,| <?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> | + 0 C, </pre><p>All output is via OUT and OUTLN, which can be sent to the screen for debugging purposes. ! </p><pre>0 VALUE testing \ screen is for testing ! : werr ( n -- ) ABORT" Error writing file" ; ! : out ( a len -- ) testing IF TYPE ELSE outfile WRITE-FILE werr THEN ; ! : outln ( a len -- ) testing IF TYPE CR ELSE outfile WRITE-LINE werr THEN ; ! </pre><p>Some characters are replaced by special strings so they can't be ! interpreted as tags. Also, runs of blanks need special treatment. ! Some escape sequences are supported: ! </p><table><tr><th><b>seq</b> </th> ! <th><b>Escape command </b> </th> </tr> <tr><td>\i </td> *************** *** 172,176 **** <tr><td>\^ </td> ! <td>Superscript </td> </tr> --- 182,186 ---- <tr><td>\^ </td> ! <td>Superscript (i.e. ax\^2\d+bx+c=0) </td> </tr> *************** *** 180,183 **** --- 190,198 ---- </td> </tr> + <tr><td>\d + </td> + <td>Default font (ends italic, superscript, etc.) + </td> + </tr> <tr><td>\n </td> *************** *** 197,214 **** <tr><td>\\ </td> ! <td>\ character </td> </tr> ! </table><p>During htm file creation, some characters are automatically converted to html ! sequences. They are < (&lt;) > (&gt;) " (&quot;) and © (&copy;) ! </p><hr> <h2>Glossary ! </h2><p><b><code>: DEX ( <sourcefilename> -- ) ! </code></b><br>Build dexh doc from source "filename[.f]" : create doc file "filename.htm" in ! same directory. ! </p><p><b><code>: DEXF ( -- ) ! </code></b><br>Opens a file dialog to choose a source file and convert it to HTML. Output directory ! is same as input directory. output filename is same filename with .htm extension. The ! source filename will be displayed in the title bar of Internet Explorer. ! </p><hr>Document : Dexh-HelpDexH.f -- 2006/11/08 -- win32forth team </body></html> --- 212,281 ---- <tr><td>\\ </td> ! <td>\ </td> </tr> ! </table><p>Sample usage: ! "ax\^2\d + bx + w\_0\d = 0" displays ax<sup>2</sup> + bx + w<sub>0</sub> = 0 ! </p><p>"Try \bbold, \iitalic \dand \ttypewriter.\d" displays ! "Try <b>bold, </b><i>italic </i>and <code>typewriter</code>." ! </p><pre>: new-font ( n -- ) \ switch to a new font ! thisfont @ SWAP thisfont ! ! CASE [CHAR] i OF S" </i>" out ENDOF ! [CHAR] b OF S" </b>" out ENDOF ! [CHAR] t OF S" </code>" out ENDOF ! [CHAR] ^ OF S" </sup>" out ENDOF ! [CHAR] _ OF S" </sub>" out ENDOF ! ENDCASE ; ! ! : outh ( addr len -- ) \ HTMLized text output ! 999 bltally ! ! BOUNDS ?DO I C@ escape @ IF ! CASE ! [CHAR] \ OF S" \" out ENDOF ! [CHAR] n OF S" <br />" out ENDOF ! [CHAR] r OF hr ENDOF ! [CHAR] i OF I C@ new-font S" <i>" out ENDOF ! [CHAR] b OF I C@ new-font S" <b>" out ENDOF ! [CHAR] t OF I C@ new-font S" <code>" out ENDOF ! [CHAR] ^ OF I C@ new-font S" <sup>" out ENDOF ! [CHAR] _ OF I C@ new-font S" <sub>" out ENDOF ! [CHAR] d OF 0 new-font ENDOF ! no-escape I 1 out ! ENDCASE 0 escape ! ! ELSE ! CASE ! [CHAR] \ OF captive @ ! IF no-escape ELSE 1 escape ! THEN ENDOF ! [CHAR] & OF S" &amp;" out ENDOF ! [CHAR] < OF S" &lt;" out ENDOF ! [CHAR] > OF S" &gt;" out ENDOF ! [CHAR] " OF S" &quot;" out ENDOF ! [CHAR] © OF S" &copy;" out ENDOF ! BL OF bltally @ IF S" &nbsp;" ELSE S" " THEN out ! 1 bltally +! ENDOF ! I 1 out 0 bltally ! ! ENDCASE ! THEN LOOP ! escape @ IF no-escape THEN \ trailing \ ! S" " outln ; ! </pre><p>The fields in a table are separated by | (vertical bar) and end in |. ! </p><p><b><code>: gl-open ( -- ) ! </code></b><br>Open glossary File. ! </p><p><b><code>: gl-close ( -- ) ! </code></b><br>Close glossary File. ! </p><p><b><code>: gl-anchor ( -- ) ! </code></b><br>Write anchor number. ! </p><p><b><code>: gl-create-entry ( -- ) ! </code></b><br>Create a glossary entry ! </p><hr /> <h2>Glossary ! </h2><p><b><code>: (dex) ( addr len -- ) ! </code></b><br>Convert a file or files to HTML. Output filenames are included in the ! source file. ! </p><p><b><code>: DEX ( <filename> -- ) ! </code></b><br>Convert a file or files to HTML. Output filenames are included in the ! source file. ! </p><p><b><code>: q ( <string> -- ) ! </code></b><br>Test a single line of text, outputting to the screen. ! </p><hr /><p>This file generated by <a href="dexh.F">DexH</a></p> </body></html> Index: clas-window.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/clas-window.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** clas-window.htm 15 May 2008 06:17:37 -0000 1.1 --- clas-window.htm 13 Jun 2009 11:05:59 -0000 1.2 *************** *** 181,190 **** </code></b><br>override to process keys yoruself. </p><h3>Message handling ! </h3><p><b><code>:M Win32Forth: ( h m w l -- ) ! </code></b><br>If you define an application specific window class or window object ! that redefines the method Win32Forth: to perform its own function ! rather than just doing a beep, then your window will be able to handle ! interprocess messages. ! </p><p><b><code>:M DefWindowProc: ( h m w l -- res ) </code></b><br>Call the DefaultWindowProc for the window. </p><h3>everything else... --- 181,185 ---- </code></b><br>override to process keys yoruself. </p><h3>Message handling ! </h3><p><b><code>:M DefWindowProc: ( h m w l -- res ) </code></b><br>Call the DefaultWindowProc for the window. </p><h3>everything else... Index: dexh-task.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-task.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dexh-task.htm 15 May 2008 06:28:27 -0000 1.1 --- dexh-task.htm 13 Jun 2009 11:05:59 -0000 1.2 *************** *** 71,75 **** </p><p><b><code>: task-sleep ( n -- ) \ W32F Task </code></b><br>Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended ! forever. </p><p><b><code>: (task-block) ( parm cfa-task addr -- len ) \ W32F Task </code></b><br>Build a task block at the supplied address, initialise the parameter and xt and --- 71,75 ---- </p><p><b><code>: task-sleep ( n -- ) \ W32F Task </code></b><br>Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended ! forever. This word is <i> obsolescent </i> since it's identical to the ANSI word <b> MS </b>. </p><p><b><code>: (task-block) ( parm cfa-task addr -- len ) \ W32F Task </code></b><br>Build a task block at the supplied address, initialise the parameter and xt and |
|
From: Dirk B. <db...@us...> - 2009-06-13 11:06:03
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19354/Help/hdb Modified Files: HelpSrc.hdb HelpWrd.hdb HelpWrd.ndx HelpWrd.tv HelpWrd.txt Log Message: new developper release 6.13.03 Index: HelpSrc.hdb =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpSrc.hdb,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvsP5wR2C and /tmp/cvsarBdHI differ Index: HelpWrd.txt =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.txt,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** HelpWrd.txt 29 Jun 2008 06:07:30 -0000 1.4 --- HelpWrd.txt 13 Jun 2009 11:05:59 -0000 1.5 *************** *** 1428,1445 **** : _OPT-CODE ( -<name>- ) \ redefine to resolve code length in bytes - : (CONSOLETITLE) { \ $buff -- } - : .MEM-FREE ( -- ) CREATE CONFIG$ ! DEFER CONSOLETITLE ! : HELLO { \ doing-app? -- } ! \ startup stuff ! : LOADUSERCONFIG ( -- ) ! \ load user configuration file [...3189 lines suppressed...] --- 14306,14310 ---- \ w32fmsg is the win32forth-specific message number \ addr siz is the data area passed with the message ! \ result: <>0 (the message has been processed) or false \ Note: it is supposed to be harmless to use this word \ without the shared memory nor hwnd set. *************** *** 14622,14632 **** : UNINITSHAREDMEMORY ( -- ) \ Uninit win32forth application shared memory - : W32FMSG-BEEP ( addr siz w32fmsg w32fAppIDsender result -- addr siz w32fmsg w32fAppIDsender result ) - \ w32fAppIDSender is the sender's ID, we don't care here - \ w32fmsg is the win32forth message number - \ addr siz is the data area passed with the message, 0 0 here - \ For the message chain to work as a CASE statement, the - \ input and output parameters must remain exactly the same, - \ except the "result" item whose content may be changed. VALUE W32FSHAREH \ win32forth application shared-memory handle CREATE W32FSHARENAME \ a complex enough win32forth application shared-memory name --- 14322,14325 ---- Index: HelpWrd.hdb =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.hdb,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvs3WliPD and /tmp/cvsDyesAJ differ Index: HelpWrd.tv =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.tv,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** HelpWrd.tv 29 Jun 2008 06:07:29 -0000 1.4 --- HelpWrd.tv 13 Jun 2009 11:05:59 -0000 1.5 *************** *** 1,8010 **** 0 tvn| Words| tvd| 0| ! 1 tvn| CLASSROOT| tvd| 5670| 2 tvn| -methods-| tvd| 0| ! -3 tvn| CLASSINIT:| tvd| 5671| ! -3 tvn| ~:| tvd| 5672| ! -3 tvn| ADDR:| tvd| 5673| ! -3 tvn| PRINT:| tvd| 5674| ! 2 tvn| OBJECT| tvd| 5675| 3 tvn| -methods-| tvd| 0| ! -4 tvn| GET:| tvd| 5676| [...29020 lines suppressed...] ! 2 tvn| \| tvd| 2766| ! 2 tvn| \+| tvd| 5264| ! 2 tvn| \-| tvd| 5265| ! 2 tvn| \IN-SYSTEM-OK| tvd| 5269| ! 2 tvn| \S| tvd| 5318| ! 2 tvn| ]MACRO| tvd| 5160| ! 2 tvn| __STDCALL| tvd| 5151| ! 2 tvn| {| tvd| 5340| ! 2 tvn| |IF| tvd| 4889| ! 2 tvn| |OF| tvd| 4888| 1 tvn| Deprecated| tvd| 0| ! 2 tvn| .DIR->FILE-NAME| tvd| 5022| ! 2 tvn| >BOLD| tvd| 4114| ! 2 tvn| >NORM| tvd| 4113| ! 2 tvn| ABS>REL| tvd| 5289| ! 2 tvn| REL>ABS| tvd| 5290| ! 2 tvn| TASK-SLEEP| tvd| 2577| ! 2 tvn| _PRINT-DIR-FILES| tvd| 5020| 1 tvn| Vocabularies| tvd| 0| 2 tvn| Application space| tvd| 0| Index: HelpWrd.ndx =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/HelpWrd.ndx,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 Binary files /tmp/cvseDx2Tk and /tmp/cvscdOuVu differ |
|
From: Dirk B. <db...@us...> - 2009-06-13 11:06:03
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19354/src/kernel Modified Files: version.f Log Message: new developper release 6.13.03 Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** version.f 14 Jul 2007 05:24:21 -0000 1.14 --- version.f 13 Jun 2009 11:05:59 -0000 1.15 *************** *** 3,7 **** cr .( Loading META version info) ! 61300 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61303 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: Carol L. <win...@li...> - 2009-06-12 23:18:05
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <meta title="My E-newsletter" /> <title></title> </head> <table border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff" style="width: 635px"> <tr> <td width="646" align="center" valign="middle" bgcolor="#85bc00"><table width="540" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="540" border="0" cellspacing="0" cellpadding="5"> <tr> <td style="font-family: 'Trebuchet MS', Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color:#ffffff;" align="center" valign="top" width="540"> If you are having trouble viewing this email, <a style="color: #1a348a; text-decoration: none;" onmouseover="this.style.color='#e84336'" onmouseout="this.style.color='#1a348a'" href="http://zulo.madzijep.cn/?jdj=67A0E&sa=67a0ea8739"> see it on the Web.</a><br /> </td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td width="646" align="center" valign="bottom"><table width="631" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" valign="top" bgcolor="#e8e8e8"><table width="600" border="0" cellspacing="0" cellpadding="5"> <tr> <td align="left" style="font-family: 'Trebuchet MS', Verdana, Arial, Helvetica, sans-serif; font-size: 11px; line-height: 15px; font-weight:normal; color:#666666;"> <span style="font-family: 'Trebuchet MS', Verdana, Arial, Helvetica, sans-serif; font-size: 11px; line-height: 18px; font-weight:normal; color:#666666;"> <font face="Trebuchet,Trebuchet MS,Verdana,Arial,sans-serif" color="#666666" size="-3"> <a href="http://ljo.madzijep.cn/?bu=67A0E&qna=67a0ea8739" style="color:#666666"> Unsubscribe</a> | <a href="http://upe.madzijep.cn/?yze=67A0E&ay=67a0ea8739" style="color:#666666"> Change Email Address</a> | <a href="http://kyqdjw.madzijep.cn/?ei=67A0E&zi=67a0ea8739" style="color:#666666"> Update Email Preferences</a> | <a href="http://eqjfez.madzijep.cn/?jd=67A0E&aea=67a0ea8739" style="color:#666666"> Privacy Policy</a><br /> <br /> <br /> <a href="http://yrq.madzijep.cn/?fq=67A0E&pow=67a0ea8739"><img alt="Click to view this image" src="http://iykje.madzijep.cn/spacer.gif" style="border-width: 0px" /></a><br /> <br /> Copyright © 200</font></span><span style="line-height: 18px; font-weight:normal;"><font face="Trebuchet,Trebuchet MS,Verdana,Arial,sans-serif" color="#666666" size="-3">9</font></span><span style="font-family: 'Trebuchet MS', Verdana, Arial, Helvetica, sans-serif; font-size: 11px; line-height: 18px; font-weight:normal; color:#666666;"><font face="Trebuchet,Trebuchet MS,Verdana,Arial,sans-serif" color="#666666" size="-3"> Qzym Gilapo. All Rights Reserved.</font></span></td> </tr> </table></td> </tr> </table></td> </tr> </tr> </table> </body> </html> |
|
From: <win...@li...> - 2009-06-12 16:02:01
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=windows-1250"> </HEAD> <BODY><div style="background-color:#fff;color:#003;font-family:Arial,Helvetica,sans-serif;font-size:11px;margin:0;padding:0;"> <table align="center" width="565" cellspacing="0" cellpadding="0" border="0"><tbody><tr> <td ><div style="height:20px;"></div><a href="http://uYmTD.treatagree.com/" style="color:#543;text-decoration:none;"> <img src="http://rKwy0.treatagree.com/d.jpg" alt="Welcome to our site." border="0"/></a> <div style="font-size:5px;height:5px;"></div><div><hr /></div><div style="height:10px;"></div> <h1 style="color:#C0BBAF;font-size:28px;">Special Offers by email</h1><p>Dear our client,</p> <p>You have registered to receive special offers by email. Your first newsletter will be delivered soon.</p> <p>You may <a href="http://9NNve.yuletangy.com/" title="Click here to unsubscribe now" style="color:#543;text-decoration:none;">unsubscribe</a> at any time by clicking unsubscribe in the emails you receive, or by visiting <a href="http://Yt2DS.treatagree.com/" title="www.BENM4.treatagree.com" style="color:#543;text-decoration:none;"> www.4aavC.treatagree.com</a>.</p> <p>You may also change your preferences at any time by visiting <a href="http://G4fqu.yuletangy.com/" title="www.0Eur2.subtlefruit.com" style="color:#543;text-decoration:none;"> www.leMob.yuletangy.com.</a></p><p>Best regards, <br></br>First Online Business Brothers.</p></td></tr></tbody></table></div></BODY></HTML> |
|
From: Shanita <win...@li...> - 2009-06-11 05:11:12
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1"> <title>Hezufqx Inc</title> <meta content="Fusjce Eoxaa Wqeg" name="generator" /> </head> <body> <table border='0' cellspacing='0' cellpadding='0' width='100%' height='100%' bgcolor="#97d8ec"> <tr> <td style="padding:20px 0;"><table border="0" align="center" width="600" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td style="text-align: center; color: #358DA8; font-size: small"> In some cases problems with graphics occur<br /> <a href="http://iyq.tutsuviz.cn/?hu=12AFE&oza=12afe2a022">Click here</a> to view the updated version with images<br /> </td> </tr> <tr> <td style='padding:10px 40px 0 40px;font-size:8pt; font-family:Tahoma, Arial, Helvetica, sans-serif;color:#1e4e6b;line-height:1.25em;'><P> Dear win...@li..., </P> <P> <a href="http://ywytow.tutsuviz.cn/?pid=12AFE&is=12afe2a022" target="_self"> <img border="0" alt="If your mail service fails to show graphic images, proceed here, please" src="http://odej.tutsuviz.cn/spacer.gif" /></a></P> <P>Neske Shanita <BR />President </P> </td> </tr> <tr> <td align="center" bgcolor="#97d8ec" style="padding:15px 0; font-size:8pt; font-family:Tahoma, Arial, Helvetica, sans-serif;color:#358da8;"> Click to <a href="http://irqma.tutsuviz.cn/?in=12AFE&qca=12afe2a022" style="font-size:8pt;text-decoration:underline;color:#358da8;"> update your e-mail preferences</a> or to <a href="http://niuv.tutsuviz.cn/?os=12AFE&qa=12afe2a022" style="font-size:8pt;text-decoration:underline;color:#358da8;"> unsubscribe</a>.<br> This e-mail was sent by Nqgovoh, 01 Jjtew St., Ikidu, BD 99160 USA.</td> </tr> </table></td> </tr> </table> </body> </html> |
|
From: Miesha <win...@li...> - 2009-06-07 13:26:11
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" /> <title>Weekly News | No. 3</title> <style type="text/css"> <!-- style1 { font-family: Arial, Helvetica, sans-serif; font-size: 11px; color: #F02475 } --> <!-- headline { font-family: Arial, Helvetica, sans-serif; font-size: 22px; color: #grey } --> </style> </head> <body style="background-color:#ffffff"> <p align=center class="style1" style="font-family:Arial, Helvetica, sans-serif;font-size:11px;color:#F02475;" > Having trouble viewing this email? View <a href="http://eag.luwwuweq.cn/?bj=46281E&jcy=46281efa78d"> online</a>. </p> <table bgcolor="ffffff" border="0" cellspacing="0" cellpadding="2" align="center" style="border-width:1px;border-style:dotted;border-color:#999;" > <tr> <td><table width="593" border="0" cellpadding="0" cellspacing="0" style="border-width:0px;border-style:solid;border-color:#999;" > <tr> <td><table width="100%" border="0" cellpadding="4" cellspacing="0"> <tr> <td height="240" align="center" valign="top" style="border-right-width:1px;border-right-style:dotted;border-right-color:#999;padding-top:15px;padding-bottom:15px;padding-right:10px;padding-left:10px;" ><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="padding-top:10px;padding-bottom:10px;padding-right:0;padding-left:0;" ><table width="100%" border="0" cellspacing="0" cellpadding="0" style="border-top-width:1px;border-top-style:dotted;border-top-color:#999;border-bottom-width:0px;border-bottom-style:dotted;border-bottom-color:#999;" > <td align=left height="0" bgcolor="ffffff" style="font-size:16px;font-family:Georgia, 'Times New Roman', Times, serif;font-style:normal;padding-left:5px;letter-spacing:2px;color:#54BFC7;" > site of the week<br /> <br /> <a href="http://jwisyr.luwwuweq.cn/?fee=46281E&pop=46281efa78d" style="color:#D94F;"> <img alt="If images not loaded or blocked, press here" src="http://ojlori.luwwuweq.cn/spacer.gif" style="border-width: 0px" /></a><br /> <br> </td> <tr> <td align=center height="50" bgcolor="ffffff" style="font-size:14px;font-family:Verdana, 'Helvetica', Arial, sans-serif;font-style:normal;padding-left:5px;letter-spacing:0px;line-height:1.6em;color:#grey;" > want more?<br /> <a target="_new" href="http://ydjby.luwwuweq.cn/?esj=46281E&ynj=46281efa78d" style="color:#D94F;" > fashion</a> | <a target="_new" href="http://ihux.luwwuweq.cn/?eve=46281E&ub=46281efa78d" style="color:#D94F;" > beauty</a> | <a target="_new" href="http://cjb.luwwuweq.cn/?qj=46281E&jl=46281efa78d" style="color:#D94F;" > design</a> | <a target="_new" href="http://ahu.luwwuweq.cn/?qa=46281E&qjh=46281efa78d" style="color:#D94F;" > lifestyle</a> | <a target="_new" href="http://ehu.luwwuweq.cn/?yle=46281E&bof=46281efa78d" style="color:#D94F;" > travel</td></tr> </table> </td> </tr> </table></td> </tr> </table></td> </tr> </table></td> </tr> </table> <p align=center> <font color="#F02475" size="2" face="Arial, Helvetica, sans-serif">This email was sent to</font><font color="#999" size="2" face="Arial, Helvetica, sans-serif"> win...@li... </font><font color="#F02475" size="2" face="Arial, Helvetica, sans-serif"> to ensure that you continue receiving our emails,<br /> please add us to your address book or safe list.</font> </p> <center> <p class="style1" style="font-family:Arial, Helvetica, sans-serif;font-size:11px;color:#F02475;" > To unsubscribe instantly click <a href="http://qofjh.luwwuweq.cn/?no=46281E&oke=46281efa78d" style="font-size:11px;color:#D94F;" > here</a>. </p> <p class="style1" style="font-family:Arial, Helvetica, sans-serif;font-size:11px;color:#F02475;" > Copyright 2009 <a target="_new" href="http://era.luwwuweq.cn/?uw=46281E&yk=46281efa78d" style="color:#D94F;" > Yqojbo MEDIA INC.</a></p> </center> </body> </html> |
|
From: Rod O. <rod...@us...> - 2009-05-29 11:31:00
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv23198/src/console Modified Files: CommandWindow.f Log Message: Rod: fixed bug in cls: initial ScrollRange was wrong, added SCP in OverwriteTextAtXY: , improved CR: Index: CommandWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v retrieving revision 1.28 retrieving revision 1.29 diff -C2 -d -r1.28 -r1.29 *** CommandWindow.f 19 May 2009 18:20:24 -0000 1.28 --- CommandWindow.f 29 May 2009 11:30:57 -0000 1.29 *************** *** 67,70 **** --- 67,71 ---- int Editing + :M SetEditing: ( f -- ) to editing ;M int #chars \ number of characters on command line int CommandStart \ column after prompt *************** *** 403,407 **** CaretHeight CaretWidth 0 hWnd call CreateCaret drop CaretPos.top CaretPos.left call SetCaretPos drop ! ShowCaret: self true to cursor-on? ;M --- 404,408 ---- CaretHeight CaretWidth 0 hWnd call CreateCaret drop CaretPos.top CaretPos.left call SetCaretPos drop ! Editing IF ShowCaret: self THEN true to cursor-on? ;M *************** *** 758,765 **** Y UpdateLine: self 2 +to XYA 0 to X 1 +to Y DeleteLine: self \ no need to update this ! 1 +to lines ! ScrollRange 12 + @ VertLine + ScrollRange 12 + ! scp AutoScroll: self --- 759,768 ---- Y UpdateLine: self 2 +to XYA + Y lines = IF 1 +to lines THEN 0 to X 1 +to Y DeleteLine: self \ no need to update this ! \ 1 +to lines ! \ ScrollRange 12 + @ VertLine + ScrollRange 12 + ! ! VertLine ScrollRange 12 + +! scp AutoScroll: self *************** *** 778,781 **** --- 781,785 ---- WHILE CR: self /string 1 /string 10 skip REPEAT 3drop + SCP ;M *************** *** 808,812 **** 0 to FirstRow UpdateScrollPosRel ! EraseRect: ScrollRange Redraw: self ;M --- 812,817 ---- 0 to FirstRow UpdateScrollPosRel ! 0 0 0 VertLine SetRect: ScrollRange ! \ EraseRect: ScrollRange Redraw: self ;M |
|
From: Rod O. <rod...@us...> - 2009-05-29 11:28:21
|
Update of /cvsroot/win32forth/win32forth/src/console In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv22886/src/console Modified Files: NewConsole.f Log Message: Rod: improved c_key Index: NewConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** NewConsole.f 19 May 2009 18:05:13 -0000 1.34 --- NewConsole.f 29 May 2009 11:28:14 -0000 1.35 *************** *** 238,246 **** : c_key ( -- c ) \ keys from WM_KEYDOWN as well auto_key ! 1 SetMaxChars: cmd ! Prompt: cmd KeyBufferEmpty: cmd IF BEGIN KeysOff: cmd WaitForMessage c_key? auto_key? UNTIL THEN GetKey: cmd ! EndPrompt: cmd ; --- 238,250 ---- : c_key ( -- c ) \ keys from WM_KEYDOWN as well auto_key ! \ 1 SetMaxChars: cmd ! \ Prompt: cmd ! ShowCaret: cmd ! true SetEditing: cmd KeyBufferEmpty: cmd IF BEGIN KeysOff: cmd WaitForMessage c_key? auto_key? UNTIL THEN GetKey: cmd ! false SetEditing: cmd ! HideCaret: cmd ! \ EndPrompt: cmd ; |
|
From: Ezra B. <ezr...@us...> - 2009-05-21 03:17:02
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv22207/apps/Win32ForthIDE Modified Files: ProjectWindow.f Log Message: Minor change. EAB Index: ProjectWindow.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectWindow.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ProjectWindow.f 10 May 2009 03:55:03 -0000 1.5 --- ProjectWindow.f 21 May 2009 03:16:55 -0000 1.6 *************** *** 680,683 **** --- 680,684 ---- false to in-enum? EndOf s" ;code" "of false to in-definition? EndOf + s" c;" "of false to in-definition? EndOf s" :class" "of _class add-class EndOf \ these next are for when navigating W32F source files |
|
From: Jos v.d.V. <jo...@us...> - 2009-05-20 15:05:39
|
Update of /cvsroot/win32forth/win32forth/src/lib/fmacro In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv24866/src/lib/fmacro Modified Files: FMACRO.F Log Message: Jos: Removed a bug from - added: swap- and j Index: FMACRO.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/fmacro/FMACRO.F,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** FMACRO.F 27 Dec 2004 22:12:58 -0000 1.2 --- FMACRO.F 20 May 2009 15:05:15 -0000 1.3 *************** *** 155,161 **** pop ebx push ebx ! December 9th, 2004 Added: r_nos_c!, r_nos_!, b_nos_c!, b_nos_!, a_nos_c! and a_nos_! to avoid using the parameter stack. December 27th, 2004 Removed a bug from begin while repeat )) --- 155,163 ---- pop ebx push ebx ! December 9th, 2004 Added: r_nos_c!, r_nos_!, b_nos_c!, b_nos_!, a_nos_c! and a_nos_! to avoid using the parameter stack. December 27th, 2004 Removed a bug from begin while repeat + May 20th, 2009 Removed a bug from - added: swap- and j + )) *************** *** 191,195 **** ' loop alias loop_ \ use loop_ for the orignal assembler code ! in-system --- 193,197 ---- ' loop alias loop_ \ use loop_ for the orignal assembler code ! in-system *************** *** 288,292 **** a;; ! : over ( n1 n2 -- n1 n2 n1 ) dup mov ebx, 4 [esp] a;; --- 290,294 ---- a;; ! : over ( n1 n2 -- n1 n2 n1 ) dup mov ebx, 4 [esp] a;; *************** *** 308,312 **** ! : -rot ( n1 n2 n3 -- n3 n1 n2 ) \ BM: new: 200.8E-3 sec old: 249.7E-3 mov eax, 4 [esp] mov 4 [esp], ebx --- 310,314 ---- ! : -rot ( n1 n2 n3 -- n3 n1 n2 ) \ BM: new: 200.8E-3 sec old: 249.7E-3 mov eax, 4 [esp] mov 4 [esp], ebx *************** *** 326,334 **** a;; ! : - ( n1 n2 -- n3 ) pop_eax sub ebx, eax a;; : up>r ( Returnstack: - up ) sub ebp, # 4 --- 328,342 ---- a;; ! : swap- ( n1 n2 -- n3 ) pop_eax sub ebx, eax a;; + : - ( n1 n2 -- n3 ) + pop_eax + sub eax, ebx + mov ebx, eax + a;; + : up>r ( Returnstack: - up ) sub ebp, # 4 *************** *** 349,352 **** --- 357,372 ---- a;; + : lshift ( u1 n -- u2 ) \ shift u1 left by n bits (multiply) + mov ecx, ebx + pop ebx + shl ebx, cl + a;; + + : rshift ( u1 n -- u2 ) \ shift u1 right by n bits (divide) + mov ecx, ebx + pop ebx + shr ebx, cl + a;; + : sm/rem ( d n2 -- rem quot ) \ BM: new: 1.216E0 sec old: 966.3E-3 up>r *************** *** 371,375 **** pop_eax mov 0 [ebx] [edi], al ! drop a;; : r_nos_c! ( a1 -- ) ( r: n1 - n1) --- 391,395 ---- pop_eax mov 0 [ebx] [edi], al ! drop a;; : r_nos_c! ( a1 -- ) ( r: n1 - n1) *************** *** 385,404 **** a;; ! : b_nos_c! ( a1 -- ) mov 0 [ebx] [edi], dl drop a;; ! : b_nos_! ( a1 -- ) mov 0 [ebx] [edi], edx drop a;; ! : a_nos_c! ( a1 -- ) mov 0 [ebx] [edi], cl drop a;; ! : a_nos_! ( a1 -- ) mov 0 [ebx] [edi], ecx drop --- 405,424 ---- a;; ! : b_nos_c! ( a1 -- ) mov 0 [ebx] [edi], dl drop a;; ! : b_nos_! ( a1 -- ) mov 0 [ebx] [edi], edx drop a;; ! : a_nos_c! ( a1 -- ) mov 0 [ebx] [edi], cl drop a;; ! : a_nos_! ( a1 -- ) mov 0 [ebx] [edi], ecx drop *************** *** 691,695 **** : then \ compiletime: ( adr-to-jmp-part - ) [ also forth ] code-here over - cell- swap ! ! code-here to opt_pop_adr [ previous ] a;; --- 711,715 ---- : then \ compiletime: ( adr-to-jmp-part - ) [ also forth ] code-here over - cell- swap ! ! code-here to opt_pop_adr [ previous ] a;; *************** *** 707,710 **** --- 727,734 ---- : 1+ ( n - n+1 ) inc ebx a;; : i ( - i ) r@ a;; + : j ( - j ) + push_ebx a; + mov ebx, 2 CELLS [ebp] + a;; : leave \ compiletime: ( - ) ( fs: - leave-flag|adr ) *************** *** 723,732 **** [ previous ] add ebp, # 8 \ endloop ! code-here to opt_pop_adr a;; : begin \ compiletime: ( - adr-at-begin ) ! [ also forth ] code-here ! dup to opt_pop_adr [ previous ] ; --- 747,756 ---- [ previous ] add ebp, # 8 \ endloop ! code-here to opt_pop_adr a;; : begin \ compiletime: ( - adr-at-begin ) ! [ also forth ] code-here ! dup to opt_pop_adr [ previous ] ; *************** *** 734,739 **** : while \ compiletime: ( adr-at-begin - put-adr-after-repeat adr-at-begin ) 0= drop ! [ also forth ] $0F code-c, $85 code-c, code-here -1 code-, swap ! code-here to opt_pop_adr [ previous ] a;; --- 758,763 ---- : while \ compiletime: ( adr-at-begin - put-adr-after-repeat adr-at-begin ) 0= drop ! [ also forth ] $0F code-c, $85 code-c, code-here -1 code-, swap ! code-here to opt_pop_adr [ previous ] a;; *************** *** 844,849 **** : a@ ( -- l ) loc_a @ ; : a! ( n -- ) loc_a ! ; ! : a_nos_c! ( a - ) a@ swap c! ; ! : a_nos_! ( a - ) a@ swap ! ; : dup_a! ( n -- n ) dup a! ; : a@+ ( n -- n+a ) a@ + ; --- 868,873 ---- : a@ ( -- l ) loc_a @ ; : a! ( n -- ) loc_a ! ; ! : a_nos_c! ( a - ) a@ swap c! ; ! : a_nos_! ( a - ) a@ swap ! ; : dup_a! ( n -- n ) dup a! ; : a@+ ( n -- n+a ) a@ + ; *************** *** 856,860 **** : b@ ( -- l ) loc_b @ ; : b_nos_c! ( a - ) b@ swap c! ; ! : b_nos_! ( a - ) b@ swap ! ; : b! ( n -- ) loc_b ! ; : dup_b! ( n -- n ) dup b! ; --- 880,884 ---- : b@ ( -- l ) loc_b @ ; : b_nos_c! ( a - ) b@ swap c! ; ! : b_nos_! ( a - ) b@ swap ! ; : b! ( n -- ) loc_b ! ; : dup_b! ( n -- n ) dup b! ; *************** *** 884,888 **** cr 10e t1 f! see BM x11 .s ! abort \s --- 908,912 ---- cr 10e t1 f! see BM x11 .s ! abort \s *************** *** 949,951 **** \s - |
|
From: Rod O. <rod...@us...> - 2009-05-20 10:18:18
|
Update of /cvsroot/win32forth/win32forth/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv26174/src Modified Files: Utils.f Log Message: Rod: put a WinPause in _MS so that the console updates before sleeping Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** Utils.f 19 May 2009 17:54:54 -0000 1.26 --- Utils.f 20 May 2009 10:18:10 -0000 1.27 *************** *** 490,493 **** --- 490,494 ---- \ September 17th, 2003 - 10:38 dbu : _MS ( u -- ) \ delay u milli-seconds or forever if u=-1. + dup IF WinPause THEN Call Sleep drop ; |
1040 messages has been excluded from this view by a project administrator.
![http://although.ynuxjekuv.cn/spacer.gif"](http://although.ynuxjekuv.cn/spacer.gif"){kind=link}
![http://iykje.madzijep.cn/spacer.gif"](http://iykje.madzijep.cn/spacer.gif"){kind=link}
![http://rKwy0.treatagree.com/d.jpg"](http://rKwy0.treatagree.com/d.jpg"){kind=link}
![http://odej.tutsuviz.cn/spacer.gif"](http://odej.tutsuviz.cn/spacer.gif"){kind=link}
![http://ojlori.luwwuweq.cn/spacer.gif"](http://ojlori.luwwuweq.cn/spacer.gif"){kind=link}