Return to main.c CVS log

Up to [Research Unix] / researchv10no / libF77

Annotation of researchv10no/libF77/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: #ifndef SIGIOT
                      7: #define SIGIOT SIGABRT
                      8: #endif
                      9: 
                     10: #ifndef KR_headers
                     11: #include "stdlib.h"
                     12: #endif
                     13: #ifdef __cplusplus
                     14: extern "C" {
                     15: #endif
                     16: 
                     17: #ifdef NO__STDC
                     18: #define ONEXIT onexit
                     19: extern void f_exit();
                     20: #else
                     21: #ifndef KR_headers
                     22: extern void f_exit(void);
                     23: #ifndef NO_ONEXIT
                     24: #define ONEXIT atexit
                     25: extern int atexit(void (*)(void));
                     26: #endif
                     27: #else
                     28: #ifndef NO_ONEXIT
                     29: #define ONEXIT onexit
                     30: extern void f_exit();
                     31: #endif
                     32: #endif
                     33: #endif
                     34: 
                     35: #ifdef KR_headers
                     36: extern void f_init(), sig_die();
                     37: extern int MAIN__();
                     38: #define Int /* int */
                     39: #else
                     40: extern void f_init(void), sig_die(char*, int);
                     41: extern int MAIN__(void);
                     42: #define Int int
                     43: #endif
                     44: 
                     45: static void sigfdie(Int n)
                     46: {
                     47: sig_die("Floating Exception", 1);
                     48: }
                     49: 
                     50: 
                     51: static void sigidie(Int n)
                     52: {
                     53: sig_die("IOT Trap", 1);
                     54: }
                     55: 
                     56: #ifdef SIGQUIT
                     57: static void sigqdie(Int n)
                     58: {
                     59: sig_die("Quit signal", 1);
                     60: }
                     61: #endif
                     62: 
                     63: 
                     64: static void sigindie(Int n)
                     65: {
                     66: sig_die("Interrupt", 0);
                     67: }
                     68: 
                     69: static void sigtdie(Int n)
                     70: {
                     71: sig_die("Killed", 0);
                     72: }
                     73: 
                     74: #ifdef SIGTRAP
                     75: static void sigtrdie(Int n)
                     76: {
                     77: sig_die("Trace trap", 1);
                     78: }
                     79: #endif
                     80: 
                     81: 
                     82: int xargc;
                     83: char **xargv;
                     84: 
                     85: #ifdef KR_headers
                     86: main(argc, argv) int argc; char **argv;
                     87: #else
                     88: main(int argc, char **argv)
                     89: #endif
                     90: {
                     91: xargc = argc;
                     92: xargv = argv;
                     93: signal(SIGFPE, sigfdie);       /* ignore underflow, enable overflow */
                     94: signal(SIGIOT, sigidie);
                     95: #ifdef SIGTRAP
                     96: signal(SIGTRAP, sigtrdie);
                     97: #endif
                     98: #ifdef SIGQUIT
                     99: if(signal(SIGQUIT,sigqdie) == SIG_IGN)
                    100:        signal(SIGQUIT, SIG_IGN);
                    101: #endif
                    102: if(signal(SIGINT, sigindie) == SIG_IGN)
                    103:        signal(SIGINT, SIG_IGN);
                    104: signal(SIGTERM,sigtdie);
                    105: 
                    106: #ifdef pdp11
                    107:        ldfps(01200); /* detect overflow as an exception */
                    108: #endif
                    109: 
                    110: f_init();
                    111: #ifndef NO_ONEXIT
                    112: ONEXIT(f_exit);
                    113: #endif
                    114: MAIN__();
                    115: #ifdef NO_ONEXIT
                    116: f_exit();
                    117: #endif
                    118: exit(0);       /* exit(0) rather than return(0) to bypass Cray bug */
                    119: return 0;      /* For compilers that complain of missing return values; */
                    120:                /* others will complain that this is unreachable code. */
                    121: }
                    122: #ifdef __cplusplus
                    123:        }
                    124: #endif

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