blob: cc8aa6956ddabfa30cff180204f1885f4e64862c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# GARGWRD -- Return the next whitespace delimited token or quoted string from
# the scan buffer.
procedure gargwrd (outstr, maxch)
char outstr[ARB]
int maxch, ctowrd()
include "scan.com"
begin
if (sc_stopscan) {
outstr[1] = EOS
return
}
if (ctowrd (sc_scanbuf, sc_ip, outstr, maxch) > 0)
sc_ntokens = sc_ntokens + 1
else
sc_stopscan = true
end
|
