Tree @c9e37887-a36e-4428-ab31-967b3d1ea548/main (Download .tar.gz)
- debian
- .gitignore
- abort_.c
- arithchk.c
- backspac.c
- c_abs.c
- c_cos.c
- c_div.c
- c_exp.c
- c_log.c
- c_sin.c
- c_sqrt.c
- cabs.c
- close.c
- comptry.bat
- ctype.c
- ctype.h
- d_abs.c
- d_acos.c
- d_asin.c
- d_atan.c
- d_atn2.c
- d_cnjg.c
- d_cos.c
- d_cosh.c
- d_dim.c
- d_exp.c
- d_imag.c
- d_int.c
- d_lg10.c
- d_log.c
- d_mod.c
- d_nint.c
- d_prod.c
- d_sign.c
- d_sin.c
- d_sinh.c
- d_sqrt.c
- d_tan.c
- d_tanh.c
- derf_.c
- derfc_.c
- dfe.c
- dolio.c
- dtime_.c
- due.c
- ef1asc_.c
- ef1cmc_.c
- endfile.c
- erf_.c
- erfc_.c
- err.c
- etime_.c
- exit_.c
- f2c.h0
- f2ch.add
- f77_aloc.c
- f77vers.c
- fio.h
- fmt.c
- fmt.h
- fmtlib.c
- fp.h
- ftell64_.c
- ftell_.c
- getarg_.c
- getenv_.c
- h_abs.c
- h_dim.c
- h_dnnt.c
- h_indx.c
- h_len.c
- h_mod.c
- h_nint.c
- h_sign.c
- hl_ge.c
- hl_gt.c
- hl_le.c
- hl_lt.c
- i77vers.c
- i_abs.c
- i_dim.c
- i_dnnt.c
- i_indx.c
- i_len.c
- i_mod.c
- i_nint.c
- i_sign.c
- iargc_.c
- iio.c
- ilnw.c
- inquire.c
- l_ge.c
- l_gt.c
- l_le.c
- l_lt.c
- lbitbits.c
- lbitshft.c
- libf2c.lbc
- libf2c.sy
- lio.h
- lread.c
- lwrite.c
- main.c
- makefile.sy
- makefile.u
- makefile.vc
- makefile.wat
- math.hvc
- mkfile.plan9
- Notice
- open.c
- pow_ci.c
- pow_dd.c
- pow_di.c
- pow_hh.c
- pow_ii.c
- pow_qq.c
- pow_ri.c
- pow_zi.c
- pow_zz.c
- qbitbits.c
- qbitshft.c
- r_abs.c
- r_acos.c
- r_asin.c
- r_atan.c
- r_atn2.c
- r_cnjg.c
- r_cos.c
- r_cosh.c
- r_dim.c
- r_exp.c
- r_imag.c
- r_int.c
- r_lg10.c
- r_log.c
- r_mod.c
- r_nint.c
- r_sign.c
- r_sin.c
- r_sinh.c
- r_sqrt.c
- r_tan.c
- r_tanh.c
- rawio.h
- rdfmt.c
- README
- rewind.c
- rsfe.c
- rsli.c
- rsne.c
- s_cat.c
- s_cmp.c
- s_copy.c
- s_paus.c
- s_rnge.c
- s_stop.c
- scomptry.bat
- sfe.c
- sig_die.c
- signal1.h0
- signal_.c
- signbit.c
- sue.c
- sysdep1.h0
- system_.c
- typesize.c
- uio.c
- uninit.c
- util.c
- wref.c
- wrtfmt.c
- wsfe.c
- wsle.c
- wsne.c
- xsum0.out
- xwsne.c
- z_abs.c
- z_cos.c
- z_div.c
- z_exp.c
- z_log.c
- z_sin.c
- z_sqrt.c
main.c @c9e37887-a36e-4428-ab31-967b3d1ea548/main — raw · history · blame
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | /* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */ #include "stdio.h" #include "signal1.h" #ifndef SIGIOT #ifdef SIGABRT #define SIGIOT SIGABRT #endif #endif #ifndef KR_headers #undef VOID #include "stdlib.h" #ifdef __cplusplus extern "C" { #endif #endif #ifndef VOID #define VOID void #endif #ifdef __cplusplus extern "C" { #endif #ifdef NO__STDC #define ONEXIT onexit extern VOID f_exit(); #else #ifndef KR_headers extern void f_exit(void); #ifndef NO_ONEXIT #define ONEXIT atexit extern int atexit(void (*)(void)); #endif #else #ifndef NO_ONEXIT #define ONEXIT onexit extern VOID f_exit(); #endif #endif #endif #ifdef KR_headers extern VOID f_init(), sig_die(); extern int MAIN__(); #define Int /* int */ #else extern void f_init(void), sig_die(const char*, int); extern int MAIN__(void); #define Int int #endif static VOID sigfdie(Sigarg) { Use_Sigarg; sig_die("Floating Exception", 1); } static VOID sigidie(Sigarg) { Use_Sigarg; sig_die("IOT Trap", 1); } #ifdef SIGQUIT static VOID sigqdie(Sigarg) { Use_Sigarg; sig_die("Quit signal", 1); } #endif static VOID sigindie(Sigarg) { Use_Sigarg; sig_die("Interrupt", 0); } static VOID sigtdie(Sigarg) { Use_Sigarg; sig_die("Killed", 0); } #ifdef SIGTRAP static VOID sigtrdie(Sigarg) { Use_Sigarg; sig_die("Trace trap", 1); } #endif int xargc; char **xargv; #ifdef __cplusplus } #endif int #ifdef KR_headers main(argc, argv) int argc; char **argv; #else main(int argc, char **argv) #endif { xargc = argc; xargv = argv; signal1(SIGFPE, sigfdie); /* ignore underflow, enable overflow */ #ifdef SIGIOT signal1(SIGIOT, sigidie); #endif #ifdef SIGTRAP signal1(SIGTRAP, sigtrdie); #endif #ifdef SIGQUIT if(signal1(SIGQUIT,sigqdie) == SIG_IGN) signal1(SIGQUIT, SIG_IGN); #endif if(signal1(SIGINT, sigindie) == SIG_IGN) signal1(SIGINT, SIG_IGN); signal1(SIGTERM,sigtdie); #ifdef pdp11 ldfps(01200); /* detect overflow as an exception */ #endif f_init(); #ifndef NO_ONEXIT ONEXIT(f_exit); #endif MAIN__(); #ifdef NO_ONEXIT f_exit(); #endif exit(0); /* exit(0) rather than return(0) to bypass Cray bug */ return 0; /* For compilers that complain of missing return values; */ /* others will complain that this is unreachable code. */ } #ifdef __cplusplus } #endif |