version 1.2, 1997/07/06 15:55:25
|
version 1.6, 1998/12/08 22:02:51
|
Line 1
|
Line 1
|
\ search order wordset 14may93py |
\ search order wordset 14may93py |
|
|
\ Copyright (C) 1995 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 38 Variable slowvoc 0 slowvoc !
|
Line 38 Variable slowvoc 0 slowvoc !
|
|
|
: mappedwordlist ( map-struct -- wid ) \ gforth |
: mappedwordlist ( map-struct -- wid ) \ gforth |
\G creates a wordlist with a special map-structure |
\G creates a wordlist with a special map-structure |
here 0 A, swap A, voclink @ A, 0 A, |
here swap A, 0 A, voclink @ A, 0 A, |
dup wordlist-link voclink ! |
dup wordlist-link voclink ! |
dup initvoc ; |
dup initvoc ; |
|
|
Line 105 slowvoc off
|
Line 105 slowvoc off
|
Vocabulary Forth |
Vocabulary Forth |
Vocabulary Root |
Vocabulary Root |
|
|
: Only 0 vp! also Root also definitions ; |
: Only 1 vp! Root also ; |
|
|
\ set initial search order 14may93py |
\ set initial search order 14may93py |
|
|
Forth-wordlist @ ' Forth >body ! |
Forth-wordlist wordlist-id @ ' Forth >body wordlist-id ! |
|
|
0 vp! also Root also definitions |
0 vp! also Root also definitions |
Only Forth also definitions |
Only Forth also definitions |
Line 130 lookup ! \ our dictionary search order b
|
Line 130 lookup ! \ our dictionary search order b
|
: seal ( -- ) context @ 1 set-order ; |
: seal ( -- ) context @ 1 set-order ; |
|
|
: .voc |
: .voc |
body> >head head>string type space ; |
body> >head name>string type space ; |
|
|
: order ( -- ) \ search-ext |
: order ( -- ) \ search-ext |
\g prints the search order and the @code{current} wordlist. The |
\g prints the search order and the @code{current} wordlist. The |