1 /* $Header: hash.h,v 3.0 89/10/18 15:18:39 lwall Locked $
3 * Copyright (c) 1989, Larry Wall
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.
9 * Revision 3.0 89/10/18 15:18:39 lwall
14 #define FILLPCT 80 /* don't make greater than 99 */
15 #define DBM_CACHE_MAX 63 /* cache 64 entries for dbm file */
16 /* (resident array acts as a write-thru cache)*/
18 #define COEFFSIZE (16 * 8) /* size of array below */
21 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
22 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
23 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
24 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
25 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
26 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
27 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
28 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1};
33 typedef struct hentry HENT;
45 int tbl_max; /* subscript of last element of tbl_array */
46 int tbl_dosplit; /* how full to get before splitting */
47 int tbl_fill; /* how full tbl_array currently is */
48 int tbl_riter; /* current root of iterator */
49 HENT *tbl_eiter; /* current entry of iterator */
50 SPAT *tbl_spatroot; /* list of spats for this package */
58 unsigned char tbl_coeffsize; /* is 0 for symbol tables */