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

annotate Python/mactoolboxglue.c @ 32273:95287cddbc1e legacy-trunk

add -L flag to cause leaks(1) command to run just before exit

author	Skip Montanaro <skip@pobox.com>
date	Sun, 06 Jun 2004 15:53:18 +0000
parents	4ce30d9a1e04
children	577a9e4c82fb

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 /*
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	31 ** Find out what the current script is.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	32 ** Donated by Fredrik Lund.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	33 */
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	34 char *PyMac_getscript()
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	35 {
26415 d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	36 CFStringEncoding enc = CFStringGetSystemEncoding();
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	37 static CFStringRef name = NULL;
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	38 /* Return the code name for the encodings for which we have codecs. */
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	39 switch(enc) {
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	40 case kCFStringEncodingMacRoman: return "mac-roman";
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	41 case kCFStringEncodingMacGreek: return "mac-greek";
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	42 case kCFStringEncodingMacCyrillic: return "mac-cyrillic";
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	43 case kCFStringEncodingMacTurkish: return "mac-turkish";
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	44 case kCFStringEncodingMacIcelandic: return "mac-icelandic";
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	45 /* XXX which one is mac-latin2? */
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	46 }
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	47 if (!name) {
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	48 /* This leaks a an object. */
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	49 name = CFStringConvertEncodingToIANACharSetName(enc);
d58824ceb35d Patch #632973: Implement _getdefaultlocale for OS X. Martin v. Löwis <martin@v.loewis.de> parents: 26134 diff changeset	50 }
26764 6b31b26e418d Squashed compiler warnings by adding casts, making sure prototypes are in Jack Jansen <jack.jansen@cwi.nl> parents: 26415 diff changeset	51 return (char *)CFStringGetCStringPtr(name, 0);
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	52 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	53
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	54 /* 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	55 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	56 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	57 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	58 Handle h;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	59 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	60 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	61
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	62 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	63 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	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 ** 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	66 ** 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	67 ** 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	68 */
26134 076512a0c6c2 Restore to ANSI C. Michael W. Hudson <mwh@python.net> parents: 26100 diff changeset	69 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	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
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	72 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	73 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	74 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	75 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	76 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	77 } 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	78 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	79 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	80 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	81 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	82 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	83 } 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	84 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	85 /* 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	86 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	87 }
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	88 }
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	89 }
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	90 /*
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	91 ** 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	92 ** 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	93 */
756319a137b8 Got rid of the python.rsrc resource file. The error message strings and Jack Jansen <jack.jansen@cwi.nl> parents: 25868 diff changeset	94 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	95
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	96 if ( h ) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	97 HLock(h);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	98 str = (char )h;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	99 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	100 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	101 HUnlock(h);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	102 ReleaseResource(h);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	103 } else {
21178 bc51de643b5e More sprintf -> PyOS_snprintf. Tim Peters <tim.peters@gmail.com> parents: 20877 diff changeset	104 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	105 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	106 return buf;
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
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	109 /* 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	110 PyObject *PyMac_OSErrException;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	111
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	112 /* 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	113 PyObject *
19841 d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	114 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	115 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	116 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	117 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	118 return PyMac_OSErrException;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	119 }
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 /* 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	122 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	123 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	124 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	125 char *msg;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	126 PyObject *v;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	127
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	128 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	129 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	130 return Py_None;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	131 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	132 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	133 return NULL;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	134 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	135 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	136 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	137 Py_DECREF(v);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	138 return NULL;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	139 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	140
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	141 /* 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	142 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	143 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	144 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	145 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	146 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	147
19841 d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	148
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	149 OSErr
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	150 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	151 {
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	152 FSRef fsr;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	153 OSErr err;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	154
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	155 *path = '\0';
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	156 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	157 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	158 /* 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	159 FSSpec fss2;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	160 int tocopy;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	161
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	162 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	163 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	164 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	165 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	166 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	167 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	168 /* 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	169 ** 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	170 ** 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	171 */
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	172 strcat(path, "/");
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	173 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	174 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	175 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	176 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	177 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	178 } else {
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	179 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	180 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	181 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	182 }
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	183 return 0;
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	184 }
d8dd75e3b304 Replaced PyMac_FullPath by PyMac_FullPathname, which has an extra 'length' Jack Jansen <jack.jansen@cwi.nl> parents: 19645 diff changeset	185
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	186
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 #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	188 /*
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 ** 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	190 ** 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	191 */
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 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	193 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	194 {
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 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	196 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	197 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	198 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	199 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	200 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	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 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	203
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 /* 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	205 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	206
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 /* 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	208 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	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 /* 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	211 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	212 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	213 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	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 /* 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	216 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	217 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	218 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	219 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	220 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	221 /* 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	222 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	223 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	224 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	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 /* 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	227 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	228 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	229
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 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	231 }
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 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	233 }
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 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	235 }
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 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	237 }
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
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 ** 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	241 ** 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	242 ** 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	243 ** 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	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 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	246 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	247 {
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	248 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	249
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	250 /* 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	251 ** 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	252 ** 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	253 ** 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	254 */
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	255 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	256 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	257 } 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	258 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	259 } 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	260 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	261 } 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	262 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	263 }
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	264 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	265 }
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	266
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	267 #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	268
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	269
19064 e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	270 /* 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	271 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	272 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	273 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	274 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	275 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	276 "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	277 return 0;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	278 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	279 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	280 return 1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	281 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	282
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	283 /* 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	284 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	285 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	286 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	287 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	288 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	289
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	290 /* 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	291 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	292 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	293 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	294 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	295 }
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
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	298 /* 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	299 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	300 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	301 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	302 int len;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	303 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	304 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	305 "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	306 return 0;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	307 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	308 pbuf[0] = len;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	309 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	310 return 1;
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
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	313 /* 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	314 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	315 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	316 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	317 if ( s == NULL ) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	318 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	319 return NULL;
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 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	322 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	323
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	324 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	325 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	326 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	327 if ( s == NULL ) {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	328 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	329 return Py_None;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	330 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	331 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	332 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	333
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	334
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	335
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	336 /* 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	337 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	338 (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	339 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	340 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	341 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	342 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	343 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	344 }
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 /* 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	347 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	348 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	349 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	350 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	351 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	352
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	353
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	354 /* 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	355 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	356 (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	357 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	358 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	359 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	360 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	361 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	362 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	363
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	364 /* 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	365 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	366 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	367 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	368 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	369 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	370
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	371
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	372 /* 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	373 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	374 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	375 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	376 {
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	377 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	378 &e->what,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	379 &e->message,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	380 &e->when,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	381 &e->where.h,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	382 &e->where.v,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	383 &e->modifiers);
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	384 }
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 /* 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	387 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	388 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	389 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	390 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	391 e->what,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	392 e->message,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	393 e->when,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	394 e->where.h,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	395 e->where.v,
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	396 e->modifiers);
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
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	399 /* 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	400 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	401 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	402 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	403 double d;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	404
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	405 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	406 return 0;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	407 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	408 return 1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	409 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	410
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	411 /* 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	412 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	413 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	414 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	415 double d;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	416
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	417 d = f;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	418 d = d / 0x10000;
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("d", d);
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 /* 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	423 int
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	424 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	425 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	426 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	427 rv->hi = 0;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	428 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	429 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	430 rv->hi = -1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	431 return 1;
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	432 }
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	433 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	434 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	435
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 PyObject *
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	438 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	439 {
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	440 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	441 (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	442 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	443 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	444 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	445
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	446 #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	447 /*
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	448 ** 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	449 **
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	450 ** 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	451 ** 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	452 ** 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	453 ** 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	454 **
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	455 ** 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	456 ** 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	457 ** 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	458 ** 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	459 ** the pointer.
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	460 */
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 #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	463 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	464 \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	465 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	466 if (!PyMacGluePtr_##routinename) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	467 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	468 if (!PyMacGluePtr_##routinename) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	469 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	470 return NULL; \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	471 } \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	472 } \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	473 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	474 }
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	475
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	476 #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	477 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	478 \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	479 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	480 if (!PyMacGluePtr_##routinename) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	481 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	482 if (!PyMacGluePtr_##routinename) { \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	483 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	484 return NULL; \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	485 } \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	486 } \
e57a4614469e Split macglue.c into two: a new mactoolboxglue.c (in ./Python) Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	487 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	488 }
19645 d55b75ac2fb4 Added glue routine for PyMac_BuildFSSpec, PyMac_GetFSRef and PyMac_BuildFSRef. Jack Jansen <jack.jansen@cwi.nl> parents: 19496 diff changeset	489
28138 eb15de6a4a4c Use Carbon.File for FSSpec and FSRef conversion, not macfs. Jack Jansen <jack.jansen@cwi.nl> parents: 27286 diff changeset	490 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	491 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	492 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	493 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	494
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	495 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	496 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	497 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	498
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	499 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	500 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	501 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	502 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	503
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	504 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	505 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	506
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	507 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	508 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	509 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	510
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	511 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	512 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	513
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	514 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	515 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	516
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	517 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	518 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	519
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	520 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	521 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	522 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	523 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	524 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	525 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	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(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	528 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	529
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	530 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	531 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	532 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	533 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	534 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	535 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	536 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	537 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	538 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	539 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	540 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	541 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	542
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	543 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	544 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	545 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	546 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	547
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	548 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	549 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	550
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	551 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	552 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	553 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	554
29279 b372b903d10e Added functions CFObj_New and CFObj_Convert, general functions to convert Jack Jansen <jack.jansen@cwi.nl> parents: 28655 diff changeset	555 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	556 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	557
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	558 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	559 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	560
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	561 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	562 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	563 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	564 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	565
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	566 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	567 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	568 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	569 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	570
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	571 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	572 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	573 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	574 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	575
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	576 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	577 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	578 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	579
26134 076512a0c6c2 Restore to ANSI C. Michael W. Hudson <mwh@python.net> parents: 26100 diff changeset	580 #endif /* USE_TOOLBOX_OBJECT_GLUE */

Mercurial > cpython-lru_cache-weakref

annotate Python/mactoolboxglue.c @ 32273:95287cddbc1e legacy-trunk