blob: 6c877dc258ee8b4e9d1cb24a4afbd02291f2d4aa (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# SSCAN -- Begin a scan from a string. Only the first newline terminated
# line in the string buffer will be scanned. If a string buffer containing
# more than a single line must be scanned, MEMOPEN and FSCAN may be used.
procedure sscan (str)
char str[ARB]
int ip, op
include "scan.com"
begin
op = 1
for (ip=1; str[ip] != EOS && str[ip] != '\n'; ip=ip+1) {
sc_scanbuf[op] = str[ip]
op = op + 1
if (op >= SZ_SCANBUF)
break
}
sc_scanbuf[op] = EOS
call reset_scan() # initialize scan
end
|
