blob: 42cf8d6a6f3ef7923f2aa1e03f428d5d92ece288 (
plain) (
blame)
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
|
#-h- lndict 678 local 12/01/80 15:54:13
# lndict - output long-name dictionary as a debugging aid
include defs
subroutine lndict
character sym (MAXTOK), c
ifdef (UPPERC, character cupper)
integer sctabl, length
pointer posn, locn
include COMMON_BLOCKS
posn = 0
while (sctabl (namtbl, sym, locn, posn) != EOF)
if (length(sym) > MAXIDLENGTH) {
ifdef (UPPERC, call outch (BIGC))
ifnotdef (UPPERC, call outch (LETC))
call outtab
for (; mem (locn) != EOS; locn = locn + 1) {
c = mem (locn) # kluge for people with LOGICAL*1 characters
ifdef (UPPERC, c = cupper (c))
call outch (c)
}
call outch (BLANK)
call outch (BLANK)
call outstr (sym)
call outdon
}
return
end
|
