Repatch (from linux) of OSX IRAF

1 files changed, 103 insertions, 0 deletions

diff --git a/unix/os/zpanic.c b/unix/os/zpanic.c
new file mode 100644
index 00000000..d4f75109
--- /dev/null
+++ b/unix/os/zpanic.c
@@ -0,0 +1,103 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <stdio.h>
+#include <signal.h>
+#include <sys/types.h>
+#include <fcntl.h>
+
+#define	import_kernel
+#define	import_knames
+#define import_prtype
+#define import_spp
+#include <iraf.h>
+
+extern	char os_process_name[];		/* process name, set in zmain	*/
+extern	PKCHAR osfn_bkgfile[];		/* bkgfile fname if detached	*/
+extern	int save_prtype;		/* process type saved by zmain	*/
+extern	int debug_sig;
+
+
+/* ZPANIC -- Unconditionally terminate process.  Normal termination occurs
+ * when the IRAF Main returns to the zmain.  We are called if a nasty error
+ * occurs in the kernel (a "can't happen" type error) or if an error occurs
+ * during error recovery, and error recursion would otherwise result.
+ */
+int
+ZPANIC (
+  XINT	  *errcode,		/* integer error code at time of crash	*/
+  PKCHAR  *errmsg 		/* packed error message string		*/
+)
+{
+	char	msg[512];
+	int	fd;
+
+
+	/* \nPANIC in `procname': error message\n
+	 */
+	strcpy (msg, "\n");
+	strcat (msg, "PANIC in `");
+	strcat (msg, os_process_name);
+	strcat (msg, "': ");
+	strcat (msg, (char *)errmsg);
+	strcat (msg, "\n");
+
+	write (2, msg, strlen(msg));
+
+	/* Echo the error message on the console if we are a bkg process,
+	 * in case the user has logged off.
+	 */
+	if (save_prtype == PR_DETACHED) {
+	    fd = open ("/dev/console", 1);
+	    if (fd > 0) {
+		write (fd, &msg[1], strlen(&msg[1]));
+		close (fd);
+	    }
+	}
+
+	/* Delete the bkgfile if run as a detached process.  Deletion of the
+	 * bkgfile signals process termination.
+	 */
+	if (save_prtype == PR_DETACHED)
+	    unlink ((char *)osfn_bkgfile);
+
+	/* Terminate process with a core dump if the debug_sig flag is set.
+	 */
+	if (debug_sig) {
+#ifdef LINUX
+	    signal (SIGABRT, SIG_DFL);
+	    kill (getpid(), SIGABRT);
+#else
+	    signal (SIGEMT, SIG_DFL);
+	    kill (getpid(), SIGEMT);
+#endif
+	} else
+	    _exit ((int)*errcode);
+
+	return (XOK);
+}
+
+
+/* KERNEL_PANIC -- Called by a kernel routine if a fatal error occurs in the
+ * kernel.
+ */
+int
+kernel_panic (char *errmsg)
+{
+	XINT	errcode = 0;
+	PKCHAR	pkmsg[SZ_LINE];
+	register char	*ip, *op;
+
+	extern  int ZPANIC();
+
+
+	/* It is necessary to copy the error message string to get a PKCHAR
+	 * type string since misalignment is possible when coercing from char
+	 * to PKCHAR.
+	 */
+	for (ip=errmsg, op=(char *)pkmsg;  (*op++ = *ip++) != EOS;  )
+	    ;
+	ZPANIC (&errcode, pkmsg);
+
+	return (XOK);
+}