Annotation of gforth/table.fs, revision 1.1
1.1 ! jwilke 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>