diff options
author | Jack Jansen <jack.jansen@cwi.nl> | 1995-01-27 14:40:41 (GMT) |
---|---|---|
committer | Jack Jansen <jack.jansen@cwi.nl> | 1995-01-27 14:40:41 (GMT) |
commit | 9fc3989c665e6a51168362af7800d43f33fa904c (patch) | |
tree | f86bbc16bd3044eb2f6b53ade952ed25fdee2fb9 /Parser | |
parent | 7e4b2def34f5cb6c954148a7458c8e1aa4584320 (diff) | |
download | cpython-9fc3989c665e6a51168362af7800d43f33fa904c.zip cpython-9fc3989c665e6a51168362af7800d43f33fa904c.tar.gz cpython-9fc3989c665e6a51168362af7800d43f33fa904c.tar.bz2 |
Mac interrupt code moved to macglue.c
Diffstat (limited to 'Parser')
-rw-r--r-- | Parser/intrcheck.c | 77 |
1 files changed, 1 insertions, 76 deletions
diff --git a/Parser/intrcheck.c b/Parser/intrcheck.c index 96dd484..09df460 100644 --- a/Parser/intrcheck.c +++ b/Parser/intrcheck.c @@ -116,82 +116,7 @@ intrcheck() #ifdef macintosh -#ifdef applec /* MPW */ -#include <OSEvents.h> -#include <SysEqu.h> -#endif /* applec */ - -#include <signal.h> - -static int interrupted; - -static RETSIGTYPE intcatcher PROTO((int)); -static RETSIGTYPE -intcatcher(sig) - int sig; -{ - interrupted = 1; - signal(SIGINT, intcatcher); -} - -void -initintr() -{ - if (signal(SIGINT, SIG_IGN) != SIG_IGN) - signal(SIGINT, intcatcher); -} - -#ifdef THINK_C -/* MPW and MW runtime catch cmd-. and raise SIGINT, THINK does not, it seems */ -static void -scan_event_queue(flush) - int flush; -{ - register EvQElPtr q; - - q = (EvQElPtr) GetEvQHdr()->qHead; - - for (; q; q = (EvQElPtr)q->qLink) { - if (q->evtQWhat == keyDown && - (char)q->evtQMessage == '.' && - (q->evtQModifiers & cmdKey) != 0) { - if ( flush ) - FlushEvents(keyDownMask, 0); - interrupted = 1; - break; - } - } -} -#endif - -int -intrcheck() -{ -#ifdef THINK_C - scan_event_queue(1); -#endif - PyMac_Yield(); - if (interrupted) { - interrupted = 0; - return 1; - } - return 0; -} - -/* intrpeek() is like intrcheck(), but it doesn't flush the events. The -** idea is that you call intrpeek() somewhere in a busy-wait loop, and return -** None as soon as it returns 1. The mainloop will then pick up the cmd-. soon -** thereafter. -*/ -int -intrpeek() -{ -#ifdef THINK_C - scan_event_queue(0); -#endif - return interrupted; -} - +/* The Mac interrupt code has moved to macglue.c */ #define OK #endif /* macintosh */ |