blob: 0e2a6488162baa983b105841a5894db4590b2721 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#include "mk.h"
#define NHASH 4099
#define HASHMUL 79L /* this is a good value */
static Symtab *hash[NHASH];
Symtab *
symlook(char *sym, int space, void *install)
{
long h;
char *p;
Symtab *s;
for(p = sym, h = space; *p; h += *p++)
h *= HASHMUL;
if(h < 0)
h = ~h;
h %= NHASH;
for(s = hash[h]; s; s = s->next)
if((s->space == space) && (strcmp(s->name, sym) == 0))
return(s);
if(install == 0)
return(0);
s = (Symtab *)Malloc(sizeof(Symtab));
s->space = space;
s->name = sym;
s->u.ptr = install;
s->next = hash[h];
hash[h] = s;
return(s);
}
void
symtraverse(int space, void (*fn)(Symtab*))
{
Symtab **s, *ss;
for(s = hash; s < &hash[NHASH]; s++)
for(ss = *s; ss; ss = ss->next)
if(ss->space == space)
(*fn)(ss);
}
|
