Oops, PLstring funcs should be "pascal". Funny this never caused problems before...
authorJack Jansen <jack.jansen@cwi.nl>
Sun, 12 Dec 1999 21:37:14 +0000 (21:37 +0000)
committerJack Jansen <jack.jansen@cwi.nl>
Sun, 12 Dec 1999 21:37:14 +0000 (21:37 +0000)
Mac/Python/macglue.c

index 4b4c021695c274377268cc18e98c12dd1183280a..117911aedfbc6bd43ddbb9b53753a0d855d44ac1 100644 (file)
@@ -102,6 +102,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 /* Declared in macfsmodule.c: */
 extern FSSpec *mfs_GetFSSpecFSSpec();
+extern PyObject *newmfssobject Py_PROTO((FSSpec *));
 
 /* Interrupt code variables: */
 static int interrupted;                        /* Set to true when cmd-. seen */
@@ -232,14 +233,14 @@ PyMac_StopGUSISpin() {
 ** Replacement routines for the PLstr... functions so we don't need
 ** StdCLib. Moreover, that implementation is broken under cfm68k...
 */
-void
+pascal void
 PLstrcpy(to, fr)
        unsigned char *to, *fr;
 {
        memcpy(to, fr, fr[0]+1);
 }
 
-int
+pascal int
 PLstrcmp(s1, s2)
        unsigned char *s1, *s2;
 {
@@ -258,7 +259,7 @@ PLstrcmp(s1, s2)
                return 0;
 }
 
-unsigned char *
+pascal unsigned char *
 PLstrrchr(str, chr)
        unsigned char *str;
        unsigned char chr;
@@ -873,6 +874,11 @@ PyMac_GetFSSpec(PyObject *v, FSSpec *fs)
        return 1;
 }
 
+/* Convert FSSpec to PyObject */
+PyObject *PyMac_BuildFSSpec(FSSpec *v)
+{
+       return newmfssobject(v);
+}
 
 /* Convert a Python object to a Rect.
    The object must be a (left, top, right, bottom) tuple.