version 1.24, 2003/03/08 13:29:55
|
version 1.28, 2007/01/14 22:19:35
|
Line 1
|
Line 1
|
\ search order wordset 14may93py |
\ search order wordset 14may93py |
|
|
\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2005 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 211 lookup ! \ our dictionary search order b
|
Line 211 lookup ! \ our dictionary search order b
|
context @ 1 set-order ; |
context @ 1 set-order ; |
|
|
[IFUNDEF] .name |
[IFUNDEF] .name |
: id. ( nt -- ) \ gforth |
: id. ( nt -- ) \ gforth i-d-dot |
\G Print the name of the word represented by @var{nt}. |
\G Print the name of the word represented by @var{nt}. |
\ this name comes from fig-Forth |
\ this name comes from fig-Forth |
name>string type space ; |
name>string type space ; |
|
|
' id. alias .id ( nt -- ) |
' id. alias .id ( nt -- ) \ F83 dot-i-d |
\G F83 name for @code{id.}. |
\G F83 name for @code{id.}. |
|
|
' id. alias .name ( nt -- ) |
' id. alias .name ( nt -- ) \ gforth-obsolete dot-name |
\G Gforth <=0.5.0 name for @code{id.}. |
\G Gforth <=0.5.0 name for @code{id.}. |
|
|
[THEN] |
[THEN] |
|
|
: .voc ( wid -- ) \ gforth |
: .voc ( wid -- ) \ gforth dot-voc |
\G print the name of the wordlist represented by @var{wid}. Can |
\G print the name of the wordlist represented by @var{wid}. Can |
\G only print names defined with @code{vocabulary} or |
\G only print names defined with @code{vocabulary} or |
\G @code{wordlist constant}, otherwise prints @samp{???}. |
\G @code{wordlist constant}, otherwise prints @samp{???}. |