Return to main.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libsF77

Annotation of cci/usr/src/usr.lib/libsF77/main.c, revision 1.1.1.1

1.1       root        1: /* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
                      2: 
                      3: #include <stdio.h>
                      4: #include <signal.h>
                      5: 
                      6: int    xargc;
                      7: char   **xargv;
                      8: int    _sigfdie(), _sigidie(), _sigqdie(), _sigindie(), _sigtdie();
                      9: 
                     10: main(argc, argv, arge)
                     11:        int argc;
                     12:        char **argv;
                     13:        char **arge;
                     14: {
                     15: 
                     16:        xargc = argc;
                     17:        xargv = argv;
                     18:        signal(SIGFPE, _sigfdie);       /* ignore underflow, enable overflow */
                     19:        signal(SIGIOT, _sigidie);
                     20:        if ((int)signal(SIGQUIT,_sigqdie) & 01)
                     21:                signal(SIGQUIT, SIG_IGN);
                     22:        if ((int)signal(SIGINT, _sigindie) & 01)
                     23:                signal(SIGINT, SIG_IGN);
                     24:        signal(SIGTERM,_sigtdie);
                     25: 
                     26: #ifdef pdp11
                     27:        ldfps(01200); /* detect overflow as an exception */
                     28: #endif
                     29:        f_init();
                     30:        MAIN__();
                     31:        f_exit();
                     32: }
                     33: 
                     34: #if vax || tahoe
                     35: static char *fpenames[] = {
                     36:        "unknown floating exception",
                     37:        "integer overflow",
                     38:        "integer divide by zero",
                     39:        "floating overflow",
                     40:        "floating/decimal divide by zero",
                     41:        "floating underflow",
                     42:        "decimal overflow",
                     43:        "subscript out of range",
                     44:        "floating overflow",
                     45:        "floating divide by zero",
                     46:        "floating underflow"
                     47: };
                     48: 
                     49: _sigfdie(sig, code)
                     50:        int sig, code;
                     51: {
                     52:        if (code < 0 || code >= sizeof fpenames/sizeof fpenames[0])
                     53:                code = 0;
                     54:        _sigdie(fpenames[code], 1);
                     55: }
                     56: #else
                     57: _sigfdie() { _sigdie("floating exception, 1); }
                     58: #endif
                     59: 
                     60: _sigidie() { _sigdie("IOT Trap", 1); }
                     61: _sigqdie() { _sigdie("Quit signal", 1); }
                     62: _sigindie() { _sigdie("Interrupt", 0); }
                     63: _sigtdie() { _sigdie("Killed", 0); }
                     64: 
                     65: _sigdie(s, kill)
                     66:        register char *s;
                     67:        int kill;
                     68: {
                     69: 
                     70:        /* print error message, then clear buffers */
                     71:        fflush(stderr);
                     72:        fprintf(stderr, "%s\n", s);
                     73:        f_exit();
                     74:        fflush(stderr);
                     75:        if (kill) {
                     76:                /* now get a core */
                     77:                signal(SIGIOT, 0);
                     78:                abort();
                     79:                /*NOTREACHED*/
                     80:        }
                     81:        exit(1);
                     82: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.