Return to signal_.c CVS log

Up to [Research Unix] / researchv10no / libF77

Annotation of researchv10no/libF77/signal_.c, revision 1.1.1.1

1.1       root        1: #include "f2c.h"
                      2: 
                      3: #ifdef KR_headers
                      4: typedef int (*sig_type)();
                      5: extern sig_type signal();
                      6: 
                      7: ftnint signal_(sigp, proc) integer *sigp; sig_type proc;
                      8: #else
                      9: #include "signal.h"
                     10: typedef void (*sig_type)(int);
                     11: 
                     12: ftnint signal_(integer *sigp, sig_type proc)
                     13: #endif
                     14: {
                     15:        int sig;
                     16:        sig = (int)*sigp;
                     17: 
                     18:        return (ftnint)signal(sig, proc);
                     19:        }

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