Repatch (from linux) of OSX IRAF

1 files changed, 26 insertions, 0 deletions

diff --git a/sys/qpoe/qplenf.x b/sys/qpoe/qplenf.x
new file mode 100644
index 00000000..c8e4539e
--- /dev/null
+++ b/sys/qpoe/qplenf.x
@@ -0,0 +1,26 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"qpoe.h"
+
+# QP_LENF -- Return the length of the named parameter, i.e., the number of
+# stored elements in the parameter value.  NULL is returned if there is no
+# value, or ERR if the parameter does not exist.
+
+int procedure qp_lenf (qp, param)
+
+pointer	qp			#I QPOE descriptor
+char	param[ARB]		#I parameter name
+
+pointer	sym
+pointer	qp_gpsym()
+
+begin
+	if (QP_ACTIVE(qp) == NO)
+	    call qp_bind (qp)
+
+	sym = qp_gpsym (qp, param)
+	if (sym == NULL)
+	    return (ERR)
+	else
+	    return (S_NELEM(sym))
+end