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
|
#-h- entdkw 975 local 12/01/80 15:54:05
# entdkw --- install macro processor keywords
include defs
subroutine entdkw
character deft(2), prag(2) #, inct(2), subt(2), ift(2), art(2),
# ifdft(2), ifndt(2), mact(2)
string defnam "define"
string prgnam "pragma"
# string macnam "mdefine"
# string incnam "incr"
# string subnam "substr"
# string ifnam "ifelse"
# string arnam "arith"
# string ifdfnm "ifdef"
# string ifndnm "ifnotdef"
data deft (1), deft (2) /DEFTYPE, EOS/
data prag (1), prag (2) /PRAGMATYPE, EOS/
# data mact (1), mact (2) /MACTYPE, EOS/
# data inct (1), inct (2) /INCTYPE, EOS/
# data subt (1), subt (2) /SUBTYPE, EOS/
# data ift (1), ift (2) /IFTYPE, EOS/
# data art (1), art (2) /ARITHTYPE, EOS/
# data ifdft (1), ifdft (2) /IFDEFTYPE, EOS/
# data ifndt (1), ifndt (2) /IFNOTDEFTYPE, EOS/
call ulstal (defnam, deft)
call ulstal (prgnam, prag)
# call ulstal (macnam, mact)
# call ulstal (incnam, inct)
# call ulstal (subnam, subt)
# call ulstal (ifnam, ift)
# call ulstal (arnam, art)
# call ulstal (ifdfnm, ifdft)
# call ulstal (ifndnm, ifndt)
return
end
|
