Initial commit

unix/sys_try.c

@@ -0,0 +1,56 @@
+#include <assert.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <setjmp.h>
+#include <signal.h>
+#include <limits.h>
+#include "myc_fortran.h"
+
+void intcatch(int sig)
+{ printf("\nuse quit (normally ctrl-\\) to interrupt\n");
+}
+
+int called=0; /* env is valid only if called==1 */
+jmp_buf env;
+
+void (*inthdl)(int sig)=intcatch;
+void (*errhdl)(void);
+
+void sighdl(int sig)
+{ if (called) longjmp(env,sig);
+}
+
+void F_FUN(sys_err_hdl)(void errhdl0(void))
+{ errhdl=errhdl0; }
+
+void F_FUN(sys_int_hdl)(void inthdl0(int sig))
+{ inthdl=inthdl0; }
+
+void F_FUN(sys_try)(void proc(void))
+{ int status;
+  void (*sgh[32]) (int);
+
+  assert(!called); /* nested calls not allowed */
+  called=1;
+  sgh[SIGFPE] =signal(SIGFPE, sighdl);
+  sgh[SIGINT] =signal(SIGINT, *inthdl);
+  status=setjmp(env);
+  if (status==0) /* first return of setjmp */
+  { proc(); }
+  else
+  { (*errhdl)(); };
+  signal(SIGFPE, sgh[SIGFPE]);
+  signal(SIGINT, intcatch);
+  called=0;
+}
+
+void F_FUN(sys_abort)(void)
+{ if (called) longjmp(env,-2);
+}
+
+
+void F_FUN(sys_exit_hdl)(void hdl(void))
+{ atexit(hdl);
+}