Repatch (from linux) of OSX IRAF

1 files changed, 29 insertions, 0 deletions

diff --git a/sys/qpoe/qpadd.gx b/sys/qpoe/qpadd.gx
new file mode 100644
index 00000000..83f240ae
--- /dev/null
+++ b/sys/qpoe/qpadd.gx
@@ -0,0 +1,29 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"../qpoe.h"
+
+# QP_ADD -- Set the value of a parameter, creating the parameter if it does
+# not already exist.  This works for the most common case of simple scalar
+# valued header parameters, although any parameter may be written into it it
+# already exists.  Additional control over the parameter attributes is possible
+# if the parameter is explicitly created with qp_addf before being written into.
+
+procedure qp_add$t (qp, param, value, comment)
+
+pointer	qp			#I QPOE descriptor
+char	param[ARB]		#I parameter name
+PIXEL	value			#I parameter value
+char	comment[ARB]		#I comment field, if creating parameter
+
+char	datatype[1]
+errchk	qp_accessf, qp_addf
+string	dtypes SPPTYPES
+int	qp_accessf()
+
+begin
+	if (qp_accessf (qp, param) == NO) {
+	    datatype[1] = dtypes[TY_PIXEL]
+	    call qp_addf (qp, param, datatype, 1, comment, 0)
+	}
+	call qp_put$t (qp, param, value)
+end