blob: b2b5f706abaeb2b75d8ac8287121e8d9c616c3c7 (
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
|
#-h- ifparm 689 local 12/01/80 15:54:11
# ifparm - determines if the defined symbol has arguments in its
include defs
# definition. This effects how the macro is expanded.
integer function ifparm (strng)
character strng (ARB)
character c
external index
integer i, index, type
c = strng (1)
if (c == INCTYPE | c == SUBTYPE | c == IFTYPE | c == ARITHTYPE |
c == MACTYPE)
ifparm = YES
else {
ifparm = NO
for (i = 1; index (strng (i), ARGFLAG) > 0; ) {
i = i + index (strng (i), ARGFLAG) # i points at char after ARGFLAG
if (type (strng (i)) == DIGIT)
andif (type (strng (i + 1)) != DIGIT) {
ifparm = YES
break
}
}
}
return
end
|
