/* $Header: hash.h,v 3.0.1.2 90/10/15 17:33:58 lwall Locked $
 *
 *    Copyright (c) 1989, Larry Wall
 *
 *    You may distribute under the terms of the GNU General Public License
 *    as specified in the README file that comes with the perl 3.0 kit.
 *
 * $Log:	hash.h,v $
 * Revision 3.0.1.2  90/10/15  17:33:58  lwall
 * patch29: the debugger now understands packages and evals
 * 
 * Revision 3.0.1.1  90/08/09  03:51:34  lwall
 * patch19: various MSDOS and OS/2 patches folded in
 * 
 * Revision 3.0  89/10/18  15:18:39  lwall
 * 3.0 baseline
 * 
 */

#define FILLPCT 80		/* don't make greater than 99 */
#define DBM_CACHE_MAX 63	/* cache 64 entries for dbm file */
				/* (resident array acts as a write-thru cache)*/

#define COEFFSIZE (16 * 8)	/* size of coeff array */
  
typedef struct hentry HENT;

struct hentry {
    HENT	*hent_next;
    char	*hent_key;
    STR		*hent_val;
    int		hent_hash;
    int		hent_klen;
};

struct htbl {
    HENT	**tbl_array;
    int		tbl_max;	/* subscript of last element of tbl_array */
    int		tbl_dosplit;	/* how full to get before splitting */
    int		tbl_fill;	/* how full tbl_array currently is */
    int		tbl_riter;	/* current root of iterator */
    HENT	*tbl_eiter;	/* current entry of iterator */
    SPAT 	*tbl_spatroot;	/* list of spats for this package */
    char	*tbl_name;	/* name, if a symbol table */
#ifdef SOME_DBM
#ifdef GDBM
    DBM		*tbl_dbm;
#else
#ifdef NDBM
    DBM		*tbl_dbm;
#else
    int		tbl_dbm;
#endif
#endif
#endif
    unsigned char tbl_coeffsize;	/* is 0 for symbol tables */
};

extern STR *hfetch PROTO((HASH *, char *, unsigned int, int));
extern bool hstore PROTO((HASH *, char *, unsigned int, STR *, int));
extern STR *hdelete PROTO((HASH *, char *, unsigned int));
extern HASH *hnew PROTO((unsigned int));
extern void hclear PROTO((HASH *, int));
extern void hentfree PROTO((HENT *));
extern int hiterinit PROTO((HASH *));
extern HENT *hiternext PROTO((HASH *));
extern char *hiterkey PROTO((HENT *, int *));
extern STR *hiterval PROTO((HASH *, HENT *));
extern bool hdbmopen PROTO((HASH *, char *, int));
extern void hdbmclose PROTO((HASH *));
extern bool hdbmstore PROTO((HASH *, char *, unsigned int, STR *));
extern void hsplit PROTO((HASH *));
extern void hfree PROTO((HASH *, int));
extern void hentdelayfree PROTO((HENT *));


