Mercurial > cpython-lru_cache-weakref
diff Mac/Python/macglue.c @ 11548:c042e4140f1e legacy-trunk
Oops, PLstring funcs should be "pascal". Funny this never caused problems before...
| author | Jack Jansen <jack.jansen@cwi.nl> |
|---|---|
| date | Sun, 12 Dec 1999 21:37:14 +0000 |
| parents | f83b74273da2 |
| children | 1131bfa1ad99 |
line wrap: on
line diff
--- a/Mac/Python/macglue.c Sun Dec 12 17:19:58 1999 +0000 +++ b/Mac/Python/macglue.c Sun Dec 12 21:37:14 1999 +0000 @@ -102,6 +102,7 @@ /* 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 @@ ** 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 @@ return 0; } -unsigned char * +pascal unsigned char * PLstrrchr(str, chr) unsigned char *str; unsigned char chr; @@ -873,6 +874,11 @@ 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.
