Repatch (from linux) of OSX IRAF

1 files changed, 24 insertions, 0 deletions

diff --git a/pkg/ecl/errtest/errif.cl b/pkg/ecl/errtest/errif.cl
new file mode 100644
index 00000000..6328fab6
--- /dev/null
+++ b/pkg/ecl/errtest/errif.cl
@@ -0,0 +1,24 @@
+#{  ERRIF -- Test error types.
+
+procedure errif (type)
+
+int	type			{ prompt = "Error test code: " 	}
+
+begin
+	int 	code
+
+	# get local script variable of param
+	code = type
+
+	if (code == 1) {			# FPE test
+	    fpe ()
+	} else if (code == 2) {			# SEGVIO test
+	    segvio ()
+	} else if (code == 3) {			# SPP error() call test
+	    spperr ()
+	} else if (code == 4) {			# non-existant task test
+	    foo ()
+	} else if (code == 5) {			# CL error() command
+	    error (code, "cl error() command")
+	}
+end