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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "symtab.h"
# STENTER -- Add a symbol to the symbol table. If the named symbol is already
# present in the table it will be redefined until STFREE is called to return
# the storage allocated for the current symbol. A pointer to the user part
# of the symstruct is returned as the function value.
pointer procedure stenter (stp, key, u_symlen)
pointer stp # symbol table descriptor
char key[ARB] # symbol name
int u_symlen # length of user part of symstruct (su)
long sum
pointer el, tp
int symlen, new_symbol, thread, ip
int stpstr(), stalloc()
errchk stalloc, stpstr
begin
if (key[1] == EOS)
call error (1, "stenter: null key string")
# Hash the key onto a thread in the index.
sum = 0
do ip = 1, MAX_HASHCHARS {
if (key[ip] == EOS)
break
sum = sum + (sum + key[ip])
}
thread = mod (sum, ST_INDEXLEN(stp))
tp = ST_INDEX(stp) + thread
# Allocate space in STAB.
symlen = LEN_SYMSTRUCT + u_symlen
new_symbol = stalloc (stp, symlen)
# Initialize symstruct.
el = ST_STABP(stp) + new_symbol
E_NEXTHASH(el) = Memi[tp]
E_NEXTGLOB(el) = ST_LASTSYMBOL(stp)
E_THREAD(el) = thread
E_KEY(el) = stpstr (stp, key, 0)
# Set the head of thread list and the head of the global list to
# point to the new symbol. Flag the first key character (used to
# quickly determine that a key beginning with a certain character
# is not present in the table).
Memi[tp] = new_symbol
ST_LASTSYMBOL(stp) = new_symbol
ST_NSYMBOLS(stp) = ST_NSYMBOLS(stp) + 1
ST_ASCII(stp,key[1]) = 1
return (E_USERFIELDS(el))
end
|
