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

header files included.

diff --git a/Mac/Compat/getbootvol.c b/Mac/Compat/getbootvol.c
index 8f5d28c0b302c69ea2916ce11fc8c3824f3542fc..df450c652cae0cf59c70256ded65c9396212df7a 100644 (file)
--- a/Mac/Compat/getbootvol.c
+++ b/Mac/Compat/getbootvol.c
@@ -5,7 +5,7 @@
 #include "macdefs.h"
 
 char *
-getbootvol()
+getbootvol(void)
 {
        short vrefnum;
        static unsigned char name[32];

diff --git a/Mac/Compat/getwd.c b/Mac/Compat/getwd.c
index 27f68a24faaa98a71f1b97309802901846e96791..1487fb0e7f2d5246818e2ca65d727cb22a72597a 100644 (file)
--- a/Mac/Compat/getwd.c
+++ b/Mac/Compat/getwd.c
@@ -32,8 +32,7 @@
 #define ROOTID 2 /* Root directory ID */
 
 char *
-getwd(cwd)
-       char *cwd;
+getwd(char *cwd)
 {
        /* Universal parameter block. */
        union {

diff --git a/Mac/Compat/macstat.h b/Mac/Compat/macstat.h
index 64ace4e7f4061765b272e57964af3a0be4a6ddfb..d6cad8519421c3a0eecddcac7b6e0ea09869bb16 100644 (file)
--- a/Mac/Compat/macstat.h
+++ b/Mac/Compat/macstat.h
@@ -27,6 +27,7 @@ struct macstat {
 #define S_IWRITE   0200
 #define S_IEXEC    0100
 
+extern int macstat(char *, struct macstat *);
 /* To stop inclusion of MWerks header: */
 #ifndef _STAT
 #define _STAT

diff --git a/Mac/Compat/sync.c b/Mac/Compat/sync.c
index a6487e12ca80f9669ec3e8f8ce23d3d442e81dc2..944ba2358d5d1ed674954a8dae1517c826aca003 100644 (file)
--- a/Mac/Compat/sync.c
+++ b/Mac/Compat/sync.c
@@ -6,7 +6,7 @@
 #include "macdefs.h"
 
 int
-sync()
+sync(void)
 {
        if (FlushVol((StringPtr)0, 0) == noErr)
                return 0;

diff --git a/Mac/Include/macdefs.h b/Mac/Include/macdefs.h
index 9cc3ae19403a9ca6bbc361e946178db54583fe57..8898b4973dabf1ef07a221117cdbbadbc39acf91 100644 (file)
--- a/Mac/Include/macdefs.h
+++ b/Mac/Include/macdefs.h
@@ -15,8 +15,10 @@
 #endif
 
 /* We may be able to use a std routine in think, don't know */
-unsigned char *Pstring(char *);
-
+extern unsigned char *Pstring(char *);
+extern char *getbootvol(void);
+extern char *getwd(char *);
+extern int sync(void);
 
 /* Universal constants: */
 #define MAXPATH 256

diff --git a/Mac/Include/macglue.h b/Mac/Include/macglue.h
index f96b96fcad1c781a1b635ac9e9a22156efdd5e08..5767368bda8a1c1877b0949b3d3f599f10326c66 100644 (file)
--- a/Mac/Include/macglue.h
+++ b/Mac/Include/macglue.h
@@ -81,6 +81,7 @@ void PyMac_GetSchedParams(PyMacSchedParams *);        /* Get schedulers params */
 void PyMac_SetSchedParams(PyMacSchedParams *); /* Set schedulers params */
 PyObject *PyErr_Mac(PyObject *, int);          /* Exception with a mac error */
 PyObject *PyMac_Error(OSErr);                  /* Uses PyMac_GetOSErrException */
+int PyOS_CheckStack(void);             /* Check that we aren't overflowing our stack */
 int PyMac_DoYield(int, int);   /* Yield cpu. First arg is maxtime, second ok to call python */
 int PyMac_HandleEvent(EventRecord *);  /* Handle one event, possibly in Python */
 void PyMac_HandleEventIntern(EventRecord *); /* Handle one event internal only */
@@ -133,8 +134,22 @@ short PyMac_OpenPrefFile(void);                    /* From macgetpath.c, open and return preferen
 
 /* From macfiletype.c: */
 
-long getfiletype(char *);                      /* Get file type */
-int setfiletype(char *, long, long);           /* Set file creator and type */
+long PyMac_getfiletype(char *);                        /* Get file type */
+int PyMac_setfiletype(char *, long, long);             /* Set file creator and type */
+
+/* from macmain.c: */
+void PyMac_Exit(int);
+void PyMac_InitApplication(void);
+#ifdef USE_MAC_APPLET_SUPPORT
+void PyMac_InitApplet(void);
+#endif
+
+/* from macgetargv: */
+OSErr PyMac_init_process_location(void);
+#ifndef HAVE_STRDUP
+char * strdup(const char *str);
+#endif
+
 #ifdef __cplusplus
        }
 #endif

diff --git a/Mac/Modules/macfsmodule.c b/Mac/Modules/macfsmodule.c
index bdc1263cdb71bf316178cca10aa04461058565a6..048b243023eca8f005fde9a3baeb6c62be4f388a 100644 (file)
--- a/Mac/Modules/macfsmodule.c
+++ b/Mac/Modules/macfsmodule.c
@@ -34,6 +34,9 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 #include "getapplbycreator.h"
 
+/* Should this be in macglue.h? */
+extern FSSpec *mfs_GetFSSpecFSSpec(PyObject *);
+
 static PyObject *ErrorObject;
 
 /* ----------------------------------------------------- */
@@ -174,9 +177,8 @@ mfsa_getattr(self, name)
        return Py_FindMethod(mfsa_methods, (PyObject *)self, name);
 }
 
-mfsaobject *
-newmfsaobject(alias)
-       AliasHandle alias;
+static mfsaobject *
+newmfsaobject(AliasHandle alias)
 {
        mfsaobject *self;
 
@@ -334,8 +336,7 @@ static PyTypeObject Mfsitype = {
 ** object is a python fsspec object, else NULL
 */
 FSSpec *
-mfs_GetFSSpecFSSpec(self)
-       PyObject *self;
+mfs_GetFSSpecFSSpec(PyObject *self)
 {
        if ( is_mfssobject(self) )
                return &((mfssobject *)self)->fsspec;

diff --git a/Mac/Modules/macspeechmodule.c b/Mac/Modules/macspeechmodule.c
index accb7b28bbb2a06608c28108be40bb6ac867380c..a6fbddd645eea207651a22a09cbc2793ed3ecc21 100644 (file)
--- a/Mac/Modules/macspeechmodule.c
+++ b/Mac/Modules/macspeechmodule.c
@@ -24,6 +24,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 
 #include "Python.h"
+#include "macglue.h"
 
 #include <Gestalt.h>
 #include "Speech.h"

diff --git a/Mac/Python/macapplication.c b/Mac/Python/macapplication.c
index 0fe1c7021f30bd6467b293e3ae1343e83c3b4dc9..3923af204b288995ea10adb113b261749635355b 100644 (file)
--- 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 1eb4a54b77070482654a3f9e0de31a099c32066c..b4a3ec6c87dbcf5c0e9b6525370394df69636b3f 100644 (file)
--- 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 226fa29e8515ab0c0469ade172212a355b9896f9..39f3a2b191121c0f48c13e974a9e92247b227827 100644 (file)
--- 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 bc957cc7c4385e180c50ad71441b657512c047ae..c180d1fa466e2e794648e859465ccabb20e0fd2d 100644 (file)
--- 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 cbfc890fdef476e9e2cf10b71e81ef7c5630aa12..3640d760ee6ce9ba36a66874c3e88d694cc0cfd7 100644 (file)
--- 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 1266b59c469d71ebd3c6f56151f56729a5a4d0e4..607f4bbfcfe7259e4d3f233b42bf5c12bc18498e 100644 (file)
--- 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 64a6ad7c6e75e0152258d36335d14e30b1b610fb..482f43df19e7ae970f979dc6b33cf08a0418b3a5 100644 (file)
--- 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 1b3b994fa3d5cd890f1e090fe2c2bcb4b3624f0f..08065361a53c895fdbae8400b00571805da8e279 100644 (file)
--- 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 8b2a1fd67c9034f6da1780ee7942ff52fb17713e..e3e9615b861c868d3b24da9c131a2ad605075ae6 100644 (file)
--- 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 c4b114fff72432460eca063347dda385bb39c3f9..b2d9531e5f480ef1ff0067439cd1d01fa3b9dbf7 100644 (file)
--- 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;

diff --git a/Mac/mwerks/malloc/malloc.c b/Mac/mwerks/malloc/malloc.c
index 7d0fb6c6fe4119a200e5438627050a23b53a58fc..38bd32a857b7e4a171133cd0b58f3b16e015526e 100644 (file)
--- a/Mac/mwerks/malloc/malloc.c
+++ b/Mac/mwerks/malloc/malloc.c
@@ -78,7 +78,9 @@ typedef u_long caddr_t;
 #include <stdlib.h>
 #include <string.h>
 
+#ifndef NULL
 #define        NULL 0
+#endif
 
 static void morecore();