[BACK]Return to search.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/search.fs between versions 1.25 and 1.28

version 1.25, 2003/03/09 15:16:52 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,2003 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{???}.
Removed from v.1.25  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>