diff options
Diffstat (limited to 'contrib/perl5/x2p/hash.h')
-rw-r--r-- | contrib/perl5/x2p/hash.h | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/contrib/perl5/x2p/hash.h b/contrib/perl5/x2p/hash.h deleted file mode 100644 index 7b2b668..0000000 --- a/contrib/perl5/x2p/hash.h +++ /dev/null @@ -1,52 +0,0 @@ -/* $RCSfile: hash.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:21 $ - * - * Copyright (c) 1991-2001, 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 $ - */ - -#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 */ -}; - -bool hdelete (HASH *tb, char *key); -STR * hfetch ( HASH *tb, char *key ); -int hiterinit ( HASH *tb ); -char * hiterkey ( HENT *entry ); -HENT * hiternext ( HASH *tb ); -STR * hiterval ( HENT *entry ); -HASH * hnew ( void ); -void hsplit ( HASH *tb ); -bool hstore ( HASH *tb, char *key, STR *val ); |