win32forth-cvs

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

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

Modified Files:
	p-AcceleratorTables.htm p-classdbg.htm p-float.htm 
	p-module.htm p-task.htm w32f-glossary.csv 
Log Message:
gah: Added module, task and classdbg to DexH-CreateDoocs and glossary

Index: p-module.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/doc/p-module.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** p-module.htm	22 Dec 2005 11:02:28 -0000	1.2
--- p-module.htm	4 Feb 2006 16:12:24 -0000	1.3
***************
*** 33,40 ****
  </a></b></pre><p>Set the vocabulary for internal definitions for the next module to be built.
  This is a non-parsing version of the word PRIVATE.
! </p><pre><b><a name="0">: PRIVATE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -&lt;voc&gt;- )
  </a></b></pre><p>Set the vocabulary for internal definitions for the next module to be built.
  This is a parsing version of the word (PRIVATE).
! </p><pre><b><a name="0">: INTERNAL &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>If a module hasn't yet been started or the internal vocabulary isn't the context
  vocabulary add the internal vocabulary to the search order and save the current
--- 33,40 ----
  </a></b></pre><p>Set the vocabulary for internal definitions for the next module to be built.
  This is a non-parsing version of the word PRIVATE.
! </p><pre><b><a name="1">: PRIVATE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -&lt;voc&gt;- )
  </a></b></pre><p>Set the vocabulary for internal definitions for the next module to be built.
  This is a parsing version of the word (PRIVATE).
! </p><pre><b><a name="2">: INTERNAL &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>If a module hasn't yet been started or the internal vocabulary isn't the context
  vocabulary add the internal vocabulary to the search order and save the current
***************
*** 42,48 ****
  vocabulary. If a module is already being built then make the current vocabulary
  the internal vocabulary.
! </p><pre><b><a name="0">: EXTERNAL &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>Make the external vocabulary the current vocabulary.
! </p><pre><b><a name="0">: MODULE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>Complete the module by making the external vocabulary the current vocabulary,
  removing the internal vocabulary from the search order if it's the context
--- 42,48 ----
  vocabulary. If a module is already being built then make the current vocabulary
  the internal vocabulary.
! </p><pre><b><a name="3">: EXTERNAL &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>Make the external vocabulary the current vocabulary.
! </p><pre><b><a name="4">: MODULE &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -- )
  </a></b></pre><p>Complete the module by making the external vocabulary the current vocabulary,
  removing the internal vocabulary from the search order if it's the context

Index: p-classdbg.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/doc/p-classdbg.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** p-classdbg.htm	9 Jan 2006 13:33:42 -0000	1.1
--- p-classdbg.htm	4 Feb 2006 16:12:24 -0000	1.2
***************
*** 21,40 ****
  </h2><pre><b><a name="0">: cmethods &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( 'class' -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Print out all the methods of a class.
! </p><pre><b><a name="0">: methods &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( object-address -- ) &nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Print out all the methods of an object.
! </p><pre><b><a name="0">: ivars &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( object-address -- ) &nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Print out all the object IVARs of an object.
! </p><pre><b><a name="0">: matches &nbsp;&nbsp;( -&lt;name&gt;- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Print out all the method selectors and IVAR names that have the same hash value as
  -&lt;name&gt;- will be assigned. If -&lt;name&gt;- is already in use as a selector or an IVAR name
  then it will appear in the list.
! </p><pre><b><a name="0">: objects &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( 'class' -- ) &nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Display all of the instances of 'class'.
! </p><pre><b><a name="0">: msee &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -&lt;method object&gt;- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Display the source code of the method. Either a Class or Object can be supplied.
! </p><pre><b><a name="0">: mdebug &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -&lt;method object&gt;- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Set debugging of the method. An Object must be supplied (Classes aren't allowed).
  NOTE the method will be debugged for all objects that respond to it.
! </p><pre><b><a name="0">: mdbg &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -&lt;method object&gt;- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Set debugging of the method and then execute it.
  An Object must be supplied (Classes aren't allowed).
--- 21,40 ----
  </h2><pre><b><a name="0">: cmethods &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( 'class' -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Print out all the methods of a class.
! </p><pre><b><a name="1">: methods &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( object-address -- ) &nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Print out all the methods of an object.
! </p><pre><b><a name="2">: ivars &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( object-address -- ) &nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Print out all the object IVARs of an object.
! </p><pre><b><a name="3">: matches &nbsp;&nbsp;( -&lt;name&gt;- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Print out all the method selectors and IVAR names that have the same hash value as
  -&lt;name&gt;- will be assigned. If -&lt;name&gt;- is already in use as a selector or an IVAR name
  then it will appear in the list.
! </p><pre><b><a name="4">: objects &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( 'class' -- ) &nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Display all of the instances of 'class'.
! </p><pre><b><a name="5">: msee &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -&lt;method object&gt;- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Display the source code of the method. Either a Class or Object can be supplied.
! </p><pre><b><a name="6">: mdebug &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -&lt;method object&gt;- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Set debugging of the method. An Object must be supplied (Classes aren't allowed).
  NOTE the method will be debugged for all objects that respond to it.
! </p><pre><b><a name="7">: mdbg &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( -&lt;method object&gt;- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Class debug
  </a></b></pre><p>Set debugging of the method and then execute it.
  An Object must be supplied (Classes aren't allowed).

Index: w32f-glossary.csv
===================================================================
RCS file: /cvsroot/win32forth/win32forth/doc/w32f-glossary.csv,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** w32f-glossary.csv	4 Feb 2006 10:40:35 -0000	1.1
--- w32f-glossary.csv	4 Feb 2006 16:12:24 -0000	1.2
***************
*** 1,4 ****
  "Name","Stack","Comment","Type","Class","File"
! "Generic-Window",,,"CLASS"," ","Generic.htm""#""0"
  "Classinit:","( -- )",,"METHOD","Generic-Window","Generic.htm""#""2"
  "GetHandle:","( -- hWnd )",,"METHOD","Generic-Window","Generic.htm""#""3"
--- 1,4 ----
  "Name","Stack","Comment","Type","Class","File"
! "Generic-Window",,,"CLASS","","Generic.htm""#""0"
  "Classinit:","( -- )",,"METHOD","Generic-Window","Generic.htm""#""2"
  "GetHandle:","( -- hWnd )",,"METHOD","Generic-Window","Generic.htm""#""3"
***************
[...1177 lines suppressed...]
! "FSIN","( f: r1 -- r2 )","ANSI         Floating ext","COLON","","p-float.htm""#""69"
! "FCOS","( f: r1 -- r2 )","ANSI         Floating ext","COLON","","p-float.htm""#""70"
! "FSINCOS","( f: r1 -- r2 r3 )","ANSI         Floating ext","COLON","","p-float.htm""#""71"
! "FTAN","( f: r1 -- r2 )","ANSI         Floating ext","COLON","","p-float.htm""#""72"
! "FASIN","( fs: r1 -- r2 )","ANSI         Floating ext","CODE","","p-float.htm""#""73"
! "FACOS","( fs: r1 -- r2 )","ANSI         Floating ext","CODE","","p-float.htm""#""74"
! "FATAN","( fs: r1 -- r2 )","ANSI          Floating ext","CODE","","p-float.htm""#""75"
! "FATAN2","( fs: r1 r2 -- r3 )","ANSI         Floating ext","CODE","","p-float.htm""#""76"
! "FLN","( fs: r1 -- r2 )","ANSI            Floating ext","CODE","","p-float.htm""#""77"
! "FLNP1","( fs: r1 -- r2 )","ANSI           Floating ext","CODE","","p-float.htm""#""78"
! "FSINH","( f: r1 -- r2 )","ANSI             Floating ext","COLON","","p-float.htm""#""79"
! "FCOSH","( f: r1 -- r2 )","ANSI             Floating ext","COLON","","p-float.htm""#""80"
! "FTANH","( f: r1 -- r2 )","ANSI             Floating ext","COLON","","p-float.htm""#""81"
! "FASINH","( fs: r1 -- r2 )","ANSI             Floating ext","CODE","","p-float.htm""#""82"
! "FACOSH","( fs: r1 -- r2 )","ANSI            Floating ext","CODE","","p-float.htm""#""83"
! "FATANH","( f: r1 -- r2 )","ANSI             Floating ext","COLON","","p-float.htm""#""84"
! "PRECISION","( -- u )","ANSI         Floating ext","COLON","","p-float.htm""#""85"
! "SET-PRECISION","( u -- )","ANSI         Floating ext","COLON","","p-float.htm""#""86"
! "min-precision","( u -- )","W32F         Floating extra","COLON","","p-float.htm""#""87"
! "(F.)","( addr -- )",,"COLON","","p-float.htm""#""88"


Index: p-task.htm
===================================================================
RCS file: /cvsroot/win32forth/win32forth/doc/p-task.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** p-task.htm	3 Jan 2006 08:28:19 -0000	1.2
--- p-task.htm	4 Feb 2006 16:12:24 -0000	1.3
***************
*** 53,89 ****
  </h2><pre><b><a name="0">cell field+ task&gt;parm &nbsp;&nbsp;&nbsp;&nbsp;( task-block -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Convert the task-block address into the address of the thread parameter
! </p><pre><b><a name="0">cell field+ task&gt;id &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( task-block -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Convert the task-block address into the address of the thread id
! </p><pre><b><a name="0">cell field+ task&gt;handle &nbsp;&nbsp;( task-block -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Convert the task-block address into the address of the thread handle
! </p><pre><b><a name="0">cell field+ task&gt;stop &nbsp;&nbsp;&nbsp;&nbsp;( task-block -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Convert the task-block address into the address of the the stop flag
! </p><pre><b><a name="0">: task&gt;parm@ &nbsp;&nbsp;&nbsp;( task-block -- parm ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Fetch the parameter from the task-block.
! </p><pre><b><a name="0">1 proc ExitThread as exit-task &nbsp;&nbsp;&nbsp;&nbsp;( n -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Exit the current task returning the value n to the operating system, which can be retrieved
  by calling GetExitCodeThread. The stacks and user area for the thread are freed and
  DLLs are detatched. If the thread is the last active thread of the process then the
  process is terminated.
! </p><pre><b><a name="0">: create-task &nbsp;&nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Create a new task which is suspended. Flag is true if successful.
! </p><pre><b><a name="0">: run-task &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Create a new task and run it. Flag is true if successful.
! </p><pre><b><a name="0">: suspend-task &nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Suspend a task. Flag is true if successful.
! </p><pre><b><a name="0">: resume-task &nbsp;&nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Resume a task. Flag is true if successful.
! </p><pre><b><a name="0">: stop-task &nbsp;&nbsp;&nbsp;&nbsp;( task-block -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Set the stop flag of the task block to true.
! </p><pre><b><a name="0">: task-sleep &nbsp;&nbsp;&nbsp;( n -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended
  forever.
! </p><pre><b><a name="0">: (task-block) &nbsp;( parm cfa-task addr -- len ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Build a task block at the supplied address, initialise the parameter and xt and
  return the size of the task block.
! </p><pre><b><a name="0">: task-block &nbsp;&nbsp;&nbsp;( parm cfa-task -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Build a task block in the dictionary, initialise the parameter and xt and return
  the address of the block.
! </p><pre><b><a name="0">: task-stop? &nbsp;&nbsp;&nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Flag is true if stop-task has been set by another task. In this case the task should
  do any necessary clean-up and exit.
--- 53,89 ----
  </h2><pre><b><a name="0">cell field+ task&gt;parm &nbsp;&nbsp;&nbsp;&nbsp;( task-block -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Convert the task-block address into the address of the thread parameter
! </p><pre><b><a name="1">cell field+ task&gt;id &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( task-block -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Convert the task-block address into the address of the thread id
! </p><pre><b><a name="2">cell field+ task&gt;handle &nbsp;&nbsp;( task-block -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Convert the task-block address into the address of the thread handle
! </p><pre><b><a name="3">cell field+ task&gt;stop &nbsp;&nbsp;&nbsp;&nbsp;( task-block -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Convert the task-block address into the address of the the stop flag
! </p><pre><b><a name="4">: task&gt;parm@ &nbsp;&nbsp;&nbsp;( task-block -- parm ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Fetch the parameter from the task-block.
! </p><pre><b><a name="5">1 proc ExitThread as exit-task &nbsp;&nbsp;&nbsp;&nbsp;( n -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Exit the current task returning the value n to the operating system, which can be retrieved
  by calling GetExitCodeThread. The stacks and user area for the thread are freed and
  DLLs are detatched. If the thread is the last active thread of the process then the
  process is terminated.
! </p><pre><b><a name="6">: create-task &nbsp;&nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Create a new task which is suspended. Flag is true if successful.
! </p><pre><b><a name="7">: run-task &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Create a new task and run it. Flag is true if successful.
! </p><pre><b><a name="8">: suspend-task &nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Suspend a task. Flag is true if successful.
! </p><pre><b><a name="9">: resume-task &nbsp;&nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Resume a task. Flag is true if successful.
! </p><pre><b><a name="10">: stop-task &nbsp;&nbsp;&nbsp;&nbsp;( task-block -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Set the stop flag of the task block to true.
! </p><pre><b><a name="11">: task-sleep &nbsp;&nbsp;&nbsp;( n -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Suspend the current task for at least n msec. If n is INFINITE (-1) the task is suspended
  forever.
! </p><pre><b><a name="12">: (task-block) &nbsp;( parm cfa-task addr -- len ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Build a task block at the supplied address, initialise the parameter and xt and
  return the size of the task block.
! </p><pre><b><a name="13">: task-block &nbsp;&nbsp;&nbsp;( parm cfa-task -- addr ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Build a task block in the dictionary, initialise the parameter and xt and return
  the address of the block.
! </p><pre><b><a name="14">: task-stop? &nbsp;&nbsp;&nbsp;( task-block -- flag ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Task
  </a></b></pre><p>Flag is true if stop-task has been set by another task. In this case the task should
  do any necessary clean-up and exit.
***************
*** 94,104 ****
  The system also contains some locks used internally that are transparent to the user.
  </p><h2>Glossary
! </h2><pre><b><a name="0">: lock &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( lock -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;Lock
  </a></b></pre><p>If another thread owns the lock wait until it's free,
  then if the lock is free claim it for this thread,
  then increment the lock count.
! </p><pre><b><a name="0">: unlock &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( lock -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;Lock
  </a></b></pre><p>Decrement the lock count and free the lock if the resultant count is zero.
! </p><pre><b><a name="0">: trylock &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( lock -- fl ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Lock
  </a></b></pre><p><b>&nbsp;For NT 2000 and XP; </b>
  If the lock is owned by another thread return false. <br />
--- 94,104 ----
  The system also contains some locks used internally that are transparent to the user.
  </p><h2>Glossary
! </h2><pre><b><a name="15">: lock &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( lock -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;Lock
  </a></b></pre><p>If another thread owns the lock wait until it's free,
  then if the lock is free claim it for this thread,
  then increment the lock count.
! </p><pre><b><a name="16">: unlock &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( lock -- ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;&nbsp;Lock
  </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 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;( lock -- fl ) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\ W32F &nbsp;&nbsp;&nbsp;Lock
  </a></b></pre><p><b>&nbsp;For NT 2000 and XP; </b>
  If the lock is owned by another thread return false. <br />
***************
*** 107,111 ****
  <b>&nbsp;For Win9x; </b>
  Perform the action of LOCK and return true.
! </p><pre><b><a name="0">: make-lock &nbsp;&nbsp;&nbsp;&nbsp;( compiling: -&lt;name&gt;- &nbsp;-- &nbsp;runtime: -- lock ) \ W32F &nbsp;&nbsp;&nbsp;Lock
  </a></b></pre><p>Create a new lock. When executed the lock returns it's identifier.
  </p><h2>WARNING
--- 107,111 ----
  <b>&nbsp;For Win9x; </b>
  Perform the action of LOCK and return true.
! </p><pre><b><a name="18">: make-lock &nbsp;&nbsp;&nbsp;&nbsp;( compiling: -&lt;name&gt;- &nbsp;-- &nbsp;runtime: -- lock ) \ W32F &nbsp;&nbsp;&nbsp;Lock
  </a></b></pre><p>Create a new lock. When executed the lock returns it's identifier.
  </p><h2>WARNING