Return to table.fs CVS log | Up to [gforth] / gforth |
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: