blob: b775c7eacd3f8a17c9f85e5f040804fde9603a61 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# GARGTOK -- Return the next token from the scanned input line.
procedure gargtok (token, outstr, maxch)
int token
char outstr[ARB]
int maxch, ctotok()
include "scan.com"
begin
if (sc_stopscan)
return
sc_ntokens = sc_ntokens + 1 # Newline, EOS are legal tokens
token = ctotok (sc_scanbuf, sc_ip, outstr, maxch)
end
|
