File:  [gforth] / gforth / table.fs
Revision 1.1: download - view: text, annotated - select for diffs
Sun Jul 6 15:57:51 1997 UTC (26 years, 8 months ago) by jwilke
Branches: MAIN
CVS tags: HEAD
Table is now extra file.
jens

    1: \ table fomerly in search.fs
    2: 
    3: require hash.fs
    4: 
    5: \ table (case-sensitive wordlist)
    6: 
    7: : table-find ( addr len wordlist -- nfa / false )
    8:     >r 2dup r> bucket @ (tablefind) ;
    9: 
   10: Create tablesearch-map ( -- wordlist-map )
   11:     ' table-find A, ' hash-reveal A, ' (rehash) A, ' (rehash) A,
   12: 
   13: : table ( -- wid )
   14:     \g create a case-sensitive wordlist
   15:     tablesearch-map mappedwordlist ;
   16: 

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