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: Dirk B. <db...@us...> - 2006-09-01 07:23:20
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11688/src/kernel Modified Files: version.f Log Message: - Smal changes to match the 6.11.10 release on www.win32forth.org Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/version.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** version.f 27 May 2006 08:54:04 -0000 1.10 --- version.f 1 Sep 2006 07:23:12 -0000 1.11 *************** *** 3,7 **** cr .( Loading META version info) ! 61109 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61110 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. |
|
From: Dirk B. <db...@us...> - 2006-09-01 07:23:20
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11688 Modified Files: fkernel.exe setup.exe Log Message: - Smal changes to match the 6.11.10 release on www.win32forth.org Index: setup.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/setup.exe,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 Binary files /tmp/cvsZjuM6y and /tmp/cvsQms0R4 differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.36 retrieving revision 1.37 diff -C2 -d -r1.36 -r1.37 Binary files /tmp/cvsASf7FA and /tmp/cvs2LyLv6 differ |
|
From: George H. <geo...@us...> - 2006-08-30 08:30:25
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20916/win32forth/doc Modified Files: p-index.htm Added Files: p-W32fdexh.htm p-dexh-createdocs.htm p-interpif.htm Log Message: gah:Updated docs Index: p-index.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-index.htm,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** p-index.htm 19 Aug 2006 14:45:36 -0000 1.15 --- p-index.htm 30 Aug 2006 08:30:22 -0000 1.16 *************** *** 91,94 **** --- 91,95 ---- <li><a href="ProMgr/ProjectManager.htm">ForthProject</a> (Win32Forth Project Manager)</li> <li><a href="p-dexh.htm">Dex</a> Document Extractor</li> + <li><a href="p-w32fdexh.htm">W32FDex</a> Win32Forth extensions for the Document Extractor</li> </ul> *************** *** 140,143 **** --- 141,145 ---- <li><a href="p-float.htm">Floating point words in Win32Forth</a></li> <li><a href="p-module.htm">Using the Module Wordset</a></li> + <li><a href="p-interpif.htm">Interpretive conditionals in Win32Forth</a></li> <li><a href="p-task.htm">Using the Task Wordset</a></li> <li><a href="p-random.htm">The Random Number Generator</a></li> --- NEW FILE: p-dexh-createdocs.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 name="GENERATOR" content="dexh v03"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title> Docs W32F )</title><style><!-- h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> </style> </head> <body><h1 align="center"> <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id: p-dexh-createdocs.htm,v 1.1 2006/08/30 08:30:22 georgeahubert Exp $"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> <img border="0" src="FORTHPRO.gif" width="32" height="32"> Win32Forth</h1> <hr /><h1>Documenting Win32Forth </h1><hr /><pre><b><a name="0">: create-docs ( -- ) \ W32F tool </a></b></pre><p>Create the documentation for Win32Forth from the source files. </p><p>Not all files have been marked up yet. If you feel like doing some then drop us a line at </p><a href="http://groups.yahoo.com/group/win32forth">win32forth at Yahoo</a> <p>VOLUNTEERS are always welcome. </p><hr><p>Document $Id: p-dexh-createdocs.htm,v 1.1 2006/08/30 08:30:22 georgeahubert Exp $</p> </body></html> --- NEW FILE: p-W32fdexh.htm --- <html> <head> <meta http-equiv="Content-Language" content="en-gb"> <meta name="GENERATOR" content="dexh00"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title> </title><style><!-- h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> </style> </head> <body><h1 align="center"> <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id: p-W32fdexh.htm,v 1.1 2006/08/30 08:30:22 georgeahubert Exp $"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> <img border="0" src="FORTHPRO.gif" width="32" height="32"> Win32Forth</h1> <hr /><h1>Extensions to DexH for producing Win32Forth Documents </h1><hr /><p>DexH is a versatile system for producing documentation and these extensions are designed to customise it for producing the Win32Forth documentation itself (including this file). </p><h2>Glossary </h2><pre><b><a name="0">: W32FDocs ( -- ) </a></b></pre><p>Set output for Win32Forth documents in the doc folder. </p><pre><b><a name="1">: W32FClassDocs ( -- ) </a></b></pre><p>Set output for Win32Forth documents in the doc\classes folder. </p><pre><b><a name="2">: DexDocs ( -- ) </a></b></pre><p>Set normal DexH output style. </p><pre><b><a name="3">: -tr ( -- ) </a></b></pre><p>Stop output of the HTML trailer. </p><pre><b><a name="4">: +tr ( -- ) </a></b></pre><p>Restart output of the HTML trailer. </p><pre><b><a name="5">: create-doc ( addr len -- ) </a></b></pre><p>Create the document for a file. To find the file the forth search path is used. </p><pre><b><a name="6">: DEXF ( -- ) </a></b></pre><p>Choose a file and convert it to HTML. Output filenames are included in the source file. </p><hr><p>Document $Id: p-W32fdexh.htm,v 1.1 2006/08/30 08:30:22 georgeahubert Exp $</p> </body></html> --- NEW FILE: p-interpif.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 name="GENERATOR" content="dexh v03"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title> W32F interpretive conditionals</title><style><!-- h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> </style> </head> <body><h1 align="center"> <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id: p-interpif.htm,v 1.1 2006/08/30 08:30:22 georgeahubert Exp $"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> <img border="0" src="FORTHPRO.gif" width="32" height="32"> Win32Forth</h1> <hr /><h1>Interpretive conditionals in Win32Forth </h1><hr /><p>Win32Forth supports the ANSI interpretive from the tools extension wordset, with some W32F specific extensions as well as an alternative set based on the 'C' style words #if #else #then etc. </p><h2>Glossary </h2><pre><b><a name="0">: [else] ( -- ) \ ANSI TOOLS EXT </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( "<spaces>name" ... -- ) Skipping leading spaces, parse and discard space-delimited words from the parse area, including nested occurrences of [IF] ... [THEN] and [IF] ... [ELSE] ... [THEN], until the word [THEN] has been parsed and discarded. If the parse area becomes exhausted, it is refilled as with REFILL. [ELSE] is an immediate word. </p><pre><b><a name="1">: [if] ( flag -- ) \ ANSI TOOLS EXT </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( flag | flag "<spaces>name" ... -- ) If flag is true, do nothing. Otherwise, skipping leading spaces, parse and discard space-delimited words from the parse area, including nested occurrences of [IF] ... [THEN], [IF] ... [ELSE] ... [THEN], [IF] ... [ENDIF] and [IF] ... [ELSE] ... [ENDIF], until either the word [ELSE], the word [THEN] or the word [ENDIF] has been parsed and discarded. If the parse area becomes exhausted, it is refilled as with REFILL. [IF] is an immediate word. An ambiguous condition exists if [IF] is POSTPONEd. If the end of the input buffer is reached and cannot be refilled before the terminating [ELSE], [THEN] or [ENDIF] is parsed then error -58 is thrown. </p><pre><b><a name="2">: [then] ( -- ) \ ANSI TOOLS EXT </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( -- ) Does nothing. [THEN] is an immediate word. </p><pre><b><a name="3">: [endif] ( -- ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( -- ) Does nothing. [ENDIF] is an immediate word. </p><pre><b><a name="4">: #else ( -- ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( "<spaces>name" ... -- ) Skipping leading spaces, parse and discard space-delimited words from the parse area, including nested occurrences of #IF ... #THEN and #IF ... #ELSE ... #THEN, until the word #THEN has been parsed and discarded. If the parse area becomes exhausted, it is refilled as with REFILL. #ELSE is an immediate word. </p><pre><b><a name="5">: #if ( flag -- ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( flag | flag "<spaces>name" ... -- ) If flag is true, do nothing. Otherwise, skipping leading spaces, parse and discard space-delimited words from the parse area, including nested occurrences of #IF ... #THEN, #IF ... #ELSE ... #THEN, #IF ... #ENDIF and #IF ... #ELSE ... #ENDIF, until either the word #ELSE, the word #THEN or the word #ENDIF has been parsed and discarded. If the parse area becomes exhausted, it is refilled as with REFILL. #IF is an immediate word. An ambiguous condition exists if #IF is POSTPONEd. If the end of the input buffer is reached and cannot be refilled before the terminating #ELSE, #THEN or #ENDIF is parsed then error -58 is thrown. </p><pre><b><a name="6">: #then ( -- ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( -- ) Does nothing. #THEN is an immediate word. </p><pre><b><a name="7">: #endif ( -- ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( -- ) Does nothing. #ENDIF is an immediate word. </p><pre><b><a name="8">: #ifdef ( "aword" -- ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( "aword" | "aword<spaces>name" ... -- ) If "aword" is found in the search order, do nothing. Otherwise, skipping leading spaces, parse and discard space-delimited words from the parse area, including nested occurrences of #IF ... #THEN, #IF ... #ELSE ... #THEN, #IF ... #ENDIF and #IF ... #ELSE ... #ENDIF, until either the word #ELSE, the word #THEN or the word #ENDIF has been parsed and discarded. If the parse area becomes exhausted, it is refilled as with REFILL. #IF is an immediate word. An ambiguous condition exists if #IF is POSTPONEd. If the end of the input buffer is reached and cannot be refilled before the terminating #ELSE, #THEN or #ENDIF is parsed then error -58 is thrown. This word is designed to ignore object.ivar type words. </p><pre><b><a name="9">: #ifndef ( "aword" -- ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: ( "aword" | "aword<spaces>name" ... -- ) If "aword" is not found in the search order, do nothing. Otherwise, skipping leading spaces, parse and discard space-delimited words from the parse area, including nested occurrences of #IF ... #THEN, #IF ... #ELSE ... #THEN, #IF ... #ENDIF and #IF ... #ELSE ... #ENDIF, until either the word #ELSE, the word #THEN or the word #ENDIF has been parsed and discarded. If the parse area becomes exhausted, it is refilled as with REFILL. #IF is an immediate word. An ambiguous condition exists if #IF is POSTPONEd. If the end of the input buffer is reached and cannot be refilled before the terminating #ELSE, #THEN or #ENDIF is parsed then error -58 is thrown. This word is designed to ignore object.ivar type words. </p><pre><b><a name="10">: [DEFINED] ( "aword" -- f1 ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: Return true if "aword" is found in a search of the search order. This word is designed to ignore object.ivar type words. </p><pre><b><a name="11">: [UNDEFINED] ( "aword" -- f1 ) \ W32F TOOLS EXTRA </a></b></pre><p>Compilation: Perform the execution semantics given below. <br /> Execution: Return false if "aword" is found in a search of the search order. This word is designed to ignore object.ivar type words. </p><hr><p>Document $Id: p-interpif.htm,v 1.1 2006/08/30 08:30:22 georgeahubert Exp $</p> </body></html> |
|
From: George H. <geo...@us...> - 2006-08-30 08:27:54
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19693/win32forth/src/tools Modified Files: DexH-CreateDocs.f W32fdexh.f Log Message: gah:More Dexing and added files to create list Index: DexH-CreateDocs.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/DexH-CreateDocs.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** DexH-CreateDocs.f 29 Aug 2006 08:52:25 -0000 1.16 --- DexH-CreateDocs.f 30 Aug 2006 08:27:51 -0000 1.17 *************** *** 84,87 **** --- 84,88 ---- s" src\Callback.f" create-doc s" src\paths.f" create-doc + s" src\interpif.f" create-doc s" src\floadcmdline.f" create-doc s" src\tools\W32fdexh.f" create-doc Index: W32fdexh.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/W32fdexh.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** W32fdexh.f 29 Aug 2006 08:52:25 -0000 1.5 --- W32fdexh.f 30 Aug 2006 08:27:51 -0000 1.6 *************** *** 15,22 **** create W32Fheader ! ,| <html> | ,| <head> | ! ,| <meta http-equiv="Content-Language" content="en-gb"> | ! ,| <meta name="GENERATOR" content="dexh00"> | ,| <meta name="ProgId" content="FrontPage.Editor.Document"> | ,| <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> | --- 15,24 ---- create W32Fheader ! ,| <?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 name="GENERATOR" content="dexh v03"> | ,| <meta name="ProgId" content="FrontPage.Editor.Document"> | ,| <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> | *************** *** 45,50 **** ,| <body><h1 align="center"> | ,| <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id$"> | ! ,| <img border="0" src="../TELLUS.gif" align="left" width="32" height="32"></a> | ! ,| <img border="0" src="../FORTHPRO.gif" | ,| width="32" height="32"> Win32Forth</h1> | 0 c, --- 47,52 ---- ,| <body><h1 align="center"> | ,| <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id$"> | ! ,| <img border="0" src="../TELLUS.gif" align="left" width="32" height="32"></a> | ! ,| <img border="0" src="../FORTHPRO.gif" | ,| width="32" height="32"> Win32Forth</h1> | 0 c, *************** *** 122,126 **** [defined] dexh [if] ! ' DEXF is dexh \ link into w32f console menu [then] --- 124,128 ---- [defined] dexh [if] ! \in-system-ok ' DEXF is dexh \ link into w32f console menu [then] *************** *** 132,138 **** cr .( or " DEXF " to choose a file and convert it. ) cr ! cr .( Use: W32FDocs W32FClassDocs and DexDocs to set the style for Win32Forth docs, ) ! cr .( in the docs folder, Class docs, in the docs\class folder or the stansard DexH ) ! cr .( style. The DexH style is the default. ) \ *Z --- 134,140 ---- cr .( or " DEXF " to choose a file and convert it. ) cr ! cr .( Use W32FDocs or W32FClassDocs to set the style for Win32Forth docs, ) ! cr .( in the docs folder or Class docs, in the docs\class folder. ) ! cr .( Use DexDocs for the standard DexH style. The DexH style is the default. ) \ *Z |
|
From: George H. <geo...@us...> - 2006-08-30 08:27:54
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19693/win32forth/src Modified Files: INTERPIF.F Log Message: gah:More Dexing and added files to create list Index: INTERPIF.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/INTERPIF.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** INTERPIF.F 16 Mar 2006 10:57:36 -0000 1.3 --- INTERPIF.F 30 Aug 2006 08:27:51 -0000 1.4 *************** *** 8,11 **** --- 8,20 ---- \ August 9th, 1996 - 10:38 tjz slight modifications for Win32Forth + \ *D doc + \ *! p-interpif W32F interpretive conditionals + \ *T Interpretive conditionals in Win32Forth + + \ *P Win32Forth supports the ANSI interpretive from the tools extension wordset, with some + \ ** W32F specific extensions as well as an alternative set based on the 'C' style words + \ ** #if #else #then etc. + + INTERNAL *************** *** 37,43 **** EXTERNAL ! : [else] ( -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( "<spaces>name" ... -- ) \ ** Skipping leading spaces, parse and discard space-delimited words from the parse area, \ ** including nested occurrences of [IF] ... [THEN] and [IF] ... [ELSE] ... [THEN], until --- 46,54 ---- EXTERNAL ! \ *S Glossary ! ! : [else] ( -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. \n ! \ ** Execution: ( "<spaces>name" ... -- ) \ ** Skipping leading spaces, parse and discard space-delimited words from the parse area, \ ** including nested occurrences of [IF] ... [THEN] and [IF] ... [ELSE] ... [THEN], until *************** *** 50,55 **** repeat ; immediate ! : [if] ( flag -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. \ ** Execution: ( flag | flag "<spaces>name" ... -- ) \ ** If flag is true, do nothing. Otherwise, skipping leading spaces, parse and discard --- 61,66 ---- repeat ; immediate ! : [if] ( flag -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: ( flag | flag "<spaces>name" ... -- ) \ ** If flag is true, do nothing. Otherwise, skipping leading spaces, parse and discard *************** *** 65,83 **** 0= if postpone [else] then ; immediate ! : [then] ( -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. \ ** Execution: ( -- ) \ ** Does nothing. [THEN] is an immediate word. ; immediate ! : [endif] ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \ ** Execution: ( -- ) \ ** Does nothing. [ENDIF] is an immediate word. ; immediate ! : #else ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. ! \ ** Execution: ( "<spaces>name" ... -- ) \ ** Skipping leading spaces, parse and discard space-delimited words from the parse area, \ ** including nested occurrences of #IF ... #THEN and #IF ... #ELSE ... #THEN, until --- 76,94 ---- 0= if postpone [else] then ; immediate ! : [then] ( -- ) \ ANSI TOOLS EXT ! \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: ( -- ) \ ** Does nothing. [THEN] is an immediate word. ; immediate ! : [endif] ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: ( -- ) \ ** Does nothing. [ENDIF] is an immediate word. ; immediate ! : #else ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n ! \ ** Execution: ( "<spaces>name" ... -- ) \ ** Skipping leading spaces, parse and discard space-delimited words from the parse area, \ ** including nested occurrences of #IF ... #THEN and #IF ... #ELSE ... #THEN, until *************** *** 90,95 **** repeat ; immediate ! : #if ( flag -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \ ** Execution: ( flag | flag "<spaces>name" ... -- ) \ ** If flag is true, do nothing. Otherwise, skipping leading spaces, parse and discard --- 101,106 ---- repeat ; immediate ! : #if ( flag -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: ( flag | flag "<spaces>name" ... -- ) \ ** If flag is true, do nothing. Otherwise, skipping leading spaces, parse and discard *************** *** 105,116 **** 0= if postpone #else then ; immediate ! : #then ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \ ** Execution: ( -- ) \ ** Does nothing. #THEN is an immediate word. ; immediate ! : #endif ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \ ** Execution: ( -- ) \ ** Does nothing. #ENDIF is an immediate word. --- 116,127 ---- 0= if postpone #else then ; immediate ! : #then ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: ( -- ) \ ** Does nothing. #THEN is an immediate word. ; immediate ! : #endif ( -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n \ ** Execution: ( -- ) \ ** Does nothing. #ENDIF is an immediate word. *************** *** 119,126 **** \ header file support for conditional compilation ! : #ifdef ( 'definedword' -- ) defined nip postpone #if ; immediate ! : #ifndef ( 'notdefinedword' -- ) defined nip 0= postpone #if ; immediate --- 130,165 ---- \ header file support for conditional compilation ! : #ifdef ( "aword" -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n ! \ ** Execution: ( "aword" | "aword<spaces>name" ... -- ) ! \ ** If "aword" is found in the search order, do nothing. Otherwise, skipping ! \ ** leading spaces, parse and discard ! \ ** space-delimited words from the parse area, including nested occurrences of ! \ ** #IF ... #THEN, #IF ... #ELSE ... #THEN, #IF ... #ENDIF and ! \ ** #IF ... #ELSE ... #ENDIF, until either the word #ELSE, ! \ ** the word #THEN or the word #ENDIF has been parsed and discarded. ! \ ** If the parse area becomes exhausted, it is refilled as with REFILL. ! \ ** #IF is an immediate word. ! \ ** An ambiguous condition exists if #IF is POSTPONEd. ! \ ** If the end of the input buffer is reached and cannot be refilled before the terminating ! \ ** #ELSE, #THEN or #ENDIF is parsed then error -58 is thrown. ! \ ** This word is designed to ignore object.ivar type words. defined nip postpone #if ; immediate ! : #ifndef ( "aword" -- ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n ! \ ** Execution: ( "aword" | "aword<spaces>name" ... -- ) ! \ ** If "aword" is not found in the search order, do nothing. Otherwise, skipping ! \ ** leading spaces, parse and discard ! \ ** space-delimited words from the parse area, including nested occurrences of ! \ ** #IF ... #THEN, #IF ... #ELSE ... #THEN, #IF ... #ENDIF and ! \ ** #IF ... #ELSE ... #ENDIF, until either the word #ELSE, ! \ ** the word #THEN or the word #ENDIF has been parsed and discarded. ! \ ** If the parse area becomes exhausted, it is refilled as with REFILL. ! \ ** #IF is an immediate word. ! \ ** An ambiguous condition exists if #IF is POSTPONEd. ! \ ** If the end of the input buffer is reached and cannot be refilled before the terminating ! \ ** #ELSE, #THEN or #ENDIF is parsed then error -58 is thrown. ! \ ** This word is designed to ignore object.ivar type words. defined nip 0= postpone #if ; immediate *************** *** 129,140 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : [DEFINED] ( <aword> -- f1 ) DPR-WARNING? >R DPR-WARNING-OFF BL WORD ?UPPERCASE PARMFIND nip 0<> R> TO DPR-WARNING? ; IMMEDIATE ! : [UNDEFINED] ( <aword> -- f1 ) postpone [DEFINED] 0= ; IMMEDIATE MODULE --- 168,187 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! : [DEFINED] ( "aword" -- f1 ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n ! \ ** Execution: Return true if "aword" is found in a search of the search order. ! \ ** This word is designed to ignore object.ivar type words. DPR-WARNING? >R DPR-WARNING-OFF BL WORD ?UPPERCASE PARMFIND nip 0<> R> TO DPR-WARNING? ; IMMEDIATE ! : [UNDEFINED] ( "aword" -- f1 ) \ W32F TOOLS EXTRA ! \ *G Compilation: Perform the execution semantics given below. \n ! \ ** Execution: Return false if "aword" is found in a search of the search order. ! \ ** This word is designed to ignore object.ivar type words. postpone [DEFINED] 0= ; IMMEDIATE MODULE + \ *Z + |
Update of /cvsroot/win32forth/win32forth/doc/classes In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11866/win32forth/doc/classes Modified Files: ADO.htm AXControl.htm Childwnd.htm Control.htm Controls.htm Dialog.htm File.htm Generic.htm HTMLcontrol.htm MdiDialog.htm TrayWindow.htm Window.htm gdiBase.htm gdiBitmap.htm gdiBrush.htm gdiDC.htm gdiFont.htm gdiMetafile.htm gdiMetafileDC.htm gdiPen.htm gdiStruct.htm gdiWindowDc.htm mdi.htm Log Message: gah:Updated docs Index: Childwnd.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/Childwnd.htm,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Childwnd.htm 5 Jun 2006 09:28:42 -0000 1.9 --- Childwnd.htm 29 Aug 2006 10:31:48 -0000 1.10 *************** *** 42,46 **** </a></b></pre><p>Create this child window. Parent is the object address of the parent window. ! </p><pre><b><a name="9">;Class </a></b></pre><p>End of Child-Window class </p><hr><p>Document $Id$</p> --- 42,48 ---- </a></b></pre><p>Create this child window. Parent is the object address of the parent window. ! </p><pre><b><a name="9">:M AutoSize: ( -- ) ! </a></b></pre><p>Size the window to fit into the client area of the parent window. ! </p><pre><b><a name="10">;Class </a></b></pre><p>End of Child-Window class </p><hr><p>Document $Id$</p> Index: Controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/Controls.htm,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** Controls.htm 5 Jun 2006 09:28:42 -0000 1.15 --- Controls.htm 29 Aug 2006 10:31:48 -0000 1.16 *************** *** 154,158 **** </a></b></pre><p>End of DialogWindow class </p><hr /><h1>ExControls -- More (enhanced) classes for standard windows controls. ! </h1><hr /><a name="TextBox"></a> <h2>TextBox class </h2><pre><b><a name="0">:Class TextBox <Super EditControl --- 154,235 ---- </a></b></pre><p>End of DialogWindow class </p><hr /><h1>ExControls -- More (enhanced) classes for standard windows controls. ! </h1><hr /><a name="Statusbar"></a> ! <h2>Statusbar class [...2026 lines suppressed...] </a></b></pre><p>Enable the control. ! </p><pre><b><a name="3">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="4">;Class </a></b></pre><p>End of VertButtonBar class </p><a name="HorizButtonBar"></a> <h2>HorizButtonBar class ! </h2><pre><b><a name="5">:Class HorizButtonBar <super HButtonBar </a></b></pre><p>HorizButtonBar control </p><p>This is an enhanced Version of the HButtonBar class. </p><p>Note: this control isn't one of the standard control of MS windows. ! </p><pre><b><a name="6">:M SetFont: { fonthndl \ hb1 -- } </a></b></pre><p>Set the font in the control. ! </p><pre><b><a name="7">:M Enable: { flag \ hb1 -- } </a></b></pre><p>Enable the control. ! </p><pre><b><a name="8">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="9">;Class </a></b></pre><p>End of HorizButtonBar class </p><hr><p>Document $Id$</p> Index: Generic.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/Generic.htm,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** Generic.htm 5 Jun 2006 09:28:42 -0000 1.14 --- Generic.htm 29 Aug 2006 10:31:48 -0000 1.15 *************** *** 47,74 **** </h3><pre><b><a name="1">int hWnd </a></b></pre><p>handle to Win32 window object </p><h3>Methods ! </h3><pre><b><a name="2">:M Classinit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="3">:M GetHandle: ( -- hWnd ) </a></b></pre><p>Get the window handle. ! </p><pre><b><a name="4">:M PutHandle: ( hWnd -- ) </a></b></pre><p>Set the window handle. Normally handled by the system. ! </p><pre><b><a name="5">:M ZeroWindow: ( -- ) </a></b></pre><p>Clear the window handle. Normally handled by the system. At start-up all window objects are zeroed automatically. ! </p><pre><b><a name="6">:M DestroyWindow: ( -- ) </a></b></pre><p>Destroy the window. The handle is always zero after executing this method. In a mult-tasking application this method causes an error if executed by a task that didn't create the window. ! </p><pre><b><a name="7">:M Close: ( -- ) </a></b></pre><p>Close the window. ! </p><pre><b><a name="8">:M Paint: ( -- ) </a></b></pre><p>Force window repaint. A WM_PAINT message is posted to the message queue. ! </p><pre><b><a name="9">:M SetRedraw: ( f -- ) </a></b></pre><p>Set the redraw state of the window. </p><p><i> f </i> Specifies the redraw state. If this parameter is TRUE, the content can be redrawn after a change. If this parameter is FALSE, the content cannot be redrawn after a change. ! </p><pre><b><a name="10">:M Show: ( state -- ) </a></b></pre><p>The ShowWindow function sets the specified window's show state. <br /> Possible values for state are: --- 47,78 ---- </h3><pre><b><a name="1">int hWnd </a></b></pre><p>handle to Win32 window object + </p><pre><b><a name="2">: SendMessage:Self ( lParam wParam message -- result ) + </a></b></pre><p>Send a windows message to our self. + </p><pre><b><a name="3">: SendMessage:SelfDrop ( lParam wParam message -- ) + </a></b></pre><p>Send a windows message to our self and discard the result. </p><h3>Methods ! </h3><pre><b><a name="4">:M Classinit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="5">:M GetHandle: ( -- hWnd ) </a></b></pre><p>Get the window handle. ! </p><pre><b><a name="6">:M PutHandle: ( hWnd -- ) </a></b></pre><p>Set the window handle. Normally handled by the system. ! </p><pre><b><a name="7">:M ZeroWindow: ( -- ) </a></b></pre><p>Clear the window handle. Normally handled by the system. At start-up all window objects are zeroed automatically. ! </p><pre><b><a name="8">:M DestroyWindow: ( -- ) </a></b></pre><p>Destroy the window. The handle is always zero after executing this method. In a mult-tasking application this method causes an error if executed by a task that didn't create the window. ! </p><pre><b><a name="9">:M Close: ( -- ) </a></b></pre><p>Close the window. ! </p><pre><b><a name="10">:M Paint: ( -- ) </a></b></pre><p>Force window repaint. A WM_PAINT message is posted to the message queue. ! </p><pre><b><a name="11">:M SetRedraw: ( f -- ) </a></b></pre><p>Set the redraw state of the window. </p><p><i> f </i> Specifies the redraw state. If this parameter is TRUE, the content can be redrawn after a change. If this parameter is FALSE, the content cannot be redrawn after a change. ! </p><pre><b><a name="12">:M Show: ( state -- ) </a></b></pre><p>The ShowWindow function sets the specified window's show state. <br /> Possible values for state are: *************** *** 138,169 **** </td> </tr> ! </table><pre><b><a name="11">:M GDIFlush: ( -- ) </a></b></pre><p>The GdiFlush function flushes the calling thread's current batch. ! </p><pre><b><a name="12">:M Update: ( -- ) </a></b></pre><p>The UpdateWindow function updates the client area of the window by sending a WM_PAINT message to the window if the window's update region is not empty. The function sends a WM_PAINT message directly to the window procedure of the window, bypassing the application queue. If the update region is empty, no message is sent. ! </p><pre><b><a name="13">:M Scroll: { x y -- } </a></b></pre><p>The ScrollWindow function scrolls the contents of the specified window's client area. ! </p><pre><b><a name="14">:M Move: { x y w h -- } </a></b></pre><p>The MoveWindow function changes the position and dimensions of window. For a top-level window, the position and dimensions are relative to the upper-left corner of the screen. For a child window, they are relative to the upper-left corner of the parent window's client area. ! </p><pre><b><a name="15">:M SetWindowPos: { x y -- } </a></b></pre><p>The SetWindowPos function changes the position of a child, pop-up, or top-level window. <br /> X Specifies the new position of the left side of the window, in client coordinates. <br /> Y Specifies the new position of the top of the window, in client coordinates. ! </p><pre><b><a name="16">:M SetMenu: ( MenuHandle -- ) </a></b></pre><p>The SetMenu function assigns a new menu to the window. If MenuHandle is NULL, the window's current menu is removed. ! </p><pre><b><a name="17">:M SetText: { addr len \ text$ -- } </a></b></pre><p>The SetWindowText function changes the text of the window's title bar (if it has one). If the window is a control, the text of the control is changed. ! </p><pre><b><a name="18">:M GetText: ( -- addr len ) </a></b></pre><p>The GetWindowText function copies the text of the window's title bar (if it has one) into a buffer. If the window is a control, the text of the control is copied. ! </p><pre><b><a name="19">:M SetTextAlign: ( flag -- ) </a></b></pre><p>Set the text-alignment for the window. <br /> The current position is updated after each text output call. --- 142,176 ---- </td> </tr> ! </table><p>If the window belongs to a different task or application the WM_SHOW is posted to the ! the message queue to prevent the current task hanging. If the window belongs to the ! current task the message is sent. ! </p><pre><b><a name="13">:M GDIFlush: ( -- ) </a></b></pre><p>The GdiFlush function flushes the calling thread's current batch. ! </p><pre><b><a name="14">:M Update: ( -- ) </a></b></pre><p>The UpdateWindow function updates the client area of the window by sending a WM_PAINT message to the window if the window's update region is not empty. The function sends a WM_PAINT message directly to the window procedure of the window, bypassing the application queue. If the update region is empty, no message is sent. ! </p><pre><b><a name="15">:M Scroll: { x y -- } </a></b></pre><p>The ScrollWindow function scrolls the contents of the specified window's client area. ! </p><pre><b><a name="16">:M Move: { x y w h -- } </a></b></pre><p>The MoveWindow function changes the position and dimensions of window. For a top-level window, the position and dimensions are relative to the upper-left corner of the screen. For a child window, they are relative to the upper-left corner of the parent window's client area. ! </p><pre><b><a name="17">:M SetWindowPos: { x y -- } </a></b></pre><p>The SetWindowPos function changes the position of a child, pop-up, or top-level window. <br /> X Specifies the new position of the left side of the window, in client coordinates. <br /> Y Specifies the new position of the top of the window, in client coordinates. ! </p><pre><b><a name="18">:M SetMenu: ( MenuHandle -- ) </a></b></pre><p>The SetMenu function assigns a new menu to the window. If MenuHandle is NULL, the window's current menu is removed. ! </p><pre><b><a name="19">:M SetText: { addr len \ text$ -- } </a></b></pre><p>The SetWindowText function changes the text of the window's title bar (if it has one). If the window is a control, the text of the control is changed. ! </p><pre><b><a name="20">:M GetText: ( -- addr len ) </a></b></pre><p>The GetWindowText function copies the text of the window's title bar (if it has one) into a buffer. If the window is a control, the text of the control is copied. ! </p><pre><b><a name="21">:M SetTextAlign: ( flag -- ) </a></b></pre><p>Set the text-alignment for the window. <br /> The current position is updated after each text output call. *************** *** 185,193 **** </td> </tr> ! </table><pre><b><a name="20">:M GetDC: ( -- hdc ) </a></b></pre><p>The GetDC function retrieves a handle to a display device context (DC) for the client area of the window. <br /> You have to call ReleaseDC when the DC isn't needed any longer. ! </p><pre><b><a name="21">:M GetWindowDC: ( -- hdc ) </a></b></pre><p>The GetWindowDC function retrieves the device context (DC) for the entire window, including title bar, menus, and scroll bars. A window device context --- 192,200 ---- </td> </tr> ! </table><pre><b><a name="22">:M GetDC: ( -- hdc ) </a></b></pre><p>The GetDC function retrieves a handle to a display device context (DC) for the client area of the window. <br /> You have to call ReleaseDC when the DC isn't needed any longer. ! </p><pre><b><a name="23">:M GetWindowDC: ( -- hdc ) </a></b></pre><p>The GetWindowDC function retrieves the device context (DC) for the entire window, including title bar, menus, and scroll bars. A window device context *************** *** 197,215 **** retrieves the device context. Previous attributes are lost. <br /> You have to call ReleaseDC when the DC isn't needed any longer. ! </p><pre><b><a name="22">:M ReleaseDC: ( hdc -- ) </a></b></pre><p>The ReleaseDC function releases the device context (DC) of the window. <br /> Call only after GetDC or GetWindowDC. ! </p><pre><b><a name="23">:M BeginPaint: ( ps -- hdc ) </a></b></pre><p>The BeginPaint function prepares the window for painting and fills a PAINTSTRUCT (ps) structure with information about the painting. ! </p><pre><b><a name="24">:M EndPaint: ( ps -- ) </a></b></pre><p>The EndPaint function marks the end of painting in the window. This function is required for each call to the BeginPaint function, but only after painting is complete. ! </p><pre><b><a name="25">:M GetClientRect: ( rect -- ) </a></b></pre><p>The GetClientRect function retrieves the coordinates of the window's client area. The client coordinates specify the upper-left and lower-right corners of the client area. Because client coordinates are relative to the upper-left corner of a window's client area, the coordinates of the upper-left corner are (0,0). ! </p><pre><b><a name="26">:M GetWindowLong: ( index -- value ) </a></b></pre><p>The GetWindowLong function retrieves information about the window. The function also retrieves the 32-bit (long) value at the specified offset into the extra --- 204,222 ---- retrieves the device context. Previous attributes are lost. <br /> You have to call ReleaseDC when the DC isn't needed any longer. ! </p><pre><b><a name="24">:M ReleaseDC: ( hdc -- ) </a></b></pre><p>The ReleaseDC function releases the device context (DC) of the window. <br /> Call only after GetDC or GetWindowDC. ! </p><pre><b><a name="25">:M BeginPaint: ( ps -- hdc ) </a></b></pre><p>The BeginPaint function prepares the window for painting and fills a PAINTSTRUCT (ps) structure with information about the painting. ! </p><pre><b><a name="26">:M EndPaint: ( ps -- ) </a></b></pre><p>The EndPaint function marks the end of painting in the window. This function is required for each call to the BeginPaint function, but only after painting is complete. ! </p><pre><b><a name="27">:M GetClientRect: ( rect -- ) </a></b></pre><p>The GetClientRect function retrieves the coordinates of the window's client area. The client coordinates specify the upper-left and lower-right corners of the client area. Because client coordinates are relative to the upper-left corner of a window's client area, the coordinates of the upper-left corner are (0,0). ! </p><pre><b><a name="28">:M GetWindowLong: ( index -- value ) </a></b></pre><p>The GetWindowLong function retrieves information about the window. The function also retrieves the 32-bit (long) value at the specified offset into the extra *************** *** 255,259 **** </td> </tr> ! </table><pre><b><a name="27">:M SetWindowLong: ( value index -- oldval ) </a></b></pre><p>The SetWindowLong function changes an attribute of the window. The function also sets the 32-bit (long) value at the specified offset into the extra window memory. --- 262,266 ---- </td> </tr> ! </table><pre><b><a name="29">:M SetWindowLong: ( value index -- oldval ) </a></b></pre><p>The SetWindowLong function changes an attribute of the window. The function also sets the 32-bit (long) value at the specified offset into the extra window memory. *************** *** 288,303 **** </td> </tr> ! </table><pre><b><a name="28">:M GetStyle: ( -- style ) </a></b></pre><p>Retrieves the window styles. ! </p><pre><b><a name="29">:M SetStyle: ( style -- ) </a></b></pre><p>Sets a new window style. ! </p><pre><b><a name="30">:M +Style: ( style -- ) </a></b></pre><p>Add a window style. ! </p><pre><b><a name="31">:M -Style: ( style -- ) </a></b></pre><p>Remove a window style. ! </p><pre><b><a name="32">:M SetFocus: ( -- ) </a></b></pre><p>The SetFocus function sets the keyboard focus to the window. The window must be attached to the calling thread's message queue. ! </p><pre><b><a name="33">:M SetForegroundWindow: ( -- ) </a></b></pre><p>The SetForegroundWindow function puts the thread that created the specified window into the foreground and activates the window. Keyboard input is directed to the window, --- 295,310 ---- </td> </tr> ! </table><pre><b><a name="30">:M GetStyle: ( -- style ) </a></b></pre><p>Retrieves the window styles. ! </p><pre><b><a name="31">:M SetStyle: ( style -- ) </a></b></pre><p>Sets a new window style. ! </p><pre><b><a name="32">:M +Style: ( style -- ) </a></b></pre><p>Add a window style. ! </p><pre><b><a name="33">:M -Style: ( style -- ) </a></b></pre><p>Remove a window style. ! </p><pre><b><a name="34">:M SetFocus: ( -- ) </a></b></pre><p>The SetFocus function sets the keyboard focus to the window. The window must be attached to the calling thread's message queue. ! </p><pre><b><a name="35">:M SetForegroundWindow: ( -- ) </a></b></pre><p>The SetForegroundWindow function puts the thread that created the specified window into the foreground and activates the window. Keyboard input is directed to the window, *************** *** 326,330 **** process, or the next time a process calls AllowSetForegroundWindow, unless that process is specified. <br /> The foreground process can disable calls to SetForegroundWindow by calling the LockSetForegroundWindow function. ! </p><pre><b><a name="34">:M SetActiveWindow: ( -- ) </a></b></pre><p>The SetActiveWindow function activates a window. The window must be attached to the calling thread's message queue. <br /> The SetActiveWindow function activates a window, but not if the application is in the background. The window will be --- 333,337 ---- process, or the next time a process calls AllowSetForegroundWindow, unless that process is specified. <br /> The foreground process can disable calls to SetForegroundWindow by calling the LockSetForegroundWindow function. ! </p><pre><b><a name="36">:M SetActiveWindow: ( -- ) </a></b></pre><p>The SetActiveWindow function activates a window. The window must be attached to the calling thread's message queue. <br /> The SetActiveWindow function activates a window, but not if the application is in the background. The window will be *************** *** 334,338 **** By using the AttachThreadInput function, a thread can attach its input processing to another thread. This allows a thread to call SetActiveWindow to activate a window attached to another thread's message queue. ! </p><pre><b><a name="35">:M MessageBox: ( szText szTitle style -- result ) </a></b></pre><p>The MessageBox function creates, displays, and operates a message box. The message box contains an application-defined message and title, plus any combination of predefined icons and push buttons. --- 341,345 ---- By using the AttachThreadInput function, a thread can attach its input processing to another thread. This allows a thread to call SetActiveWindow to activate a window attached to another thread's message queue. ! </p><pre><b><a name="37">:M MessageBox: ( szText szTitle style -- result ) </a></b></pre><p>The MessageBox function creates, displays, and operates a message box. The message box contains an application-defined message and title, plus any combination of predefined icons and push buttons. *************** *** 497,501 **** </td> </tr> ! </table><pre><b><a name="36">:M InvalidateRect: ( bgflag rectangle -- ) </a></b></pre><p>The InvalidateRect function adds a rectangle to the window's update region. The update region represents the portion of the window's client area that must be redrawn. --- 504,508 ---- </td> </tr> ! </table><pre><b><a name="38">:M InvalidateRect: ( bgflag rectangle -- ) </a></b></pre><p>The InvalidateRect function adds a rectangle to the window's update region. The update region represents the portion of the window's client area that must be redrawn. *************** *** 510,528 **** </td> </tr> ! </table><pre><b><a name="37">:M GetDlgItem: ( id -- handle ) </a></b></pre><p>The GetDlgItem function retrieves a handle of the control (id) in the window. ! </p><pre><b><a name="38">:M GetDlgItemText: ( addr len id -- len ) </a></b></pre><p>The GetDlgItemText function retrieves the title or text associated with a control in the window. ! </p><pre><b><a name="39">:M SetDlgItemText: ( addr len id -- ) </a></b></pre><p>The SetDlgItemText function sets the title or text of a control in then window. ! </p><pre><b><a name="40">:M SetDlgItemFocus: ( id -- ) </a></b></pre><p>Set the focus to the control (id) in the window. ! </p><pre><b><a name="41">:M SelectDlgItemAll: ( id -- ) </a></b></pre><p>Selects all characters in the edit control (id). You can use this forn an edit control or a rich edit control. ! </p><pre><b><a name="42">:M IsDlgButtonChecked: ( id -- f1 ) </a></b></pre><p>The IsDlgButtonChecked function determines whether a button control has a check mark next to it or whether a three-state button control is grayed, checked, or neither. ! </p><pre><b><a name="43">:M CheckDlgButton: ( uCheck id -- ) </a></b></pre><p>The CheckDlgButton function changes the check state of a button control. Possible values for uCheck are: --- 517,535 ---- </td> </tr> ! </table><pre><b><a name="39">:M GetDlgItem: ( id -- handle ) </a></b></pre><p>The GetDlgItem function retrieves a handle of the control (id) in the window. ! </p><pre><b><a name="40">:M GetDlgItemText: ( addr len id -- len ) </a></b></pre><p>The GetDlgItemText function retrieves the title or text associated with a control in the window. ! </p><pre><b><a name="41">:M SetDlgItemText: ( addr len id -- ) </a></b></pre><p>The SetDlgItemText function sets the title or text of a control in then window. ! </p><pre><b><a name="42">:M SetDlgItemFocus: ( id -- ) </a></b></pre><p>Set the focus to the control (id) in the window. ! </p><pre><b><a name="43">:M SelectDlgItemAll: ( id -- ) </a></b></pre><p>Selects all characters in the edit control (id). You can use this forn an edit control or a rich edit control. ! </p><pre><b><a name="44">:M IsDlgButtonChecked: ( id -- f1 ) </a></b></pre><p>The IsDlgButtonChecked function determines whether a button control has a check mark next to it or whether a three-state button control is grayed, checked, or neither. ! </p><pre><b><a name="45">:M CheckDlgButton: ( uCheck id -- ) </a></b></pre><p>The CheckDlgButton function changes the check state of a button control. Possible values for uCheck are: *************** *** 542,546 **** </td> </tr> ! </table><pre><b><a name="44">:M SetDlgItemAlign: ( flag id -- ) </a></b></pre><p>Set the text-alignment for a control (id) in the window. <br /> The current position is updated after each text output call. --- 549,553 ---- </td> </tr> ! </table><pre><b><a name="46">:M SetDlgItemAlign: ( flag id -- ) </a></b></pre><p>Set the text-alignment for a control (id) in the window. <br /> The current position is updated after each text output call. *************** *** 562,568 **** </td> </tr> ! </table><pre><b><a name="45">:M SetAlign: ( flag id -- ) \ DEPRECATED </a></b></pre><p>Obsolescent Method use SetDlgItemAlign: instead. ! </p><pre><b><a name="46">:M EnableDlgItem: ( flag id -- ) </a></b></pre><p>Enable or disable a control (id) in the window. Possible values for flag are: --- 569,575 ---- </td> </tr> ! </table><pre><b><a name="47">:M SetAlign: ( flag id -- ) \ DEPRECATED </a></b></pre><p>Obsolescent Method use SetDlgItemAlign: instead. ! </p><pre><b><a name="48">:M EnableDlgItem: ( flag id -- ) </a></b></pre><p>Enable or disable a control (id) in the window. Possible values for flag are: *************** *** 577,581 **** </td> </tr> ! </table><pre><b><a name="47">:M ShowDlgItem: ( flag id -- ) </a></b></pre><p>Hide or show a control (id) in the window. Possible values for flag are: --- 584,588 ---- </td> </tr> ! </table><pre><b><a name="49">:M ShowDlgItem: ( flag id -- ) </a></b></pre><p>Hide or show a control (id) in the window. Possible values for flag are: *************** *** 590,594 **** </td> </tr> ! </table><pre><b><a name="48">:M CheckRadioButton: ( check_id first_id last_id -- ) </a></b></pre><p>The CheckRadioButton function adds a check mark to (checks) a specified radio button in a group and removes a check mark from (clears) all other radio buttons in the group. --- 597,601 ---- </td> </tr> ! </table><pre><b><a name="50">:M CheckRadioButton: ( check_id first_id last_id -- ) </a></b></pre><p>The CheckRadioButton function adds a check mark to (checks) a specified radio button in a group and removes a check mark from (clears) all other radio buttons in the group. *************** *** 608,632 **** </td> </tr> ! </table><pre><b><a name="49">:M SendDlgItemMessage: ( lParam wParam message id -- long ) </a></b></pre><p>Send a message to the control (id) in the window. ! </p><pre><b><a name="50">:M SetDlgItemFont: ( FontObject id -- ) </a></b></pre><p>Specify the font that the control (id) is to use when drawing text. <br /> FontObject must be the HANDLE of a font. If this parameter is NULL, the control uses the default system font to draw text. ! </p><pre><b><a name="51">;CLASS </a></b></pre><p>End of generic-window class </p><a name="DIALOG&CONTROL"></a> <h2>Generic class for Dialog- and Control-Window objects. ! </h2><pre><b><a name="52">|CLASS DIALOG&CONTROL <SUPER Generic-Window </a></b></pre><p>Base class for all dialog and control objects. </p><p>Since DIALOG&CONTROL is a generic class it should not be used to create any instances. ! </p><pre><b><a name="53">:M Classinit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="54">:M GetWindowRect: ( -- left top right bottom ) </a></b></pre><p>The GetWindowRect method retrieves the dimensions of the bounding rectangle of the window. The dimensions are given in screen coordinates that are relative to the upper-left corner of the screen. ! </p><pre><b><a name="55">;CLASS </a></b></pre><p>End of DIALOG&CONTROL class </p><hr><p>Document $Id$</p> --- 615,639 ---- </td> </tr> ! </table><pre><b><a name="51">:M SendDlgItemMessage: ( lParam wParam message id -- long ) </a></b></pre><p>Send a message to the control (id) in the window. ! </p><pre><b><a name="52">:M SetDlgItemFont: ( FontObject id -- ) </a></b></pre><p>Specify the font that the control (id) is to use when drawing text. <br /> FontObject must be the HANDLE of a font. If this parameter is NULL, the control uses the default system font to draw text. ! </p><pre><b><a name="53">;CLASS </a></b></pre><p>End of generic-window class </p><a name="DIALOG&CONTROL"></a> <h2>Generic class for Dialog- and Control-Window objects. ! </h2><pre><b><a name="54">|CLASS DIALOG&CONTROL <SUPER Generic-Window </a></b></pre><p>Base class for all dialog and control objects. </p><p>Since DIALOG&CONTROL is a generic class it should not be used to create any instances. ! </p><pre><b><a name="55">:M Classinit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="56">:M GetWindowRect: ( -- left top right bottom ) </a></b></pre><p>The GetWindowRect method retrieves the dimensions of the bounding rectangle of the window. The dimensions are given in screen coordinates that are relative to the upper-left corner of the screen. ! </p><pre><b><a name="57">;CLASS </a></b></pre><p>End of DIALOG&CONTROL class </p><hr><p>Document $Id$</p> Index: Control.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/Control.htm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Control.htm 5 Jun 2006 09:28:42 -0000 1.10 --- Control.htm 29 Aug 2006 10:31:48 -0000 1.11 *************** *** 39,49 **** </a></b></pre><p>Get the start size of this control. <br /> Override this method to change it. ! </p><pre><b><a name="8">:M StartPos: ( -- left top ) </a></b></pre><p>Get the start position of this control. <br /> Override this method to change it. ! </p><pre><b><a name="9">:M CreateStruct: ( -- CreateStrucPointer ) </a></b></pre><p>This pointer to a structure, depends on what kind of window you are creating, so we just default it to NULL. ! </p><pre><b><a name="10">;Class </a></b></pre><p>End of Control class </p><hr><p>Document $Id$</p> --- 39,51 ---- </a></b></pre><p>Get the start size of this control. <br /> Override this method to change it. ! </p><pre><b><a name="8">:M StartPos: ( -- left top ) </a></b></pre><p>Get the start position of this control. <br /> Override this method to change it. ! </p><pre><b><a name="9">:M AutoSize: ( -- ) ! </a></b></pre><p>Size the window to fit into the client area of the parent window. ! </p><pre><b><a name="10">:M CreateStruct: ( -- CreateStrucPointer ) </a></b></pre><p>This pointer to a structure, depends on what kind of window you are creating, so we just default it to NULL. ! </p><pre><b><a name="11">;Class </a></b></pre><p>End of Control class </p><hr><p>Document $Id$</p> |
|
From: George H. <geo...@us...> - 2006-08-29 10:31:54
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11866/win32forth/doc Modified Files: FloadCmdLine.htm Paths.htm p-AcceleratorTables.htm p-callback.htm p-classdbg.htm p-float.htm p-module.htm p-noconsole.htm p-task.htm Log Message: gah:Updated docs Index: p-noconsole.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-noconsole.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** p-noconsole.htm 5 Jun 2006 09:28:42 -0000 1.2 --- p-noconsole.htm 29 Aug 2006 10:31:47 -0000 1.3 *************** *** 27,31 **** </a></b></pre><p>Setup of the Console I/O for turnkey applications that don't need the console window. ! </p><pre><b><a name="2">: NoConsoleInImage ( -- ) \ W32F console </a></b></pre><p>Tell Imageman that we don't need the w32fconsole.dll if possible. </p><h2>Example --- 27,34 ---- </a></b></pre><p>Setup of the Console I/O for turnkey applications that don't need the console window. ! </p><pre><b><a name="2">: ResetConsoleIO ( -- ) \ W32F console ! </a></b></pre><p>Reset of the Console I/O after saving turnkey applications that don't need ! the console window. Done automatically by TURNKEY. ! </p><pre><b><a name="3">: NoConsoleInImage ( -- ) \ W32F console </a></b></pre><p>Tell Imageman that we don't need the w32fconsole.dll if possible. </p><h2>Example Index: p-task.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-task.htm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** p-task.htm 5 Jun 2006 09:28:42 -0000 1.8 --- p-task.htm 29 Aug 2006 10:31:47 -0000 1.9 *************** *** 101,109 **** </a></b></pre><p>Decrement the lock count and free the lock if the resultant count is zero. </p><pre><b><a name="17">: trylock ( lock -- fl ) \ W32F Lock ! </a></b></pre><p><b> For NT 2000 and XP; </b> If the lock is owned by another thread return false. <br /> If the lock is free claim it for this thread, then increment the lock count and return true. <br /> ! <b> For Win9x; </b> Perform the action of LOCK and return true. </p><pre><b><a name="18">: make-lock ( compiling: -<name>- -- runtime: -- lock ) \ W32F Lock --- 101,109 ---- </a></b></pre><p>Decrement the lock count and free the lock if the resultant count is zero. </p><pre><b><a name="17">: trylock ( lock -- fl ) \ W32F Lock ! </a></b></pre><p><b> For NT4, w2k and XP; </b> If the lock is owned by another thread return false. <br /> If the lock is free claim it for this thread, then increment the lock count and return true. <br /> ! <b> For Win9x, and NT<4; </b> Perform the action of LOCK and return true. </p><pre><b><a name="18">: make-lock ( compiling: -<name>- -- runtime: -- lock ) \ W32F Lock Index: Paths.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/Paths.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Paths.htm 26 Aug 2006 15:27:21 -0000 1.5 --- Paths.htm 29 Aug 2006 10:31:46 -0000 1.6 *************** *** 1,15 **** ! <?xml version="1.0"?> ! <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" ! "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> ! <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> ! <meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" /> ! <meta name="GENERATOR" content="DexH v03" /> ! <style type="text/css"> ! </style> <title> ! </title> </head> ! <body> <hr /><h1>Paths -- Multiple search path support </h1><hr /><h2>Glossary --- 1,19 ---- ! <html> <head> ! <meta http-equiv="Content-Language" content="en-gb"> ! <meta name="GENERATOR" content="dexh00"> ! <meta name="ProgId" content="FrontPage.Editor.Document"> ! <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title> ! </title><style><!-- ! h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } ! h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> ! </style> </head> ! <body><h1 align="center"> ! <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id$"> ! <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> ! <img border="0" src="FORTHPRO.gif" ! width="32" height="32"> Win32Forth</h1> <hr /><h1>Paths -- Multiple search path support </h1><hr /><h2>Glossary *************** *** 101,104 **** </p><pre><b><a name="35">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. ! </p><hr /> </body></html> --- 105,108 ---- </p><pre><b><a name="35">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. ! </p><hr><p>Document $Id$</p> </body></html> |
|
From: George H. <geo...@us...> - 2006-08-29 08:52:30
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4370/win32forth/src/lib Modified Files: ButtonBar.f Buttons.f Calendar.f Label.f ListBox.f ProgressBar.f ScrollBar.f StatusBar.f TabControl.f TextBox.f TrackBar.f UpDownControl.f excontrols.f Log Message: gah:Modified the dexing of the extra controls for separate files and updated DexH-create-docs to build newer files Index: ButtonBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ButtonBar.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ButtonBar.f 11 Jun 2006 09:03:49 -0000 1.2 --- ButtonBar.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -ButtonBar.f *************** *** 74,75 **** --- 79,82 ---- MODULE + + \ *Z Index: UpDownControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/UpDownControl.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** UpDownControl.f 11 Jun 2006 09:03:50 -0000 1.2 --- UpDownControl.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -UpDownControl.f *************** *** 128,129 **** --- 133,136 ---- MODULE + + \ *Z Index: Calendar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/Calendar.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Calendar.f 29 Jun 2006 10:47:28 -0000 1.3 --- Calendar.f 29 Aug 2006 08:52:25 -0000 1.4 *************** *** 1,4 **** --- 1,7 ---- \ $Id$ + \ *D doc\classes\ + \ *> Controls + anew -Calendar.f *************** *** 297,298 **** --- 300,303 ---- MODULE + + \ *Z Index: Label.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/Label.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Label.f 11 Jun 2006 09:03:49 -0000 1.2 --- Label.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -Label.f *************** *** 170,171 **** --- 175,178 ---- MODULE + + \ *Z Index: StatusBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/StatusBar.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** StatusBar.f 29 Jun 2006 04:09:43 -0000 1.3 --- StatusBar.f 29 Aug 2006 08:52:25 -0000 1.4 *************** *** 1,5 **** --- 1,11 ---- + \ $Id$ + \ StatusBar.f \ Statusbar control separated from ExControls + \ *D doc\classes\ + \ *> Controls + \ *T ExControls -- More (enhanced) classes for standard windows controls. + cr .( Loading StatusBar Class...) *************** *** 158,159 **** --- 164,168 ---- MODULE + + \ *Z + Index: ScrollBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ScrollBar.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ScrollBar.f 11 Jun 2006 09:03:50 -0000 1.2 --- ScrollBar.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -ScrollBar.f *************** *** 141,142 **** --- 146,149 ---- MODULE + + \ *Z Index: Buttons.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/Buttons.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Buttons.f 11 Jun 2006 09:03:49 -0000 1.2 --- Buttons.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -Buttons.f *************** *** 357,358 **** --- 362,365 ---- MODULE + + \ *Z Index: ProgressBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ProgressBar.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ProgressBar.f 11 Jun 2006 09:03:50 -0000 1.2 --- ProgressBar.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -ProgressBar.f *************** *** 103,104 **** --- 108,111 ---- MODULE + + \ *Z Index: TabControl.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/TabControl.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** TabControl.f 11 Jun 2006 09:03:50 -0000 1.3 --- TabControl.f 29 Aug 2006 08:52:25 -0000 1.4 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -TabControl.f *************** *** 281,282 **** --- 286,289 ---- MODULE + + \ *Z Index: excontrols.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** excontrols.f 6 Jun 2006 02:58:24 -0000 1.19 --- excontrols.f 29 Aug 2006 08:52:25 -0000 1.20 *************** *** 5,12 **** \ Some classes based on Jeff Kelm's examples - \ *D doc\classes\ - \ *> Controls - \ *T ExControls -- More (enhanced) classes for standard windows controls. - anew -ExControls.f --- 5,8 ---- Index: ListBox.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ListBox.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** ListBox.f 11 Jun 2006 09:03:49 -0000 1.2 --- ListBox.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -ListBox.f *************** *** 431,432 **** --- 436,439 ---- MODULE + + \ *Z Index: TextBox.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/TextBox.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TextBox.f 11 Jun 2006 09:03:50 -0000 1.2 --- TextBox.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -TextBox.f *************** *** 344,345 **** --- 349,354 ---- MODULE + + + \ *Z + Index: TrackBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/TrackBar.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TrackBar.f 11 Jun 2006 09:03:50 -0000 1.2 --- TrackBar.f 29 Aug 2006 08:52:25 -0000 1.3 *************** *** 1,2 **** --- 1,7 ---- + \ $Id$ + + \ *D doc\classes\ + \ *> Controls + anew -TrackBar.f *************** *** 241,242 **** --- 246,249 ---- MODULE + + \ *Z |
|
From: George H. <geo...@us...> - 2006-08-29 08:52:30
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4370/win32forth/src/tools Modified Files: DexH-CreateDocs.f W32fdexh.f Log Message: gah:Modified the dexing of the extra controls for separate files and updated DexH-create-docs to build newer files Index: DexH-CreateDocs.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/DexH-CreateDocs.f,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** DexH-CreateDocs.f 27 Jul 2006 07:22:56 -0000 1.15 --- DexH-CreateDocs.f 29 Aug 2006 08:52:25 -0000 1.16 *************** *** 1,6 **** ! anew DexH-CreateDocs.f needs tools/w32fdexh.f internal external --- 1,12 ---- ! \ $Id$ ! ! anew -DexH-CreateDocs.f needs tools/w32fdexh.f + \ *D doc + \ *! p-dexh-createdocs Docs W32F ) + \ *T Documenting Win32Forth + internal external *************** *** 8,13 **** : create-docs ( -- ) \ W32F tool \ *G Create the documentation for Win32Forth from ! \ ** the source files ! \ create a new gloassary file if needed 1 to create-glossary-file? --- 14,22 ---- : create-docs ( -- ) \ W32F tool \ *G Create the documentation for Win32Forth from ! \ ** the source files. ! \ *P Not all files have been marked up yet. If you feel like doing some ! \ ** then drop us a line at ! \ *W <a href="http://groups.yahoo.com/group/win32forth">win32forth at Yahoo</a> ! \ *P VOLUNTEERS are always welcome. \ create a new gloassary file if needed 1 to create-glossary-file? *************** *** 25,29 **** s" src\control.f" create-doc -tr s" src\controls.f" create-doc ! +tr s" src\lib\excontrols.f" create-doc \ s" src\lib\MdiDialog.f" create-doc --- 34,49 ---- s" src\control.f" create-doc -tr s" src\controls.f" create-doc ! s" src\lib\StatusBar.f" create-doc ! s" src\lib\Textbox.f" create-doc ! s" src\lib\Listbox.f" create-doc ! s" src\lib\UpDownControl.f" create-doc ! s" src\lib\Buttons.f" create-doc ! s" src\lib\Label.f" create-doc ! s" src\lib\ProgressBar.f" create-doc ! s" src\lib\TrackBar.f" create-doc ! s" src\lib\ScrollBar.f" create-doc ! s" src\lib\Calendar.f" create-doc ! s" src\lib\TabControl.f" create-doc ! +tr s" src\lib\ButtonBar.f" create-doc \ s" src\lib\MdiDialog.f" create-doc *************** *** 50,53 **** --- 70,76 ---- s" src\lib\file.f" create-doc \ + \ ADO + s" src\lib\Ado.f" create-doc + \ other documentation W32FDocs *************** *** 62,65 **** --- 85,90 ---- s" src\paths.f" create-doc s" src\floadcmdline.f" create-doc + s" src\tools\W32fdexh.f" create-doc + s" src\tools\DexH-CreateDocs.f" create-doc ; *************** *** 72,73 **** --- 97,99 ---- create-docs + \ *Z Index: W32fdexh.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/W32fdexh.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** W32fdexh.f 4 Feb 2006 10:40:36 -0000 1.4 --- W32fdexh.f 29 Aug 2006 08:52:25 -0000 1.5 *************** *** 1,4 **** --- 1,12 ---- \ $Id$ + \ *D doc + \ *! p-W32fdexh + \ *T Extensions to DexH for producing Win32Forth Documents + + \ *P DexH is a versatile system for producing documentation and these extensions are designed + \ ** to customise it for producing the Win32Forth documentation itself (including this + \ ** file). + needs tools/dexh *************** *** 52,57 **** external : W32FDocs ( -- ) ! \ *G Set output for Win32Forth documents in the doc folder W32Fheader to HtmlHeader W32FheaderA to HtmlheaderA --- 60,67 ---- external + \ *S Glossary + : W32FDocs ( -- ) ! \ *G Set output for Win32Forth documents in the doc folder. W32Fheader to HtmlHeader W32FheaderA to HtmlheaderA *************** *** 59,63 **** : W32FClassDocs ( -- ) ! \ *G Set output for Win32Forth documents in the doc\classes folder W32Fheader to HtmlHeader W32FClassheaderA to HtmlheaderA --- 69,73 ---- : W32FClassDocs ( -- ) ! \ *G Set output for Win32Forth documents in the doc\classes folder. W32Fheader to HtmlHeader W32FClassheaderA to HtmlheaderA *************** *** 104,109 **** : DEXF ( -- ) ! ( *G Choose a file and convert it to HTML. Output filenames are included in the ) ! ( ** source file. ) conhndl start: DexFile count ?dup if (dex) --- 114,119 ---- : DEXF ( -- ) ! \ *G Choose a file and convert it to HTML. Output filenames are included in the ! \ ** source file. conhndl start: DexFile count ?dup if (dex) *************** *** 121,123 **** --- 131,139 ---- cr .( Usage: " DEX <filename> " to convert the file <filenname> ) cr .( or " DEXF " to choose a file and convert it. ) + cr + cr .( Use: W32FDocs W32FClassDocs and DexDocs to set the style for Win32Forth docs, ) + cr .( in the docs folder, Class docs, in the docs\class folder or the stansard DexH ) + cr .( style. The DexH style is the default. ) + + \ *Z |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:27:24
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17812/doc Modified Files: Paths.htm Log Message: Jos: Adapted to the new search-path. Index: Paths.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/Paths.htm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Paths.htm 5 Aug 2006 12:27:39 -0000 1.4 --- Paths.htm 26 Aug 2006 15:27:21 -0000 1.5 *************** *** 1,19 **** ! <html> <head> ! <meta http-equiv="Content-Language" content="en-gb"> ! <meta name="GENERATOR" content="dexh00"> ! <meta name="ProgId" content="FrontPage.Editor.Document"> ! <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> ! <title> ! </title><style><!-- ! h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } ! h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> </style> </head> ! <body><h1 align="center"> ! <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id$"> ! <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> ! <img border="0" src="FORTHPRO.gif" ! width="32" height="32"> Win32Forth</h1> <hr /><h1>Paths -- Multiple search path support </h1><hr /><h2>Glossary --- 1,15 ---- ! <?xml version="1.0"?> ! <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" ! "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> ! <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> ! <meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" /> ! <meta name="GENERATOR" content="DexH v03" /> ! <style type="text/css"> </style> + <title> + </title> </head> ! <body> <hr /><h1>Paths -- Multiple search path support </h1><hr /><h2>Glossary *************** *** 38,102 **** followed by 0. <br /> In runtime it returns adres of the counted string of a path ! </p><pre><b><a name="8">: path-source ( path-ptr - 2variable_path-source ) </a></b></pre><p>Path-source points to a substring in a path. <br /> Path-source returns this adress. ! </p><pre><b><a name="9">path: path-ptr ! </a></b></pre><p>Path-ptr defines the path buffer for Forth. Applications that let Forth compile should not change it in a way that Forth is not able too compile. ! </p><pre><b><a name="10">: next-path" ( path-ptr -- a1 n1 ) </a></b></pre><p>Get the next path from dir list. ! </p><pre><b><a name="11">: reset-path-source ( path-ptr -- ) </a></b></pre><p>Points the path-source to the whole path. ! </p><pre><b><a name="12">: first-path" ( path-ptr -- a1 n1 ) </a></b></pre><p>Get the first forth directory path. ! </p><pre><b><a name="13">: "path+ ( a1 n1 path-ptr -- ) </a></b></pre><p>Append a directory to a path. ! </p><pre><b><a name="14">: "fpath+ ( a1 n1 -- ) </a></b></pre><p>Append a directory to the Forth path. ! </p><pre><b><a name="15">: fpath+ ( -<directory>- ) </a></b></pre><p>Append a directory to the Forth path. ! </p><pre><b><a name="16">: .path ( path-ptr -- ) </a></b></pre><p>Display a directory search path list. ! </p><pre><b><a name="17">: .fpath ( -- ) </a></b></pre><p>Display the Forth directory search path list. ! </p><pre><b><a name="18">: volume-indication? ( adr - flag ) </a></b></pre><p>True when the counted string at adr starts with x: or \name ! </p><pre><b><a name="19">: full-path { a1 n1 path-ptr \ searchpath$ filename$ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in a path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="20">: program-path-init ( -- ) </a></b></pre><p>Initialize the Forth directory search path list. Automatically done at program initialization and when Paths.f is loaded. ! </p><pre><b><a name="21">: "path-file { a1 n1 \ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in the Forth path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="22">: n"open ( a1 n1 -- handle f1 ) </a></b></pre><p>Open file a1,n1 with a Forth path search. ! </p><pre><b><a name="23">: MakeAbsolutePath ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 absolute to path a2 n2. ! </p><pre><b><a name="24">: IsPathRelativeTo? { a1 n1 a2 n2 -- f } </a></b></pre><p>Return true if path a1 n1 is relative to path a2 n2 ! </p><pre><b><a name="25">: MakePathRelativeTo ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 relative to path a2 n2. ! </p><pre><b><a name="26">: FindRelativePath ( a1 n1 path-ptr - a2 n2 ) ! </a></b></pre><p>Returns a relative path for file a1 n1 in path-ptr ( first part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="27">: FindRelativeName ( a1 n1 path-ptr - a2 n2 f ) ! </a></b></pre><p>Returns a releative name for file a1 n1 in path-ptr ( last-part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="28">: "LOADED? ( addr len -- flag ) ! </a></b></pre><p>True if a file addr len is loaded. The filename must cointain a full path. ! </p><pre><b><a name="29">: LOADED? ( -<name>- -- flag ) { \ current$ } </a></b></pre><p>True if the following file is loaded. The filename may be relative. ! </p><pre><b><a name="30">: \LOADED- ( -<name>- ) </a></b></pre><p>If the following file IS NOT LOADED interpret line. ! </p><pre><b><a name="31">: \LOADED ( -<name>- ) </a></b></pre><p> If the following file IS LOADED interpret line. ! </p><pre><b><a name="32">: NEEDS ( -<name>- ) </a></b></pre><p>Conditionally load file "name" if not loaded. ! </p><pre><b><a name="33">synonym Require needs </a></b></pre><p>Forth 200X name for needs. ! </p><pre><b><a name="34">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. ! </p><hr><p>Document $Id$</p> </body></html> --- 34,104 ---- followed by 0. <br /> In runtime it returns adres of the counted string of a path ! </p><pre><b><a name="8">: path-source ( path - 2variable_path-source ) </a></b></pre><p>Path-source points to a substring in a path. <br /> Path-source returns this adress. ! </p><pre><b><a name="9">path: path-ptr deprecated ! </a></b></pre><p>The old functionality had the bad habbit to pass a pointer through a ! value instead of passing the parameter over the stack. <br /> ! Use win32forth\src\Compat\OldPaths.f for the old functionality. <br /> ! Words like first-path" and next-path" are now able to handle ! each path separate without saving and restoring a path-ptr. ! </p><pre><b><a name="10">path: search-path ! </a></b></pre><p>search-path defines the path buffer for Forth.<br /> Applications that let Forth compile should not change it in a way that Forth is not able too compile. ! </p><pre><b><a name="11">: next-path" ( path -- a1 n1 ) </a></b></pre><p>Get the next path from dir list. ! </p><pre><b><a name="12">: reset-path-source ( path -- ) </a></b></pre><p>Points the path-source to the whole path. ! </p><pre><b><a name="13">: first-path" ( path -- a1 n1 ) </a></b></pre><p>Get the first forth directory path. ! </p><pre><b><a name="14">: "path+ ( a1 n1 path -- ) </a></b></pre><p>Append a directory to a path. ! </p><pre><b><a name="15">: "fpath+ ( a1 n1 -- ) </a></b></pre><p>Append a directory to the Forth path. ! </p><pre><b><a name="16">: fpath+ ( -<directory>- ) </a></b></pre><p>Append a directory to the Forth path. ! </p><pre><b><a name="17">: .path ( path -- ) </a></b></pre><p>Display a directory search path list. ! </p><pre><b><a name="18">: .fpath ( -- ) </a></b></pre><p>Display the Forth directory search path list. ! </p><pre><b><a name="19">: volume-indication? ( adr - flag ) </a></b></pre><p>True when the counted string at adr starts with x: or \name ! </p><pre><b><a name="20">: full-path { a1 n1 path \ searchpath$ filename$ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in a path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="21">: program-path-init ( -- ) </a></b></pre><p>Initialize the Forth directory search path list. Automatically done at program initialization and when Paths.f is loaded. ! </p><pre><b><a name="22">: "path-file { a1 n1 \ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in the Forth path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="23">: n"open ( a1 n1 -- handle f1 ) </a></b></pre><p>Open file a1,n1 with a Forth path search. ! </p><pre><b><a name="24">: MakeAbsolutePath ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 absolute to path a2 n2. ! </p><pre><b><a name="25">: IsPathRelativeTo? { a1 n1 a2 n2 -- f } </a></b></pre><p>Return true if path a1 n1 is relative to path a2 n2 ! </p><pre><b><a name="26">: MakePathRelativeTo ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 relative to path a2 n2. ! </p><pre><b><a name="27">: FindRelativePath ( a1 n1 path - a2 n2 ) ! </a></b></pre><p>Returns a relative path for file a1 n1 in path ( first part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="28">: FindRelativeName ( a1 n1 path - a2 n2 f ) ! </a></b></pre><p>Returns a relative name for file a1 n1 in path ( last-part ). <br /> n2=0 means not in search path. ! </p><pre><b><a name="29">: "LOADED? ( addr len -- flag ) ! </a></b></pre><p>True if a file addr len is loaded. The filename must contain a full path. ! </p><pre><b><a name="30">: LOADED? ( -<name>- -- flag ) { \ current$ } </a></b></pre><p>True if the following file is loaded. The filename may be relative. ! </p><pre><b><a name="31">: \LOADED- ( -<name>- ) </a></b></pre><p>If the following file IS NOT LOADED interpret line. ! </p><pre><b><a name="32">: \LOADED ( -<name>- ) </a></b></pre><p> If the following file IS LOADED interpret line. ! </p><pre><b><a name="33">: NEEDS ( -<name>- ) </a></b></pre><p>Conditionally load file "name" if not loaded. ! </p><pre><b><a name="34">synonym Require needs </a></b></pre><p>Forth 200X name for needs. ! </p><pre><b><a name="35">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. ! </p><hr /> </body></html> |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:40
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/src Modified Files: paths.f Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** paths.f 11 Aug 2006 10:09:45 -0000 1.24 --- paths.f 26 Aug 2006 15:25:32 -0000 1.25 *************** *** 66,70 **** \ ** followed by 0. \n \ ** In runtime it returns adres of the counted string of a path ! create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( - path-ptr ) [ 2 cells ] literal + ; --- 66,70 ---- \ ** followed by 0. \n \ ** In runtime it returns adres of the counted string of a path ! create -1 , 0 , MAX-PATH 1+ allot does> \ run-time: ( - path ) [ 2 cells ] literal + ; *************** *** 78,82 **** create path-file$ MAX-PATH 1+ allot ! : path-source ( path-ptr - 2variable_path-source ) \ *G Path-source points to a substring in a path. \n \ ** Path-source returns this adress. --- 78,82 ---- create path-file$ MAX-PATH 1+ allot ! : path-source ( path - 2variable_path-source ) \ *G Path-source points to a substring in a path. \n \ ** Path-source returns this adress. *************** *** 85,93 **** EXTERNAL ! path: path-ptr ! \ *G Path-ptr defines the path buffer for Forth. Applications that let Forth \ ** compile should not change it in a way that Forth is not able too compile. ! : next-path" ( path-ptr -- a1 n1 ) \ *G Get the next path from dir list. dup>r path-source 2@ 2dup ';' scan 2dup 1 /string r> path-source 2! --- 85,100 ---- EXTERNAL ! path: path-ptr deprecated ! \ *G The old functionality had the bad habbit to pass a pointer through a ! \ ** value instead of passing the parameter over the stack. \n ! \ ** Use win32forth\src\Compat\OldPaths.f for the old functionality. \n ! \ ** Words like first-path" and next-path" are now able to handle ! \ ** each path separate without saving and restoring a path-ptr. ! ! path: search-path ! \ *G search-path defines the path buffer for Forth.\n Applications that let Forth \ ** compile should not change it in a way that Forth is not able too compile. ! : next-path" ( path -- a1 n1 ) \ *G Get the next path from dir list. dup>r path-source 2@ 2dup ';' scan 2dup 1 /string r> path-source 2! *************** *** 99,111 **** ; ! : reset-path-source ( path-ptr -- ) \ *G Points the path-source to the whole path. dup>r count r> path-source 2! ; ! : first-path" ( path-ptr -- a1 n1 ) \ *G Get the first forth directory path. dup>r reset-path-source r> next-path" ; ! : "path+ ( a1 n1 path-ptr -- ) \ *G Append a directory to a path. >r 2dup upper --- 106,118 ---- ; ! : reset-path-source ( path -- ) \ *G Points the path-source to the whole path. dup>r count r> path-source 2! ; ! : first-path" ( path -- a1 n1 ) \ *G Get the first forth directory path. dup>r reset-path-source r> next-path" ; ! : "path+ ( a1 n1 path -- ) \ *G Append a directory to a path. >r 2dup upper *************** *** 124,128 **** : "fpath+ ( a1 n1 -- ) \ *G Append a directory to the Forth path. ! path-ptr "path+ ; --- 131,135 ---- : "fpath+ ( a1 n1 -- ) \ *G Append a directory to the Forth path. ! search-path "path+ ; *************** *** 132,136 **** ! : .path ( path-ptr -- ) \ *G Display a directory search path list. count --- 139,143 ---- ! : .path ( path -- ) \ *G Display a directory search path list. count *************** *** 144,148 **** : .fpath ( -- ) \ *G Display the Forth directory search path list. ! path-ptr .path ; --- 151,155 ---- : .fpath ( -- ) \ *G Display the Forth directory search path list. ! search-path .path ; *************** *** 158,162 **** 6 PROC SearchPath ! : full-path { a1 n1 path-ptr \ searchpath$ filename$ current$ -- a2 n2 f1 } \ *G Find file a1,n1 in a path and return the full path. \n \ ** a2,n2 and f1=false, succeeded. --- 165,169 ---- 6 PROC SearchPath ! : full-path { a1 n1 path \ searchpath$ filename$ current$ -- a2 n2 f1 } \ *G Find file a1,n1 in a path and return the full path. \n \ ** a2,n2 and f1=false, succeeded. *************** *** 165,169 **** MAX_PATH 1+ LocalAlloc: current$ current-dir$ count current$ place current$ +null \ save current dir ! path-ptr first-path" begin dup>r searchpath$ place searchpath$ +null searchpath$ volume-indication? \ Test for another volume --- 172,176 ---- MAX_PATH 1+ LocalAlloc: current$ current-dir$ count current$ place current$ +null \ save current dir ! search-path first-path" begin dup>r searchpath$ place searchpath$ +null searchpath$ volume-indication? \ Test for another volume *************** *** 185,189 **** then r> ! while searchpath$ off path-ptr next-path" repeat a1 n1 path-file$ place path-file$ count true \ return input file and error flag current$ char+ $current-dir! not abort" $current-dir!" \ restore current dir --- 192,196 ---- then r> ! while searchpath$ off search-path next-path" repeat a1 n1 path-file$ place path-file$ count true \ return input file and error flag current$ char+ $current-dir! not abort" $current-dir!" \ restore current dir *************** *** 195,199 **** \ *G Initialize the Forth directory search path list. Automatically done at program \ ** initialization and when Paths.f is loaded. ! path-ptr off \ clear path list s" %CURRENTDIR%" "fpath+ s" %FORTHDIR%" "fpath+ --- 202,206 ---- \ *G Initialize the Forth directory search path list. Automatically done at program \ ** initialization and when Paths.f is loaded. ! search-path off \ clear path list s" %CURRENTDIR%" "fpath+ s" %FORTHDIR%" "fpath+ *************** *** 216,222 **** \ ** a2,n2 and f1=false, succeeded. \ first try it in the current directory ! a1 n1 path-ptr full-path -if 3drop \ then try it in the forth directory ! a1 n1 path-ptr full-path then ; --- 223,229 ---- \ ** a2,n2 and f1=false, succeeded. \ first try it in the current directory ! a1 n1 search-path full-path -if 3drop \ then try it in the forth directory ! a1 n1 search-path full-path then ; *************** *** 273,278 **** <AbsRelPath$> ; ! : FindRelativePath ( a1 n1 path-ptr - a2 n2 ) ! \ *G Returns a relative path for file a1 n1 in path-ptr ( first part ). \n \ ** n2=0 means not in search path. dup>r reset-path-source --- 280,285 ---- <AbsRelPath$> ; ! : FindRelativePath ( a1 n1 path - a2 n2 ) ! \ *G Returns a relative path for file a1 n1 in path ( first part ). \n \ ** n2=0 means not in search path. dup>r reset-path-source *************** *** 286,291 **** ; ! : FindRelativeName ( a1 n1 path-ptr - a2 n2 f ) ! \ *G Returns a relative name for file a1 n1 in path-ptr ( last-part ). \n \ ** n2=0 means not in search path. >r 2dup r> FindRelativePath dup 0> --- 293,298 ---- ; ! : FindRelativeName ( a1 n1 path - a2 n2 f ) ! \ *G Returns a relative name for file a1 n1 in path ( last-part ). \n \ ** n2=0 means not in search path. >r 2dup r> FindRelativePath dup 0> |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:40
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/src/lib Modified Files: SUB_DIRS.F Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: SUB_DIRS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/SUB_DIRS.F,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** SUB_DIRS.F 8 Jul 2006 19:59:50 -0000 1.7 --- SUB_DIRS.F 26 Aug 2006 15:25:32 -0000 1.8 *************** *** 177,181 **** ! : (do-files-process ( path-ptr -- ) >r false to search-aborted? r@ first-path" "process-directory --- 177,181 ---- ! : (do-files-process ( path -- ) >r false to search-aborted? r@ first-path" "process-directory *************** *** 187,191 **** : do-files-process ( -- ) \ In the Forth-part ! path-ptr (do-files-process ; --- 187,191 ---- : do-files-process ( -- ) \ In the Forth-part ! search-path (do-files-process ; |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:39
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/WinEd Modified Files: Ed_Defaults.F Ed_FindInFiles.F Ed_HyperLink.F Ed_MenuFuncs.F HYPER.F Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: Ed_HyperLink.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_HyperLink.F,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Ed_HyperLink.F 15 Jul 2006 16:30:19 -0000 1.4 --- Ed_HyperLink.F 26 Aug 2006 15:25:32 -0000 1.5 *************** *** 331,335 **** MAXSTRING LocalAlloc: highlight$ MAXSTRING LocalAlloc: Oldpath$ ! path-ptr count Oldpath$ place \ Save the current path program-path-init \ Get the Forth path highlighting? 0= \ something is highlighted --- 331,335 ---- MAXSTRING LocalAlloc: highlight$ MAXSTRING LocalAlloc: Oldpath$ ! search-path count Oldpath$ place \ Save the current path program-path-init \ Get the Forth path highlighting? 0= \ something is highlighted *************** *** 347,351 **** ELSE open-text THEN ! Oldpath$ count path-ptr place \ Restore the old path ; --- 347,351 ---- ELSE open-text THEN ! Oldpath$ count search-path place \ Restore the old path ; Index: Ed_FindInFiles.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_FindInFiles.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Ed_FindInFiles.F 28 Aug 2005 07:28:06 -0000 1.3 --- Ed_FindInFiles.F 26 Aug 2006 15:25:32 -0000 1.4 *************** *** 254,258 **** THEN 0 SetFile: self ! path-ptr count ID_DIRECTORY SetDlgItemText: self mask-ptr count ID_MASK SetDlgItemText: self Find-buf count ID_SEARCHTEXT SetDlgItemText: self --- 254,258 ---- THEN 0 SetFile: self ! search-path count ID_DIRECTORY SetDlgItemText: self mask-ptr count ID_MASK SetDlgItemText: self Find-buf count ID_SEARCHTEXT SetDlgItemText: self *************** *** 306,312 **** : get-parameters ( -- ) ! path-ptr 1+ MAXCOUNTED ID_DIRECTORY GetDlgItemText: self path-ptr c! ! mask-ptr 1+ MAXCOUNTED ID_MASK GetDlgItemText: self mask-ptr c! ! Find-buf 1+ MAXCOUNTED ID_SEARCHTEXT GetDlgItemText: self Find-buf c! Find-buf count InsertString: findComboEdit ID_CASE IsDlgButtonChecked: self to CaseSensitive? --- 306,312 ---- : get-parameters ( -- ) ! search-path 1+ MAXCOUNTED ID_DIRECTORY GetDlgItemText: self search-path c! ! mask-ptr 1+ MAXCOUNTED ID_MASK GetDlgItemText: self mask-ptr c! ! Find-buf 1+ MAXCOUNTED ID_SEARCHTEXT GetDlgItemText: self Find-buf c! Find-buf count InsertString: findComboEdit ID_CASE IsDlgButtonChecked: self to CaseSensitive? Index: HYPER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/HYPER.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** HYPER.F 30 Apr 2005 20:52:42 -0000 1.3 --- HYPER.F 26 Aug 2006 15:25:32 -0000 1.4 *************** *** 330,342 **** if after-cmd 2dup bl scan nip - \ get line upto a blank ! "CLIP" path-ptr place \ move in the directory list ! path-ptr count + 1- c@ ';' = \ remove any trailing ';' chars ! if path-ptr c@ 1- 0max path-ptr c! then ! path-ptr c@ 0= ! if base-path count path-ptr place \ else use current path then ! path-ptr c@ 0= ! if current-dir$ count path-ptr place \ else use current directory then then ; --- 330,342 ---- if after-cmd 2dup bl scan nip - \ get line upto a blank ! "CLIP" search-path place \ move in the directory list ! search-path count + 1- c@ ';' = \ remove any trailing ';' chars ! if search-path c@ 1- 0max search-path c! then ! search-path c@ 0= ! if base-path count search-path place \ else use current path then ! search-path c@ 0= ! if current-dir$ count search-path place \ else use current directory then then ; *************** *** 433,437 **** defext$ count mask-ptr +place \ default to default file extension &forthdir count base-path place ! path-ptr count base-path +place ; : read-config ( -- ) \ read the hypertext word table for --- 433,437 ---- defext$ count mask-ptr +place \ default to default file extension &forthdir count base-path place ! search-path count base-path +place ; : read-config ( -- ) \ read the hypertext word table for *************** *** 454,458 **** : build-index-message { index$ -- } s" Building HyperText Index...\n\nPath: " index$ place ! path-ptr count index$ +place s" \nMask: " index$ +place mask-ptr count index$ +place --- 454,458 ---- : build-index-message { index$ -- } s" Building HyperText Index...\n\nPath: " index$ place ! search-path count index$ +place s" \nMask: " index$ +place mask-ptr count index$ +place *************** *** 540,544 **** close-index then message-off ! base-path count path-ptr place search-aborted? if s" User Aborted Index Compile\n" "message --- 540,544 ---- close-index then message-off ! base-path count search-path place search-aborted? if s" User Aborted Index Compile\n" "message Index: Ed_MenuFuncs.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_MenuFuncs.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Ed_MenuFuncs.F 28 Aug 2005 07:28:07 -0000 1.3 --- Ed_MenuFuncs.F 26 Aug 2006 15:25:32 -0000 1.4 *************** *** 212,216 **** printed-columns 0 (d.) IDE_COLS SetDlgItemText: self printer-lpi 0 (d.) IDE_LPI SetDlgItemText: self ! path-ptr count IDE_PATH SetDlgItemText: self def-right-edge 0 (d.) IDE_WRAP SetDlgItemText: self 1 ;M --- 212,216 ---- printed-columns 0 (d.) IDE_COLS SetDlgItemText: self printer-lpi 0 (d.) IDE_LPI SetDlgItemText: self ! search-path count IDE_PATH SetDlgItemText: self def-right-edge 0 (d.) IDE_WRAP SetDlgItemText: self 1 ;M *************** *** 230,236 **** THEN set-filter ! path-ptr 1+ MAXCOUNTED IDE_PATH GetDlgItemText: self path-ptr c! ! path-ptr count + 1- c@ '\' = ! IF path-ptr c@ 1- 0max path-ptr c! \ remove trailing '\' char THEN number$ dup 6 IDE_WRAP GetDlgItemText: self skip-number? --- 230,236 ---- THEN set-filter ! search-path 1+ MAXCOUNTED IDE_PATH GetDlgItemText: self search-path c! ! search-path count + 1- c@ '\' = ! IF search-path c@ 1- 0max search-path c! \ remove trailing '\' char THEN number$ dup 6 IDE_WRAP GetDlgItemText: self skip-number? Index: Ed_Defaults.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Defaults.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Ed_Defaults.F 15 Jul 2006 16:30:19 -0000 1.5 --- Ed_Defaults.F 26 Aug 2006 15:25:32 -0000 1.6 *************** *** 88,92 **** mask-ptr count s" SearchMask" "SetDefault find-buf count s" SearchText" "SetDefault ! path-ptr count s" SearchPath" "SetDefault minimized? 0= \ ONLY SAVE WINDOW IF NOT MINIMIZED IF GetWindowRect: FrameWindow --- 88,92 ---- mask-ptr count s" SearchMask" "SetDefault find-buf count s" SearchText" "SetDefault ! search-path count s" SearchPath" "SetDefault minimized? 0= \ ONLY SAVE WINDOW IF NOT MINIMIZED IF GetWindowRect: FrameWindow *************** *** 152,156 **** THEN ! s" SearchPath" "GetDefault -IF 2dup "CLIP" path-ptr place THEN 2drop s" WindowLeft" "GetDefault number? 2drop --- 152,156 ---- THEN ! s" SearchPath" "GetDefault -IF 2dup "CLIP" search-path place THEN 2drop s" WindowLeft" "GetDefault number? 2drop |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:38
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/Win32ForthIDE Modified Files: EdFindInFiles.f Main.f ProjectTree.f ScintillaMDI.f Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** Main.f 4 Aug 2006 09:43:27 -0000 1.27 --- Main.f 26 Aug 2006 15:25:32 -0000 1.28 *************** *** 379,383 **** mask-ptr count s" SearchMask" "SetDefault find-buf count s" SearchText" "SetDefault ! path-ptr count s" SearchPath" "SetDefault path-ptr: TheProject count s" ProjectSearchPath" "SetDefault --- 379,383 ---- mask-ptr count s" SearchMask" "SetDefault find-buf count s" SearchText" "SetDefault ! search-path count s" SearchPath" "SetDefault path-ptr: TheProject count s" ProjectSearchPath" "SetDefault *************** *** 415,419 **** s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop ! s" SearchPath" "GetDefault -IF 2dup "CLIP" path-ptr place THEN 2drop s" SearchMask" "GetDefault -IF 2dup "CLIP" mask-ptr place THEN 2drop s" ProjectSearchPath" "GetDefault -IF 2dup "CLIP" path-ptr: TheProject place THEN 2drop --- 415,419 ---- s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop ! s" SearchPath" "GetDefault -IF 2dup "CLIP" search-path place THEN 2drop s" SearchMask" "GetDefault -IF 2dup "CLIP" mask-ptr place THEN 2drop s" ProjectSearchPath" "GetDefault -IF 2dup "CLIP" path-ptr: TheProject place THEN 2drop Index: ProjectTree.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** ProjectTree.f 23 Jul 2006 10:12:56 -0000 1.13 --- ProjectTree.f 26 Aug 2006 15:25:32 -0000 1.14 *************** *** 1022,1029 **** MAXSTRING CHARS 1+ LocalAlloc: old-path$ ! path-ptr count old-path$ place \ save current search path path-ptr: TheProject count dup ! if path-ptr place \ set project search path else drop program-path-init \ set default project search path then --- 1022,1029 ---- MAXSTRING CHARS 1+ LocalAlloc: old-path$ ! search-path count old-path$ place \ save current search path path-ptr: TheProject count dup ! if search-path place \ set project search path else drop program-path-init \ set default project search path then *************** *** 1058,1062 **** SortParentLists: TheProject ! old-path$ count path-ptr place \ restore current search path ; IDM_BUILD_PRJ SetCommand --- 1058,1062 ---- SortParentLists: TheProject ! old-path$ count search-path place \ restore current search path ; IDM_BUILD_PRJ SetCommand Index: EdFindInFiles.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdFindInFiles.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** EdFindInFiles.f 5 Jun 2006 09:19:00 -0000 1.1 --- EdFindInFiles.f 26 Aug 2006 15:25:32 -0000 1.2 *************** *** 264,268 **** THEN 0 SetFile: self ! path-ptr count ID_DIRECTORY SetDlgItemText: self mask-ptr count ID_MASK SetDlgItemText: self Find-buf count ID_SEARCHTEXT SetDlgItemText: self --- 264,268 ---- THEN 0 SetFile: self ! search-path count ID_DIRECTORY SetDlgItemText: self mask-ptr count ID_MASK SetDlgItemText: self Find-buf count ID_SEARCHTEXT SetDlgItemText: self *************** *** 316,322 **** : get-parameters ( -- ) ! path-ptr 1+ MAXCOUNTED ID_DIRECTORY GetDlgItemText: self path-ptr c! ! mask-ptr 1+ MAXCOUNTED ID_MASK GetDlgItemText: self mask-ptr c! ! Find-buf 1+ MAXCOUNTED ID_SEARCHTEXT GetDlgItemText: self Find-buf c! [defined] findComboEdit [if] Find-buf count InsertString: findComboEdit --- 316,322 ---- : get-parameters ( -- ) ! search-path 1+ MAXCOUNTED ID_DIRECTORY GetDlgItemText: self search-path c! ! mask-ptr 1+ MAXCOUNTED ID_MASK GetDlgItemText: self mask-ptr c! ! Find-buf 1+ MAXCOUNTED ID_SEARCHTEXT GetDlgItemText: self Find-buf c! [defined] findComboEdit [if] Find-buf count InsertString: findComboEdit *************** *** 377,379 **** ;Object ! |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:37
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/Player4 Modified Files: Catalog.f Commands.f PLAYER4.F SearchPath.f Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.61 retrieving revision 1.62 diff -C2 -d -r1.61 -r1.62 *** PLAYER4.F 8 Jul 2006 19:58:52 -0000 1.61 --- PLAYER4.F 26 Aug 2006 15:25:31 -0000 1.62 *************** *** 363,367 **** : HandleCmdLine { \ bPlayFolder bPlayList -- } \ simple command-line handling ! UseForthPath CMDLINE ?dup if false to bPlayFolder false to bPlayList --- 363,367 ---- : HandleCmdLine { \ bPlayFolder bPlayList -- } \ simple command-line handling ! CMDLINE ?dup if false to bPlayFolder false to bPlayList *************** *** 525,530 **** MENUSEPARATOR SUBMENU "S&ort and view" ! MENUITEM "Define a view and sort" UseCatalogPath StartViewForm ; ! MENUITEM "&Sort / Refresh" UseCatalogPath SortCatalog ; MENUSEPARATOR MENUITEM "Se&t maximum random level" SetRandomLevel ; --- 525,530 ---- MENUSEPARATOR SUBMENU "S&ort and view" ! MENUITEM "Define a view and sort" StartViewForm ; ! MENUITEM "&Sort / Refresh" SortCatalog ; MENUSEPARATOR MENUITEM "Se&t maximum random level" SetRandomLevel ; Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.38 retrieving revision 1.39 diff -C2 -d -r1.38 -r1.39 *** Catalog.f 19 Jul 2006 15:25:26 -0000 1.38 --- Catalog.f 26 Aug 2006 15:25:30 -0000 1.39 *************** *** 235,243 **** : SeparatorX ( - adr ) vadr-config _SeparatorX ; - \ : UseCatalogPath ( - ) vadr-config SearchPath to path-ptr ; - \ : UseForthPath ( - ) &fpath to path-ptr ; - : UseCatalogPath ( - ) ; - : UseForthPath ( - ) ; - : check-config ( flag -- ) \ creates one with the right size not --- 235,238 ---- *************** *** 649,653 **** database$ count file-exist? and DataBaseFilled? and dup ! if UseCatalogPath index$ count file-exist? not if _generate-index-file then --- 644,648 ---- database$ count file-exist? and DataBaseFilled? and dup ! if index$ count file-exist? not if _generate-index-file then Index: Commands.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Commands.f,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Commands.f 19 Jul 2006 15:25:26 -0000 1.6 --- Commands.f 26 Aug 2006 15:25:31 -0000 1.7 *************** *** 26,36 **** : PlayFile ( -- ) ! UseForthPath OpenFile: Player4W ; IDM_OPEN_FILE SetCommand : OpenFolder ( -- ) ! UseForthPath OpenFolder: Player4W ; IDM_OPEN_FOLDER SetCommand : OpenPlayList ( -- ) ! UseForthPath OpenPlayList: Player4W ; IDM_OPEN_PLAYLIST SetCommand : QuitPlayer ( -- ) --- 26,36 ---- : PlayFile ( -- ) ! OpenFile: Player4W ; IDM_OPEN_FILE SetCommand : OpenFolder ( -- ) ! OpenFolder: Player4W ; IDM_OPEN_FOLDER SetCommand : OpenPlayList ( -- ) ! OpenPlayList: Player4W ; IDM_OPEN_PLAYLIST SetCommand : QuitPlayer ( -- ) *************** *** 45,49 **** : AddFiles ( -- ) ! UseCatalogPath AddFilesFromSelector: Player4W ; IDM_ADD_FILES SetCommand : ImportFolder ( -- ) --- 45,49 ---- : AddFiles ( -- ) ! AddFilesFromSelector: Player4W ; IDM_ADD_FILES SetCommand : ImportFolder ( -- ) Index: SearchPath.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/SearchPath.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SearchPath.f 10 Jul 2006 18:31:20 -0000 1.1 --- SearchPath.f 26 Aug 2006 15:25:31 -0000 1.2 *************** *** 176,180 **** GetText: tb6 AddToPath GetText: tb7 AddToPath - \ path-ptr dup c@ 1- swap c! path-ptr +NULL Close: Self ; --- 176,179 ---- |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:37
|
Update of /cvsroot/win32forth/win32forth/apps/Solipon2 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/Solipon2 Modified Files: SOLIPION.F Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: SOLIPION.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** SOLIPION.F 25 Sep 2005 15:19:28 -0000 1.5 --- SOLIPION.F 26 Aug 2006 15:25:31 -0000 1.6 *************** *** 242,246 **** : find-file ( addr len -- addr1 len1 ) ! path-ptr off \ clear path list s" ." "fpath+ \ current dir is first &forthdir count "fpath+ --- 242,246 ---- : find-file ( addr len -- addr1 len1 ) ! search-path off \ clear path list s" ." "fpath+ \ current dir is first &forthdir count "fpath+ |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:37
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/SciEdit Modified Files: EdFindInFiles.f Main.f ScintillaMDI.f Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** Main.f 4 Aug 2006 09:43:27 -0000 1.24 --- Main.f 26 Aug 2006 15:25:31 -0000 1.25 *************** *** 212,218 **** then ! mask-ptr count s" SearchMask" "SetDefault ! find-buf count s" SearchText" "SetDefault ! path-ptr count s" SearchPath" "SetDefault SaveRecentFiles --- 212,218 ---- then ! mask-ptr count s" SearchMask" "SetDefault ! find-buf count s" SearchText" "SetDefault ! search-path count s" SearchPath" "SetDefault SaveRecentFiles *************** *** 244,250 **** s" StripTrailingWhitespace" "GetDefaultValue 0= IF drop true THEN to StripTrailingWhitespace? ! s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop ! s" SearchPath" "GetDefault -IF 2dup "CLIP" path-ptr place THEN 2drop ! s" SearchMask" "GetDefault -IF 2dup "CLIP" mask-ptr place THEN 2drop s" ShowToolbar" "GetDefaultValue 0= IF drop true THEN dup to ShowToolbar? Show: TheRebar --- 244,250 ---- s" StripTrailingWhitespace" "GetDefaultValue 0= IF drop true THEN to StripTrailingWhitespace? ! s" SearchText" "GetDefault -IF 2dup "CLIP" find-buf place THEN 2drop ! s" SearchPath" "GetDefault -IF 2dup "CLIP" search-path place THEN 2drop ! s" SearchMask" "GetDefault -IF 2dup "CLIP" mask-ptr place THEN 2drop s" ShowToolbar" "GetDefaultValue 0= IF drop true THEN dup to ShowToolbar? Show: TheRebar Index: EdFindInFiles.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/EdFindInFiles.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** EdFindInFiles.f 5 May 2005 09:43:27 -0000 1.2 --- EdFindInFiles.f 26 Aug 2006 15:25:31 -0000 1.3 *************** *** 264,268 **** THEN 0 SetFile: self ! path-ptr count ID_DIRECTORY SetDlgItemText: self mask-ptr count ID_MASK SetDlgItemText: self Find-buf count ID_SEARCHTEXT SetDlgItemText: self --- 264,268 ---- THEN 0 SetFile: self ! search-path count ID_DIRECTORY SetDlgItemText: self mask-ptr count ID_MASK SetDlgItemText: self Find-buf count ID_SEARCHTEXT SetDlgItemText: self *************** *** 316,322 **** : get-parameters ( -- ) ! path-ptr 1+ MAXCOUNTED ID_DIRECTORY GetDlgItemText: self path-ptr c! ! mask-ptr 1+ MAXCOUNTED ID_MASK GetDlgItemText: self mask-ptr c! ! Find-buf 1+ MAXCOUNTED ID_SEARCHTEXT GetDlgItemText: self Find-buf c! [defined] findComboEdit [if] Find-buf count InsertString: findComboEdit --- 316,322 ---- : get-parameters ( -- ) ! search-path 1+ MAXCOUNTED ID_DIRECTORY GetDlgItemText: self search-path c! ! mask-ptr 1+ MAXCOUNTED ID_MASK GetDlgItemText: self mask-ptr c! ! Find-buf 1+ MAXCOUNTED ID_SEARCHTEXT GetDlgItemText: self Find-buf c! [defined] findComboEdit [if] Find-buf count InsertString: findComboEdit *************** *** 377,379 **** ;Object ! |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:36
|
Update of /cvsroot/win32forth/win32forth/apps/ProMgr In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/ProMgr Modified Files: ProjectManager.f Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: ProjectManager.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** ProjectManager.f 4 Aug 2006 09:43:27 -0000 1.17 --- ProjectManager.f 26 Aug 2006 15:25:31 -0000 1.18 *************** *** 792,796 **** s" ProjectName= " append ProjectName: self append&crlf s" BuildFile= " append GetBuildFile: self relpath&append&crlf \ Sonntag, Mai 30 2004 - 10:40 dbu ! s" SearchPath= " append path-ptr count append&crlf GetList: self lcount cells bounds do i @ to ThisList --- 792,796 ---- s" ProjectName= " append ProjectName: self append&crlf s" BuildFile= " append GetBuildFile: self relpath&append&crlf \ Sonntag, Mai 30 2004 - 10:40 dbu ! s" SearchPath= " append search-path count append&crlf GetList: self lcount cells bounds do i @ to ThisList *************** *** 845,849 **** else true abort" Build file name not found!" then bl get-word s" SearchPath=" caps-compare 0= ! if bl word count path-ptr place else true abort" Search path not found!" then \ now we read in files --- 845,849 ---- else true abort" Build file name not found!" then bl get-word s" SearchPath=" caps-compare 0= ! if bl word count search-path place else true abort" Search path not found!" then \ now we read in files *************** *** 1632,1640 **** pad count w/o create-file if drop exit ! then >r path-ptr count r@ write-line drop r> close-file drop ; : set-build-path ( -- ) ! path-ptr TheProjectWindow Start: GetPathDialog dup if true to Modified then 2 = if save-path-to-file then --- 1632,1640 ---- pad count w/o create-file if drop exit ! then >r search-path count r@ write-line drop r> close-file drop ; : set-build-path ( -- ) ! search-path TheProjectWindow Start: GetPathDialog dup if true to Modified then 2 = if save-path-to-file then *************** *** 1644,1650 **** MAXSTRING CHARS 1+ LocalAlloc: old-path$ ! path-ptr count old-path$ place \ save current search path ! path-ptr count nip 0= if program-path-init \ set default project search path then --- 1644,1650 ---- MAXSTRING CHARS 1+ LocalAlloc: old-path$ ! search-path count old-path$ place \ save current search path ! search-path count nip 0= if program-path-init \ set default project search path then *************** *** 1672,1676 **** pad 1+ 0 SetText: ProjectStatusBar ! old-path$ count path-ptr place \ restore current search path ; IDM_BUILD SetCommand --- 1672,1676 ---- pad 1+ 0 SetText: ProjectStatusBar ! old-path$ count search-path place \ restore current search path ; IDM_BUILD SetCommand *************** *** 1789,1794 **** file$ count ForthName place THEN ! \ s" path-ptr off fpath+ " file$ +place ! \ path-ptr count file$ +place s" chdir " file$ +place GetBuildFile: TheProject "path-only" file$ +place --- 1789,1794 ---- file$ count ForthName place THEN ! \ s" search-path off fpath+ " file$ +place ! \ search-path count file$ +place s" chdir " file$ +place GetBuildFile: TheProject "path-only" file$ +place *************** *** 1919,1923 **** if drop exit then >r pad maxstring r@ read-line nip 0= ! if pad swap path-ptr place else drop then r> close-file drop ; --- 1919,1923 ---- if drop exit then >r pad maxstring r@ read-line nip 0= ! if pad swap search-path place else drop then r> close-file drop ; |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-26 15:25:36
|
Update of /cvsroot/win32forth/win32forth/apps/Setup In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/Setup Modified Files: HYPER.F Log Message: Jos: Depreciated the old path-ptr and replaced path-ptr by search-path Index: HYPER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Setup/HYPER.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** HYPER.F 3 May 2005 15:05:52 -0000 1.3 --- HYPER.F 26 Aug 2006 15:25:31 -0000 1.4 *************** *** 327,339 **** if after-cmd 2dup bl scan nip - \ get line upto a blank ! "CLIP" path-ptr place \ move in the directory list ! path-ptr count + 1- c@ ';' = \ remove any trailing ';' chars ! if path-ptr c@ 1- 0max path-ptr c! then ! path-ptr c@ 0= ! if base-path count path-ptr place \ else use current path then ! path-ptr c@ 0= ! if current-dir$ count path-ptr place \ else use current directory then then ; --- 327,339 ---- if after-cmd 2dup bl scan nip - \ get line upto a blank ! "CLIP" search-path place \ move in the directory list ! search-path count + 1- c@ ';' = \ remove any trailing ';' chars ! if search-path c@ 1- 0max search-path c! then ! search-path c@ 0= ! if base-path count search-path place \ else use current path then ! search-path c@ 0= ! if current-dir$ count search-path place \ else use current directory then then ; *************** *** 430,434 **** defext$ count mask-ptr +place \ default to default file extension &forthdir count base-path place ! path-ptr count base-path +place ; : read-config ( -- ) \ read the hypertext word table for --- 430,434 ---- defext$ count mask-ptr +place \ default to default file extension &forthdir count base-path place ! search-path count base-path +place ; : read-config ( -- ) \ read the hypertext word table for *************** *** 451,455 **** : build-index-message { index$ -- } s" Building HyperText Index...\n\nPath: " index$ place ! path-ptr count index$ +place s" \nMask: " index$ +place mask-ptr count index$ +place --- 451,455 ---- : build-index-message { index$ -- } s" Building HyperText Index...\n\nPath: " index$ place ! search-path count index$ +place s" \nMask: " index$ +place mask-ptr count index$ +place *************** *** 538,542 **** close-index then message-off ! base-path count path-ptr place search-aborted? if s" User Aborted Index Compile\n" "message --- 538,542 ---- close-index then message-off ! base-path count search-path place search-aborted? if s" User Aborted Index Compile\n" "message *************** *** 546,548 **** $current-dir! ; \ restore current directory ! |
|
From: George H. <geo...@us...> - 2006-08-25 14:13:39
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8821/win32forth/doc Modified Files: p-relnotes.6.10.htm p-relnotes.6.12.htm Log Message: gah:Minor corrections to docs. Index: p-relnotes.6.12.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-relnotes.6.12.htm,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** p-relnotes.6.12.htm 25 Aug 2006 12:54:01 -0000 1.11 --- p-relnotes.6.12.htm 25 Aug 2006 14:13:34 -0000 1.12 *************** *** 28,35 **** <h2>Contributors (in alphabetical order) </h2> <dir> ! <li>Brad Eckert</li> <li>Ezra Boyce</li> <li>Dirk Busch</li> <li>Thomas Dixon</li> <li>Bruno Gauthier</li> <li>George Hubert</li> --- 28,36 ---- <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> *************** *** 78,82 **** <li>The File FreeImage.dll was added because it is used by the Win32Forth IDE to display Bitmap images.</li> <li>PATH-PTR was changed. All code that depend on PATH-PTR be defined as a VALUE must be changed !!! ! Alternatively you can INCLUDE the file compat\oldpaths.f for a harnees to use old code with the new paths.f</li> </p> --- 79,83 ---- <li>The File FreeImage.dll was added because it is used by the Win32Forth IDE to display Bitmap images.</li> <li>PATH-PTR was changed. All code that depend on PATH-PTR be defined as a VALUE must be changed !!! ! Alternatively you can INCLUDE the file compat\oldpaths.f for a harness to use old code with the new paths.f</li> </p> Index: p-relnotes.6.10.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-relnotes.6.10.htm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** p-relnotes.6.10.htm 25 Aug 2006 12:54:00 -0000 1.4 --- p-relnotes.6.10.htm 25 Aug 2006 14:13:34 -0000 1.5 *************** *** 22,26 **** <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id$"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release ! Notes for version 6.10.04</h2> <ul> <li><a href="p-relnotes.htm">Previous version release notes </a></li> --- 22,26 ---- <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id$"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release ! Notes for version 6.10.05</h2> <ul> <li><a href="p-relnotes.htm">Previous version release notes </a></li> |
|
From: George H. <geo...@us...> - 2006-08-25 14:12:36
|
Update of /cvsroot/win32forth/win32forth-610old/htm In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8311/win32forth-610old/htm Modified Files: p-relnotes.6.10.htm Log Message: gah:Updated to V6.10.05 (needs new version to be uploaded to SF) Index: p-relnotes.6.10.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/htm/p-relnotes.6.10.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** p-relnotes.6.10.htm 25 Aug 2006 12:54:00 -0000 1.5 --- p-relnotes.6.10.htm 25 Aug 2006 14:12:30 -0000 1.6 *************** *** 22,26 **** <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id$"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release ! Notes for version 6.10.04</h2> <ul> <li><a href="p-relnotes.htm">Previous version release notes </a></li> --- 22,26 ---- <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id$"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release ! Notes for version 6.10.05</h2> <ul> <li><a href="p-relnotes.htm">Previous version release notes </a></li> |
|
From: George H. <geo...@us...> - 2006-08-25 14:12:33
|
Update of /cvsroot/win32forth/win32forth-610old/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8311/win32forth-610old/src/kernel Modified Files: version.f Log Message: gah:Updated to V6.10.05 (needs new version to be uploaded to SF) Index: version.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/src/kernel/version.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** version.f 9 Feb 2006 11:09:00 -0000 1.5 --- version.f 25 Aug 2006 14:12:30 -0000 1.6 *************** *** 3,7 **** cr .( Loading META version info) ! 61004 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. --- 3,7 ---- cr .( Loading META version info) ! 61005 VALUE #VERSION# \ Change only the version number above; the build number is automatically assigned. *************** *** 29,32 **** --- 29,37 ---- -------------------------------- Change Log ---------------------------------------- + changed in 6.10.05 + + gah Friday, August 25 2006 corrected SYNONYM to leave new-name hidden on error and to + correctly use the old version of name when new-name and old-name are the same + changed in 6.10.04 *************** *** 418,419 **** --- 423,425 ---- + |
|
From: George H. <geo...@us...> - 2006-08-25 14:12:33
|
Update of /cvsroot/win32forth/win32forth-610old In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8311/win32forth-610old Modified Files: fkernel.exe Log Message: gah:Updated to V6.10.05 (needs new version to be uploaded to SF) Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/fkernel.exe,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 Binary files /tmp/cvs4uZLYo and /tmp/cvstZI4b1 differ |
|
From: George H. <geo...@us...> - 2006-08-25 12:54:08
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4195/win32forth/doc Modified Files: p-relnotes.6.10.htm p-relnotes.6.12.htm Log Message: gah:Updated documentation and tidy up. Index: p-relnotes.6.12.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-relnotes.6.12.htm,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** p-relnotes.6.12.htm 23 Jul 2006 10:14:36 -0000 1.10 --- p-relnotes.6.12.htm 25 Aug 2006 12:54:01 -0000 1.11 *************** *** 77,81 **** <li>The File w32fHtmlDisplay.dll was removed because it was replaced whith the new ActiveX support written by Thomas Dixon.</li> <li>The File FreeImage.dll was added because it is used by the Win32Forth IDE to display Bitmap images.</li> ! <li>PATH-PTR was changed. All code that depend on PATH-PTR be defined as a VALUE must be changed !!!</li> </p> --- 77,82 ---- <li>The File w32fHtmlDisplay.dll was removed because it was replaced whith the new ActiveX support written by Thomas Dixon.</li> <li>The File FreeImage.dll was added because it is used by the Win32Forth IDE to display Bitmap images.</li> ! <li>PATH-PTR was changed. All code that depend on PATH-PTR be defined as a VALUE must be changed !!! ! Alternatively you can INCLUDE the file compat\oldpaths.f for a harnees to use old code with the new paths.f</li> </p> *************** *** 169,173 **** </li> </ul> ! <h2>New GDI class library</h2> <ul> --- 170,178 ---- </li> </ul> ! <h2>New ADO class library</h2> ! <ul> ! <li><a href="./classes/ADO.htm#0">ADOConnection</a> For connecting to a database.</li> ! <li><a href="./classes/ADO.htm#21">ADOCursor</a> For manipulating recordsets.</li> ! </ul> <h2>New GDI class library</h2> <ul> *************** *** 221,224 **** --- 226,230 ---- <li><a href="../demos/ListViewDemo.f">demos/ListViewDemo.f - Shows how to use the ListView control. Also shows how to implement a Spliiter window</a></li> + <li>demos\Ado\*.f - Various demos for the new Ado class library. Requires MS access to build the .mdb file for the tests. </ul> Index: p-relnotes.6.10.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-relnotes.6.10.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** p-relnotes.6.10.htm 26 Feb 2006 07:13:13 -0000 1.3 --- p-relnotes.6.10.htm 25 Aug 2006 12:54:00 -0000 1.4 *************** *** 144,147 **** --- 144,149 ---- to print 4,000,000 spaces if the line has a comment has been fixed..</p> <p><b> REPRESENT </b> has been modified so zero is output as 0.0e0 by <b>FS.</b> </p> + <p><b> SYNONYM </b> now leaves the new name as hidden if the old name + isn't found. Also it correctly finds an earlier version of old name (if it's in the search order) where the two names are the same and the current and context vocabularies are also the same. </p> <h2>New Applications</h2> |
|
From: George H. <geo...@us...> - 2006-08-25 12:54:08
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4195/win32forth/src Modified Files: Utils.f Log Message: gah:Updated documentation and tidy up. Index: Utils.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Utils.f 24 Aug 2006 10:14:30 -0000 1.11 --- Utils.f 25 Aug 2006 12:54:01 -0000 1.12 *************** *** 537,541 **** time-buf call GetLocalTime drop ; ! create compile-version time-len allot \ a place to save the compile time get-local-time \ save as part of compiled image --- 537,541 ---- time-buf call GetLocalTime drop ; ! create compile-version time-len allot \ a place to save the compile time (global) get-local-time \ save as part of compiled image *************** *** 561,564 **** --- 561,565 ---- : .date ( -- ) + \ *G Print date in short format, based on regional setting. get-local-time time-buf >date" type ; *************** *** 570,573 **** --- 571,575 ---- : .month,day,year ( -- ) + \ *G Print day and date in full. get-local-time time-buf >month,day,year" type ; *************** *** 578,581 **** --- 580,584 ---- : .time ( -- ) + \ *G Print time in 24hr format. get-local-time time-buf >time" type ; *************** *** 586,589 **** --- 589,593 ---- : .am/pm ( -- ) + \ *G Print time in 12hr format. get-local-time time-buf >am/pm" type ; |
1040 messages has been excluded from this view by a project administrator.
