Stowage/cpython
2
0
Fork 0
mirror of https://github.com/python/cpython.git synced 2026-01-06 07:22:09 +00:00
Code Issues Projects Releases Packages Wiki Activity

ported to Think C

Browse source
This commit is contained in:
Guido van Rossum 1995-02-14 01:27:24 +00:00
parent e2aaa9dd61
commit becdbec806
4 changed files with 26 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Mac/Include/macglue.h
View file

@ -22,10 +22,18 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
******************************************************************/
#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 */

15
Mac/Modules/config.c
View file

@ -99,6 +99,20 @@ getversion()
#else
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 @@ struct {
#ifdef THINK_C
{"Snd", initSnd},
{"Win", initWin},
#endif
/* -- ADDMODULE MARKER 2 -- */

1
Mac/Modules/macfsmodule.c
View file

@ -26,6 +26,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#include "modsupport.h" /* For getargs() etc. */
#include "macglue.h"
#include <Memory.h>
#include <Files.h>
#include <StandardFile.h>
#include <Aliases.h>

3
Mac/Python/macglue.c
View file

@ -23,6 +23,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
******************************************************************/
#include "Python.h"
#include "macglue.h"
#include <OSUtils.h> /* for Set(Current)A5 */
@ -401,7 +402,7 @@ PyMac_GetPythonDir()
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;