blob: d040fe5d5fea7fe0a57b9f6d2f19b645601f113c (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CLPSTR -- Put a string type parameter to the CL.
procedure clpstr (param, value)
char param[ARB] # param name
char value[ARB] # new value
pointer sp, pname
pointer clc_find()
begin
call smark (sp)
call salloc (pname, SZ_FNAME, TY_CHAR)
call fprintf (CLOUT, "%s=\"%s\"\n")
call pargstr (param)
call pargstr (value)
# If the parameter is in the cache, update the cached value as well.
if (clc_find (param, Memc[pname], SZ_FNAME) != NULL)
call clc_enter (Memc[pname], value)
call sfree (sp)
end
|
