BSD 4_3 release

[unix-history] / usr / src / usr.lib / libF77 / main.c

diff --git a/usr/src/usr.lib/libF77/main.c b/usr/src/usr.lib/libF77/main.c
index 9c90400..37ecce2 100644 (file)
--- a/usr/src/usr.lib/libF77/main.c
+++ b/usr/src/usr.lib/libF77/main.c
@@ -1,6 +1,10 @@
-/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
-char id_libF77[] = "@(#)main.c 2.15    8/25/83";
-
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *     @(#)main.c      5.2     6/26/85
+ */

 #include <stdio.h>
 #include <signal.h>
 #include "../libI77/fiodefs.h"
 #include <stdio.h>
 #include <signal.h>
 #include "../libI77/fiodefs.h"


@@ -32,6 +36,7 @@ for (signum=1; signum<=16; signum++)
 f_init();
 MAIN_();
 f_exit();
 f_init();
 MAIN_();
 f_exit();

+return 0;

 }
 
 struct action {
 }
 
 struct action {


@@ -94,10 +99,6 @@ if (s == SIGHUP || s == SIGINT || s == SIGQUIT)
 else
        signal(s, SIG_DFL);     /* shouldn't happen again, but ... */
 
 else
        signal(s, SIG_DFL);     /* shouldn't happen again, but ... */
 

-#if    vax
-sigsetmask(0);                 /* don't block */
-#endif
-

 if (act->mesg)
        {
        fprintf(units[STDERR].ufd, "*** %s", act->mesg);
 if (act->mesg)
        {
        fprintf(units[STDERR].ufd, "*** %s", act->mesg);


@@ -118,18 +119,5 @@ if (act->mesg)
                }
        putc('\n', units[STDERR].ufd);
        }
                }
        putc('\n', units[STDERR].ufd);
        }

-f_exit();
-_cleanup();
-
-if(act->core)
-       {
-       /* now get a core */
-#if    vax
-       signal(SIGILL, SIG_DFL);
-#else  pdp11
-       signal(SIGIOT, SIG_DFL);
-#endif
-       abort();
-       }
-exit(s);
+f77_abort( s, act->core );

 }
 }