blob: c03bf2f2705a5be86dd9b6619cad9185e17c5ba8 (
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
31
32
33
34
|
#-h- initkw 549 local 12/01/80 15:54:11
# initkw - initialize tables and important global variables
include defs
subroutine initkw
include COMMON_BLOCKS
pointer mktabl
call dsinit (MEMSIZE)
deftbl = mktabl (1) # symbol table for definitions
call entdkw
rkwtbl = mktabl (1) # symbol table for Ratfor key words
call entrkw
fkwtbl = mktabl (0) # symbol table for Fortran key words
call entfkw
namtbl = mktabl (1) # symbol table for long identifiers
xpptbl = mktabl (1) # symbol table for xpp directives
call entxkw
gentbl = mktabl (0) # symbol table for generated identifiers
errtbl = NULL # table of names to be error checked
label = FIRST_LABEL # starting statement label
smem(1) = EOS # haven't read in "mem.com" file yet
body = NO # not in procedure body to start
dbgout = NO # disable debug output by default
dbglev = 0 # file level if debug enabled
memflg = NO # haven't declared mem common yet
swinrg = NO # default range checking for switches
col = 6
return
end
|
