gforth/table.fs - diff

Return to table.fs CVS log

Up to [gforth] / gforth

version 1.5, 2000/09/23 15:46:59	version 1.8, 2003/08/25 14:17:47
Line 1	Line 1
\ table fomerly in search.fs	\ table fomerly in search.fs

\ Copyright (C) 1996,1997,1999 Free Software Foundation, Inc.	\ Copyright (C) 1996,1997,1999,2001,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 23 require hash.fs	Line 23 require hash.fs
\ table (case-sensitive wordlist)	\ table (case-sensitive wordlist)

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

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