#include <signal.h>
#include "header.h"
#include "larndefs.h"

#define BIT(a) (1<<((a)-1))

extern char savefilename[],wizard,predostuff,nosignal;

static s2choose()   /* text to be displayed if ^C during intro screen */
    {
    cursor(1,24); lprcat("Press "); setbold(); lprcat("return"); resetbold();
    lprcat(" to continue: ");   lflush();
    }

static void cntlc()    /* what to do for a ^C */
    {
    if (nosignal) return;   /* don't do anything if inhibited */
#ifndef AMIGA
# ifndef MSDOS
    signal(SIGQUIT,SIG_IGN);
# endif MSDOS
#endif AMIGA
    signal(SIGINT,SIG_IGN);
    quit(); if (predostuff==1) s2choose(); else showplayer();
    lflush();
# ifndef MSDOS
#ifndef AMIGA
    signal(SIGQUIT,cntlc);
#endif /* AMIGA */
# endif
    signal(SIGINT,cntlc);
    }

#ifndef MSDOS
/*
 *  subroutine to save the game if a hangup signal
 */
static sgam()
    {
    savegame(savefilename);  wizard=1;  died(-257); /* hangup signal */
    }
#endif

#ifdef SIGTSTP
static tstop() /* control Y */
    {
    if (nosignal)   return;  /* nothing if inhibited */
    lcreat((char*)0);  clearvt100();    lflush();     signal(SIGTSTP,SIG_DFL);
#ifdef SIGVTALRM
    /* looks like BSD4.2 or higher - must clr mask for signal to take effect*/
    sigsetmask(sigblock(0)& ~BIT(SIGTSTP));
#endif
    kill(getpid(),SIGTSTP);

    setupvt100();  signal(SIGTSTP,tstop);
    if (predostuff==1) s2choose(); else drawscreen();
    showplayer();   lflush();
    }
#endif SIGTSTP

/*
 *  subroutine to issue the needed signal traps  called from main()
 */
static void sigfpe()  { sigpanic(SIGFPE); }
# ifndef MSDOS
#ifndef AMIGA
static sigbus()  { sigpanic(SIGBUS); }
static sigill()  { sigpanic(SIGILL); }   static sigtrap() { sigpanic(SIGTRAP); }
static sigiot()  { sigpanic(SIGIOT); }   static sigemt()  { sigpanic(SIGEMT); }
static sigsegv() { sigpanic(SIGSEGV); }  static sigsys()  { sigpanic(SIGSYS); }
static sigpipe() { sigpanic(SIGPIPE); }  static sigterm() { sigpanic(SIGTERM); }
#endif /* AMIGA */
# endif /* MSDOS */

sigsetup()
    {
    signal(SIGINT,  cntlc);
    signal(SIGFPE,  sigfpe);
# ifndef MSDOS
#ifndef AMIGA
    signal(SIGBUS,  sigbus);        signal(SIGQUIT, cntlc);
    signal(SIGKILL, SIG_IGN);       signal(SIGHUP,  sgam);
    signal(SIGILL,  sigill);        signal(SIGTRAP, sigtrap);
    signal(SIGIOT,  sigiot);        signal(SIGEMT,  sigemt);
    signal(SIGSEGV, sigsegv);       signal(SIGSYS,  sigsys);
    signal(SIGPIPE, sigpipe);       signal(SIGTERM, sigterm);
#ifdef SIGTSTP
    signal(SIGTSTP,tstop);      signal(SIGSTOP,tstop);
#endif SIGTSTP
#endif /* AMIGA */
# endif
    }

#ifdef MSDOS
#define NSIG 9
#endif

#ifdef VMS
#define NSIG 16
#endif

#ifdef BSD  /* for BSD UNIX? */

static char *signame[NSIG] = { "",
"SIGHUP",  /*   1    hangup */
"SIGINT",  /*   2    interrupt */
"SIGQUIT", /*   3    quit */
"SIGILL",  /*   4    illegal instruction (not reset when caught) */
"SIGTRAP", /*   5    trace trap (not reset when caught) */
"SIGIOT",  /*   6    IOT instruction */
"SIGEMT",  /*   7    EMT instruction */
"SIGFPE",  /*   8    floating point exception */
"SIGKILL", /*   9    kill (cannot be caught or ignored) */
"SIGBUS",  /*   10   bus error */
"SIGSEGV", /*   11   segmentation violation */
"SIGSYS",  /*   12   bad argument to system call */
"SIGPIPE", /*   13   write on a pipe with no one to read it */
"SIGALRM", /*   14   alarm clock */
"SIGTERM", /*   15   software termination signal from kill */
"SIGURG",  /*   16   urgent condition on IO channel */
"SIGSTOP", /*   17   sendable stop signal not from tty */
"SIGTSTP", /*   18   stop signal from tty */
"SIGCONT", /*   19   continue a stopped process */
"SIGCHLD", /*   20   to parent on child stop or exit */
"SIGTTIN", /*   21   to readers pgrp upon background tty read */
"SIGTTOU", /*   22   like TTIN for output if (tp->t_local&LTOSTOP) */
"SIGIO",   /*   23   input/output possible signal */
"SIGXCPU", /*   24   exceeded CPU time limit */
"SIGXFSZ", /*   25   exceeded file size limit */
"SIGVTALRM",/*  26   virtual time alarm */
"SIGPROF", /*   27   profiling time alarm */
"","","","" };

#else BSD   /* for system V? */

static char *signame[NSIG+1] = { "",
"SIGHUP",  /*   1    hangup */
"SIGINT",  /*   2    interrupt */
"SIGQUIT", /*   3    quit */
"SIGILL",  /*   4    illegal instruction (not reset when caught) */
"SIGTRAP", /*   5    trace trap (not reset when caught) */
"SIGIOT",  /*   6    IOT instruction */
"SIGEMT",  /*   7    EMT instruction */
# if MSDOS|AMIGA
"SIGFPE"}; /*   8    floating point exception */
# else MSDOS
"SIGFPE",  /*   8    floating point exception */
"SIGKILL", /*   9    kill (cannot be caught or ignored) */
"SIGBUS",  /*   10   bus error */
"SIGSEGV", /*   11   segmentation violation */
"SIGSYS",  /*   12   bad argument to system call */
"SIGPIPE", /*   13   write on a pipe with no one to read it */
"SIGALRM", /*   14   alarm clock */
# ifdef VMS
"SIGTERM"}; /*  15   software termination signal from kill */
# else VMS
"SIGTERM", /*   15   software termination signal from kill */
"SIGUSR1",  /*  16   user defines signal 1 */
"SIGUSR2", /*   17   user defines signal 2 */
"SIGCLD",  /*   18   child death */
"SIGPWR" };  /*   19   power fail */
# endif VMS
# endif MSDOS
# endif BSD

/*
 *  routine to process a fatal error signal
 */
static sigpanic(sig)
int sig;
{
    char buf[128];
    signal(sig,SIG_DFL);
    sprintf(buf,"\nLarn - Panic! Signal %d received [%s]",sig,signame[sig]);
    write(2,buf,strlen(buf));  sleep(2);
    sncbr();
    savegame(savefilename); 
# ifdef MSDOS
    exit(1);
# else
    kill(getpid(),sig); /* this will terminate us */
# endif
}