Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
signal_.c
Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef KR_headers
00004 typedef VOID (*sig_type)();
00005 extern sig_type signal();
00006 typedef int (*sig_proc)();
00007
00008 ftnint signal_(sigp, proc) integer *sigp; sig_type proc;
00009 #else
00010 #include "signal.h"
00011 typedef void (*sig_type)(int);
00012 typedef int (*sig_proc)(int);
00013
00014 ftnint signal_(integer *sigp, sig_proc proc)
00015 #endif
00016 {
00017 int sig;
00018 sig = (int)*sigp;
00019
00020 return (ftnint)signal(sig, (sig_type)proc);
00021 }
