1991-10-07 16:59:33 +00:00
|
|
|
#include "f2c.h"
|
|
|
|
|
|
1993-11-17 16:38:52 +00:00
|
|
|
typedef void (*sig_type)();
|
1991-10-07 16:59:33 +00:00
|
|
|
extern sig_type signal();
|
|
|
|
|
|
|
|
|
|
integer signal_(sigp, procp)
|
|
|
|
|
integer *sigp, *procp;
|
|
|
|
|
{
|
|
|
|
|
int sig;
|
|
|
|
|
sig_type proc;
|
|
|
|
|
sig = *sigp;
|
|
|
|
|
proc = *(sig_type *)procp;
|
|
|
|
|
|
|
|
|
|
return (integer)signal(sig, proc);
|
|
|
|
|
}
|
