mirrors/cpython
1
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2025-09-09 18:32:22 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 9

Generalize to macintosh.

Browse source
This commit is contained in:
Guido van Rossum 1991-06-24 22:30:42 +00:00
parent 1e2293d1f7
commit d6a15ada72
6 changed files with 34 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Include/pgenheaders.h
View file

@ -25,11 +25,15 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
/* Include files and extern declarations used by most of the parser. /* Include files and extern declarations used by most of the parser.
This is a precompiled header for THINK C. */ This is a precompiled header for THINK C. */
#ifdef THINK_C
#define macintosh
/* #define THINK_C_3_0 /*** TURN THIS ON FOR THINK C 3.0 ***/
#endif
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#ifdef THINK_C #ifdef THINK_C
/* #define THINK_C_3_0 /*** TURN THIS ON FOR THINK C 3.0 ****/
#define label label_ #define label label_
#undef label #undef label
#endif #endif
@ -38,7 +42,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#include <proto.h> #include <proto.h>
#endif #endif
#ifdef THINK_C #ifdef macintosh
#ifndef THINK_C_3_0 #ifndef THINK_C_3_0
#include <stdlib.h> #include <stdlib.h>
#endif #endif

34
Parser/intrcheck.c
View file

@ -24,6 +24,11 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
/* Check for interrupts */ /* Check for interrupts */
#ifdef THINK_C
#define macintosh
#endif
#ifdef MSDOS #ifdef MSDOS
/* This might work for MS-DOS (untested though): */ /* This might work for MS-DOS (untested though): */
@ -49,19 +54,26 @@ intrcheck()
#endif #endif
#ifdef THINK_C #ifdef macintosh
#ifdef THINK_C
/* This is for THINK C 4.0. /* This is for THINK C 4.0.
For 3.0, you may have to remove the signal stuff. */ For 3.0, you may have to remove the signal stuff. */
#include <MacHeaders> #include <MacHeaders>
#else
/* This is for MPW 3.1 */
/* XXX Untested */
#include <OSEvents.h>
#include <SysEqu.h>
#endif
#include <signal.h> #include <signal.h>
#include "sigtype.h" #include "sigtype.h"
static int interrupted; static int interrupted;
static SIGTYPE static SIGTYPE
intcatcher(sig) intcatcher(ig)
int sig; int sig;
{ {
interrupted = 1; interrupted = 1;
@ -80,17 +92,15 @@ intrcheck()
{ {
register EvQElPtr q; register EvQElPtr q;
/* This is like THINK C 4.0's <console.h>. /* This is like THINK C 4.0's <console.h> */
I'm not sure why FlushEvents must be called from asm{}. */ /* q = (EvQElPtr) EventQueue.qHead; */
for (q = (EvQElPtr)EventQueue.qHead; q; q = (EvQElPtr)q->qLink) { q = (EvQElPtr) GetEvQHdr()->qHead;
for (; q; q = (EvQElPtr)q->qLink) {
if (q->evtQWhat == keyDown && if (q->evtQWhat == keyDown &&
(char)q->evtQMessage == '.' && (char)q->evtQMessage == '.' &&
(q->evtQModifiers & cmdKey) != 0) { (q->evtQModifiers & cmdKey) != 0) {
FlushEvents(keyDownMask, 0);
asm {
moveq #keyDownMask,d0
_FlushEvents
}
interrupted = 1; interrupted = 1;
break; break;
} }
@ -104,7 +114,7 @@ intrcheck()
#define OK #define OK
#endif /* THINK_C */ #endif /* macintosh */
#ifndef OK #ifndef OK

6
Parser/pgenmain.c
View file

@ -42,7 +42,7 @@ int debugging;
/* Forward */ /* Forward */
grammar *getgrammar PROTO((char *filename)); grammar *getgrammar PROTO((char *filename));
#ifdef THINK_C #ifdef macintosh
int main PROTO((int, char **)); int main PROTO((int, char **));
char *askfile PROTO((void)); char *askfile PROTO((void));
#endif #endif
@ -57,7 +57,7 @@ main(argc, argv)
FILE *fp; FILE *fp;
char *filename; char *filename;
#ifdef THINK_C #ifdef macintosh
filename = askfile(); filename = askfile();
#else #else
if (argc != 2) { if (argc != 2) {
@ -115,7 +115,7 @@ getgrammar(filename)
return g; return g;
} }
#ifdef THINK_C #ifdef macintosh
char * char *
askfile() askfile()
{ {

2
Parser/tokenizer.c
View file

@ -37,7 +37,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#include "tokenizer.h" #include "tokenizer.h"
#include "errcode.h" #include "errcode.h"
#ifdef THINK_C #ifdef macintosh
#define TABSIZE 4 #define TABSIZE 4
#endif #endif

6
Python/import.c
View file

@ -37,13 +37,9 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#include "compile.h" #include "compile.h"
#include "ceval.h" #include "ceval.h"
#ifdef THINK_C
#define macintosh
#endif
/* Define pathname separator used in file names */ /* Define pathname separator used in file names */
#ifdef THINK_C #ifdef macintosh
#define SEP ':' #define SEP ':'
#endif #endif

2
Python/sysmodule.c
View file

@ -45,7 +45,7 @@ Data members:
/* Define delimiter used in $PYTHONPATH */ /* Define delimiter used in $PYTHONPATH */
#ifdef THINK_C #ifdef macintosh
#define DELIM ' ' #define DELIM ' '
#endif #endif