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

Diff for /gforth/search.fs between versions 1.2 and 1.6

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
Removed from v.1.2  
changed lines
  Added in v.1.6

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