1 76193d7c 2003-09-30 devnull #include	"mk.h"
 2 76193d7c 2003-09-30 devnull 
 3 76193d7c 2003-09-30 devnull #define	NHASH	4099
 4 76193d7c 2003-09-30 devnull #define	HASHMUL	79L	/* this is a good value */
 5 76193d7c 2003-09-30 devnull static Symtab *hash[NHASH];
 6 76193d7c 2003-09-30 devnull 
 7 76193d7c 2003-09-30 devnull void
 8 76193d7c 2003-09-30 devnull syminit(void)
 9 76193d7c 2003-09-30 devnull {
10 76193d7c 2003-09-30 devnull 	Symtab **s, *ss;
11 76193d7c 2003-09-30 devnull 
12 76193d7c 2003-09-30 devnull 	for(s = hash; s < &hash[NHASH]; s++){
13 76193d7c 2003-09-30 devnull 		for(ss = *s; ss; ss = ss->next)
14 76193d7c 2003-09-30 devnull 			free((char *)ss);
15 76193d7c 2003-09-30 devnull 		*s = 0;
16 76193d7c 2003-09-30 devnull 	}
17 76193d7c 2003-09-30 devnull }
18 76193d7c 2003-09-30 devnull 
19 76193d7c 2003-09-30 devnull Symtab *
20 76193d7c 2003-09-30 devnull symlook(char *sym, int space, void *install)
21 76193d7c 2003-09-30 devnull {
22 76193d7c 2003-09-30 devnull 	long h;
23 76193d7c 2003-09-30 devnull 	char *p;
24 76193d7c 2003-09-30 devnull 	Symtab *s;
25 76193d7c 2003-09-30 devnull 
26 76193d7c 2003-09-30 devnull 	for(p = sym, h = space; *p; h += *p++)
27 76193d7c 2003-09-30 devnull 		h *= HASHMUL;
28 76193d7c 2003-09-30 devnull 	if(h < 0)
29 76193d7c 2003-09-30 devnull 		h = ~h;
30 76193d7c 2003-09-30 devnull 	h %= NHASH;
31 76193d7c 2003-09-30 devnull 	for(s = hash[h]; s; s = s->next)
32 76193d7c 2003-09-30 devnull 		if((s->space == space) && (strcmp(s->name, sym) == 0))
33 76193d7c 2003-09-30 devnull 			return(s);
34 76193d7c 2003-09-30 devnull 	if(install == 0)
35 76193d7c 2003-09-30 devnull 		return(0);
36 76193d7c 2003-09-30 devnull 	s = (Symtab *)Malloc(sizeof(Symtab));
37 76193d7c 2003-09-30 devnull 	s->space = space;
38 76193d7c 2003-09-30 devnull 	s->name = sym;
39 76193d7c 2003-09-30 devnull 	s->value = install;
40 76193d7c 2003-09-30 devnull 	s->next = hash[h];
41 76193d7c 2003-09-30 devnull 	hash[h] = s;
42 76193d7c 2003-09-30 devnull 	return(s);
43 76193d7c 2003-09-30 devnull }
44 76193d7c 2003-09-30 devnull 
45 76193d7c 2003-09-30 devnull void
46 76193d7c 2003-09-30 devnull symdel(char *sym, int space)
47 76193d7c 2003-09-30 devnull {
48 76193d7c 2003-09-30 devnull 	long h;
49 76193d7c 2003-09-30 devnull 	char *p;
50 76193d7c 2003-09-30 devnull 	Symtab *s, *ls;
51 76193d7c 2003-09-30 devnull 
52 76193d7c 2003-09-30 devnull 	/* multiple memory leaks */
53 76193d7c 2003-09-30 devnull 
54 76193d7c 2003-09-30 devnull 	for(p = sym, h = space; *p; h += *p++)
55 76193d7c 2003-09-30 devnull 		h *= HASHMUL;
56 76193d7c 2003-09-30 devnull 	if(h < 0)
57 76193d7c 2003-09-30 devnull 		h = ~h;
58 76193d7c 2003-09-30 devnull 	h %= NHASH;
59 76193d7c 2003-09-30 devnull 	for(s = hash[h], ls = 0; s; ls = s, s = s->next)
60 76193d7c 2003-09-30 devnull 		if((s->space == space) && (strcmp(s->name, sym) == 0)){
61 76193d7c 2003-09-30 devnull 			if(ls)
62 76193d7c 2003-09-30 devnull 				ls->next = s->next;
63 76193d7c 2003-09-30 devnull 			else
64 76193d7c 2003-09-30 devnull 				hash[h] = s->next;
65 76193d7c 2003-09-30 devnull 			free((char *)s);
66 76193d7c 2003-09-30 devnull 		}
67 76193d7c 2003-09-30 devnull }
68 76193d7c 2003-09-30 devnull 
69 76193d7c 2003-09-30 devnull void
70 76193d7c 2003-09-30 devnull symtraverse(int space, void (*fn)(Symtab*))
71 76193d7c 2003-09-30 devnull {
72 76193d7c 2003-09-30 devnull 	Symtab **s, *ss;
73 76193d7c 2003-09-30 devnull 
74 76193d7c 2003-09-30 devnull 	for(s = hash; s < &hash[NHASH]; s++)
75 76193d7c 2003-09-30 devnull 		for(ss = *s; ss; ss = ss->next)
76 76193d7c 2003-09-30 devnull 			if(ss->space == space)
77 76193d7c 2003-09-30 devnull 				(*fn)(ss);
78 76193d7c 2003-09-30 devnull }
79 76193d7c 2003-09-30 devnull 
80 76193d7c 2003-09-30 devnull void
81 76193d7c 2003-09-30 devnull symstat(void)
82 76193d7c 2003-09-30 devnull {
83 76193d7c 2003-09-30 devnull 	Symtab **s, *ss;
84 76193d7c 2003-09-30 devnull 	int n;
85 76193d7c 2003-09-30 devnull 	int l[1000];
86 76193d7c 2003-09-30 devnull 
87 76193d7c 2003-09-30 devnull 	memset((char *)l, 0, sizeof(l));
88 76193d7c 2003-09-30 devnull 	for(s = hash; s < &hash[NHASH]; s++){
89 76193d7c 2003-09-30 devnull 		for(ss = *s, n = 0; ss; ss = ss->next)
90 76193d7c 2003-09-30 devnull 			n++;
91 76193d7c 2003-09-30 devnull 		l[n]++;
92 76193d7c 2003-09-30 devnull 	}
93 76193d7c 2003-09-30 devnull 	for(n = 0; n < 1000; n++)
94 76193d7c 2003-09-30 devnull 		if(l[n]) Bprint(&bout, "%ld of length %d\n", l[n], n);
95 76193d7c 2003-09-30 devnull }