Menu
▾
▴
[Win32forth-cvs] win32forth/doc p-AcceleratorTables.htm,1.2,1.3 p-classdbg.htm,1.1,1.2 p-float.htm,1.8,1.9 p-module.htm,1.2,1.3 p-task.htm,1.2,1.3 w32f-glossary.csv,1.1,1.2
|
From: George H. <geo...@us...> - 2006-02-04 16:12:33
|
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 ( -<voc>- ) </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 ( -- ) </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 ( -<voc>- ) </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 ( -- ) </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 ( -- ) </a></b></pre><p>Make the external vocabulary the current vocabulary. ! </p><pre><b><a name="0">: MODULE ( -- ) </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 ( -- ) </a></b></pre><p>Make the external vocabulary the current vocabulary. ! </p><pre><b><a name="4">: MODULE ( -- ) </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 ( 'class' -- ) \ W32F Class debug </a></b></pre><p>Print out all the methods of a class. ! </p><pre><b><a name="0">: methods ( object-address -- ) \ W32F Class debug </a></b></pre><p>Print out all the methods of an object. ! </p><pre><b><a name="0">: ivars ( object-address -- ) \ W32F Class debug </a></b></pre><p>Print out all the object IVARs of an object. ! </p><pre><b><a name="0">: matches ( -<name>- ) \ W32F Class debug </a></b></pre><p>Print out all the method selectors and IVAR names that have the same hash value as -<name>- will be assigned. If -<name>- 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 ( 'class' -- ) \ W32F Class debug </a></b></pre><p>Display all of the instances of 'class'. ! </p><pre><b><a name="0">: msee ( -<method object>- ) \ W32F 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 ( -<method object>- ) \ W32F 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 ( -<method object>- ) \ W32F 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 ( 'class' -- ) \ W32F Class debug </a></b></pre><p>Print out all the methods of a class. ! </p><pre><b><a name="1">: methods ( object-address -- ) \ W32F Class debug </a></b></pre><p>Print out all the methods of an object. ! </p><pre><b><a name="2">: ivars ( object-address -- ) \ W32F Class debug </a></b></pre><p>Print out all the object IVARs of an object. ! </p><pre><b><a name="3">: matches ( -<name>- ) \ W32F Class debug </a></b></pre><p>Print out all the method selectors and IVAR names that have the same hash value as -<name>- will be assigned. If -<name>- 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 ( 'class' -- ) \ W32F Class debug </a></b></pre><p>Display all of the instances of 'class'. ! </p><pre><b><a name="5">: msee ( -<method object>- ) \ W32F 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 ( -<method object>- ) \ W32F 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 ( -<method object>- ) \ W32F 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>parm ( task-block -- addr ) \ W32F 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>id ( task-block -- addr ) \ W32F 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>handle ( task-block -- addr ) \ W32F 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>stop ( task-block -- addr ) \ W32F 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>parm@ ( task-block -- parm ) \ W32F Task </a></b></pre><p>Fetch the parameter from the task-block. ! </p><pre><b><a name="0">1 proc ExitThread as exit-task ( n -- ) \ W32F 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 ( task-block -- flag ) \ W32F 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 ( task-block -- flag ) \ W32F 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 ( task-block -- flag ) \ W32F Task </a></b></pre><p>Suspend a task. Flag is true if successful. ! </p><pre><b><a name="0">: resume-task ( task-block -- flag ) \ W32F Task </a></b></pre><p>Resume a task. Flag is true if successful. ! </p><pre><b><a name="0">: stop-task ( task-block -- ) \ W32F Task </a></b></pre><p>Set the stop flag of the task block to true. ! </p><pre><b><a name="0">: task-sleep ( n -- ) \ W32F 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) ( parm cfa-task addr -- len ) \ W32F 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 ( parm cfa-task -- addr ) \ W32F 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? ( task-block -- flag ) \ W32F 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>parm ( task-block -- addr ) \ W32F 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>id ( task-block -- addr ) \ W32F 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>handle ( task-block -- addr ) \ W32F 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>stop ( task-block -- addr ) \ W32F 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>parm@ ( task-block -- parm ) \ W32F Task </a></b></pre><p>Fetch the parameter from the task-block. ! </p><pre><b><a name="5">1 proc ExitThread as exit-task ( n -- ) \ W32F 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 ( task-block -- flag ) \ W32F 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 ( task-block -- flag ) \ W32F 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 ( task-block -- flag ) \ W32F Task </a></b></pre><p>Suspend a task. Flag is true if successful. ! </p><pre><b><a name="9">: resume-task ( task-block -- flag ) \ W32F Task </a></b></pre><p>Resume a task. Flag is true if successful. ! </p><pre><b><a name="10">: stop-task ( task-block -- ) \ W32F Task </a></b></pre><p>Set the stop flag of the task block to true. ! </p><pre><b><a name="11">: task-sleep ( n -- ) \ W32F 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) ( parm cfa-task addr -- len ) \ W32F 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 ( parm cfa-task -- addr ) \ W32F 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? ( task-block -- flag ) \ W32F 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 ( lock -- ) \ W32F 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 ( lock -- ) \ W32F 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 ( 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 /> --- 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 ( lock -- ) \ W32F 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 ( lock -- ) \ W32F 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 ( 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 /> *************** *** 107,111 **** <b> For Win9x; </b> Perform the action of LOCK and return true. ! </p><pre><b><a name="0">: make-lock ( compiling: -<name>- -- runtime: -- lock ) \ W32F Lock </a></b></pre><p>Create a new lock. When executed the lock returns it's identifier. </p><h2>WARNING --- 107,111 ---- <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 </a></b></pre><p>Create a new lock. When executed the lock returns it's identifier. </p><h2>WARNING |
