/* $RCSfile: hash.h,v $$Revision: 1.1.1.1 $$Date: 1994/09/10 06:27:54 $ * * Copyright (c) 1991, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * * $Log: hash.h,v $ * Revision 1.1.1.1 1994/09/10 06:27:54 gclarkii * Initial import of Perl 4.046 bmaked * * Revision 1.1.1.1 1993/08/23 21:30:10 nate * PERL! * * Revision 4.0.1.1 91/06/07 12:16:04 lwall * patch4: new copyright notice * * Revision 4.0 91/03/20 01:57:53 lwall * 4.0 baseline. * */ #define FILLPCT 60 /* don't make greater than 99 */ #ifdef DOINIT char coeff[] = { 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1, 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1, 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1, 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1, 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1, 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1, 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1, 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1}; #else extern char coeff[]; #endif typedef struct hentry HENT; struct hentry { HENT *hent_next; char *hent_key; STR *hent_val; int hent_hash; }; struct htbl { HENT **tbl_array; int tbl_max; int tbl_fill; int tbl_riter; /* current root of iterator */ HENT *tbl_eiter; /* current entry of iterator */ }; STR *hfetch(); bool hstore(); bool hdelete(); HASH *hnew(); int hiterinit(); HENT *hiternext(); char *hiterkey(); STR *hiterval();