blob: 4a76c772443a1830e12d7da166536ec31cb43c6b (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# FSCAN -- Begin scanning a line from a file.
int procedure fscan (fd)
int fd
int getlline()
include "scan.com"
errchk getlline
begin
if (getlline (fd, sc_scanbuf, SZ_SCANBUF) == EOF)
return (EOF)
else {
call reset_scan()
return (OK)
}
end
# SCAN -- Scan the standard input.
int procedure scan()
int fscan()
begin
return (fscan (STDIN))
end
|
