blob: 34b8345106816115ebdde11b595148bdf4c410eb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#-h- allblk 486 local 12/01/80 15:53:44
# allblk - determine if line consists of all blanks
include defs
# this routine is called by outdon, and is here to fix
# a bug which sometimes occurs if two or more includes precede the
# first line of executable code. Could not trace down the cause
integer function allblk (buf)
character buf (ARB)
integer i
allblk = YES
for (i = 1; buf (i) != NEWLINE & buf (i) != EOS; i = i + 1)
if (buf (i) != BLANK) {
allblk = NO
break
}
return
end
|
