blob: df0dce03962b49a302da42ef1413fea9f84fe9ef (
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <clio.h>
include "clpset.h"
# CLEPSET -- Edit a pset. What exactly this operation implies depends
# upon the CL. To the application, it means any external operation which
# can modify the pset.
procedure clepset (pp)
pointer pp #I pset descriptor
pointer sp, lbuf
bool streq()
int getlline()
errchk flush, getlline, clc_scan
begin
call smark (sp)
call salloc (lbuf, SZ_COMMAND, TY_CHAR)
# Edit pset and dump edited version back to CLIN. It is not
# necessary to write the pset to the CL before editing as the
# cache is "write-through" and any clputs will already have
# updated the CL version of the pset as well as the cache version.
call flush (STDOUT)
call fprintf (CLOUT, "eparam %s; dparam %s > %s\n")
call pargstr (PS_PSETNAME(pp))
call pargstr (PS_PSETNAME(pp))
call pargstr (IPCOUT)
call flush (CLOUT)
# Parse the new "param = value" statements returned by dparam and
# update the parameter cache.
while (getlline (CLIN, Memc[lbuf], SZ_COMMAND) != EOF)
if (streq (Memc[lbuf], IPCDONEMSG))
break
else
call clc_scan (Memc[lbuf])
# Delete the old parameter entries.
call clc_compress()
call sfree (sp)
end
|
