ported to Think C
diff --git a/Mac/Include/macglue.h b/Mac/Include/macglue.h
index d868534..a299016 100644
--- a/Mac/Include/macglue.h
+++ b/Mac/Include/macglue.h
@@ -22,10 +22,18 @@
******************************************************************/
+#ifndef SystemSevenOrLater
+#define SystemSevenOrLater 1
+#endif
+
#include <Types.h>
#include <Files.h>
#include <Events.h>
+#ifdef GENERATINGCFM /* Defined to 0 or 1 in Universal headers */
+#define HAVE_UNIVERSAL_HEADERS
+#endif
+
char *macstrerror(int); /* strerror with mac errors */
extern int PyMac_DoYieldEnabled; /* Don't do eventloop when false */
diff --git a/Mac/Modules/config.c b/Mac/Modules/config.c
index fee7899..ba6f999 100644
--- a/Mac/Modules/config.c
+++ b/Mac/Modules/config.c
@@ -100,6 +100,20 @@
strcat(version, " [MW 68K compiler]");
#endif
#endif
+#ifdef THINK_C
+#ifdef __SC__
+ strcat(version, " [Symantec Think C compiler]");
+#else
+ strcat(version, " [Think C compiler]");
+#endif
+#endif
+#ifdef MPW
+#ifdef __SC__
+ strcat(version, " [Symantec MPW C compiler]");
+#else
+ strcat(version, " [Apple MPW C compiler]");
+#endif
+#endif
return version;
}
@@ -335,6 +349,7 @@
#ifdef THINK_C
{"Snd", initSnd},
{"Win", initWin},
+#endif
/* -- ADDMODULE MARKER 2 -- */
diff --git a/Mac/Modules/macfsmodule.c b/Mac/Modules/macfsmodule.c
index d2f1a5d..bfdb15b 100644
--- a/Mac/Modules/macfsmodule.c
+++ b/Mac/Modules/macfsmodule.c
@@ -26,6 +26,7 @@
#include "modsupport.h" /* For getargs() etc. */
#include "macglue.h"
+#include <Memory.h>
#include <Files.h>
#include <StandardFile.h>
#include <Aliases.h>
diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
index f9c3154..c979e2a 100644
--- a/Mac/Python/macglue.c
+++ b/Mac/Python/macglue.c
@@ -23,6 +23,7 @@
******************************************************************/
#include "Python.h"
+
#include "macglue.h"
#include <OSUtils.h> /* for Set(Current)A5 */
@@ -401,7 +402,7 @@
prefrh = FSpOpenResFile(&dirspec, fsRdWrShPerm);
if ( prefrh == -1 ) {
/* It doesn't exist. Try to create it */
- FSpCreateResFile(&dirspec, 'PYTH', 'pref', NULL);
+ FSpCreateResFile(&dirspec, 'PYTH', 'pref', 0);
prefrh = FSpOpenResFile(&dirspec, fsRdWrShPerm);
if ( prefrh == -1 ) {
cannotmodify = 1;