This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 3.0 patch #44 patch #42, continued
[perl5.git] / hash.h
CommitLineData
d9d8d8de 1/* $Header: hash.h,v 3.0.1.2 90/10/15 17:33:58 lwall Locked $
a687059c
LW
2 *
3 * Copyright (c) 1989, Larry Wall
4 *
5 * You may distribute under the terms of the GNU General Public License
6 * as specified in the README file that comes with the perl 3.0 kit.
8d063cd8
LW
7 *
8 * $Log: hash.h,v $
d9d8d8de
LW
9 * Revision 3.0.1.2 90/10/15 17:33:58 lwall
10 * patch29: the debugger now understands packages and evals
11 *
154e51a4
LW
12 * Revision 3.0.1.1 90/08/09 03:51:34 lwall
13 * patch19: various MSDOS and OS/2 patches folded in
14 *
a687059c
LW
15 * Revision 3.0 89/10/18 15:18:39 lwall
16 * 3.0 baseline
8d063cd8
LW
17 *
18 */
19
a687059c
LW
20#define FILLPCT 80 /* don't make greater than 99 */
21#define DBM_CACHE_MAX 63 /* cache 64 entries for dbm file */
22 /* (resident array acts as a write-thru cache)*/
8d063cd8 23
154e51a4 24#define COEFFSIZE (16 * 8) /* size of coeff array */
8d063cd8
LW
25
26typedef struct hentry HENT;
27
28struct hentry {
29 HENT *hent_next;
30 char *hent_key;
31 STR *hent_val;
32 int hent_hash;
a687059c 33 int hent_klen;
8d063cd8
LW
34};
35
36struct htbl {
37 HENT **tbl_array;
a687059c
LW
38 int tbl_max; /* subscript of last element of tbl_array */
39 int tbl_dosplit; /* how full to get before splitting */
40 int tbl_fill; /* how full tbl_array currently is */
8d063cd8
LW
41 int tbl_riter; /* current root of iterator */
42 HENT *tbl_eiter; /* current entry of iterator */
a687059c 43 SPAT *tbl_spatroot; /* list of spats for this package */
d9d8d8de 44 char *tbl_name; /* name, if a symbol table */
a687059c
LW
45#ifdef SOME_DBM
46#ifdef NDBM
47 DBM *tbl_dbm;
48#else
49 int tbl_dbm;
50#endif
51#endif
52 unsigned char tbl_coeffsize; /* is 0 for symbol tables */
8d063cd8
LW
53};
54
55STR *hfetch();
56bool hstore();
378cc40b 57STR *hdelete();
8d063cd8 58HASH *hnew();
378cc40b 59void hclear();
378cc40b 60void hentfree();
8d063cd8
LW
61int hiterinit();
62HENT *hiternext();
63char *hiterkey();
64STR *hiterval();
a687059c
LW
65bool hdbmopen();
66void hdbmclose();
67bool hdbmstore();