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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "qpoe.h"
# QP_DSYM -- Dump the symbol table of a QPOE file.
procedure qp_dsym (qp, out)
pointer qp #I QPOE descriptor
int out #I output file
int nsyms, i
pointer sp, st, sym, op, pname, syms
pointer sthead(), stnext(), stname()
begin
call smark (sp)
st = QP_ST(qp)
# Count the symbols.
nsyms = 0
for (sym=sthead(st); sym != NULL; sym=stnext(st,sym))
nsyms = nsyms + 1
# Construct a reversed array of symbol pointers.
call salloc (syms, nsyms, TY_POINTER)
op = syms + nsyms - 1
for (sym=sthead(st); sym != NULL; sym=stnext(st,sym)) {
Memi[op] = sym
op = op - 1
}
# Output the symbols.
if (nsyms > 0)
call fprintf (out,
" SYMBOL FLAGS DTYPE DSYM NELEM MAXELEM SZELEM COMMENT LFILE OFFSET\n")
do i = 1, nsyms {
sym = Memi[syms+i-1]
pname = stname (st, sym)
call fprintf (out, "%16s %5o %5d %4d %5d %7d %6d %7x %5d %6d\n")
call pargstr (Memc[pname])
call pargi (and (S_FLAGS(sym), 77777B))
call pargi (S_DTYPE(sym))
call pargi (S_DSYM(sym))
call pargi (S_NELEM(sym))
call pargi (S_MAXELEM(sym))
call pargi (S_SZELEM(sym))
call pargi (S_COMMENT(sym))
call pargi (S_LFILE(sym))
call pargi (S_OFFSET(sym))
}
call sfree (sp)
end
|
