freebsd-dev/gnu/usr.bin/perl/x2p/hash.h

64 lines
1.5 KiB
C
Raw Normal View History

1995-05-30 05:05:38 +00:00
/* $RCSfile: hash.h,v $$Revision: 1.1.1.1 $$Date: 1994/09/10 06:27:54 $
1994-09-10 06:27:55 +00:00
*
* 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 $
1995-05-30 05:05:38 +00:00
* Revision 1.1.1.1 1994/09/10 06:27:54 gclarkii
* Initial import of Perl 4.046 bmaked
*
1994-09-10 06:27:55 +00:00
* 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
1995-05-30 05:05:38 +00:00
*
1994-09-10 06:27:55 +00:00
* Revision 4.0 91/03/20 01:57:53 lwall
* 4.0 baseline.
1995-05-30 05:05:38 +00:00
*
1994-09-10 06:27:55 +00:00
*/
#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();