version 1.27, 2005/12/31 15:46:10
|
version 1.29, 2007/07/06 12:54:56
|
Line 51 Variable slowvoc 0 slowvoc !
|
Line 51 Variable slowvoc 0 slowvoc !
|
|
|
: mappedwordlist ( map-struct -- wid ) \ gforth |
: mappedwordlist ( map-struct -- wid ) \ gforth |
\G Create a wordlist with a special map-structure. |
\G Create a wordlist with a special map-structure. |
here swap A, 0 A, voclink @ A, 0 A, |
align here swap A, 0 A, voclink @ A, 0 A, |
dup wordlist-link voclink ! |
dup wordlist-link voclink ! |
dup initvoc ; |
dup initvoc ; |
|
|
Line 136 slowvoc off
|
Line 136 slowvoc off
|
|
|
\ Only root 14may93py |
\ Only root 14may93py |
|
|
Vocabulary Forth ( -- ) \ gforthman- search-ext |
Vocabulary Forth ( -- ) \ search-ext |
\G Replace the @i{wid} at the top of the search order with the |
\G Replace the @i{wid} at the top of the search order with the |
\G @i{wid} associated with the word list @code{forth-wordlist}. |
\G @i{wid} associated with the word list @code{forth-wordlist}. |
|
|
Line 190 lookup ! \ our dictionary search order b
|
Line 190 lookup ! \ our dictionary search order b
|
\G last. |
\G last. |
vp @ 0 ?DO vp cell+ I cells + @ LOOP vp @ ; |
vp @ 0 ?DO vp cell+ I cells + @ LOOP vp @ ; |
|
|
: set-order ( widn .. wid1 n -- ) \ gforthman- search |
: set-order ( widn .. wid1 n -- ) \ search |
\G If @var{n}=0, empty the search order. If @var{n}=-1, set the |
\G If @var{n}=0, empty the search order. If @var{n}=-1, set the |
\G search order to the implementation-defined minimum search order |
\G search order to the implementation-defined minimum search order |
\G (for Gforth, this is the word list @code{Root}). Otherwise, |
\G (for Gforth, this is the word list @code{Root}). Otherwise, |
Line 235 lookup ! \ our dictionary search order b
|
Line 235 lookup ! \ our dictionary search order b
|
endif |
endif |
drop r> body> >head-noprim id. ; |
drop r> body> >head-noprim id. ; |
|
|
: order ( -- ) \ gforthman- search-ext |
: order ( -- ) \ search-ext |
\G Print the search order and the compilation word list. The |
\G Print the search order and the compilation word list. The |
\G word lists are printed in the order in which they are searched |
\G word lists are printed in the order in which they are searched |
\G (which is reversed with respect to the conventional way of |
\G (which is reversed with respect to the conventional way of |
Line 264 Root definitions
|
Line 264 Root definitions
|
' words Alias words ( -- ) \ tools |
' words Alias words ( -- ) \ tools |
\G Display a list of all of the definitions in the word list at the top |
\G Display a list of all of the definitions in the word list at the top |
\G of the search order. |
\G of the search order. |
' Forth Alias Forth |
' Forth Alias Forth \ alias- search-ext |
' forth-wordlist alias forth-wordlist ( -- wid ) \ search |
' forth-wordlist alias forth-wordlist ( -- wid ) \ search |
\G @code{Constant} -- @i{wid} identifies the word list that includes all of the standard words |
\G @code{Constant} -- @i{wid} identifies the word list that includes all of the standard words |
\G provided by Gforth. When Gforth is invoked, this word list is the compilation word |
\G provided by Gforth. When Gforth is invoked, this word list is the compilation word |
\G list and is at the top of the search order. |
\G list and is at the top of the search order. |
' set-order alias set-order |
' set-order alias set-order ( wid1 ... widu u -- ) \ alias- search |
' order alias order |
' order alias order ( -- ) \ alias- search-ext |
|
|
Forth definitions |
Forth definitions |
|
|