gforth/hash.fs - diff

Return to hash.fs CVS log

Up to [gforth] / gforth

version 1.24, 2000/04/02 21:48:54	version 1.27, 2001/01/28 16:54:55
Line 1	Line 1
\ Hashed dictionaries 15jul94py	\ Hashed dictionaries 15jul94py

\ Copyright (C) 1995,1998 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,2000 Free Software Foundation, Inc.

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

Line 16	Line 16

\ You should have received a copy of the GNU General Public License	\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software	\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

[IFUNDEF] allocate	[IFUNDEF] allocate
: reserve-mem here swap allot ;	: reserve-mem here swap allot ;
Line 65 Defer hash-alloc ( addr -- addr )	Line 65 Defer hash-alloc ( addr -- addr )
cells HashTable + ;	cells HashTable + ;

: hash-find ( addr len wordlist -- nfa / false )	: hash-find ( addr len wordlist -- nfa / false )
>r 2dup r> bucket @ (hashfind) ;	>r 2dup r> bucket @ (hashlfind) ;

\ hash vocabularies 16jul94py	\ hash vocabularies 16jul94py