blob: 6854d94b4019a0d34992660e0552a5dfa77137d3 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "clpset.h"
# CLPSET_PARNAME -- Return a pointer to the full name (pset.parname) of a
# parameter in the referenced pset.
pointer procedure clpset_parname (pp, parname)
pointer pp # pset descriptor
char parname[ARB] # name of parameter in pset
pointer op
int gstrcpy()
begin
op = PS_PARNAMEP(pp)
if (Memc[PS_PSETNAMEP(pp)] != EOS) {
op = op + gstrcpy (PS_PSETNAME(pp), Memc[op], SZ_PSPARNAME)
Memc[op] = '.'; op = op + 1
}
call strcpy (parname, Memc[op], SZ_PSPARNAME-(op-PS_PARNAMEP(pp)))
return (PS_PARNAMEP(pp))
end
|
