[unix-history] / usr / othersrc / games / larn / signal.c

#include <signal.h>
#include "header.h"			/* "Larn is copyrighted 1986 by Noah Morgan.\n" */
#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 */
	signal(SIGQUIT,SIG_IGN);	signal(SIGINT,SIG_IGN);
	quit(); if (predostuff==1) s2choose(); else showplayer();
	lflush();
	signal(SIGQUIT,cntlc);	signal(SIGINT,cntlc);
	}

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

#ifdef SIGTSTP
static void
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 sigpanic();
static void sigill()	{ sigpanic(SIGILL); }
static void sigtrap()	{ sigpanic(SIGTRAP); }
static void sigiot()	{ sigpanic(SIGIOT); }
static void sigemt()	{ sigpanic(SIGEMT); }
static void sigfpe()	{ sigpanic(SIGFPE); }
static void sigbus()	{ sigpanic(SIGBUS); }
static void sigsegv()	{ sigpanic(SIGSEGV); }
static void sigsys()	{ sigpanic(SIGSYS); }
static void sigpipe()	{ sigpanic(SIGPIPE); }
static void sigterm()	{ sigpanic(SIGTERM); }
sigsetup()
	{
	signal(SIGQUIT, cntlc); 		signal(SIGINT,  cntlc); 
	signal(SIGKILL, SIG_IGN);		signal(SIGHUP,  sgam);
	signal(SIGILL,  sigill);		signal(SIGTRAP, sigtrap);
	signal(SIGIOT,  sigiot);		signal(SIGEMT,  sigemt);
	signal(SIGFPE,  sigfpe);		signal(SIGBUS,  sigbus);
	signal(SIGSEGV, sigsegv);		signal(SIGSYS,  sigsys);
	signal(SIGPIPE, sigpipe);		signal(SIGTERM, sigterm);
#ifdef SIGTSTP
	signal(SIGTSTP,tstop);		signal(SIGSTOP,tstop);
#endif SIGTSTP
	}

#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] = { "",
"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 */
"SIGUSR1",  /*	16	 user defines signal 1 */
"SIGUSR2", /*	17	 user defines signal 2 */
"SIGCLD",  /*	18	 child death */
"SIGPWR",  /*	19	 power fail */
"","","","","","","","","","","","" };

#endif BSD

/*
 *	routine to process a fatal error signal
 */
static void
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); 
	kill(getpid(),sig); /* this will terminate us */
	}
Commit	Line	Data
9546bac0 WJ	1	#include <signal.h>
	2	#include "header.h" /* "Larn is copyrighted 1986 by Noah Morgan.\n" */
	3	#define BIT(a) (1<<((a)-1))
	4	extern char savefilename[],wizard,predostuff,nosignal;
	5	static s2choose() /* text to be displayed if ^C during intro screen */
	6	{
	7	cursor(1,24); lprcat("Press "); setbold(); lprcat("return"); resetbold();
	8	lprcat(" to continue: "); lflush();
	9	}
	10
	11	static void
	12	cntlc() /* what to do for a ^C */
	13	{
	14	if (nosignal) return; /* don't do anything if inhibited */
	15	signal(SIGQUIT,SIG_IGN); signal(SIGINT,SIG_IGN);
	16	quit(); if (predostuff==1) s2choose(); else showplayer();
	17	lflush();
	18	signal(SIGQUIT,cntlc); signal(SIGINT,cntlc);
	19	}
	20
	21	/*
	22	* subroutine to save the game if a hangup signal
	23	*/
	24	static void
	25	sgam()
	26	{
	27	savegame(savefilename); wizard=1; died(-257); /* hangup signal */
	28	}
	29
	30	#ifdef SIGTSTP
	31	static void
	32	tstop() /* control Y */
	33	{
	34	if (nosignal) return; /* nothing if inhibited */
	35	lcreat((char*)0); clearvt100(); lflush(); signal(SIGTSTP,SIG_DFL);
	36	#ifdef SIGVTALRM
	37	/* looks like BSD4.2 or higher - must clr mask for signal to take effect*/
	38	sigsetmask(sigblock(0)& ~BIT(SIGTSTP));
	39	#endif
	40	kill(getpid(),SIGTSTP);
	41
	42	setupvt100(); signal(SIGTSTP,tstop);
	43	if (predostuff==1) s2choose(); else drawscreen();
	44	showplayer(); lflush();
	45	}
	46	#endif SIGTSTP
	47
	48	/*
	49	* subroutine to issue the needed signal traps called from main()
	50	*/
	51	static void sigpanic();
	52	static void sigill() { sigpanic(SIGILL); }
	53	static void sigtrap() { sigpanic(SIGTRAP); }
	54	static void sigiot() { sigpanic(SIGIOT); }
	55	static void sigemt() { sigpanic(SIGEMT); }
	56	static void sigfpe() { sigpanic(SIGFPE); }
	57	static void sigbus() { sigpanic(SIGBUS); }
	58	static void sigsegv() { sigpanic(SIGSEGV); }
	59	static void sigsys() { sigpanic(SIGSYS); }
	60	static void sigpipe() { sigpanic(SIGPIPE); }
	61	static void sigterm() { sigpanic(SIGTERM); }
	62	sigsetup()
	63	{
	64	signal(SIGQUIT, cntlc); signal(SIGINT, cntlc);
65	signal(SIGKILL, SIG_IGN); signal(SIGHUP, sgam);
66	signal(SIGILL, sigill); signal(SIGTRAP, sigtrap);
67	signal(SIGIOT, sigiot); signal(SIGEMT, sigemt);
68	signal(SIGFPE, sigfpe); signal(SIGBUS, sigbus);
69	signal(SIGSEGV, sigsegv); signal(SIGSYS, sigsys);
70	signal(SIGPIPE, sigpipe); signal(SIGTERM, sigterm);
71	#ifdef SIGTSTP
72	signal(SIGTSTP,tstop); signal(SIGSTOP,tstop);
73	#endif SIGTSTP
74	}
75
76	#ifdef BSD /* for BSD UNIX? */
77
78	static char *signame[NSIG] = { "",
79	"SIGHUP", /* 1 hangup */
80	"SIGINT", /* 2 interrupt */
81	"SIGQUIT", /* 3 quit */
82	"SIGILL", /* 4 illegal instruction (not reset when caught) */
83	"SIGTRAP", /* 5 trace trap (not reset when caught) */
84	"SIGIOT", /* 6 IOT instruction */
85	"SIGEMT", /* 7 EMT instruction */
86	"SIGFPE", /* 8 floating point exception */
87	"SIGKILL", /* 9 kill (cannot be caught or ignored) */
88	"SIGBUS", /* 10 bus error */
89	"SIGSEGV", /* 11 segmentation violation */
90	"SIGSYS", /* 12 bad argument to system call */
91	"SIGPIPE", /* 13 write on a pipe with no one to read it */
92	"SIGALRM", /* 14 alarm clock */
93	"SIGTERM", /* 15 software termination signal from kill */
94	"SIGURG", /* 16 urgent condition on IO channel */
95	"SIGSTOP", /* 17 sendable stop signal not from tty */
96	"SIGTSTP", /* 18 stop signal from tty */
97	"SIGCONT", /* 19 continue a stopped process */
98	"SIGCHLD", /* 20 to parent on child stop or exit */
99	"SIGTTIN", /* 21 to readers pgrp upon background tty read */
100	"SIGTTOU", /* 22 like TTIN for output if (tp->t_local&LTOSTOP) */
101	"SIGIO", /* 23 input/output possible signal */
102	"SIGXCPU", /* 24 exceeded CPU time limit */
103	"SIGXFSZ", /* 25 exceeded file size limit */
104	"SIGVTALRM",/* 26 virtual time alarm */
105	"SIGPROF", /* 27 profiling time alarm */
106	"","","","" };
107
108	#else BSD /* for system V? */
109
110	static char *signame[NSIG] = { "",
111	"SIGHUP", /* 1 hangup */
112	"SIGINT", /* 2 interrupt */
113	"SIGQUIT", /* 3 quit */
114	"SIGILL", /* 4 illegal instruction (not reset when caught) */
115	"SIGTRAP", /* 5 trace trap (not reset when caught) */
116	"SIGIOT", /* 6 IOT instruction */
117	"SIGEMT", /* 7 EMT instruction */
118	"SIGFPE", /* 8 floating point exception */
119	"SIGKILL", /* 9 kill (cannot be caught or ignored) */
120	"SIGBUS", /* 10 bus error */
121	"SIGSEGV", /* 11 segmentation violation */
122	"SIGSYS", /* 12 bad argument to system call */
123	"SIGPIPE", /* 13 write on a pipe with no one to read it */
124	"SIGALRM", /* 14 alarm clock */
125	"SIGTERM", /* 15 software termination signal from kill */
126	"SIGUSR1", /* 16 user defines signal 1 */
127	"SIGUSR2", /* 17 user defines signal 2 */
128	"SIGCLD", /* 18 child death */
129	"SIGPWR", /* 19 power fail */
130	"","","","","","","","","","","","" };
131
132	#endif BSD
133
134	/*
135	* routine to process a fatal error signal
136	*/
137	static void
138	sigpanic(sig)
139	int sig;
140	{
141	char buf[128];
142	signal(sig,SIG_DFL);
143	sprintf(buf,"\nLarn - Panic! Signal %d received [%s]",sig,signame[sig]);
144	write(2,buf,strlen(buf)); sleep(2);
145	sncbr();
146	savegame(savefilename);
147	kill(getpid(),sig); /* this will terminate us */
148	}