Initial commit

1 files changed, 48 insertions, 0 deletions

diff --git a/noao/imred/quadred/src/ccdproc/setinput.x b/noao/imred/quadred/src/ccdproc/setinput.x
new file mode 100644
index 00000000..3d3170db
--- /dev/null
+++ b/noao/imred/quadred/src/ccdproc/setinput.x
@@ -0,0 +1,48 @@
+include	<error.h>
+include	"ccdtypes.h"
+
+# SET_INPUT -- Set the input image and image type.
+#
+# 1.  Open the input image.  Return warning and NULL pointer for an error.
+# 2.  Get the requested CCD image type.
+#	a. If no type is requested then accept the image.
+#	b. If a type is requested then match against the image type.
+#	   Unmap the image if no match.
+# 3.  If the image is acceptable then get the CCD type code.
+
+procedure set_input (image, im, ccdtype)
+
+char	image[ARB]	# Input image name
+pointer	im		# IMIO pointer (returned)
+int	ccdtype		# CCD image type
+
+bool	strne()
+int	ccdtypei()
+pointer	sp, str1, str2, immap()
+
+begin
+	# Open the image.  Return a warning and NULL pointer for an error.
+	iferr (im = immap (image, READ_ONLY, 0)) {
+	    call erract (EA_WARN)
+	    im = NULL
+	    return
+	}
+
+	call smark (sp)
+	call salloc (str1, SZ_LINE, TY_CHAR)
+	call salloc (str2, SZ_LINE, TY_CHAR)
+
+	# Get the requested CCD type.
+	call clgstr ("ccdtype", Memc[str1], SZ_LINE)
+	call xt_stripwhite (Memc[str1])
+	if (Memc[str1] != EOS) {
+	    call ccdtypes (im, Memc[str2], SZ_LINE)
+	    if (strne (Memc[str1], Memc[str2]))
+		call imunmap (im)
+	}
+
+	if (im != NULL)
+	    ccdtype = ccdtypei (im)
+
+	call sfree (sp)
+end