Repatch (from linux) of OSX IRAF

1 files changed, 31 insertions, 0 deletions

diff --git a/sys/qpoe/qpputb.x b/sys/qpoe/qpputb.x
new file mode 100644
index 00000000..da7f7ba8
--- /dev/null
+++ b/sys/qpoe/qpputb.x
@@ -0,0 +1,31 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<syserr.h>
+include	"qpoe.h"
+
+# QP_PUTB -- Set the boolean value of the named header parameter.  Type
+# conversion is not permitted between boolean and the other data types.
+
+procedure qp_putb (qp, param, value)
+
+pointer	qp			#I QPOE descriptor
+char	param[ARB]		#I parameter name
+bool	value			#I scalar parameter value
+
+pointer	pp
+int	qp_putparam()
+errchk	qp_putparam, syserrs
+
+begin
+	# Lookup the parameter and get a pointer to the value buffer.
+	if (qp_putparam (qp, param, pp) != TY_BOOL)
+	    call syserrs (SYS_QPBADCONV, param)
+	else if (pp == NULL)
+	    call syserrs (SYS_QPNOVAL, param)
+
+	# Pass the new value.
+	Memb[pp] = value
+
+	# Update the parameter in the datafile.
+	call qp_flushpar (qp)
+end