ANSIfication step 2: make sure all needed prototypes are available, and all needed

header files included.

10 files changed, 49 insertions, 28 deletions

diff --git a/Mac/Python/macapplication.c b/Mac/Python/macapplication.c
index 0fe1c70..3923af2 100644
--- a/Mac/Python/macapplication.c
+++ b/Mac/Python/macapplication.c
@@ -31,11 +31,13 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #pragma lib_export on
 #endif
 
-extern void PyMac_InitApplet();
+extern void PyMac_InitApplication(void);
 #ifdef USE_MAC_APPLET_SUPPORT
-extern void PyMac_InitApplication();
+extern void PyMac_InitApplet(void);
 #endif /* USE_MAC_APPLET_SUPPORT */
 
+/* From the MSL runtime: */
+extern void __initialize(void);
 
 /*
 ** Alternative initialization entry point for some very special cases.
diff --git a/Mac/Python/macgetargv.c b/Mac/Python/macgetargv.c
index 1eb4a54..b4a3ec6 100644
--- a/Mac/Python/macgetargv.c
+++ b/Mac/Python/macgetargv.c
@@ -53,15 +53,16 @@ static int applocation_inited;
 /* Duplicate a string to the heap. We also export this since it isn't standard
 ** and others use it
 */
-
+#ifndef HAVE_STRDUP
 char *
-strdup(char *src)
+strdup(const char *src)
 {
 	char *dst = malloc(strlen(src) + 1);
 	if (dst)
 		strcpy(dst, src);
 	return dst;
 }
+#endif
 
 /* Initialize FSSpec and full name of current application */
 
diff --git a/Mac/Python/macgetcompiler.c b/Mac/Python/macgetcompiler.c
index 226fa29..39f3a2b 100644
--- a/Mac/Python/macgetcompiler.c
+++ b/Mac/Python/macgetcompiler.c
@@ -32,6 +32,7 @@ PERFORMANCE OF THIS SOFTWARE.
 /* Return a string representing the compiler name */
 
 #include "config.h"
+#include "Python.h"
 
 #ifdef __MWERKS__
 #ifdef USE_GUSI1
@@ -75,8 +76,8 @@ PERFORMANCE OF THIS SOFTWARE.
 #endif
 #endif
 
-char *
-Py_GetCompiler()
+const char *
+Py_GetCompiler(void)
 {
 	return COMPILER;
 }
diff --git a/Mac/Python/macgetpath.c b/Mac/Python/macgetpath.c
index bc957cc..c180d1f 100644
--- a/Mac/Python/macgetpath.c
+++ b/Mac/Python/macgetpath.c
@@ -33,6 +33,9 @@ PERFORMANCE OF THIS SOFTWARE.
 #include "osdefs.h"
 #include "macglue.h"
 #include "pythonresources.h"
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
 
 
 /* Return the initial python search path.  This is called once from
@@ -58,6 +61,10 @@ PERFORMANCE OF THIS SOFTWARE.
 #include <GUSI.h>
 #endif
 
+#ifndef USE_BUILTIN_PATH
+staticforward char *PyMac_GetPythonPath();
+#endif
+
 #define PYTHONPATH "\
 :\n\
 :Lib\n\
@@ -143,9 +150,6 @@ Py_GetPath()
 	char *p, *endp;
 	int newlen;
 	char *curwd;
-#ifndef USE_BUILTIN_PATH
-	staticforward char *PyMac_GetPythonPath();
-#endif
 	
 	if ( pythonpath ) return pythonpath;
 #ifndef USE_BUILTIN_PATH
@@ -294,7 +298,7 @@ PyMac_GetPythonDir()
 
 #ifndef USE_BUILTIN_PATH
 char *
-PyMac_GetPythonPath()
+PyMac_GetPythonPath(void)
 {
 	short oldrh, prefrh = -1;
 	char *rv;
diff --git a/Mac/Python/macgetplatform.c b/Mac/Python/macgetplatform.c
index cbfc890..3640d76 100644
--- a/Mac/Python/macgetplatform.c
+++ b/Mac/Python/macgetplatform.c
@@ -29,8 +29,10 @@ PERFORMANCE OF THIS SOFTWARE.
 
 ******************************************************************/
 
-char *
-Py_GetPlatform()
+#include "Python.h"
+
+const char *
+Py_GetPlatform(void)
 {
 	return "mac";
 }
diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
index 1266b59..607f4bb 100644
--- a/Mac/Python/macglue.c
+++ b/Mac/Python/macglue.c
@@ -63,7 +63,19 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #include <TextUtils.h>
 #ifdef __MWERKS__
 #include <SIOUX.h>
+extern void SIOUXSetupMenus(void);
+extern void SIOUXDoAboutBox(void);
 #endif
+#ifdef USE_GUSI
+/* Functions we redefine because they're in obscure libraries */
+extern void SpinCursor(short x);
+extern void RotateCursor(short x);
+extern pascal void PLstrcpy(unsigned char *, unsigned char *);
+extern pascal int PLstrcmp(unsigned char *, unsigned char *);
+extern pascal unsigned char *PLstrrchr(unsigned char *, unsigned char);
+
+#endif
+
 #ifdef USE_GUSI1
 #include <TFileSpec.h> /* For Path2FSSpec */
 #include <GUSI.h>
@@ -103,7 +115,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #define fnfErr -43
 
 /* Declared in macfsmodule.c: */
-extern FSSpec *mfs_GetFSSpecFSSpec();
+extern FSSpec *mfs_GetFSSpecFSSpec(PyObject *);
 extern PyObject *newmfssobject(FSSpec *);
 
 /* Interrupt code variables: */
@@ -246,15 +258,13 @@ PyMac_StopGUSISpin() {
 ** StdCLib. Moreover, that implementation is broken under cfm68k...
 */
 pascal void
-PLstrcpy(to, fr)
-	unsigned char *to, *fr;
+PLstrcpy(unsigned char *to, unsigned char *fr)
 {
 	memcpy(to, fr, fr[0]+1);
 }
 
 pascal int
-PLstrcmp(s1, s2)
-	unsigned char *s1, *s2;
+PLstrcmp(unsigned char *s1, unsigned char *s2)
 {
 	int res;
 	int l = s1[0] < s2[0] ? s1[0] : s2[0];
@@ -272,9 +282,7 @@ PLstrcmp(s1, s2)
 }
 
 pascal unsigned char *
-PLstrrchr(str, chr)
-	unsigned char *str;
-	unsigned char chr;
+PLstrrchr(unsigned char *str, unsigned char chr)
 {
 	unsigned char *ptr = 0;
 	unsigned char *p;
@@ -457,8 +465,8 @@ PyOS_InterruptOccurred()
 	return interrupted;
 }
 /* Check whether we are in the foreground */
-int
-PyMac_InForeground()
+static int
+PyMac_InForeground(void)
 {
 	static ProcessSerialNumber ours;
 	static inited;
diff --git a/Mac/Python/macguesstabsize.c b/Mac/Python/macguesstabsize.c
index 64a6ad7..482f43d 100644
--- a/Mac/Python/macguesstabsize.c
+++ b/Mac/Python/macguesstabsize.c
@@ -37,7 +37,7 @@ PERFORMANCE OF THIS SOFTWARE.
 #include <string.h>
 
 /* Interface used by parsetok.c */
-
+#error
 guesstabsize(path)
 	char *path;
 {
diff --git a/Mac/Python/macimport.c b/Mac/Python/macimport.c
index 1b3b994..0806536 100644
--- a/Mac/Python/macimport.c
+++ b/Mac/Python/macimport.c
@@ -413,7 +413,9 @@ PyMac_FindModuleExtension(char *buf, size_t *lenp, char *module)
 	unsigned char fnbuf[64];
 	int modnamelen = strlen(module);
 	FSSpec fss;
+#ifdef USE_GUSI1
 	FInfo finfo;
+#endif
 	short refnum;
 	long dirid;
 	
diff --git a/Mac/Python/macmain.c b/Mac/Python/macmain.c
index 8b2a1fd..e3e9615 100644
--- a/Mac/Python/macmain.c
+++ b/Mac/Python/macmain.c
@@ -44,6 +44,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #ifdef __MWERKS__
 #include <SIOUX.h>
 #define USE_SIOUX
+extern int ccommand(char ***);
 #if __profile__ == 1
 #include <profiler.h>
 #endif
@@ -549,9 +550,7 @@ Py_GetProgramFullPath()
    This is rare, but it is needed by the secureware extension. */
 
 void
-Py_GetArgcArgv(argc,argv)
-	int *argc;
-	char ***argv;
+Py_GetArgcArgv(int *argc,char ***argv)
 {
 	*argc = orig_argc;
 	*argv = orig_argv;
diff --git a/Mac/Python/macsetfiletype.c b/Mac/Python/macsetfiletype.c
index c4b114f..b2d9531 100644
--- a/Mac/Python/macsetfiletype.c
+++ b/Mac/Python/macsetfiletype.c
@@ -34,10 +34,12 @@ PERFORMANCE OF THIS SOFTWARE.
  *
  */
  
+#include "Python.h"
+#include "macglue.h"
 #include "macdefs.h"
 
 int
-setfiletype(name, creator, type)
+PyMac_setfiletype(name, creator, type)
 char *name;
 long creator, type;
 {
@@ -56,7 +58,7 @@ long creator, type;
 }
 
 long
-getfiletype(name)
+PyMac_getfiletype(name)
 char *name;
 {
 	FInfo info;