cpython-lru_cache-weakref: Python/mactoolboxglue.c annotate

annotate Python/mactoolboxglue.c @ 33579:8a5c87f685cd legacy-trunk

Add set_unittest_reportflags() to the public API. Docs will follow "soon", after I repair the LaTeX I somehow damaged.

author	Tim Peters <tim.peters@gmail.com>
date	Sun, 26 Sep 2004 01:50:24 +0000
parents	577a9e4c82fb
children	7ed899b61182

rev	line source
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1 /***********************************************************
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	2 Copyright 1991-1997 by Stichting Mathematisch Centrum, Amsterdam,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	3 The Netherlands.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	4
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	5 All Rights Reserved
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	6
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	7 Permission to use, copy, modify, and distribute this software and its
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	8 documentation for any purpose and without fee is hereby granted,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	9 provided that the above copyright notice appear in all copies and that
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	10 both that copyright notice and this permission notice appear in
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	11 supporting documentation, and that the names of Stichting Mathematisch
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	12 Centrum or CWI not be used in advertising or publicity pertaining to
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	13 distribution of the software without specific, written prior permission.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	14
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	15 STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	16 THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	17 FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	18 FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	21 OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	22
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	23 ******************************************************************/
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	24
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	25
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	26 #include "Python.h"
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	27 #include "pymactoolbox.h"
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	28
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	29
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	30 /* Like strerror() but for Mac OS error numbers */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	31 char *PyMac_StrError(int err)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	32 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	33 static char buf[256];
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	34 Handle h;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	35 char *str;
26100 756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	36 static int errors_loaded;
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	37
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	38 h = GetResource('Estr', err);
26100 756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	39 if (!h && !errors_loaded) {
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	40 /*
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	41 ** Attempt to open the resource file containing the
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	42 ** Estr resources. We ignore all errors. We also try
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	43 ** this only once.
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	44 */
26134 076512a0c6c2 Restore to ANSI C. Michael W. Hudson <mwh@python.net> parents: 26100 diff changeset	45 PyObject m, rv;
26100 756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	46 errors_loaded = 1;
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	47
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	48 m = PyImport_ImportModule("macresource");
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	49 if (!m) {
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	50 if (Py_VerboseFlag)
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	51 PyErr_Print();
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	52 PyErr_Clear();
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	53 } else {
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	54 rv = PyObject_CallMethod(m, "open_error_resource", "");
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	55 if (!rv) {
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	56 if (Py_VerboseFlag)
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	57 PyErr_Print();
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	58 PyErr_Clear();
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	59 } else {
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	60 Py_DECREF(rv);
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	61 /* And try again... */
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	62 h = GetResource('Estr', err);
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	63 }
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	64 }
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	65 }
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	66 /*
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	67 ** Whether the code above succeeded or not, we won't try
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	68 ** again.
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	69 */
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	70 errors_loaded = 1;
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	71
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	72 if ( h ) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	73 HLock(h);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	74 str = (char )h;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	75 memcpy(buf, str+1, (unsigned char)str[0]);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	76 buf[(unsigned char)str[0]] = '\0';
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	77 HUnlock(h);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	78 ReleaseResource(h);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	79 } else {
21178 bc51de643b5e More sprintf -> PyOS_snprintf. Tim Peters <tim.peters@gmail.com> parents: 20877 diff changeset	80 PyOS_snprintf(buf, sizeof(buf), "Mac OS error code %d", err);
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	81 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	82 return buf;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	83 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	84
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	85 /* Exception object shared by all Mac specific modules for Mac OS errors */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	86 PyObject *PyMac_OSErrException;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	87
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	88 /* Initialize and return PyMac_OSErrException */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	89 PyObject *
19841 d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	90 PyMac_GetOSErrException(void)
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	91 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	92 if (PyMac_OSErrException == NULL)
25868 2b158267b00e Made MacOS.Error a class style exception (at last!). Jack Jansen <jack.jansen@cwi.nl> parents: 24480 diff changeset	93 PyMac_OSErrException = PyErr_NewException("MacOS.Error", NULL, NULL);
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	94 return PyMac_OSErrException;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	95 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	96
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	97 /* Set a MAC-specific error from errno, and return NULL; return None if no error */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	98 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	99 PyErr_Mac(PyObject *eobj, int err)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	100 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	101 char *msg;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	102 PyObject *v;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	103
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	104 if (err == 0 && !PyErr_Occurred()) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	105 Py_INCREF(Py_None);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	106 return Py_None;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	107 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	108 if (err == -1 && PyErr_Occurred())
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	109 return NULL;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	110 msg = PyMac_StrError(err);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	111 v = Py_BuildValue("(is)", err, msg);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	112 PyErr_SetObject(eobj, v);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	113 Py_DECREF(v);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	114 return NULL;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	115 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	116
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	117 /* Call PyErr_Mac with PyMac_OSErrException */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	118 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	119 PyMac_Error(OSErr err)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	120 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	121 return PyErr_Mac(PyMac_GetOSErrException(), err);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	122 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	123
19841 d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	124
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	125 OSErr
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	126 PyMac_GetFullPathname(FSSpec fss, char path, int len)
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	127 {
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	128 FSRef fsr;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	129 OSErr err;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	130
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	131 *path = '\0';
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	132 err = FSpMakeFSRef(fss, &fsr);
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	133 if ( err == fnfErr ) {
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	134 /* FSSpecs can point to non-existing files, fsrefs can't. */
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	135 FSSpec fss2;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	136 int tocopy;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	137
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	138 err = FSMakeFSSpec(fss->vRefNum, fss->parID, "", &fss2);
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	139 if ( err ) return err;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	140 err = FSpMakeFSRef(&fss2, &fsr);
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	141 if ( err ) return err;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	142 err = (OSErr)FSRefMakePath(&fsr, path, len-1);
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	143 if ( err ) return err;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	144 /* This part is not 100% safe: we append the filename part, but
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	145 ** I'm not sure that we don't run afoul of the various 8bit
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	146 ** encodings here. Will have to look this up at some point...
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	147 */
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	148 strcat(path, "/");
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	149 tocopy = fss->name[0];
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	150 if ( strlen(path) + tocopy >= len )
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	151 tocopy = len - strlen(path) - 1;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	152 if ( tocopy > 0 )
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	153 strncat(path, fss->name+1, tocopy);
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	154 } else {
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	155 if ( err ) return err;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	156 err = (OSErr)FSRefMakePath(&fsr, path, len);
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	157 if ( err ) return err;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	158 }
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	159 return 0;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	160 }
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	161
24480 03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	162
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	163 #ifdef WITH_NEXT_FRAMEWORK
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	164 /*
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	165 ** In a bundle, find a file "resourceName" of type "resourceType". Return the
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	166 ** full pathname in "resourceURLCstr".
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	167 */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	168 static int
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	169 locateResourcePy(CFStringRef resourceType, CFStringRef resourceName, char *resourceURLCStr, int length)
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	170 {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	171 CFBundleRef mainBundle = NULL;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	172 CFURLRef URL, absoluteURL;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	173 CFStringRef filenameString, filepathString;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	174 CFIndex size, i;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	175 CFArrayRef arrayRef = NULL;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	176 int success = 0;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	177
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	178 CFURLPathStyle thePathStyle = kCFURLPOSIXPathStyle;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	179
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	180 /* Get a reference to our main bundle */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	181 mainBundle = CFBundleGetMainBundle();
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	182
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	183 /* If we are running inside a bundle, look through it. Otherwise, do nothing. */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	184 if (mainBundle) {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	185
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	186 /* Look for py files in the main bundle by type */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	187 arrayRef = CFBundleCopyResourceURLsOfType( mainBundle,
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	188 resourceType,
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	189 NULL );
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	190
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	191 /* See if there are any filename matches */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	192 size = CFArrayGetCount(arrayRef);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	193 for (i = 0; i < size; i++) {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	194 URL = CFArrayGetValueAtIndex(arrayRef, i);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	195 filenameString = CFURLCopyLastPathComponent(URL);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	196 if (CFStringCompare(filenameString, resourceName, 0) == kCFCompareEqualTo) {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	197 /* We found a match, get the file's full path */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	198 absoluteURL = CFURLCopyAbsoluteURL(URL);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	199 filepathString = CFURLCopyFileSystemPath(absoluteURL, thePathStyle);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	200 CFRelease(absoluteURL);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	201
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	202 /* Copy the full path into the caller's character buffer */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	203 success = CFStringGetCString(filepathString, resourceURLCStr, length,
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	204 kCFStringEncodingMacRoman);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	205
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	206 CFRelease(filepathString);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	207 }
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	208 CFRelease(filenameString);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	209 }
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	210 CFRelease(arrayRef);
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	211 }
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	212 return success;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	213 }
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	214
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	215 /*
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	216 ** iff we are running in a .app framework then we could be
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	217 ** the main program for an applet. In that case, return the
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	218 ** script filename for the applet.
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	219 ** Otherwise return NULL.
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	220 */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	221 char *
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	222 PyMac_GetAppletScriptFile(void)
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	223 {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	224 static char scriptpath[1024];
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	225
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	226 /* First we see whether we have __rawmain__.py and run that if it
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	227 ** is there. This is used for applets that want sys.argv to be
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	228 ** unix-like: __rawmain__ will construct it (from the initial appleevent)
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	229 ** and then call __main__.py.
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	230 */
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	231 if (locateResourcePy(CFSTR("py"), CFSTR("__rawmain__.py"), scriptpath, 1024)) {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	232 return scriptpath;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	233 } else if (locateResourcePy(CFSTR("pyc"), CFSTR("__rawmain__.pyc"), scriptpath, 1024)) {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	234 return scriptpath;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	235 } else if (locateResourcePy(CFSTR("py"), CFSTR("__main__.py"), scriptpath, 1024)) {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	236 return scriptpath;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	237 } else if (locateResourcePy(CFSTR("pyc"), CFSTR("__main__.pyc"), scriptpath, 1024)) {
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	238 return scriptpath;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	239 }
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	240 return NULL;
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	241 }
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	242
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	243 #endif
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	244
03d85d197052 Added one call to Py_Main(), for OSX framework builds only, that will get the Jack Jansen <jack.jansen@cwi.nl> parents: 21178 diff changeset	245
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	246 /* Convert a 4-char string object argument to an OSType value */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	247 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	248 PyMac_GetOSType(PyObject v, OSType pr)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	249 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	250 if (!PyString_Check(v) \|\| PyString_Size(v) != 4) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	251 PyErr_SetString(PyExc_TypeError,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	252 "OSType arg must be string of 4 chars");
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	253 return 0;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	254 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	255 memcpy((char *)pr, PyString_AsString(v), 4);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	256 return 1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	257 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	258
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	259 /* Convert an OSType value to a 4-char string object */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	260 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	261 PyMac_BuildOSType(OSType t)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	262 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	263 return PyString_FromStringAndSize((char *)&t, 4);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	264 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	265
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	266 /* Convert an NumVersion value to a 4-element tuple */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	267 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	268 PyMac_BuildNumVersion(NumVersion t)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	269 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	270 return Py_BuildValue("(hhhh)", t.majorRev, t.minorAndBugRev, t.stage, t.nonRelRev);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	271 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	272
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	273
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	274 /* Convert a Python string object to a Str255 */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	275 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	276 PyMac_GetStr255(PyObject *v, Str255 pbuf)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	277 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	278 int len;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	279 if (!PyString_Check(v) \|\| (len = PyString_Size(v)) > 255) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	280 PyErr_SetString(PyExc_TypeError,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	281 "Str255 arg must be string of at most 255 chars");
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	282 return 0;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	283 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	284 pbuf[0] = len;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	285 memcpy((char *)(pbuf+1), PyString_AsString(v), len);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	286 return 1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	287 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	288
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	289 /* Convert a Str255 to a Python string object */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	290 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	291 PyMac_BuildStr255(Str255 s)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	292 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	293 if ( s == NULL ) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	294 PyErr_SetString(PyExc_SystemError, "Str255 pointer is NULL");
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	295 return NULL;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	296 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	297 return PyString_FromStringAndSize((char *)&s[1], (int)s[0]);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	298 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	299
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	300 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	301 PyMac_BuildOptStr255(Str255 s)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	302 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	303 if ( s == NULL ) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	304 Py_INCREF(Py_None);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	305 return Py_None;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	306 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	307 return PyString_FromStringAndSize((char *)&s[1], (int)s[0]);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	308 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	309
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	310
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	311
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	312 /* Convert a Python object to a Rect.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	313 The object must be a (left, top, right, bottom) tuple.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	314 (This differs from the order in the struct but is consistent with
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	315 the arguments to SetRect(), and also with STDWIN). */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	316 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	317 PyMac_GetRect(PyObject v, Rect r)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	318 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	319 return PyArg_Parse(v, "(hhhh)", &r->left, &r->top, &r->right, &r->bottom);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	320 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	321
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	322 /* Convert a Rect to a Python object */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	323 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	324 PyMac_BuildRect(Rect *r)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	325 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	326 return Py_BuildValue("(hhhh)", r->left, r->top, r->right, r->bottom);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	327 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	328
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	329
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	330 /* Convert a Python object to a Point.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	331 The object must be a (h, v) tuple.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	332 (This differs from the order in the struct but is consistent with
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	333 the arguments to SetPoint(), and also with STDWIN). */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	334 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	335 PyMac_GetPoint(PyObject v, Point p)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	336 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	337 return PyArg_Parse(v, "(hh)", &p->h, &p->v);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	338 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	339
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	340 /* Convert a Point to a Python object */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	341 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	342 PyMac_BuildPoint(Point p)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	343 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	344 return Py_BuildValue("(hh)", p.h, p.v);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	345 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	346
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	347
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	348 /* Convert a Python object to an EventRecord.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	349 The object must be a (what, message, when, (v, h), modifiers) tuple. */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	350 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	351 PyMac_GetEventRecord(PyObject v, EventRecord e)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	352 {
28655 16f47bd431c4 Oops, 'k' is the new format code for un unchecked 32 bit quantity, Jack Jansen <jack.jansen@cwi.nl> parents: 28654 diff changeset	353 return PyArg_Parse(v, "(Hkk(hh)H)",
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	354 &e->what,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	355 &e->message,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	356 &e->when,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	357 &e->where.h,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	358 &e->where.v,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	359 &e->modifiers);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	360 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	361
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	362 /* Convert a Rect to an EventRecord object */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	363 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	364 PyMac_BuildEventRecord(EventRecord *e)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	365 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	366 return Py_BuildValue("(hll(hh)h)",
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	367 e->what,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	368 e->message,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	369 e->when,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	370 e->where.h,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	371 e->where.v,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	372 e->modifiers);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	373 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	374
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	375 /* Convert Python object to Fixed */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	376 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	377 PyMac_GetFixed(PyObject v, Fixed f)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	378 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	379 double d;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	380
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	381 if( !PyArg_Parse(v, "d", &d))
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	382 return 0;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	383 f = (Fixed)(d 0x10000);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	384 return 1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	385 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	386
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	387 /* Convert a Fixed to a Python object */
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	388 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	389 PyMac_BuildFixed(Fixed f)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	390 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	391 double d;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	392
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	393 d = f;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	394 d = d / 0x10000;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	395 return Py_BuildValue("d", d);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	396 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	397
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	398 /* Convert wide to/from Python int or (hi, lo) tuple. XXXX Should use Python longs */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	399 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	400 PyMac_Getwide(PyObject v, wide rv)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	401 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	402 if (PyInt_Check(v)) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	403 rv->hi = 0;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	404 rv->lo = PyInt_AsLong(v);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	405 if( rv->lo & 0x80000000 )
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	406 rv->hi = -1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	407 return 1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	408 }
28655 16f47bd431c4 Oops, 'k' is the new format code for un unchecked 32 bit quantity, Jack Jansen <jack.jansen@cwi.nl> parents: 28654 diff changeset	409 return PyArg_Parse(v, "(kk)", &rv->hi, &rv->lo);
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	410 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	411
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	412
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	413 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	414 PyMac_Buildwide(wide *w)
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	415 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	416 if ( (w->hi == 0 && (w->lo & 0x80000000) == 0) \|\|
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	417 (w->hi == -1 && (w->lo & 0x80000000) ) )
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	418 return PyInt_FromLong(w->lo);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	419 return Py_BuildValue("(ll)", w->hi, w->lo);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	420 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	421
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	422 #ifdef USE_TOOLBOX_OBJECT_GLUE
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	423 /*
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	424 ** Glue together the toolbox objects.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	425 **
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	426 ** Because toolbox modules interdepend on each other, they use each others
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	427 ** object types, on MacOSX/MachO this leads to the situation that they
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	428 ** cannot be dynamically loaded (or they would all have to be lumped into
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	429 ** a single .so, but this would be bad for extensibility).
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	430 **
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	431 ** This file defines wrappers for all the _New and _Convert functions,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	432 ** which are the Py_BuildValue and PyArg_ParseTuple helpers. The wrappers
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	433 ** check an indirection function pointer, and if it isn't filled in yet
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	434 ** they import the appropriate module, whose init routine should fill in
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	435 ** the pointer.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	436 */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	437
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	438 #define GLUE_NEW(object, routinename, module) \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	439 PyObject (PyMacGluePtr_##routinename)(object); \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	440 \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	441 PyObject *routinename(object cobj) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	442 if (!PyMacGluePtr_##routinename) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	443 if (!PyImport_ImportModule(module)) return NULL; \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	444 if (!PyMacGluePtr_##routinename) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	445 PyErr_SetString(PyExc_ImportError, "Module did not provide routine: " module ": " #routinename); \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	446 return NULL; \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	447 } \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	448 } \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	449 return (*PyMacGluePtr_##routinename)(cobj); \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	450 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	451
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	452 #define GLUE_CONVERT(object, routinename, module) \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	453 int (PyMacGluePtr_##routinename)(PyObject , object *); \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	454 \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	455 int routinename(PyObject pyobj, object cobj) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	456 if (!PyMacGluePtr_##routinename) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	457 if (!PyImport_ImportModule(module)) return NULL; \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	458 if (!PyMacGluePtr_##routinename) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	459 PyErr_SetString(PyExc_ImportError, "Module did not provide routine: " module ": " #routinename); \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	460 return NULL; \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	461 } \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	462 } \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	463 return (*PyMacGluePtr_##routinename)(pyobj, cobj); \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	464 }
19645 d55b75ac2fb4 Added glue routine for PyMac_BuildFSSpec, PyMac_GetFSRef and PyMac_BuildFSRef. Jack Jansen <jack.jansen@cwi.nl> parents: 19496 diff changeset	465
28138 eb15de6a4a4c Use Carbon.File for FSSpec and FSRef conversion, not macfs. Jack Jansen <jack.jansen@cwi.nl> parents: 27286 diff changeset	466 GLUE_NEW(FSSpec *, PyMac_BuildFSSpec, "Carbon.File")
eb15de6a4a4c Use Carbon.File for FSSpec and FSRef conversion, not macfs. Jack Jansen <jack.jansen@cwi.nl> parents: 27286 diff changeset	467 GLUE_CONVERT(FSSpec, PyMac_GetFSSpec, "Carbon.File")
eb15de6a4a4c Use Carbon.File for FSSpec and FSRef conversion, not macfs. Jack Jansen <jack.jansen@cwi.nl> parents: 27286 diff changeset	468 GLUE_NEW(FSRef *, PyMac_BuildFSRef, "Carbon.File")
eb15de6a4a4c Use Carbon.File for FSSpec and FSRef conversion, not macfs. Jack Jansen <jack.jansen@cwi.nl> parents: 27286 diff changeset	469 GLUE_CONVERT(FSRef, PyMac_GetFSRef, "Carbon.File")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	470
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	471 GLUE_NEW(AppleEvent , AEDesc_New, "Carbon.AE") / XXXX Why by address? */
27286 04e5610c5efe It turns out that some calls return AEDesc records that are "borrowed", Jack Jansen <jack.jansen@cwi.nl> parents: 26764 diff changeset	472 GLUE_NEW(AppleEvent *, AEDesc_NewBorrowed, "Carbon.AE")
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	473 GLUE_CONVERT(AppleEvent, AEDesc_Convert, "Carbon.AE")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	474
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	475 GLUE_NEW(Component, CmpObj_New, "Carbon.Cm")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	476 GLUE_CONVERT(Component, CmpObj_Convert, "Carbon.Cm")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	477 GLUE_NEW(ComponentInstance, CmpInstObj_New, "Carbon.Cm")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	478 GLUE_CONVERT(ComponentInstance, CmpInstObj_Convert, "Carbon.Cm")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	479
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	480 GLUE_NEW(ControlHandle, CtlObj_New, "Carbon.Ctl")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	481 GLUE_CONVERT(ControlHandle, CtlObj_Convert, "Carbon.Ctl")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	482
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	483 GLUE_NEW(DialogPtr, DlgObj_New, "Carbon.Dlg")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	484 GLUE_CONVERT(DialogPtr, DlgObj_Convert, "Carbon.Dlg")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	485 GLUE_NEW(DialogPtr, DlgObj_WhichDialog, "Carbon.Dlg")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	486
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	487 GLUE_NEW(DragReference, DragObj_New, "Carbon.Drag")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	488 GLUE_CONVERT(DragReference, DragObj_Convert, "Carbon.Drag")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	489
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	490 GLUE_NEW(ListHandle, ListObj_New, "Carbon.List")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	491 GLUE_CONVERT(ListHandle, ListObj_Convert, "Carbon.List")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	492
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	493 GLUE_NEW(MenuHandle, MenuObj_New, "Carbon.Menu")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	494 GLUE_CONVERT(MenuHandle, MenuObj_Convert, "Carbon.Menu")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	495
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	496 GLUE_NEW(GrafPtr, GrafObj_New, "Carbon.Qd")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	497 GLUE_CONVERT(GrafPtr, GrafObj_Convert, "Carbon.Qd")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	498 GLUE_NEW(BitMapPtr, BMObj_New, "Carbon.Qd")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	499 GLUE_CONVERT(BitMapPtr, BMObj_Convert, "Carbon.Qd")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	500 GLUE_NEW(RGBColor , QdRGB_New, "Carbon.Qd") / XXXX Why? */
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	501 GLUE_CONVERT(RGBColor, QdRGB_Convert, "Carbon.Qd")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	502
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	503 GLUE_NEW(GWorldPtr, GWorldObj_New, "Carbon.Qdoffs")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	504 GLUE_CONVERT(GWorldPtr, GWorldObj_Convert, "Carbon.Qdoffs")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	505
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	506 GLUE_NEW(Track, TrackObj_New, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	507 GLUE_CONVERT(Track, TrackObj_Convert, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	508 GLUE_NEW(Movie, MovieObj_New, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	509 GLUE_CONVERT(Movie, MovieObj_Convert, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	510 GLUE_NEW(MovieController, MovieCtlObj_New, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	511 GLUE_CONVERT(MovieController, MovieCtlObj_Convert, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	512 GLUE_NEW(TimeBase, TimeBaseObj_New, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	513 GLUE_CONVERT(TimeBase, TimeBaseObj_Convert, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	514 GLUE_NEW(UserData, UserDataObj_New, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	515 GLUE_CONVERT(UserData, UserDataObj_Convert, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	516 GLUE_NEW(Media, MediaObj_New, "Carbon.Qt")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	517 GLUE_CONVERT(Media, MediaObj_Convert, "Carbon.Qt")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	518
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	519 GLUE_NEW(Handle, ResObj_New, "Carbon.Res")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	520 GLUE_CONVERT(Handle, ResObj_Convert, "Carbon.Res")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	521 GLUE_NEW(Handle, OptResObj_New, "Carbon.Res")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	522 GLUE_CONVERT(Handle, OptResObj_Convert, "Carbon.Res")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	523
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	524 GLUE_NEW(TEHandle, TEObj_New, "Carbon.TE")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	525 GLUE_CONVERT(TEHandle, TEObj_Convert, "Carbon.TE")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	526
19496 617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	527 GLUE_NEW(WindowPtr, WinObj_New, "Carbon.Win")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	528 GLUE_CONVERT(WindowPtr, WinObj_Convert, "Carbon.Win")
617555579611 Refer to the toolbox modules by their official name (Carbon.AE), not the internal name (_AE). This can slow things down (once) but it's the only way I can get things to work on OSX, OS9 dynamically loaded and OS9 frozen. Jack Jansen <jack.jansen@cwi.nl> parents: 19442 diff changeset	529 GLUE_NEW(WindowPtr, WinObj_WhichWindow, "Carbon.Win")
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	530
29279 b372b903d10e Added functions CFObj_New and CFObj_Convert, general functions to convert Jack Jansen <jack.jansen@cwi.nl> parents: 28655 diff changeset	531 GLUE_CONVERT(CFTypeRef, CFObj_Convert, "Carbon.CF")
b372b903d10e Added functions CFObj_New and CFObj_Convert, general functions to convert Jack Jansen <jack.jansen@cwi.nl> parents: 28655 diff changeset	532 GLUE_NEW(CFTypeRef, CFObj_New, "Carbon.CF")
b372b903d10e Added functions CFObj_New and CFObj_Convert, general functions to convert Jack Jansen <jack.jansen@cwi.nl> parents: 28655 diff changeset	533
20877 d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	534 GLUE_CONVERT(CFTypeRef, CFTypeRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	535 GLUE_NEW(CFTypeRef, CFTypeRefObj_New, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	536
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	537 GLUE_CONVERT(CFStringRef, CFStringRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	538 GLUE_NEW(CFStringRef, CFStringRefObj_New, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	539 GLUE_CONVERT(CFMutableStringRef, CFMutableStringRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	540 GLUE_NEW(CFMutableStringRef, CFMutableStringRefObj_New, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	541
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	542 GLUE_CONVERT(CFArrayRef, CFArrayRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	543 GLUE_NEW(CFArrayRef, CFArrayRefObj_New, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	544 GLUE_CONVERT(CFMutableArrayRef, CFMutableArrayRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	545 GLUE_NEW(CFMutableArrayRef, CFMutableArrayRefObj_New, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	546
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	547 GLUE_CONVERT(CFDictionaryRef, CFDictionaryRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	548 GLUE_NEW(CFDictionaryRef, CFDictionaryRefObj_New, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	549 GLUE_CONVERT(CFMutableDictionaryRef, CFMutableDictionaryRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	550 GLUE_NEW(CFMutableDictionaryRef, CFMutableDictionaryRefObj_New, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	551
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	552 GLUE_CONVERT(CFURLRef, CFURLRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	553 GLUE_CONVERT(CFURLRef, OptionalCFURLRefObj_Convert, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	554 GLUE_NEW(CFURLRef, CFURLRefObj_New, "Carbon.CF")
d54e294484b2 Make the CoreFoundation object _New and _Convert routines available to other modules. Idea by Donovan Preston, implementaion by me. Jack Jansen <jack.jansen@cwi.nl> parents: 20789 diff changeset	555
26134 076512a0c6c2 Restore to ANSI C. Michael W. Hudson <mwh@python.net> parents: 26100 diff changeset	556 #endif /* USE_TOOLBOX_OBJECT_GLUE */

Mercurial > cpython-lru_cache-weakref

annotate Python/mactoolboxglue.c @ 33579:8a5c87f685cd legacy-trunk