win32forth-cvs — CVS Commit List

[Win32forth-cvs] win32forth/doc p-ansi.htm,1.1,1.2 p-index.htm,1.3,1.4

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/doc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17572/doc

Modified Files:
	p-ansi.htm p-index.htm 
Log Message:
fixed links to dpans files for homepage

Index: p-index.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/doc/p-index.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** p-index.htm	12 Jun 2005 08:37:35 -0000	1.3
--- p-index.htm	27 Jun 2005 15:42:21 -0000	1.4
***************
*** 23,27 ****
  <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a>The
  Documentation</font></h2>
! <p>Welcome to Win32Forth, a Windows implementation of the <a href="dpans/DPANS.HTM">ANS Forth</a> programming
  language. Documentation is difficult stuff to write, and even more difficult to
  keep up to date, so please
--- 23,27 ----
  <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a>The
  Documentation</font></h2>
! <p>Welcome to Win32Forth, a Windows implementation of the <a href="dpans/dpans.htm">ANS Forth</a> programming
  language. Documentation is difficult stuff to write, and even more difficult to
  keep up to date, so please
***************
*** 115,119 ****
  <h3>ANS Forth documentation</h3>
  <ul>
!   <li><a href="dpans/DPANS.HTM">ANS Forth</a>; the authoritative
    definition of Forth.</li>
    <li>The <a href="dpans/dpansf.htm">ANS Forth Wordlist</a>; all the standard words. Excellent bedtime reading for
--- 115,119 ----
  <h3>ANS Forth documentation</h3>
  <ul>
!   <li><a href="dpans/dpans.htm">ANS Forth</a>; the authoritative
    definition of Forth.</li>
    <li>The <a href="dpans/dpansf.htm">ANS Forth Wordlist</a>; all the standard words. Excellent bedtime reading for

Index: p-ansi.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/doc/p-ansi.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** p-ansi.htm	21 Dec 2004 00:18:55 -0000	1.1
--- p-ansi.htm	27 Jun 2005 15:42:21 -0000	1.2
***************
*** 30,34 ****
  progress.</p>
  <p>This file is meant to satisfy the documentation requirements of the 
! <a href="DPANS.HTM">ANS Forth Standard</a> X3J14 with regard to the associated Forth system named WIN32FOR, 
  sometimes referred to as Forth-95. It is the intent of the originators of 
  WIN32FOR that it conform to the ANS Forth Standard, including all of the 
--- 30,34 ----
  progress.</p>
  <p>This file is meant to satisfy the documentation requirements of the 
! <a href="dpans/dpans.htm">ANS Forth Standard</a> X3J14 with regard to the associated Forth system named WIN32FOR, 
  sometimes referred to as Forth-95. It is the intent of the originators of 
  WIN32FOR that it conform to the ANS Forth Standard, including all of the 
***************
*** 47,56 ****
  NO support by the authors or subsequent contributors. </p>
  <h2>Implementation-defined Options </h2>
! <p>Sections <a href="DPANS4.HTM#4.1.1">4.1.1</a>, <a href="DPANS7.HTM#7.4.1.1">
! 7.4.1.1</a>, <a href="DPANS9.HTM#9.4.1.1">9.4.1.1</a>, 
! <a href="DPANS10.HTM#10.4.1.1">10.4.1.1</a>, <a href="DPANS11.HTM#11.4.1.1">11.4.1.1</a>, 
! <a href="DPANS12.HTM#12.4.1.1">12.4.1.1</a>, <a href="DPANS13.HTM#13.4.1.1">13.4.1.1</a>, 
! <a href="DPANS14.HTM#14.4.1.1">14.4.1.1</a>, <a href="DPANS15.HTM#15.4.1.1">15.4.1.1</a> 
! and <a href="DPANS16.HTM#16.4.1.1">16.4.1.1</a> of the <a href="DPANS.HTM">ANS Forth Standard</a> require that the system shall document 
  the values for, or behaviours of, each of the following items: </p>
  
--- 47,56 ----
  NO support by the authors or subsequent contributors. </p>
  <h2>Implementation-defined Options </h2>
! <p>Sections <a href="dpans/dpans4.htm#4.1.1">4.1.1</a>, <a href="dpans/dpans7.htm#7.4.1.1">
! 7.4.1.1</a>, <a href="dpans/dpans9.htm#9.4.1.1">9.4.1.1</a>, 
! <a href="dpans/dpans10.htm#10.4.1.1">10.4.1.1</a>, <a href="dpans/dpans11.htm#11.4.1.1">11.4.1.1</a>, 
! <a href="dpans/dpans12.htm#12.4.1.1">12.4.1.1</a>, <a href="dpans/dpans13.htm#13.4.1.1">13.4.1.1</a>, 
! <a href="dpans/dpans14.htm#14.4.1.1">14.4.1.1</a>, <a href="dpans/dpans15.htm#15.4.1.1">15.4.1.1</a> 
! and <a href="dpans/dpans16.htm#16.4.1.1">16.4.1.1</a> of the <a href="dpans/dpans.htm">ANS Forth Standard</a> require that the system shall document 
  the values for, or behaviours of, each of the following items: </p>
  
***************
*** 58,62 ****
  <ul>
    <li>
!   <p style="margin-top: 0; margin-bottom: 0">aligned address requirements (<A href="dpans3.htm#3.1.3.3">3.1.3.3</A> 
  Addresses); 
    </li>
--- 58,62 ----
  <ul>
    <li>
!   <p style="margin-top: 0; margin-bottom: 0">aligned address requirements (<A href="dpans/dpans3.htm#3.1.3.3">3.1.3.3</A> 
  Addresses); 
    </li>
***************
*** 73,77 ****
  </blockquote>
  <UL>
! <LI>behavior of <A href="dpans6.htm#6.1.1320">6.1.1320</A> EMIT for non-graphic 
  characters; 
  </UL>
--- 73,77 ----
  </blockquote>
  <UL>
! <LI>behavior of <A href="dpans/dpans6.htm#6.1.1320">6.1.1320</A> EMIT for non-graphic 
  characters; 
  </UL>
***************
*** 94,99 ****
  </blockquote>
  <UL>
! <LI>character editing of <A href="dpans6.htm#6.1.0695">6.1.0695</A> ACCEPT and 
! <A href="dpans6.htm#6.2.1390">6.2.1390</A> EXPECT; 
  </UL>
  
--- 94,99 ----
  </blockquote>
  <UL>
! <LI>character editing of <A href="dpans/dpans6.htm#6.1.0695">6.1.0695</A> ACCEPT and 
! <A href="v6.htm#6.2.1390">6.2.1390</A> EXPECT; 
  </UL>
  
***************
*** 247,253 ****
  </div>
  <UL>
! <LI>character set (<A href="dpans3.htm#3.1.2">3.1.2</A> Character types, <A 
! href="dpans6.htm#6.1.1320">6.1.1320</A> EMIT, <A 
! href="dpans6.htm#6.1.1750">6.1.1750</A> KEY); 
  </UL>
  
--- 247,253 ----
  </div>
  <UL>
! <LI>character set (<A href="dpans/dpans3.htm#3.1.2">3.1.2</A> Character types, <A 
! href="v6.htm#6.1.1320">6.1.1320</A> EMIT, <A 
! href="dpans/dpans6.htm#6.1.1750">6.1.1750</A> KEY); 
  </UL>
  
***************
*** 268,272 ****
  <UL>
  <LI>character-aligned address requirements (<A 
! href="dpans3.htm#3.1.3.3">3.1.3.3</A> Addresses); 
  </UL>
  
--- 268,272 ----
  <UL>
  <LI>character-aligned address requirements (<A 
! href="dpans/dpans3.htm#3.1.3.3">3.1.3.3</A> Addresses); 
  </UL>
  
***************
*** 280,284 ****
  <UL>
  <LI>character-set-extensions matching characteristics (<A 
! href="dpans3.htm#3.4.2">3.4.2</A> Finding definition names); 
  </UL>
  
--- 280,284 ----
  <UL>
  <LI>character-set-extensions matching characteristics (<A 
! href="dpans/dpans3.htm#3.4.2">3.4.2</A> Finding definition names); 
  </UL>
  
***************
*** 292,296 ****
  <UL>
  <LI>conditions under which control characters match a space delimiter (<A 
! href="dpans3.htm#3.4.1.1">3.4.1.1</A> Delimiters); 
  </UL>
  
--- 292,296 ----
  <UL>
  <LI>conditions under which control characters match a space delimiter (<A 
! href="dpans/dpans3.htm#3.4.1.1">3.4.1.1</A> Delimiters); 
  </UL>
  
***************
*** 302,367 ****
  </blockquote>
  <UL>
! <LI>format of the control-flow stack (<A href="dpans3.htm#3.2.3.2">3.2.3.2</A> 
  Control-flow stack); 
  <LI>conversion of digits larger than thirty-five (<A 
! href="dpans3.htm#3.2.1.2">3.2.1.2</A> Digit conversion); 
! <LI>display after input terminates in <A href="dpans6.htm#6.1.0695">6.1.0695</A> 
! ACCEPT and <A href="dpans6.htm#6.2.1390">6.2.1390</A> EXPECT; 
! <LI>exception abort sequence (as in <A href="dpans6.htm#6.1.0680">6.1.0680</A> 
  ABORT"); 
! <LI>input line terminator (<A href="dpans3.htm#3.2.4.1">3.2.4.1</A> User input 
  device); 
  <LI>maximum size of a counted string, in characters (<A 
! href="dpans3.htm#3.1.3.4">3.1.3.4</A> Counted strings, <A 
! href="dpans6.htm#6.1.2450">6.1.2450</A> WORD); 
! <LI>maximum size of a parsed string (<A href="dpans3.htm#3.4.1">3.4.1</A> 
  Parsing); 
  <LI>maximum size of a definition name, in characters (<A 
! href="dpans3.htm#3.3.1.2">3.3.1.2</A> Definition names); 
! <LI>maximum string length for <A href="dpans6.htm#6.1.1345">6.1.1345</A> 
  ENVIRONMENT?, in characters; 
! <LI>method of selecting <A href="dpans3.htm#3.2.4.1">3.2.4.1</A> User input 
  device; 
! <LI>method of selecting <A href="dpans3.htm#3.2.4.2">3.2.4.2</A> User output 
  device; 
! <LI>methods of dictionary compilation (<A href="dpans3.htm#3.3">3.3</A> The 
  Forth dictionary); 
! <LI>number of bits in one address unit (<A href="dpans3.htm#3.1.3.3">3.1.3.3</A> 
  Addresses); 
  <LI>number representation and arithmetic (<A 
! href="dpans3.htm#3.2.1.1">3.2.1.1</A> Internal number representation); 
! <LI>ranges for n, +n, u, d, +d, and ud (<A href="dpans3.htm#3.1.3">3.1.3</A> 
! Single-cell types, <A href="dpans3.htm#3.1.4">3.1.4</A> Cell-pair types); 
! <LI>read-only data-space regions (<A href="dpans3.htm#3.3.3">3.3.3</A> Data 
  space); 
! <LI>size of buffer at <A href="dpans6.htm#6.1.2450">6.1.2450</A> WORD (<A 
! href="dpans3.htm#3.3.3.6">3.3.3.6</A> Other transient regions); 
! <LI>size of one cell in address units (<A href="dpans3.htm#3.1.3">3.1.3</A> 
  Single-cell types); 
! <LI>size of one character in address units (<A href="dpans3.htm#3.1.2">3.1.2</A> 
  Character types); 
  <LI>size of the keyboard terminal input buffer (<A 
! href="dpans3.htm#3.3.3.5">3.3.3.5</A> Input buffers); 
  <LI>size of the pictured numeric output string buffer (<A 
! href="dpans3.htm#3.3.3.6">3.3.3.6</A> Other transient regions); 
  <LI>size of the scratch area whose address is returned by <A 
! href="dpans6.htm#6.2.2000">6.2.2000</A> PAD (<A 
! href="dpans3.htm#3.3.3.6">3.3.3.6</A> Other transient regions); 
  <LI>system case-sensitivity characteristics (<A 
! href="dpans3.htm#3.4.2">3.4.2</A> Finding definition names); 
! <LI>system prompt (<A href="dpans3.htm#3.4">3.4</A> The Forth text interpreter, 
! <A href="dpans6.htm#6.1.2050">6.1.2050</A> QUIT); 
! <LI>type of division rounding (<A href="dpans3.htm#3.2.2.1">3.2.2.1</A> Integer 
! division, <A href="dpans6.htm#6.1.0100">6.1.0100</A> */, <A 
! href="dpans6.htm#6.1.0110">6.1.0110</A> */MOD, <A 
! href="dpans6.htm#6.1.0230">6.1.0230</A> /, <A 
! href="dpans6.htm#6.1.0240">6.1.0240</A> /MOD, <A 
! href="dpans6.htm#6.1.1890">6.1.1890</A> MOD); 
! <LI>values of <A href="dpans6.htm#6.1.2250">6.1.2250</A> STATE when true; 
  <LI>values returned after arithmetic overflow (<A 
! href="dpans3.htm#3.2.2.2">3.2.2.2</A> Other integer operations); 
  <LI>whether the current definition can be found after <A 
! href="dpans6.htm#6.1.1250">6.1.1250</A> DOES&gt; (<A 
! href="dpans6.htm#6.1.0450">6.1.0450</A> :). </LI></UL>
  
  <A name=7.4.1.1>
--- 302,367 ----
  </blockquote>
  <UL>
! <LI>format of the control-flow stack (<A href="dpans/dpans3.htm#3.2.3.2">3.2.3.2</A> 
  Control-flow stack); 
  <LI>conversion of digits larger than thirty-five (<A 
! href="dpans/dpans3.htm#3.2.1.2">3.2.1.2</A> Digit conversion); 
! <LI>display after input terminates in <A href="dpans/dpans6.htm#6.1.0695">6.1.0695</A> 
! ACCEPT and <A href="dpans/dpans6.htm#6.2.1390">6.2.1390</A> EXPECT; 
! <LI>exception abort sequence (as in <A href="dpans/dpans6.htm#6.1.0680">6.1.0680</A> 
  ABORT"); 
! <LI>input line terminator (<A href="dpans/dpans3.htm#3.2.4.1">3.2.4.1</A> User input 
  device); 
  <LI>maximum size of a counted string, in characters (<A 
! href="dpans/dpans3.htm#3.1.3.4">3.1.3.4</A> Counted strings, <A 
! href="dpans/dpans6.htm#6.1.2450">6.1.2450</A> WORD); 
! <LI>maximum size of a parsed string (<A href="dpans/dpans3.htm#3.4.1">3.4.1</A> 
  Parsing); 
  <LI>maximum size of a definition name, in characters (<A 
! href="dpans/dpans3.htm#3.3.1.2">3.3.1.2</A> Definition names); 
! <LI>maximum string length for <A href="dpans/dpans6.htm#6.1.1345">6.1.1345</A> 
  ENVIRONMENT?, in characters; 
! <LI>method of selecting <A href="dpans/dpans3.htm#3.2.4.1">3.2.4.1</A> User input 
  device; 
! <LI>method of selecting <A href="dpans/dpans3.htm#3.2.4.2">3.2.4.2</A> User output 
  device; 
! <LI>methods of dictionary compilation (<A href="dpans/dpans3.htm#3.3">3.3</A> The 
  Forth dictionary); 
! <LI>number of bits in one address unit (<A href="dpans/dpans3.htm#3.1.3.3">3.1.3.3</A> 
  Addresses); 
  <LI>number representation and arithmetic (<A 
! href="dpans/dpans3.htm#3.2.1.1">3.2.1.1</A> Internal number representation); 
! <LI>ranges for n, +n, u, d, +d, and ud (<A href="dpans/dpans3.htm#3.1.3">3.1.3</A> 
! Single-cell types, <A href="dpans/dpans3.htm#3.1.4">3.1.4</A> Cell-pair types); 
! <LI>read-only data-space regions (<A href="dpans/dpans3.htm#3.3.3">3.3.3</A> Data 
  space); 
! <LI>size of buffer at <A href="dpans/dpans6.htm#6.1.2450">6.1.2450</A> WORD (<A 
! href="dpans/dpans3.htm#3.3.3.6">3.3.3.6</A> Other transient regions); 
! <LI>size of one cell in address units (<A href="dpans/dpans3.htm#3.1.3">3.1.3</A> 
  Single-cell types); 
! <LI>size of one character in address units (<A href="dpans/dpans3.htm#3.1.2">3.1.2</A> 
  Character types); 
  <LI>size of the keyboard terminal input buffer (<A 
! href="dpans/dpans3.htm#3.3.3.5">3.3.3.5</A> Input buffers); 
  <LI>size of the pictured numeric output string buffer (<A 
! href="dpans/dpans3.htm#3.3.3.6">3.3.3.6</A> Other transient regions); 
  <LI>size of the scratch area whose address is returned by <A 
! href="dpans/dpans6.htm#6.2.2000">6.2.2000</A> PAD (<A 
! href="dpans/dpans3.htm#3.3.3.6">3.3.3.6</A> Other transient regions); 
  <LI>system case-sensitivity characteristics (<A 
! href="dpans/dpans3.htm#3.4.2">3.4.2</A> Finding definition names); 
! <LI>system prompt (<A href="dpans/dpans3.htm#3.4">3.4</A> The Forth text interpreter, 
! <A href="dpans/dpans6.htm#6.1.2050">6.1.2050</A> QUIT); 
! <LI>type of division rounding (<A href="dpans/dpans3.htm#3.2.2.1">3.2.2.1</A> Integer 
! division, <A href="dpans/dpans6.htm#6.1.0100">6.1.0100</A> */, <A 
! href="dpans/dpans6.htm#6.1.0110">6.1.0110</A> */MOD, <A 
! href="dpans/dpans6.htm#6.1.0230">6.1.0230</A> /, <A 
! href="dpans/dpans6.htm#6.1.0240">6.1.0240</A> /MOD, <A 
! href="dpans/dpans6.htm#6.1.1890">6.1.1890</A> MOD); 
! <LI>values of <A href="dpans/dpans6.htm#6.1.2250">6.1.2250</A> STATE when true; 
  <LI>values returned after arithmetic overflow (<A 
! href="dpans/dpans3.htm#3.2.2.2">3.2.2.2</A> Other integer operations); 
  <LI>whether the current definition can be found after <A 
! href="dpans/dpans6.htm#6.1.1250">6.1.1250</A> DOES&gt; (<A 
! href="dpans/dpans6.htm#6.1.0450">6.1.0450</A> :). </LI></UL>
  
  <A name=7.4.1.1>
***************
*** 369,375 ****
  <UL>
  <LI>the format used for display by <A 
! href="dpans7.htm#7.6.2.1770">7.6.2.1770</A> LIST (if implemented); 
  <LI>the length of a line affected by <A 
! href="dpans7.htm#7.6.2.2535">7.6.2.2535</A> \ (if implemented). </LI></UL>
  <A name=7.4.1.2>
  <H4>7.4.1.2 Ambiguous conditions</H4></A>
--- 369,375 ----
  <UL>
  <LI>the format used for display by <A 
! href="dpans/dpans7.htm#7.6.2.1770">7.6.2.1770</A> LIST (if implemented); 
  <LI>the length of a line affected by <A 
! href="dpans/dpans7.htm#7.6.2.2535">7.6.2.2535</A> \ (if implemented). </LI></UL>
  <A name=7.4.1.2>
  <H4>7.4.1.2 Ambiguous conditions</H4></A>
***************
*** 377,386 ****
  <LI>Correct block read was not possible; 
  <LI>I/O exception in block transfer; 
! <LI>Invalid block number (<A href="dpans7.htm#7.6.1.0800">7.6.1.0800</A> BLOCK, 
! <A href="dpans7.htm#7.6.1.0820">7.6.1.0820</A> BUFFER, <A 
! href="dpans7.htm#7.6.1.1790">7.6.1.1790</A> LOAD); 
  <LI>A program directly alters the contents of <A 
! href="dpans7.htm#7.6.1.0790">7.6.1.0790</A> BLK; 
! <LI>No current block buffer for <A href="dpans7.htm#7.6.1.2400">7.6.1.2400</A> 
  UPDATE. </LI></UL>
  <A name=7.4.1.3>
--- 377,386 ----
  <LI>Correct block read was not possible; 
  <LI>I/O exception in block transfer; 
! <LI>Invalid block number (<A href="dpans/dpans7.htm#7.6.1.0800">7.6.1.0800</A> BLOCK, 
! <A href="dpans/dpans7.htm#7.6.1.0820">7.6.1.0820</A> BUFFER, <A 
! href="dpans/dpans7.htm#7.6.1.1790">7.6.1.1790</A> LOAD); 
  <LI>A program directly alters the contents of <A 
! href="dpans/dpans7.htm#7.6.1.0790">7.6.1.0790</A> BLK; 
! <LI>No current block buffer for <A href="dpans/dpans7.htm#7.6.1.2400">7.6.1.2400</A> 
  UPDATE. </LI></UL>
  <A name=7.4.1.3>
***************
*** 393,439 ****
  <A name=9.4.1.1><h4>9.4.1.1 Implementation-defined options</h4></A>
  <UL>
! <LI>Values used in the system by <A href="dpans9.htm#9.6.1.0875">9.6.1.0875</A> 
! CATCH and <A href="dpans9.htm#9.6.1.2275">9.6.1.2275</A> THROW (<A 
! href="dpans9.htm#9.3.1">9.3.1</A> THROW values, <A 
! href="dpans9.htm#9.3.5">9.3.5</A> Possible actions on an ambiguous condition). 
  </LI></UL>
  <A name=10.4.1.1><h4>10.4.1.1 Implementation-defined options</h4></A>
  <UL>
  <LI>encoding of keyboard events (<A 
! href="dpans10.htm#10.6.2.1305">10.6.2.1305</A> EKEY); 
  <LI>duration of a system clock tick; 
  <LI>repeatability to be expected from execution of <A 
! href="dpans10.htm#10.6.2.1905">10.6.2.1905</A> MS. </LI></UL>
  
  <A name=11.4.1.1><H4>11.4.1.1 Implementation-defined options</H4></A>
  <UL>
  <LI>file access methods used by <A 
! href="dpans11.htm#11.6.1.0765">11.6.1.0765</A> BIN, <A 
! href="dpans11.htm#11.6.1.1010">11.6.1.1010</A> CREATE-FILE, <A 
! href="dpans11.htm#11.6.1.1970">11.6.1.1970</A> OPEN-FILE, <A 
! href="dpans11.htm#11.6.1.2054">11.6.1.2054</A> R/O, <A 
! href="dpans11.htm#11.6.1.2056">11.6.1.2056</A> R/W, and <A 
! href="dpans11.htm#11.6.1.2425">11.6.1.2425</A> W/O; 
  <LI>file exceptions; 
! <LI>file line terminator (<A href="dpans11.htm#11.6.1.2090">11.6.1.2090</A> 
  READ-LINE); 
! <LI>file name format (<A href="dpans11.htm#11.3.1.4">11.3.1.4</A> File names); 
! <LI>Information returned by <A href="dpans11.htm#11.6.2.1524">11.6.2.1524</A> 
  FILE-STATUS; 
  <LI>Input file state after an exception (<A 
! href="dpans11.htm#11.6.1.1717">11.6.1.1717</A> INCLUDE-FILE, <A 
! href="dpans11.htm#11.6.1.1718">11.6.1.1718</A> INCLUDED); 
! <LI>ior values and meaning (<A href="dpans11.htm#11.3.1.2">11.3.1.2</A> I/O 
  results); 
! <LI>maximum depth of file input nesting (<A href="dpans11.htm#11.3.4">11.3.4</A> 
  Input source); 
! <LI>maximum size of input line (<A href="dpans11.htm#11.3.6">11.3.6</A> 
  Parsing); 
  <LI>methods for mapping block ranges to files (<A 
! href="dpans11.htm#11.3.2">11.3.2</A> Blocks in files); 
  <LI>number of string buffers provided (<A 
! href="dpans11.htm#11.6.1.2165">11.6.1.2165</A> S"); 
  <LI>size of string buffer used by <A 
! href="dpans11.htm#11.6.1.2165">11.6.1.2165</A> S". </LI></UL>
  
  
--- 393,439 ----
  <A name=9.4.1.1><h4>9.4.1.1 Implementation-defined options</h4></A>
  <UL>
! <LI>Values used in the system by <A href="dpans/dpans9.htm#9.6.1.0875">9.6.1.0875</A> 
! CATCH and <A href="dpans/dpans9.htm#9.6.1.2275">9.6.1.2275</A> THROW (<A 
! href="dpans/dpans9.htm#9.3.1">9.3.1</A> THROW values, <A 
! href="dpans/dpans9.htm#9.3.5">9.3.5</A> Possible actions on an ambiguous condition). 
  </LI></UL>
  <A name=10.4.1.1><h4>10.4.1.1 Implementation-defined options</h4></A>
  <UL>
  <LI>encoding of keyboard events (<A 
! href="dpans/dpans10.htm#10.6.2.1305">10.6.2.1305</A> EKEY); 
  <LI>duration of a system clock tick; 
  <LI>repeatability to be expected from execution of <A 
! href="dpans/dpans10.htm#10.6.2.1905">10.6.2.1905</A> MS. </LI></UL>
  
  <A name=11.4.1.1><H4>11.4.1.1 Implementation-defined options</H4></A>
  <UL>
  <LI>file access methods used by <A 
! href="dpans/dpans11.htm#11.6.1.0765">11.6.1.0765</A> BIN, <A 
! href="dpans/dpans11.htm#11.6.1.1010">11.6.1.1010</A> CREATE-FILE, <A 
! href="dpans/dpans11.htm#11.6.1.1970">11.6.1.1970</A> OPEN-FILE, <A 
! href="dpans/dpans11.htm#11.6.1.2054">11.6.1.2054</A> R/O, <A 
! href="dpans/dpans11.htm#11.6.1.2056">11.6.1.2056</A> R/W, and <A 
! href="dpans/dpans11.htm#11.6.1.2425">11.6.1.2425</A> W/O; 
  <LI>file exceptions; 
! <LI>file line terminator (<A href="dpans/dpans11.htm#11.6.1.2090">11.6.1.2090</A> 
  READ-LINE); 
! <LI>file name format (<A href="dpans/dpans11.htm#11.3.1.4">11.3.1.4</A> File names); 
! <LI>Information returned by <A href="dpans/dpans11.htm#11.6.2.1524">11.6.2.1524</A> 
  FILE-STATUS; 
  <LI>Input file state after an exception (<A 
! href="dpans/dpans11.htm#11.6.1.1717">11.6.1.1717</A> INCLUDE-FILE, <A 
! href="dpans/dpans11.htm#11.6.1.1718">11.6.1.1718</A> INCLUDED); 
! <LI>ior values and meaning (<A href="dpans/dpans11.htm#11.3.1.2">11.3.1.2</A> I/O 
  results); 
! <LI>maximum depth of file input nesting (<A href="dpans/dpans11.htm#11.3.4">11.3.4</A> 
  Input source); 
! <LI>maximum size of input line (<A href="dpans/dpans11.htm#11.3.6">11.3.6</A> 
  Parsing); 
  <LI>methods for mapping block ranges to files (<A 
! href="dpans/dpans11.htm#11.3.2">11.3.2</A> Blocks in files); 
  <LI>number of string buffers provided (<A 
! href="dpans/dpans11.htm#11.6.1.2165">11.6.1.2165</A> S"); 
  <LI>size of string buffer used by <A 
! href="dpans/dpans11.htm#11.6.1.2165">11.6.1.2165</A> S". </LI></UL>
  
  
***************
*** 441,486 ****
  <UL>
  <LI>format and range of floating-point numbers (<A 
! href="dpans12.htm#12.3.1">12.3.1</A> Data types, <A 
! href="dpans12.htm#12.6.1.2143">12.6.1.2143</A> REPRESENT); 
! <LI>results of <A href="dpans12.htm#12.6.1.2143">12.6.1.2143</A> REPRESENT when 
  float is out of range; 
  <LI>rounding or truncation of floating-point numbers (<A 
! href="dpans12.htm#12.3.1.2">12.3.1.2</A> Floating-point numbers); 
! <LI>size of floating-point stack (<A href="dpans12.htm#12.3.3">12.3.3</A> 
  Floating-point stack); 
! <LI>width of floating-point stack (<A href="dpans12.htm#12.3.3">12.3.3</A> 
  Floating-point stack). </LI></UL>
  <A name=13.4.1.1><H4>13.4.1.1 Implementation-defined options</H4></A>
  <UL>
  <LI>maximum number of locals in a definition (<A 
! href="dpans13.htm#13.3.3">13.3.3</A> Processing locals, <A 
! href="dpans13.htm#13.6.2.1795">13.6.2.1795</A> LOCALS|). </LI></UL>
  <A name=14.4.1.1><H4>14.4.1.1 Implementation-defined options</H4></A>
  <UL>
! <LI>values and meaning of ior (<A href="dpans14.htm#14.3.1">14.3.1</A> I/O 
! Results data type, <A href="dpans14.htm#14.6.1.0707">14.6.1.0707</A> ALLOCATE, 
! <A href="dpans14.htm#14.6.1.1605">14.6.1.1605</A> FREE, <A 
! href="dpans14.htm#14.6.1.2145">14.6.1.2145</A> RESIZE). </LI></UL>
  <A name=15.4.1.1><H4>15.4.1.1 Implementation-defined options</H4></A>
  <UL>
  <LI>ending sequence for input following <A 
! href="dpans15.htm#15.6.2.0470">15.6.2.0470</A> ;CODE and <A 
! href="dpans15.htm#15.6.2.0930">15.6.2.0930</A> CODE; 
  <LI>manner of processing input following <A 
! href="dpans15.htm#15.6.2.0470">15.6.2.0470</A> ;CODE and <A 
! href="dpans15.htm#15.6.2.0930">15.6.2.0930</A> CODE; 
  <LI>search-order capability for <A 
! href="dpans15.htm#15.6.2.1300">15.6.2.1300</A> EDITOR and <A 
! href="dpans15.htm#15.6.2.0740">15.6.2.0740</A> ASSEMBLER (<A 
! href="dpans15.htm#15.3.2">15.3.2</A> The Forth dictionary); 
  <LI>source and format of display by <A 
! href="dpans15.htm#15.6.1.2194">15.6.1.2194</A> SEE. </LI></UL>
  <A name=16.4.1.1><H4>16.4.1.1 Implementation-defined options</H4></A>
  <UL>
  <LI>maximum number of word lists in the search order (<A 
! href="dpans16.htm#16.3.3">16.3.3</A> Finding definition names, <A 
! href="dpans16.htm#16.6.1.2197">16.6.1.2197</A> SET-ORDER); 
! <LI>minimum search order (<A href="dpans16.htm#16.6.1.2197">16.6.1.2197</A> 
! SET-ORDER, <A href="dpans16.htm#16.6.2.1965">16.6.2.1965</A> ONLY). </LI></UL>
  
  
--- 441,486 ----
  <UL>
  <LI>format and range of floating-point numbers (<A 
! href="dpans/dpans12.htm#12.3.1">12.3.1</A> Data types, <A 
! href="dpans/dpans12.htm#12.6.1.2143">12.6.1.2143</A> REPRESENT); 
! <LI>results of <A href="dpans/dpans12.htm#12.6.1.2143">12.6.1.2143</A> REPRESENT when 
  float is out of range; 
  <LI>rounding or truncation of floating-point numbers (<A 
! href="dpans/dpans12.htm#12.3.1.2">12.3.1.2</A> Floating-point numbers); 
! <LI>size of floating-point stack (<A href="dpans/dpans12.htm#12.3.3">12.3.3</A> 
  Floating-point stack); 
! <LI>width of floating-point stack (<A href="dpans/dpans12.htm#12.3.3">12.3.3</A> 
  Floating-point stack). </LI></UL>
  <A name=13.4.1.1><H4>13.4.1.1 Implementation-defined options</H4></A>
  <UL>
  <LI>maximum number of locals in a definition (<A 
! href="dpans/dpans13.htm#13.3.3">13.3.3</A> Processing locals, <A 
! href="dpans/dpans13.htm#13.6.2.1795">13.6.2.1795</A> LOCALS|). </LI></UL>
  <A name=14.4.1.1><H4>14.4.1.1 Implementation-defined options</H4></A>
  <UL>
! <LI>values and meaning of ior (<A href="dpans/dpans14.htm#14.3.1">14.3.1</A> I/O 
! Results data type, <A href="dpans/dpans14.htm#14.6.1.0707">14.6.1.0707</A> ALLOCATE, 
! <A href="dpans/dpans14.htm#14.6.1.1605">14.6.1.1605</A> FREE, <A 
! href="dpans/dpans14.htm#14.6.1.2145">14.6.1.2145</A> RESIZE). </LI></UL>
  <A name=15.4.1.1><H4>15.4.1.1 Implementation-defined options</H4></A>
  <UL>
  <LI>ending sequence for input following <A 
! href="dpans/dpans15.htm#15.6.2.0470">15.6.2.0470</A> ;CODE and <A 
! href="dpans/dpans15.htm#15.6.2.0930">15.6.2.0930</A> CODE; 
  <LI>manner of processing input following <A 
! href="dpans/dpans15.htm#15.6.2.0470">15.6.2.0470</A> ;CODE and <A 
! href="dpans/dpans15.htm#15.6.2.0930">15.6.2.0930</A> CODE; 
  <LI>search-order capability for <A 
! href="dpans/dpans15.htm#15.6.2.1300">15.6.2.1300</A> EDITOR and <A 
! href="dpans/dpans15.htm#15.6.2.0740">15.6.2.0740</A> ASSEMBLER (<A 
! href="dpans/dpans15.htm#15.3.2">15.3.2</A> The Forth dictionary); 
  <LI>source and format of display by <A 
! href="dpans/dpans15.htm#15.6.1.2194">15.6.1.2194</A> SEE. </LI></UL>
  <A name=16.4.1.1><H4>16.4.1.1 Implementation-defined options</H4></A>
  <UL>
  <LI>maximum number of word lists in the search order (<A 
! href="dpans/dpans16.htm#16.3.3">16.3.3</A> Finding definition names, <A 
! href="dpans/dpans16.htm#16.6.1.2197">16.6.1.2197</A> SET-ORDER); 
! <LI>minimum search order (<A href="dpans/dpans16.htm#16.6.1.2197">16.6.1.2197</A> 
! SET-ORDER, <A href="dpans/dpans16.htm#16.6.2.1965">16.6.2.1965</A> ONLY). </LI></UL>
  
  
***************
*** 969,971 ****
  </body>
  
! </html>
\ No newline at end of file
--- 969,971 ----
  </body>
  
! </html>

[Win32forth-cvs] win32forth/apps/Player4 Catalog.f,1.8,1.9 PLAYER4.F,1.15,1.16

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32314/win32forth/apps/Player4

Modified Files:
	Catalog.f PLAYER4.F 
Log Message:
Jos: Added more sorts and changed the way random records gets sorted. I got bored by random only, since it also plays the records that were already played.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** PLAYER4.F	12 Jun 2005 08:37:34 -0000	1.15
--- PLAYER4.F	26 Jun 2005 15:49:31 -0000	1.16
***************
*** 20,25 ****
  decimal
  
!  true  value turnkey?
! \ false value turnkey?
  true  value MciDebug?
  
--- 20,25 ----
  decimal
  
! \ true  value turnkey?
!  false value turnkey?
  true  value MciDebug?
  
***************
*** 35,38 ****
--- 35,41 ----
  defer ShowDeleted       ' noop is ShowDeleted
  defer SetRandomLevel    ' noop is SetRandomLevel
+ defer SortRandom        ' noop is SortRandom
+ defer SortLeastPlayed   ' noop is SortLeastPlayed
+ defer SortSize          ' noop is SortSize
  
  needs Pl_Toolset.f
***************
*** 79,86 ****
          MENUITEM     "&Start/Resume playing\tCtrl+R"      'R' +k_control pushkey ;
  
          SUBMENU      "S&ort"
!            MENUITEM  "Se&t maximum random level"     SetRandomLevel   ;
!            MENUITEM  "&Randomsize catalog"           RandomizeCatalog ;
!            MENUITEM  "S&ort by filename"             SortCatalog      ;
          ENDSUBMENU
  
--- 82,94 ----
          MENUITEM     "&Start/Resume playing\tCtrl+R"      'R' +k_control pushkey ;
  
+        
          SUBMENU      "S&ort"
!            MENUITEM  "Se&t maximum random level"        SetRandomLevel   ;
!            MENUITEM  "&Generate random numbers"         RandomizeCatalog ;
!         MENUSEPARATOR
!            MENUITEM  "S&ort by random number"           SortRandom      ;
!            MENUITEM  "S&ort by least played"            SortLeastPlayed ;
!            MENUITEM  "S&ort by size"                    SortSize        ;
!            MENUITEM  "S&ort by filename"                SortCatalog     ;
          ENDSUBMENU
  
***************
*** 311,317 ****
          then ; is RandomizeCatalog
  
  :noname ( -- ) \ sort catalog by file names
          catalog-exist?
!         if   sort_by_filename RefreshCatalog
          then ; is SortCatalog
  
--- 319,342 ----
          then ; is RandomizeCatalog
  
+ 
+ 
+ :noname ( -- ) \ search the catalog
+         catalog-exist?
+         if   sort_by_RandomLevel RefreshCatalog
+         then ; is SortRandom
+ 
+ :noname ( -- ) \ search the catalog
+         catalog-exist?
+         if   sort_by_leastPlayed RefreshCatalog
+         then ; is SortLeastPlayed
+ 
+ :noname ( -- ) \ search the catalog
+         catalog-exist?
+         if   sort_by_size        RefreshCatalog
+         then ; is SortSize
+ 
  :noname ( -- ) \ sort catalog by file names
          catalog-exist?
!         if   sort_by_filename    RefreshCatalog
          then ; is SortCatalog
  
***************
*** 321,328 ****
          then ; is SearchCatalog
  
! :noname ( -- ) \ search the catalog
!         catalog-exist?
!           if   player-base ask-max-random-level
!           then ; is SetRandomLevel
  
  :noname ( -- )
--- 346,353 ----
          then ; is SearchCatalog
  
! \ :noname ( -- ) \ search the catalog
! \        catalog-exist?
! \          if   player-base ask-max-random-level
! \          then ; is SetRandomLevel
  
  :noname ( -- )
***************
*** 470,474 ****
          Start: MainWindow
          Start: ControlCenter
- 
          ['] FullScreenToggle SetDblClickFunc: MouseHandlerWindow
          ;
--- 495,498 ----
***************
*** 510,519 ****
          false to MciDebug?
          ' player4 turnkey Player4.exe
!         s" apps\Player4\Player4.ico" s" Player4.exe" AddAppIcon
          1 pause-seconds
  [else]
          true to MciDebug?
!         s" apps\Player4\Player4.ico" s" Player4.exe" AddAppIcon
          PLAYER4
  [then]
! 

[Win32forth-cvs] win32forth/src FLOAT.F,1.9,1.10

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9053/win32forth/src

Modified Files:
	FLOAT.F 
Log Message:
gah: modified rep-zero to correctly give exponent of 1 to correct bug in represent; FE. also gives better results as well

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** FLOAT.F	7 Jun 2005 15:59:27 -0000	1.9
--- FLOAT.F	25 Jun 2005 16:29:02 -0000	1.10
***************
*** 26,29 ****
--- 26,30 ----
  \ gah Thursday, May 19 2005 optimized fdrop and f2drop for better decoding
  \ gah Thursday, May 26 2005 added macro 2>FPU
+ \ gah Saturday, June 25 2005 modified rep-zero to correct bug in represent
  \ -------------------------------------------------------------------------
  
***************
*** 1592,1597 ****
  \ February 6th, 1996 - 18:05 tjz added 'FDROP' to the following def to
  \ correct for a floating point zero left on the stack during E. and F.S
! : rep-zero      ( addr u -- 0 true )  ( f: r -- )
!                 ascii 0 fill 0 true fdrop ;
  
  : rep-spec      ( addr u cstr -- n false )  ( f: r -- )
--- 1593,1598 ----
  \ February 6th, 1996 - 18:05 tjz added 'FDROP' to the following def to
  \ correct for a floating point zero left on the stack during E. and F.S
! : rep-zero      ( addr u -- 1 true )  ( f: r -- )
!                 ascii 0 fill 1 true fdrop ;
  
  : rep-spec      ( addr u cstr -- n false )  ( f: r -- )

[Win32forth-cvs] win32forth-610old/src/kernel fkernel.f,1.3,1.4 version.f,1.3,1.4

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth-610old/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12590/src/kernel

Modified Files:
	fkernel.f version.f 
Log Message:
Updated because of the new stable release 6.10.03

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/kernel/fkernel.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** fkernel.f	20 Jun 2005 12:25:47 -0000	1.3
--- fkernel.f	20 Jun 2005 15:28:47 -0000	1.4
***************
*** 5745,5749 ****
                  cr ." Version: "
                  version# ((version)) type
- 		."  RC2" \ remove this line when 6.10 is finished!!!
                  ."  Build: " build# .
                  base ! ;
--- 5745,5748 ----

Index: version.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/kernel/version.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** version.f	22 May 2005 09:48:12 -0000	1.3
--- version.f	20 Jun 2005 15:28:48 -0000	1.4
***************
*** 3,7 ****
  cr .( Loading META version info)
  
! 61001     VALUE #VERSION#
  
  \ Change only the version number above; the build number is automatically assigned.
--- 3,7 ----
  cr .( Loading META version info)
  
! 61003     VALUE #VERSION#
  
  \ Change only the version number above; the build number is automatically assigned.

[Win32forth-cvs] win32forth-610old fkernel.exe,1.3,1.4 setup.exe,1.3,1.4

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth-610old
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12590

Modified Files:
	fkernel.exe setup.exe 
Log Message:
Updated because of the new stable release 6.10.03

Index: setup.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/setup.exe,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
Binary files /tmp/cvsNPtwjX and /tmp/cvsHwHc6n differ

Index: fkernel.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/fkernel.exe,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
Binary files /tmp/cvsGqDrbd and /tmp/cvsEQYr8D differ

[Win32forth-cvs] win32for4web index.htm,1.6,1.7

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32for4web
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12228

Modified Files:
	index.htm 
Log Message:
Updated because of the new stable release 6.10.03

Index: index.htm
===================================================================
RCS file: /cvsroot/win32forth/win32for4web/index.htm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** index.htm	18 Jun 2005 13:00:14 -0000	1.6
--- index.htm	20 Jun 2005 15:27:58 -0000	1.7
***************
*** 72,84 ****
  
  <li>
! <a href="http://sourceforge.net/project/showfiles.php?group_id=55294&package_id=51497&release_id=191697">Our
! latest stable Win32Forth release 6.08.00.</a>
! </li>
! 
! <li>
! <a href="./downloads/w32f61001rc2.exe">Our next stable Win32Forth release 6.10.01</a>
! (the snapshot was taken from our CVS on <b>May 22nd,</b> 2005). This Version will
! replace our 6.08.00 release soon. See release <a href="./doc/p-relnotes.6.10.htm">notes</a>
! for more information.
  </li>
  
--- 72,78 ----
  
  <li>
! Our new stable Win32Forth release <a href="./downloads/w32f61003.exe">6.10.03</a>
! (This Version was released on <b>June 20th,</b> 2005). See release
! <a href="./doc/p-relnotes.6.10.htm">notes</a> for more information.
  </li>
  

[Win32forth-cvs] win32forth-610old/src paths.f,1.1,1.2

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-610old/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14222/win32forth-610old/src

Modified Files:
	paths.f 
Log Message:
gah: changed STR(NC)= to ISTR=

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/paths.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** paths.f	14 Dec 2004 23:53:58 -0000	1.1
--- paths.f	20 Jun 2005 12:25:47 -0000	1.2
***************
*** 201,205 ****
  
  : IsPathRelativeTo?     { a1 n1 a2 n2 -- f } \ return true if path a1 n1 is relative to path a2 n2
!         a1 n1 n2 MIN a2 OVER STR(NC)= ;
  
  : MakePathRelativeTo    ( a1 n1 a2 n2 -- a3 ) \ make path a1 n1 relative to path a2 n2
--- 201,205 ----
  
  : IsPathRelativeTo?     { a1 n1 a2 n2 -- f } \ return true if path a1 n1 is relative to path a2 n2
!         a1 n1 n2 MIN a2 OVER ISTR= ;
  
  : MakePathRelativeTo    ( a1 n1 a2 n2 -- a3 ) \ make path a1 n1 relative to path a2 n2

[Win32forth-cvs] win32forth-610old/demos/SciEdit ClassBrowser.f,1.2,1.3

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-610old/demos/SciEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14222/win32forth-610old/demos/SciEdit

Modified Files:
	ClassBrowser.f 
Log Message:
gah: changed STR(NC)= to ISTR=

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/demos/SciEdit/ClassBrowser.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ClassBrowser.f	12 Mar 2005 09:16:43 -0000	1.2
--- ClassBrowser.f	20 Jun 2005 12:25:47 -0000	1.3
***************
*** 200,204 ****
                  if   \ if it's defind in FKERNEL.F than we must
  		     \ add the path to the file
! 		     count 2dup KERNFILE count STR(NC)=
  		     if Prepend<home>\ then
  
--- 200,204 ----
                  if   \ if it's defind in FKERNEL.F than we must
  		     \ add the path to the file
! 		     count 2dup KERNFILE count ISTR=
  		     if Prepend<home>\ then
  

[Win32forth-cvs] win32forth-610old/src/kernel fkernel.f,1.2,1.3

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-610old/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14222/win32forth-610old/src/kernel

Modified Files:
	fkernel.f 
Log Message:
gah: changed STR(NC)= to ISTR=

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/kernel/fkernel.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** fkernel.f	18 Dec 2004 08:44:33 -0000	1.2
--- fkernel.f	20 Jun 2005 12:25:47 -0000	1.3
***************
*** 1413,1417 ****
                  next    c;
  
! CODE STR(NC)=   ( adr1 len1 adr2 len2 -- flag ) \ compares two strings, case insensitive
                  mov     -4 [ebp], esi           \ save esi
                  pop     edi                     \ edi=adr2
--- 1413,1417 ----
                  next    c;
  
! CODE ISTR=      ( adr1 len1 adr2 len2 -- flag ) \ compares two strings, case insensitive
                  mov     -4 [ebp], esi           \ save esi
                  pop     edi                     \ edi=adr2

[Win32forth-cvs] win32forth-610old/demos/MdiEdit AnsLink.f,1.1,1.2 ClassBrowser.f,1.1,1.2

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-610old/demos/MdiEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14222/win32forth-610old/demos/MdiEdit

Modified Files:
	AnsLink.f ClassBrowser.f 
Log Message:
gah: changed STR(NC)= to ISTR=

Index: AnsLink.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/demos/MdiEdit/AnsLink.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** AnsLink.f	14 Dec 2004 23:53:46 -0000	1.1
--- AnsLink.f	20 Jun 2005 12:25:46 -0000	1.2
***************
*** 394,398 ****
  		if   ANS-WORDS >r
  		     begin  2dup r@ count dup
! 		     while  STR(NC)= 0<>
  			    if 2drop r> exit then
  			    r> skip-string skip-string skip-string >r
--- 394,398 ----
  		if   ANS-WORDS >r
  		     begin  2dup r@ count dup
! 		     while  ISTR= 0<>
  			    if 2drop r> exit then
  			    r> skip-string skip-string skip-string >r

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/demos/MdiEdit/ClassBrowser.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ClassBrowser.f	14 Dec 2004 23:53:46 -0000	1.1
--- ClassBrowser.f	20 Jun 2005 12:25:46 -0000	1.2
***************
*** 200,204 ****
                  if   \ if it's defind in FKERNEL.F than we must
  		     \ add the path to the file
! 		     count 2dup KERNFILE count STR(NC)=
  		     if Prepend<home>\ then
  
--- 200,204 ----
                  if   \ if it's defind in FKERNEL.F than we must
  		     \ add the path to the file
! 		     count 2dup KERNFILE count ISTR=
  		     if Prepend<home>\ then
  

[Win32forth-cvs] win32forth-610old/src/ForthForm FORMOBJECT.F,1.1,1.2

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-610old/src/ForthForm
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14222/win32forth-610old/src/ForthForm

Modified Files:
	FORMOBJECT.F 
Log Message:
gah: changed STR(NC)= to ISTR=

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/ForthForm/FORMOBJECT.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FORMOBJECT.F	14 Dec 2004 23:53:59 -0000	1.1
--- FORMOBJECT.F	20 Jun 2005 12:25:47 -0000	1.2
***************
*** 1011,1015 ****
  
  : IsNewForm?    ( -- f )  \ has form not yet been saved?
!                 formname count s" untitled.ff" str(nc)= ;
  
  : SaveIt?       { \ temp$ -- f }
--- 1011,1015 ----
  
  : IsNewForm?    ( -- f )  \ has form not yet been saved?
!                 formname count s" untitled.ff" istr= ;
  
  : SaveIt?       { \ temp$ -- f }
***************
*** 1794,1796 ****
  
  ;Class
! \s
\ No newline at end of file
--- 1794,1796 ----
  
  ;Class
! \s

[Win32forth-cvs] win32forth/apps/ForthForm FORMOBJECT.F,1.3,1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/apps/ForthForm

Modified Files:
	FORMOBJECT.F 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** FORMOBJECT.F	2 Jun 2005 21:14:54 -0000	1.3
--- FORMOBJECT.F	20 Jun 2005 07:40:44 -0000	1.4
***************
*** 652,656 ****
                  selecting? not
                  if      2over ShowPosition
!                         rot - -rot swap - swap ShowSize
                  else    4drop
                  then    ;
--- 652,656 ----
                  selecting? not
                  if      2over ShowPosition
!                         rot - 3reverse - swap ShowSize
                  else    4drop
                  then    ;
***************
*** 1795,1796 ****
--- 1795,1797 ----
  ;Class
  \s
+ 

[Win32forth-cvs] win32forth/apps/Setup COM01.F,1.3,1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/apps/Setup

Modified Files:
	COM01.F 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: COM01.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/COM01.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
Binary files /tmp/cvsbAPqHE and /tmp/cvsmIRk5E differ

[Win32forth-cvs] win32forth/apps/SciEdit Main.f,1.6,1.7

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/apps/SciEdit

Modified Files:
	Main.f 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Main.f	12 Jun 2005 08:37:35 -0000	1.6
--- Main.f	20 Jun 2005 07:40:44 -0000	1.7
***************
*** 305,309 ****
  
  :M MessageBox:  ( szText szTitle style -- result )
! 		-rot swap hWnd Call MessageBox ;M
  
  :M WM_NOTIFY    ( h m w l -- res )
--- 305,309 ----
  
  :M MessageBox:  ( szText szTitle style -- result )
! 		3reverse hWnd Call MessageBox ;M
  
  :M WM_NOTIFY    ( h m w l -- res )

[Win32forth-cvs] win32forth/apps/WinEd Ed_FrameWindowObj.F,1.3,1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/apps/WinEd

Modified Files:
	Ed_FrameWindowObj.F 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: Ed_FrameWindowObj.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_FrameWindowObj.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Ed_FrameWindowObj.F	4 Jun 2005 08:51:18 -0000	1.3
--- Ed_FrameWindowObj.F	20 Jun 2005 07:40:44 -0000	1.4
***************
*** 195,199 ****
                self Start: [ r@ ]
                TRUE  Hide: [ r> ]
!               cell+
        REPEAT  DROP
        FALSE Hide: FilesList
--- 195,199 ----
                self Start: [ r@ ]
                TRUE  Hide: [ r> ]
!               cell+
        REPEAT  DROP
        FALSE Hide: FilesList
***************
*** 525,529 ****
  
  :M WinEdMessageBox:  ( szText szTitle style -- result )
!         MB_TASKMODAL or -rot swap
          ( hWnd ) NULL Call MessageBox
          ;M
--- 525,529 ----
  
  :M WinEdMessageBox:  ( szText szTitle style -- result )
!         MB_TASKMODAL or 3reverse
          ( hWnd ) NULL Call MessageBox
          ;M
***************
*** 627,629 ****
          ;M
  
!  
\ No newline at end of file
--- 627,629 ----
          ;M
  
!  

[Win32forth-cvs] win32forth/apps/Chess Opengl.f,1.2,1.3 TOOLSET.F,1.5,1.6

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Chess
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/apps/Chess

Modified Files:
	Opengl.f TOOLSET.F 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: Opengl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Opengl.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Opengl.f	5 May 2005 09:43:25 -0000	1.2
--- Opengl.f	20 Jun 2005 07:40:43 -0000	1.3
***************
*** 168,171 ****
--- 168,175 ----
  Use the sources of SCENE to develop OpenGL
  
+ Saturday, June 18 2005 gah
+ - modified to use 3reverse and 4reverse as suggested by Andrew Stevenson
+ - modified stack comments to use -- for consistency
+ 
  ))
  
***************
[...1390 lines suppressed...]
     s" Switch to full screen?   Note: The key functions can still be used. " qbox
--- 1423,1427 ----
  
  
! : full-screen? ( -- flag )
     s" Window mode. "
     s" Switch to full screen?   Note: The key functions can still be used. " qbox
***************
*** 1430,1434 ****
  FileOpenDialog LoadBitmap "Load bitmap: " "Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*|"
  
! : showing-bitmap(s) ( - )   ['] _load-bitmap is painting glout  ;
  
  : load-bitmap
--- 1434,1438 ----
  FileOpenDialog LoadBitmap "Load bitmap: " "Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*|"
  
! : showing-bitmap(s) ( -- )   ['] _load-bitmap is painting glout  ;
  
  : load-bitmap

Index: TOOLSET.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** TOOLSET.F	29 May 2005 23:26:32 -0000	1.5
--- TOOLSET.F	20 Jun 2005 07:40:43 -0000	1.6
***************
*** 295,299 ****
  
  : least-used ( from n-cells 'cell-array - least )
!    here! over dup here@ execute  swap pad ! -rot swap 2dup - 1 >
          if  do
                  i here@ execute 2dup <=
--- 295,299 ----
  
  : least-used ( from n-cells 'cell-array - least )
!    here! over dup here@ execute  swap pad ! 3reverse 2dup - 1 >
          if  do
                  i here@ execute 2dup <=
***************
*** 1522,1524 ****
  \s
  
! 

[Win32forth-cvs] win32forth/src/lib MDI.F,1.3,1.4 RESOURCES.F,1.3,1.4 switch.f,1.1,1.2

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/src/lib

Modified Files:
	MDI.F RESOURCES.F switch.f 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: switch.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/switch.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** switch.f	21 Dec 2004 00:19:10 -0000	1.1
--- switch.f	20 Jun 2005 07:40:48 -0000	1.2
***************
*** 127,131 ****
  : RUNS ( head n -<word>- -- )
    run-error
!   ' SWAP rot dup link, -rot , , ;
  
  \ Add a condition that runs the code up to ;
--- 127,131 ----
  : RUNS ( head n -<word>- -- )
    run-error
!   ' 3reverse dup link, -rot , , ;
  
  \ Add a condition that runs the code up to ;
***************
*** 226,227 ****
--- 226,228 ----
  in-application
  
+ 

[Win32forth-cvs] win32forth/src CONTROL.F,1.3,1.4 Dc.f,1.3,1.4 GENERIC.F,1.1,1.2 Menu.f,1.1,1.2 Primutil.f,1.6,1.7 Utils.f,1.7,1.8

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/src

Modified Files:
	CONTROL.F Dc.f GENERIC.F Menu.f Primutil.f Utils.f 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Dc.f	3 May 2005 08:47:34 -0000	1.3
--- Dc.f	20 Jun 2005 07:40:46 -0000	1.4
***************
*** 135,148 ****
  
  :M TextOut:     ( x y addr len -- )
!         swap 2swap swap hDC Call TextOut ?win-error
          ;M
  
  :M DrawText:    ( addr len rect format -- )
!         swap 2swap swap hDC Call DrawText drop
          ;M
  
  :M TabbedTextOut: ( x y addr len -- text_dimensions )
          2>r 2>r 0 tabbuf tabcnt 2r> 2r>
!         swap 2swap swap hDC Call TabbedTextOut
          ;M
  
--- 135,148 ----
  
  :M TextOut:     ( x y addr len -- )
!         4reverse hDC Call TextOut ?win-error
          ;M
  
  :M DrawText:    ( addr len rect format -- )
!         4reverse hDC Call DrawText drop
          ;M
  
  :M TabbedTextOut: ( x y addr len -- text_dimensions )
          2>r 2>r 0 tabbuf tabcnt 2r> 2r>
!         4reverse hDC Call TabbedTextOut
          ;M
  
***************
*** 162,166 ****
  
  :M MoveTo:      ( x y -- )
!         0 -rot swap
          hDC Call MoveToEx ?win-error
          ;M
--- 162,166 ----
  
  :M MoveTo:      ( x y -- )
!         0 3reverse
          hDC Call MoveToEx ?win-error
          ;M

Index: GENERIC.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/GENERIC.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** GENERIC.F	21 Dec 2004 00:19:08 -0000	1.1
--- GENERIC.F	20 Jun 2005 07:40:46 -0000	1.2
***************
*** 223,227 ****
  :M GetText:     ( -- addr len )
                  gettext$ hWnd
!                 -if      over MAXCOUNTED swap rot Call GetWindowText
                  then
                  ;M
--- 223,227 ----
  :M GetText:     ( -- addr len )
                  gettext$ hWnd
!                 -if      over MAXCOUNTED 3reverse Call GetWindowText
                  then
                  ;M
***************
*** 256,260 ****
  
  :M MessageBox:  ( szText szTitle style -- result )
!                 MB_TASKMODAL or -rot swap
                  ( hWnd ) NULL Call MessageBox
                  ;M
--- 256,260 ----
  
  :M MessageBox:  ( szText szTitle style -- result )
!                 MB_TASKMODAL or 3reverse
                  ( hWnd ) NULL Call MessageBox
                  ;M
***************
*** 411,412 ****
--- 411,413 ----
  ;CLASS
  
+ 

[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.15,1.16

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/src/kernel

Modified Files:
	fkernel.f 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** fkernel.f	6 Jun 2005 09:44:39 -0000	1.15
--- fkernel.f	20 Jun 2005 07:40:47 -0000	1.16
***************
*** 444,448 ****
--- 444,464 ----
                  next    c;
  
+ CODE 3REVERSE   ( n1 n2 n3 -- n3 n2 n1 ) \ exchange first and third items on data stack
+                 mov     ecx, 4 [esp]
+                 mov     4 [esp], ebx
+                 mov     ebx, ecx
+                 next    c;
  
+ CODE 4REVERSE   ( n1 n2 n3 n4 -- n4 n3 n2 n1 ) \ exchange first and fourth plus second and
+                                                \ third items on the data stack
+                 mov     ecx, 8 [esp]
+                 mov     8 [esp], ebx
+                 mov     ebx, ecx
+                 mov     eax, 0 [esp]
+                 mov     ecx, 4 [esp]
+                 mov     4 [esp], eax
+                 mov     0 [esp], ecx
+                 next    c;
+                                        
  \ -------------------- Stack Operations -------------------------------------
  

[Win32forth-cvs] win32forth/src/console ConsoleStatbar.f,1.3,1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/src/console

Modified Files:
	ConsoleStatbar.f 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: ConsoleStatbar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleStatbar.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ConsoleStatbar.f	17 May 2005 22:25:25 -0000	1.3
--- ConsoleStatbar.f	20 Jun 2005 07:40:47 -0000	1.4
***************
*** 148,155 ****
  
                  \ call org console window proc
!                 swap  ( hwnd msg lparam wparam )
!                 2swap ( lparam wparam hwnd msg )
!                 swap  ( lparam wparam msg hwnd )
!                 &Console-Window-Proc Call CallWindowProc
  
                  \ redraw our status bar
--- 148,152 ----
  
                  \ call org console window proc
!                 4reverse &Console-Window-Proc Call CallWindowProc
  
                  \ redraw our status bar
***************
*** 197,198 ****
--- 194,196 ----
  MODULE
  
+ 

[Win32forth-cvs] win32forth fkernel.exe,1.15,1.16

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth

Modified Files:
	fkernel.exe 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: fkernel.exe
===================================================================
RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
Binary files /tmp/cvsX4qAJs and /tmp/cvsVkKK70 differ

[Win32forth-cvs] win32for4web index.htm,1.5,1.6

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32for4web
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9651/win32for4web

Modified Files:
	index.htm 
Log Message:
gah: minor changes to docs

Index: index.htm
===================================================================
RCS file: /cvsroot/win32forth/win32for4web/index.htm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** index.htm	13 Jun 2005 15:41:59 -0000	1.5
--- index.htm	18 Jun 2005 13:00:14 -0000	1.6
***************
*** 28,32 ****
  <a href="./doc/p-index.htm">Win32Forth</a> is a public domain, ANS compatible,
  Forth language application development system. It was initially written by
! Andrew McKewan, Tom Zimmer, Robert Smith and Jim Schneider during 1994 and 1995.
  Win32Forth is a FAT (as in BIG) system, adhering to the philosophy that if some
  tools are good, many tools must be better. It includes an interactive console
--- 28,34 ----
  <a href="./doc/p-index.htm">Win32Forth</a> is a public domain, ANS compatible,
  Forth language application development system. It was initially written by
! Andrew McKewan, Tom Zimmer, Robert Smith and Jim Schneider during 1994 and 1995,
! and released into the public domain (with the exception of Jim Schneider's assembler
! which was under the GPL).
  Win32Forth is a FAT (as in BIG) system, adhering to the philosophy that if some
  tools are good, many tools must be better. It includes an interactive console
***************
*** 46,51 ****
  affiliation of programmers and users of <a href="http://www.radiks.net/~jimbo/art/int6.htm">Tom Zimmer's</a>
  Win32Forth system. Tom interests took him elsewhere in 2001 and 2002 (mainly Java),
! and he no longer took an active interest in his system. Tom gifted his product
! into the public domain; this group intends furthering the work of maintaining and
  developing a Forth product suitable for Windows and the 21st century based on his
  work.
--- 48,53 ----
  affiliation of programmers and users of <a href="http://www.radiks.net/~jimbo/art/int6.htm">Tom Zimmer's</a>
  Win32Forth system. Tom interests took him elsewhere in 2001 and 2002 (mainly Java),
! and he no longer took an active interest in his system. Tom re-affirmed that his product
! was in the public domain; this group intends furthering the work of maintaining and
  developing a Forth product suitable for Windows and the 21st century based on his
  work.

[Win32forth-cvs] win32for4web/downloads STRUCT.F,1.1,1.2

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32for4web/downloads
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7769/win32for4web/downloads

Modified Files:
	STRUCT.F 
Log Message:
gah: modified vocabulary name to structs to match later versions of struct.f

Index: STRUCT.F
===================================================================
RCS file: /cvsroot/win32forth/win32for4web/downloads/STRUCT.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** STRUCT.F	12 Jun 2005 08:14:46 -0000	1.1
--- STRUCT.F	18 Jun 2005 12:56:06 -0000	1.2
***************
*** 30,36 ****
  0 value  _struct
  
! vocabulary allocation \ avoids conflicts. e.g. word
  
! also allocation definitions
  
  code n+adr@ ( n adr - adr@+n )  \ was incorrect @+
--- 30,36 ----
  0 value  _struct
  
! vocabulary structs \ avoids conflicts. e.g. word
  
! also structs definitions
  
  code n+adr@ ( n adr - adr@+n )  \ was incorrect @+
***************
*** 132,136 ****
  
  : struct{      ( - )
!    \in-system-ok also allocation
     0 to _struct ;
  
--- 132,136 ----
  
  : struct{      ( - )
!    \in-system-ok also structs
     0 to _struct ;
  
***************
*** 215,216 ****
--- 215,217 ----
  \s
  
+ 

[Win32forth-cvs] win32forth/src CONTROLS.F,1.2,1.3

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26432/win32forth/src

Modified Files:
	CONTROLS.F 
Log Message:
gah: factored common code for executing function vectors

Index: CONTROLS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CONTROLS.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** CONTROLS.F	23 Feb 2005 15:10:58 -0000	1.2
--- CONTROLS.F	18 Jun 2005 12:27:25 -0000	1.3
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+ 
  \ CONTROLS.F            Additional controls     by Freidrick Prinz
  
***************
*** 75,86 ****
                  ;M
  
! :M WM_CHAR      ( h m w l -- res )              \ normal & control chars
!                 pWmChar
!                 IF      self pWmChar execute
                          -IF      DROP
                                  old-wndproc CallWindowProc
                          THEN
!                 ELSE    old-wndproc CallWindowProc
!                 THEN
                  ;M
  
--- 77,90 ----
                  ;M
  
! : ?pexecute          ( hwnd msg wparm lparm pfunction -- result )
!                 -IF      self swap execute
                          -IF      DROP
                                  old-wndproc CallWindowProc
                          THEN
!                 ELSE    drop old-wndproc CallWindowProc
!                 THEN ;
! 
! :M WM_CHAR      ( h m w l -- res )              \ normal & control chars
!                 pWmChar ?pexecute
                  ;M
  
***************
*** 98,118 ****
  
  :M WM_KEYDOWN   ( h m w l -- res )      \ normal & control chars
!                 pWmKeyDown
!                 IF      self pWmKeyDown execute dup
!                         IF      DROP
!                                 old-wndproc CallWindowProc
!                         THEN
!                 ELSE    old-wndproc CallWindowProc
!                 THEN
                  ;M
  
  :M WM_KILLFOCUS ( h m w l -- res )      \ Allow intervention on kill focus
!                 pWmKillFocus
!                 IF      self pWmKillFocus execute dup
!                         IF      DROP
!                                 old-wndproc CallWindowProc
!                         THEN
!                 ELSE    old-wndproc CallWindowProc
!                 THEN
                  ;M
  
--- 102,110 ----
  
  :M WM_KEYDOWN   ( h m w l -- res )      \ normal & control chars
!                 pWmKeyDown ?pexecute
                  ;M
  
  :M WM_KILLFOCUS ( h m w l -- res )      \ Allow intervention on kill focus
!                 pWmKillFocus ?pexecute
                  ;M
  
***************
*** 439,440 ****
--- 431,433 ----
                  Start: EditSample ;
  
+ 

[Win32forth-cvs] win32for4web downloads.htm,1.1,1.2 index.htm,1.4,1.5

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32for4web
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25268

Modified Files:
	downloads.htm index.htm 
Log Message:
changed for moving the Home Page to SF

Index: downloads.htm
===================================================================
RCS file: /cvsroot/win32forth/win32for4web/downloads.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** downloads.htm	12 Jun 2005 08:14:46 -0000	1.1
--- downloads.htm	13 Jun 2005 15:41:58 -0000	1.2
***************
*** 21,25 ****
  <h1 align="center">The Home of the<br><img border="0" src="forthpro.gif"
  width="32" height="32">&nbsp;&nbsp;Win32Forth&nbsp;&nbsp;<img border="0"
! src="FORTHPRO.gif" width="32" height="32"><br>Project Group</h1>
  
  </a>
--- 21,25 ----
  <h1 align="center">The Home of the<br><img border="0" src="forthpro.gif"
  width="32" height="32">&nbsp;&nbsp;Win32Forth&nbsp;&nbsp;<img border="0"
! src="forthpro.gif" width="32" height="32"><br>Project Group</h1>
  
  </a>

Index: index.htm
===================================================================
RCS file: /cvsroot/win32forth/win32for4web/index.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** index.htm	12 Jun 2005 08:14:46 -0000	1.4
--- index.htm	13 Jun 2005 15:41:59 -0000	1.5
***************
*** 19,23 ****
  <h1 align="center">The Home of the<br><img border="0" src="forthpro.gif"
  width="32" height="32">&nbsp;&nbsp;Win32Forth&nbsp;&nbsp;<img border="0"
! src="FORTHPRO.gif" width="32" height="32"><br>Project Group</h1>
  
  <hr>
--- 19,23 ----
  <h1 align="center">The Home of the<br><img border="0" src="forthpro.gif"
  width="32" height="32">&nbsp;&nbsp;Win32Forth&nbsp;&nbsp;<img border="0"
! src="forthpro.gif" width="32" height="32"><br>Project Group</h1>
  
  <hr>