Repatch (from linux) of OSX IRAF

1 files changed, 31 insertions, 0 deletions

diff --git a/noao/imred/quadred/src/ccdproc/setinteract.x b/noao/imred/quadred/src/ccdproc/setinteract.x
new file mode 100644
index 00000000..05bc0f71
--- /dev/null
+++ b/noao/imred/quadred/src/ccdproc/setinteract.x
@@ -0,0 +1,31 @@
+include	<pkg/xtanswer.h>
+
+# SET_INTERACTIVE -- Set the interactive flag.  Query the user if necessary.
+#
+# This procedure initializes the interactive flag if there is no query.
+# If there is a query it is issued by XT_ANSWER.   The four valued
+# interactive flag is returned.
+
+procedure set_interactive (query, interactive)
+
+char	query[ARB]		# Query prompt
+int	interactive		# Fit overscan interactively?  (returned)
+
+int	interact		# Saves last value of interactive flag
+bool	clgetb()
+
+begin
+	# If the query is null then initialize from the CL otherwise
+	# query the user.  This response is four valued to allow the user
+	# to turn off the query when processing multiple images.
+
+	if (query[1] == EOS) {
+	    if (clgetb ("interactive"))
+	        interact = YES
+	    else
+	        interact = ALWAYSNO
+	} else
+	    call xt_answer (query, interact)
+
+	interactive = interact
+end