summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/x2p/hash.h
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/x2p/hash.h')
-rw-r--r--contrib/perl5/x2p/hash.h52
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 );
OpenPOWER on IntegriCloud