cpython/Parser/intrcheck.c
1990-12-20 15:06:42 +00:00

96 lines
1.2 KiB
C

/* Check for interrupts */
#ifdef MSDOS
/* This might work for MS-DOS (untested though): */
void
initintr()
{
}
int
intrcheck()
{
int interrupted = 0;
while (kbhit()) {
if (getch() == '\003')
interrupted = 1;
}
return interrupted;
}
#define OK
#endif
#ifdef THINK_C
#include <MacHeaders>
void
initintr()
{
}
int
intrcheck()
{
/* Static to make it faster only */
static EventRecord e;
/* XXX This fails if the user first types ahead and then
decides to interrupt -- repeating Command-. until the
event queue overflows may work though. */
if (EventAvail(keyDownMask|autoKeyMask, &e) &&
(e.modifiers & cmdKey) &&
(e.message & charCodeMask) == '.') {
(void) GetNextEvent(keyDownMask|autoKeyMask, &e);
return 1;
}
return 0;
}
#define OK
#endif /* THINK_C */
#ifndef OK
/* Default version -- for real operating systems and for Standard C */
#include <stdio.h>
#include <signal.h>
#include "sigtype.h"
static int interrupted;
static SIGTYPE
intcatcher(sig)
int sig;
{
interrupted = 1;
signal(SIGINT, intcatcher);
}
void
initintr()
{
if (signal(SIGINT, SIG_IGN) != SIG_IGN)
signal(SIGINT, intcatcher);
}
int
intrcheck()
{
if (!interrupted)
return 0;
interrupted = 0;
return 1;
}
#endif /* !OK */