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

\ table fomerly in search.fs

require hash.fs

\ table (case-sensitive wordlist)

: table-find ( addr len wordlist -- nfa / false )
    >r 2dup r> bucket @ (tablefind) ;

Create tablesearch-map ( -- wordlist-map )
    ' table-find A, ' hash-reveal A, ' (rehash) A, ' (rehash) A,

: table ( -- wid )
    \g create a case-sensitive wordlist
    tablesearch-map mappedwordlist ;


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