1 files changed, 84 insertions, 0 deletions
diff --git a/unix/os/zzepro.c b/unix/os/zzepro.c
new file mode 100644
index 00000000..9f046716
--- /dev/null
+++ b/unix/os/zzepro.c
@@ -0,0 +1,84 @@
+#include <stdio.h>
+#include <signal.h>
+#ifdef MACOSX
+#include <math.h>
+#include <fenv.h>
+#endif
+#ifdef CYGWIN
+#include <math.h>
+#include <mingw/fenv.h>
+#endif
+
+#define import_spp
+#define import_knames
+#include <iraf.h>
+
+
+
+#if (defined(MACOSX) && defined(OLD_MACOSX))
+void ex_handler ( int, int, struct sigcontext * );
+#else
+void ex_handler ( int, siginfo_t *, void * );
+#endif
+
+
+/*
+ * ZZEPRO.C -- Code which is executed at the end of every procedure.
+ */
+
+/* NOTE: Following is also picked up by Mac/Intel. */
+#if ( (defined(MACOSX) || defined(CYGWIN)) && !defined(IPAD))
+
+int macosx_sigmask = (FE_DIVBYZERO|FE_OVERFLOW|FE_INVALID);
+
+void mxmask_ (void);
+void mxumsk_ (void);
+
+
+/* ZZEPRO.C -- On MacOSX (which under 10.1.x can't raise a hardware
+ * exception) we check at the end of every procedure to see if a floating
+ * exception occurred.
+ */
+int
+ZZEPRO (void)
+{
+	fexcept_t  flagp;
+
+	fegetexceptflag (&flagp, macosx_sigmask);
+	if (flagp & macosx_sigmask) {
+	    siginfo_t info;
+	    info.si_code = (flagp & macosx_sigmask);
+	    ex_handler (SIGFPE, &info, NULL);
+	}
+
+	/* Clear the exception. */
+    	flagp = (fexcept_t) 0;
+    	feclearexcept (FE_ALL_EXCEPT);
+
+	return (XOK);
+}
+
+/* Mask or unmask the invalid operand exception.  Invalid must be
+ * masked to be able to operate upon invalid operands, e.g., to filter
+ * out NaN/Inf in IEEE i/o code (see as$ieee.gx).
+ */
+void mxmask_ (void)
+{
+	macosx_sigmask &= ~FE_INVALID;
+}
+
+void mxumsk_ (void)
+{	
+	fexcept_t  flagp;
+
+	fegetexceptflag (&flagp, macosx_sigmask);
+	macosx_sigmask |=  FE_INVALID;
+	flagp &= ~FE_INVALID;
+	
+	fesetexceptflag (&flagp, macosx_sigmask);
+}
+
+
+#else
+int ZZEPRO ( void) { return (XOK); }
+#endif