Return to signal_.c CVS log

Up to [Research Unix] / researchv10no / libF77

Annotation of researchv10no/libF77/signal_.c, revision 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.