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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CLSCAN -- Begin a scan of the value of a CL parameter
int procedure clscan (param)
char param[ARB]
int getline(), strncmp(), clc_fetch()
include "scan.com"
errchk clreqpar, getline
begin
# Fetch the value of a CL parameter. First look in the parameter
# cache, querying the CL for the value of the parameter only if it
# is not found in the cache.
if (clc_fetch (param, sc_scanbuf, SZ_SCANBUF) == ERR) {
call clreqpar (param)
if (getline (CLIN, sc_scanbuf) == EOF)
return (EOF)
}
# Check for EOF on a list structured parameter; if not EOF initialize
# formatted input for the clget procedures.
if (strncmp ("EOF\n", sc_scanbuf, 4) == 0)
return (EOF)
else {
call reset_scan()
return (OK)
}
end
|
