blob: 26dce4de587c0dcacbc715ae8198ad73b5a53b94 (
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- ngetch 442 local 12/01/80 15:54:30
# ngetch - get a (possibly pushed back) character
include defs
character function ngetch (c)
character c
include COMMON_BLOCKS
integer getlin, n, i
if (buf (bp) == EOS)
if (getlin (buf (PBPOINT), infile (level)) == EOF)
c = EOF
else {
c = buf (PBPOINT)
bp = PBPOINT + 1
if (c == SHARP) { #check for "#!# nn" directive
if (buf(bp) == BANG & buf(bp+1) == SHARP) {
n = 0
for (i=bp+3; buf(i) >= DIG0 & buf(i) <= DIG9; i=i+1)
n = n * 10 + buf(i) - DIG0
linect (level) = n - 1
}
}
linect (level) = linect (level) + 1
}
else {
c = buf (bp)
bp = bp + 1
}
return (c)
end
|
