64 lines
1.5 KiB
C
64 lines
1.5 KiB
C
/* $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();
|