version 1.14, 2000/05/27 09:41:28
|
version 1.15, 2000/08/16 09:26:52
|
Line 78 Variable slowvoc 0 slowvoc !
|
Line 78 Variable slowvoc 0 slowvoc !
|
vp @ 1+ dup check-maxvp vp! context ! ; |
vp @ 1+ dup check-maxvp vp! context ! ; |
|
|
: also ( -- ) \ search-ext |
: also ( -- ) \ search-ext |
\G Perform a @code{DUP} on the @var{wid} at the top of the search |
\G Like @code{DUP} for the search order. Usually used before a |
\G order. Usually used prior to @code{Forth} etc. |
\G vocabulary (e.g., @code{also Forth}); the combined effect is to push |
|
\G the wordlist represented by the vocabulary on the search order. |
context @ push-order ; |
context @ push-order ; |
|
|
: previous ( -- ) \ search-ext |
: previous ( -- ) \ search-ext |
\G Perform a @code{DROP} on the @i{wid} at the top of the search |
\G Drop the wordlist at the top of the search order. |
\G order, thereby removing the @i{wid} from the search order. |
|
vp @ 1- dup 0= -50 and throw vp! ; |
vp @ 1- dup 0= -50 and throw vp! ; |
|
|
\ vocabulary find 14may93py |
\ vocabulary find 14may93py |
Line 137 Vocabulary Forth ( -- ) \ gforthman- sea
|
Line 137 Vocabulary Forth ( -- ) \ gforthman- sea
|
|
|
|
|
Vocabulary Root ( -- ) \ gforth |
Vocabulary Root ( -- ) \ gforth |
\G Add the vocabulary @code{Root} to the search order stack. |
\G Add the root wordlist to the search order stack. This vocabulary |
\G This vocabulary makes up the minimum search order and |
\G makes up the minimum search order and contains only a |
\G contains these words: @code{order} @code{set-order} |
\G search-order words. |
\G @code{forth-wordlist} @code{Forth} @code{words} |
|
|
|
: Only ( -- ) \ search-ext |
: Only ( -- ) \ search-ext |
\G Set the search order to the implementation-defined minimum search |
\G Set the search order to the implementation-defined minimum search |
Line 162 lookup ! \ our dictionary search order b
|
Line 161 lookup ! \ our dictionary search order b
|
|
|
: get-order ( -- widn .. wid1 n ) \ search |
: get-order ( -- widn .. wid1 n ) \ search |
\G Copy the search order to the data stack. The current search order |
\G Copy the search order to the data stack. The current search order |
\G has @i{n} entries, of which @i{wid1} represents the word list |
\G has @i{n} entries, of which @i{wid1} represents the wordlist |
\G that is searched first (the word list at the top of the search |
\G that is searched first (the word list at the top of the search |
\G order) and @i{widn} represents the word order that is searched |
\G order) and @i{widn} represents the wordlist that is searched |
\G last. |
\G last. |
vp @ 0 ?DO vp cell+ I cells + @ LOOP vp @ ; |
vp @ 0 ?DO vp cell+ I cells + @ LOOP vp @ ; |
|
|