1 files changed, 25 insertions, 0 deletions
diff --git a/sys/clio/clpsetnm.x b/sys/clio/clpsetnm.x
new file mode 100644
index 00000000..6854d94b
--- /dev/null
+++ b/sys/clio/clpsetnm.x
@@ -0,0 +1,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