Repatch (from linux) of OSX IRAF

1 files changed, 40 insertions, 0 deletions

diff --git a/noao/digiphot/photcal/mctable/mctindef.x b/noao/digiphot/photcal/mctable/mctindef.x
new file mode 100644
index 00000000..f3e3427c
--- /dev/null
+++ b/noao/digiphot/photcal/mctable/mctindef.x
@@ -0,0 +1,40 @@
+include	"../lib/mctable.h"
+
+
+# MCT_INDEF - Fill table buffer with undefined values, acording to the
+# data type used.
+
+procedure mct_indef (table, buffer, npts)
+
+pointer	table			# table descriptor
+pointer	buffer			# buffer to clear
+int	npts			# number of untis to clear
+
+char	cval
+short	sval
+
+begin
+	# Clear according to data type.
+	switch (MCT_TYPE (table)) {
+	case TY_CHAR:
+	    cval = '\000'
+	    call amovkc (cval, Memc[buffer], npts)
+	case TY_SHORT:
+	    sval = INDEFS
+	    call amovks (sval, Mems[buffer], npts)
+	case TY_INT:
+	    call amovki (INDEFI, Memi[buffer], npts)
+	case TY_LONG:
+	    call amovkl (INDEFL, Meml[buffer], npts)
+	case TY_REAL:
+	    call amovkr (INDEFR, Memr[buffer], npts)
+	case TY_DOUBLE:
+	    call amovkd (INDEFD, Memd[buffer], npts)
+	case TY_COMPLEX:
+	    call amovkx (INDEFX, Memx[buffer], npts)
+	case TY_POINTER:
+	    call amovki (NULL, Memi[buffer], npts)
+	default:
+	    call error (0, "mct_indef: Unknown data type")
+	}
+end