97 lines
2.3 KiB
C
97 lines
2.3 KiB
C
/* This code is all obsolete & should be thrown away. 8/23/96 Olin. */
|
|
|
|
#include <errno.h>
|
|
#include <unistd.h>
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
#include "cstuff.h"
|
|
|
|
/* Hack the blocked-signal mask.
|
|
*******************************************************************************
|
|
*/
|
|
|
|
|
|
#include "machine/sigset.h"
|
|
|
|
int set_procmask(int hi, int lo, int *old_lo_p)
|
|
{
|
|
sigset_t mask, old_mask;
|
|
int old_hi;
|
|
|
|
make_sigset(&mask, hi, lo);
|
|
|
|
sigprocmask(SIG_SETMASK, &mask, &old_mask);
|
|
split_sigset(old_mask, &old_hi, old_lo_p);
|
|
return old_hi;
|
|
}
|
|
|
|
|
|
int get_procmask(int *old_lo_p)
|
|
{
|
|
sigset_t old_mask;
|
|
int old_hi;
|
|
|
|
sigprocmask(SIG_SETMASK, NULL, &old_mask);
|
|
split_sigset(old_mask, &old_hi, old_lo_p);
|
|
return old_hi;
|
|
}
|
|
|
|
|
|
/* Set/Get signal handlers
|
|
*******************************************************************************
|
|
*/
|
|
|
|
long int pending_signals = 0;
|
|
void scm_handle_sig(int sig) {pending_signals |= (1<<sig);}
|
|
|
|
|
|
scheme_value set_int_handler(int sig, scheme_value handler, int flags,
|
|
scheme_value *ohandler, int *oflags)
|
|
{
|
|
struct sigaction new, old;
|
|
|
|
sigemptyset(&new.sa_mask); /* WTF */
|
|
new.sa_flags = flags;
|
|
|
|
if( handler == SCHFALSE ) new.sa_handler = SIG_IGN;
|
|
else if( handler == SCHTRUE ) new.sa_handler = SIG_DFL;
|
|
else {
|
|
new.sa_handler = scm_handle_sig;
|
|
/* Do other stuff. */
|
|
}
|
|
|
|
if( sigaction(sig, &new, &old) ) {
|
|
*ohandler = SCHFALSE;
|
|
return ENTER_FIXNUM(errno);
|
|
}
|
|
|
|
*oflags = old.sa_flags;
|
|
/* if( old.sa_handler == SIG_IGN ) *ohandler = SCHFALSE;
|
|
else if( old.sa_handler == SIG_DFL ) *ohandler = SCHTRUE;
|
|
else if( old.sa_handler == scm_handle_sig ) {
|
|
*ohandler = ENTER_FIXNUM(0); /* Fix later. */
|
|
}
|
|
else *ohandler = ENTER_FIXNUM(-1); /* Unknown signal handler. */
|
|
return SCHFALSE;
|
|
}
|
|
|
|
|
|
scheme_value get_int_handler(int signal, scheme_value *handler, int *flags)
|
|
{
|
|
struct sigaction old;
|
|
|
|
if( sigaction(signal, NULL, &old) ) {
|
|
*handler = SCHFALSE;
|
|
return ENTER_FIXNUM(errno);
|
|
}
|
|
|
|
*flags = old.sa_flags;
|
|
if( old.sa_handler == SIG_IGN ) *handler = SCHFALSE;
|
|
else if( old.sa_handler == SIG_DFL ) *handler = SCHTRUE;
|
|
else if( old.sa_handler == scm_handle_sig ) {
|
|
*handler = ENTER_FIXNUM(0); /* Fix later. */
|
|
}
|
|
else *handler = ENTER_FIXNUM(-1); /* Unknown signal handler. */
|
|
return SCHFALSE;
|
|
}
|