blob: 85be0398e89729ed4139727e6e47758179655ba0 (
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
/* $Id: symbol.c,v 1.1 2004-05-03 05:17:48 behdad Exp $
*
* Symbol table maintenance. Implements an abstract data type called
* the symbol table.
*/
#include "c2man.h"
#include "symbol.h"
/* Create a symbol table.
* Return a pointer to the symbol table or NULL if an error occurs.
*/
SymbolTable *
create_symbol_table ()
{
SymbolTable *symtab;
int i;
symtab = (SymbolTable *)safe_malloc(sizeof(SymbolTable));
for (i = 0; i < SYM_MAX_HASH; ++i)
symtab->bucket[i] = NULL;
return symtab;
}
/* Free the memory allocated to the symbol table.
*/
void
destroy_symbol_table (symtab)
SymbolTable *symtab;
{
int i;
Symbol *sym, *next;
for (i = 0; i < SYM_MAX_HASH; ++i) {
sym = symtab->bucket[i];
while (sym != NULL) {
next = sym->next;
free(sym->name);
free(sym);
sym = next;
}
}
free(symtab);
}
/* This is a simple hash function mapping a symbol name to a hash bucket. */
static unsigned int
hash (name)
char *name;
{
char *s;
unsigned int h;
h = 0;
s = name;
while (*s != '\0')
h = (h << 1) ^ *s++;
return h % SYM_MAX_HASH;
}
/* Search the list of symbols <list> for the symbol <name>.
* Return a pointer to the symbol or NULL if not found.
*/
static Symbol *
search_symbol_list (list, name)
Symbol *list;
char *name;
{
Symbol *sym;
for (sym = list; sym != NULL; sym = sym->next) {
if (strcmp(sym->name, name) == 0)
return sym;
}
return NULL;
}
/* Look for symbol <name> in symbol table <symtab>.
* Return a pointer to the symbol or NULL if not found.
*/
Symbol *
find_symbol (symtab, name)
SymbolTable *symtab;
char *name;
{
return search_symbol_list(symtab->bucket[hash(name)], name);
}
/* If the symbol <name> does not already exist in symbol table <symtab>,
* then add the symbol to the symbol table.
* Return a pointer to the symbol or NULL on an error.
*/
Symbol *
new_symbol (symtab, name, flags)
SymbolTable *symtab; /* symbol table */
char *name; /* symbol name */
int flags; /* symbol attributes */
{
Symbol *sym;
int i;
if ((sym = find_symbol(symtab, name)) == NULL) {
sym = (Symbol *)safe_malloc(sizeof(Symbol));
sym->name = strduplicate(name);
sym->flags = flags;
sym->valtype = SYMVAL_NONE;
i = hash(name);
sym->next = symtab->bucket[i];
symtab->bucket[i] = sym;
}
return sym;
}
|