home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / g77-0.5.15-src.tgz / tar.out / fsf / g77 / f / runtime / libF77 / signal_.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  439b  |  29 lines
  1. #include "f2c.h"
  2.  
  3. #ifndef RETSIGTYPE
  4. /* we shouldn't rely on this... */
  5. #ifdef KR_headers
  6. #define RETSIGTYPE int
  7. #else
  8. #define RETSIGTYPE void
  9. #endif
  10. #endif
  11. typedef RETSIGTYPE (*sig_type)();
  12.  
  13. #ifdef KR_headers
  14. extern sig_type signal();
  15.  
  16. ftnint signal_(sigp, proc) integer *sigp; sig_type proc;
  17. #else
  18. #include "signal.h"
  19.  
  20. ftnint signal_(integer *sigp, sig_type proc)
  21. #endif
  22. {
  23.     int sig;
  24.     sig = (int)*sigp;
  25.  
  26.     signal(sig, proc);
  27.     return 0;
  28.     }
  29.