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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "symtab.h"
# STRESTORE -- Restore to memory a symbol table previously saved in a file
# with STSAVE. The file must be positioned to the correct offset before
# we are called. STRESTORE is called in place of STOPEN and returns a
# symtab descriptor pointer as the function value. The symbol table is
# restored to exactly the state it was in when STSAVE was called. Note
# that since SYMTAB symbol tables use only relative offsets internally,
# the data structures may be relocated anywhere in memory when they are
# read back from the file. The symbol table is stored externally in a
# machine independent binary file.
pointer procedure strestore (fd)
int fd # file from which symbol table is to be read
int nelem
pointer stp, stab, sbuf, index
int miireadc(), miireadi()
errchk miireadc, miireadi
define readerr_ 91
begin
index = NULL
stab = NULL
sbuf = NULL
# Read symbol table descriptor.
call malloc (stp, LEN_SYMTAB, TY_STRUCT)
if (miireadi (fd, Memi[stp], LEN_SYMTAB) < LEN_SYMTAB)
goto readerr_
if (ST_MAGIC(stp) != MAGIC)
call error (1, "strestore: bad magic in save file")
# Read the hash table index.
nelem = ST_INDEXLEN(stp)
call malloc (index, nelem, TY_INT)
if (miireadi (fd, Memi[index], nelem) < nelem)
goto readerr_
# Read the symbol table data.
nelem = ST_STABLEN(stp)
call malloc (stab, nelem, TY_STRUCT)
if (miireadi (fd, Memi[stab], nelem) < nelem)
goto readerr_
# Read the string buffer.
nelem = ST_SBUFLEN(stp)
call malloc (sbuf, nelem, TY_CHAR)
if (miireadc (fd, Memc[sbuf], nelem) < nelem)
goto readerr_
ST_INDEX(stp) = index
ST_SBUFP(stp) = sbuf
ST_STABP(stp) = stab
return (stp)
readerr_
call mfree (sbuf, TY_CHAR)
call mfree (stab, TY_STRUCT)
call mfree (index, TY_INT)
call mfree (stp, TY_STRUCT)
call error (2, "strestore: unexpected EOF")
end
|
