Mercurial > cpython-lru_cache-weakref

annotate Mac/Modules/osa/_OSAmodule.c @ 79675:c0a2294de787 2.7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Issue #16199: Backport 2to3 typo fix from 3.2.
author Chris Jerdonek <chris.jerdonek@gmail.com>
date Thu, 11 Oct 2012 16:15:46 -0700
parents 787b969d37f0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
1
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
2 /* ========================== Module _OSA =========================== */
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
3
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
4 #include "Python.h"
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
5
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
6
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
7
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
8 #include "pymactoolbox.h"
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
9
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
10 /* Macro to test whether a weak-loaded CFM function exists */
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
11 #define PyMac_PRECHECK(rtn) do { if ( &rtn == NULL ) {\
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
12 PyErr_SetString(PyExc_NotImplementedError, \
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
13 "Not available in this shared library/OS version"); \
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
14 return NULL; \
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
15 }} while(0)
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
16
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
17
31161
4a12d91af8c3 Make this module Python 2.3 compatible, and add a setup script that allows
Jack Jansen <jack.jansen@cwi.nl>
parents: 31090
diff changeset
18 #if PY_VERSION_HEX < 0x02040000
4a12d91af8c3 Make this module Python 2.3 compatible, and add a setup script that allows
Jack Jansen <jack.jansen@cwi.nl>
parents: 31090
diff changeset
19 PyObject *PyMac_GetOSErrException(void);
4a12d91af8c3 Make this module Python 2.3 compatible, and add a setup script that allows
Jack Jansen <jack.jansen@cwi.nl>
parents: 31090
diff changeset
20 #endif
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
21 #include <Carbon/Carbon.h>
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
22
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
23 #ifdef USE_TOOLBOX_OBJECT_GLUE
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
24 extern PyObject *_OSAObj_New(ComponentInstance);
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
25 extern int _OSAObj_Convert(PyObject *, ComponentInstance *);
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
26
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
27 #define OSAObj_New _OSAObj_New
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
28 #define OSAObj_Convert _OSAObj_Convert
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
29 #endif
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
30
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
31 static PyObject *OSA_Error;
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
32
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
33 /* ---------------- Object type OSAComponentInstance ---------------- */
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
34
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
35 PyTypeObject OSAComponentInstance_Type;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
36
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
37 #define OSAObj_Check(x) ((x)->ob_type == &OSAComponentInstance_Type || PyObject_TypeCheck((x), &OSAComponentInstance_Type))
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
38
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
39 typedef struct OSAComponentInstanceObject {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
40 PyObject_HEAD
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
41 ComponentInstance ob_itself;
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
42 } OSAComponentInstanceObject;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
43
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
44 PyObject *OSAObj_New(ComponentInstance itself)
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
45 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
46 OSAComponentInstanceObject *it;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
47 if (itself == NULL) {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
48 PyErr_SetString(OSA_Error,"NULL ComponentInstance");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
49 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
50 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
51 it = PyObject_NEW(OSAComponentInstanceObject, &OSAComponentInstance_Type);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
52 if (it == NULL) return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
53 it->ob_itself = itself;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
54 return (PyObject *)it;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
55 }
35200
5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents: 31165
diff changeset
56
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
57 int OSAObj_Convert(PyObject *v, ComponentInstance *p_itself)
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
58 {
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
59
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
60 if (CmpInstObj_Convert(v, p_itself))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
61 return 1;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
62 PyErr_Clear();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
63
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
64 if (!OSAObj_Check(v))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
65 {
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
66 PyErr_SetString(PyExc_TypeError, "OSAComponentInstance required");
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
67 return 0;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
68 }
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
69 *p_itself = ((OSAComponentInstanceObject *)v)->ob_itself;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
70 return 1;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
71 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
72
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
73 static void OSAObj_dealloc(OSAComponentInstanceObject *self)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
74 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
75 /* Cleanup of self->ob_itself goes here */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
76 self->ob_type->tp_free((PyObject *)self);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
77 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
78
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
79 static PyObject *OSAObj_OSALoad(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
80 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
81 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
82 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
83 AEDesc scriptData;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
84 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
85 OSAID resultingScriptID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
86 #ifndef OSALoad
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
87 PyMac_PRECHECK(OSALoad);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
88 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
89 if (!PyArg_ParseTuple(_args, "O&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
90 AEDesc_Convert, &scriptData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
91 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
92 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
93 _err = OSALoad(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
94 &scriptData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
95 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
96 &resultingScriptID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
97 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
98 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
99 resultingScriptID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
100 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
101 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
102
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
103 static PyObject *OSAObj_OSAStore(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
104 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
105 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
106 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
107 OSAID scriptID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
108 DescType desiredType;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
109 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
110 AEDesc resultingScriptData;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
111 #ifndef OSAStore
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
112 PyMac_PRECHECK(OSAStore);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
113 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
114 if (!PyArg_ParseTuple(_args, "lO&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
115 &scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
116 PyMac_GetOSType, &desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
117 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
118 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
119 _err = OSAStore(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
120 scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
121 desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
122 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
123 &resultingScriptData);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
124 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
125 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
126 AEDesc_New, &resultingScriptData);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
127 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
128 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
129
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
130 static PyObject *OSAObj_OSAExecute(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
131 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
132 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
133 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
134 OSAID compiledScriptID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
135 OSAID contextID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
136 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
137 OSAID resultingScriptValueID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
138 #ifndef OSAExecute
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
139 PyMac_PRECHECK(OSAExecute);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
140 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
141 if (!PyArg_ParseTuple(_args, "lll",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
142 &compiledScriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
143 &contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
144 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
145 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
146 _err = OSAExecute(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
147 compiledScriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
148 contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
149 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
150 &resultingScriptValueID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
151 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
152 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
153 resultingScriptValueID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
154 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
155 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
156
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
157 static PyObject *OSAObj_OSADisplay(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
158 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
159 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
160 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
161 OSAID scriptValueID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
162 DescType desiredType;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
163 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
164 AEDesc resultingText;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
165 #ifndef OSADisplay
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
166 PyMac_PRECHECK(OSADisplay);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
167 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
168 if (!PyArg_ParseTuple(_args, "lO&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
169 &scriptValueID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
170 PyMac_GetOSType, &desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
171 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
172 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
173 _err = OSADisplay(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
174 scriptValueID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
175 desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
176 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
177 &resultingText);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
178 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
179 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
180 AEDesc_New, &resultingText);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
181 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
182 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
183
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
184 static PyObject *OSAObj_OSAScriptError(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
185 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
186 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
187 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
188 OSType selector;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
189 DescType desiredType;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
190 AEDesc resultingErrorDescription;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
191 #ifndef OSAScriptError
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
192 PyMac_PRECHECK(OSAScriptError);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
193 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
194 if (!PyArg_ParseTuple(_args, "O&O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
195 PyMac_GetOSType, &selector,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
196 PyMac_GetOSType, &desiredType))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
197 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
198 _err = OSAScriptError(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
199 selector,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
200 desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
201 &resultingErrorDescription);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
202 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
203 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
204 AEDesc_New, &resultingErrorDescription);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
205 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
206 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
207
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
208 static PyObject *OSAObj_OSADispose(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
209 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
210 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
211 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
212 OSAID scriptID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
213 #ifndef OSADispose
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
214 PyMac_PRECHECK(OSADispose);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
215 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
216 if (!PyArg_ParseTuple(_args, "l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
217 &scriptID))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
218 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
219 _err = OSADispose(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
220 scriptID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
221 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
222 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
223 _res = Py_None;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
224 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
225 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
226
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
227 static PyObject *OSAObj_OSASetScriptInfo(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
228 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
229 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
230 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
231 OSAID scriptID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
232 OSType selector;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
233 long value;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
234 #ifndef OSASetScriptInfo
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
235 PyMac_PRECHECK(OSASetScriptInfo);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
236 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
237 if (!PyArg_ParseTuple(_args, "lO&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
238 &scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
239 PyMac_GetOSType, &selector,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
240 &value))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
241 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
242 _err = OSASetScriptInfo(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
243 scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
244 selector,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
245 value);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
246 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
247 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
248 _res = Py_None;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
249 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
250 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
251
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
252 static PyObject *OSAObj_OSAGetScriptInfo(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
253 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
254 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
255 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
256 OSAID scriptID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
257 OSType selector;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
258 long result;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
259 #ifndef OSAGetScriptInfo
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
260 PyMac_PRECHECK(OSAGetScriptInfo);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
261 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
262 if (!PyArg_ParseTuple(_args, "lO&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
263 &scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
264 PyMac_GetOSType, &selector))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
265 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
266 _err = OSAGetScriptInfo(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
267 scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
268 selector,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
269 &result);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
270 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
271 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
272 result);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
273 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
274 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
275
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
276 static PyObject *OSAObj_OSAScriptingComponentName(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
277 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
278 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
279 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
280 AEDesc resultingScriptingComponentName;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
281 #ifndef OSAScriptingComponentName
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
282 PyMac_PRECHECK(OSAScriptingComponentName);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
283 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
284 if (!PyArg_ParseTuple(_args, ""))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
285 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
286 _err = OSAScriptingComponentName(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
287 &resultingScriptingComponentName);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
288 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
289 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
290 AEDesc_New, &resultingScriptingComponentName);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
291 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
292 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
293
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
294 static PyObject *OSAObj_OSACompile(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
295 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
296 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
297 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
298 AEDesc sourceData;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
299 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
300 OSAID previousAndResultingScriptID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
301 #ifndef OSACompile
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
302 PyMac_PRECHECK(OSACompile);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
303 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
304 if (!PyArg_ParseTuple(_args, "O&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
305 AEDesc_Convert, &sourceData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
306 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
307 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
308 _err = OSACompile(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
309 &sourceData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
310 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
311 &previousAndResultingScriptID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
312 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
313 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
314 previousAndResultingScriptID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
315 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
316 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
317
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
318 static PyObject *OSAObj_OSACopyID(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
319 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
320 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
321 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
322 OSAID fromID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
323 OSAID toID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
324 #ifndef OSACopyID
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
325 PyMac_PRECHECK(OSACopyID);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
326 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
327 if (!PyArg_ParseTuple(_args, "l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
328 &fromID))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
329 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
330 _err = OSACopyID(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
331 fromID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
332 &toID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
333 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
334 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
335 toID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
336 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
337 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
338
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
339 static PyObject *OSAObj_OSAGetSource(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
340 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
341 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
342 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
343 OSAID scriptID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
344 DescType desiredType;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
345 AEDesc resultingSourceData;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
346 #ifndef OSAGetSource
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
347 PyMac_PRECHECK(OSAGetSource);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
348 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
349 if (!PyArg_ParseTuple(_args, "lO&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
350 &scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
351 PyMac_GetOSType, &desiredType))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
352 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
353 _err = OSAGetSource(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
354 scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
355 desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
356 &resultingSourceData);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
357 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
358 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
359 AEDesc_New, &resultingSourceData);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
360 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
361 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
362
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
363 static PyObject *OSAObj_OSACoerceFromDesc(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
364 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
365 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
366 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
367 AEDesc scriptData;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
368 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
369 OSAID resultingScriptID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
370 #ifndef OSACoerceFromDesc
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
371 PyMac_PRECHECK(OSACoerceFromDesc);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
372 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
373 if (!PyArg_ParseTuple(_args, "O&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
374 AEDesc_Convert, &scriptData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
375 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
376 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
377 _err = OSACoerceFromDesc(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
378 &scriptData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
379 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
380 &resultingScriptID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
381 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
382 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
383 resultingScriptID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
384 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
385 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
386
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
387 static PyObject *OSAObj_OSACoerceToDesc(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
388 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
389 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
390 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
391 OSAID scriptID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
392 DescType desiredType;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
393 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
394 AEDesc result;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
395 #ifndef OSACoerceToDesc
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
396 PyMac_PRECHECK(OSACoerceToDesc);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
397 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
398 if (!PyArg_ParseTuple(_args, "lO&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
399 &scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
400 PyMac_GetOSType, &desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
401 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
402 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
403 _err = OSACoerceToDesc(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
404 scriptID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
405 desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
406 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
407 &result);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
408 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
409 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
410 AEDesc_New, &result);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
411 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
412 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
413
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
414 static PyObject *OSAObj_OSASetDefaultTarget(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
415 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
416 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
417 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
418 AEAddressDesc target;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
419 #ifndef OSASetDefaultTarget
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
420 PyMac_PRECHECK(OSASetDefaultTarget);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
421 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
422 if (!PyArg_ParseTuple(_args, "O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
423 AEDesc_Convert, &target))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
424 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
425 _err = OSASetDefaultTarget(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
426 &target);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
427 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
428 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
429 _res = Py_None;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
430 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
431 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
432
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
433 static PyObject *OSAObj_OSAStartRecording(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
434 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
435 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
436 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
437 OSAID compiledScriptToModifyID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
438 #ifndef OSAStartRecording
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
439 PyMac_PRECHECK(OSAStartRecording);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
440 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
441 if (!PyArg_ParseTuple(_args, ""))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
442 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
443 _err = OSAStartRecording(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
444 &compiledScriptToModifyID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
445 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
446 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
447 compiledScriptToModifyID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
448 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
449 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
450
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
451 static PyObject *OSAObj_OSAStopRecording(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
452 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
453 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
454 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
455 OSAID compiledScriptID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
456 #ifndef OSAStopRecording
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
457 PyMac_PRECHECK(OSAStopRecording);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
458 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
459 if (!PyArg_ParseTuple(_args, "l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
460 &compiledScriptID))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
461 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
462 _err = OSAStopRecording(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
463 compiledScriptID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
464 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
465 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
466 _res = Py_None;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
467 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
468 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
469
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
470 static PyObject *OSAObj_OSALoadExecute(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
471 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
472 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
473 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
474 AEDesc scriptData;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
475 OSAID contextID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
476 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
477 OSAID resultingScriptValueID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
478 #ifndef OSALoadExecute
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
479 PyMac_PRECHECK(OSALoadExecute);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
480 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
481 if (!PyArg_ParseTuple(_args, "O&ll",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
482 AEDesc_Convert, &scriptData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
483 &contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
484 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
485 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
486 _err = OSALoadExecute(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
487 &scriptData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
488 contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
489 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
490 &resultingScriptValueID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
491 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
492 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
493 resultingScriptValueID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
494 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
495 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
496
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
497 static PyObject *OSAObj_OSACompileExecute(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
498 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
499 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
500 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
501 AEDesc sourceData;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
502 OSAID contextID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
503 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
504 OSAID resultingScriptValueID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
505 #ifndef OSACompileExecute
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
506 PyMac_PRECHECK(OSACompileExecute);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
507 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
508 if (!PyArg_ParseTuple(_args, "O&ll",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
509 AEDesc_Convert, &sourceData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
510 &contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
511 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
512 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
513 _err = OSACompileExecute(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
514 &sourceData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
515 contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
516 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
517 &resultingScriptValueID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
518 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
519 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
520 resultingScriptValueID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
521 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
522 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
523
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
524 static PyObject *OSAObj_OSADoScript(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
525 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
526 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
527 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
528 AEDesc sourceData;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
529 OSAID contextID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
530 DescType desiredType;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
531 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
532 AEDesc resultingText;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
533 #ifndef OSADoScript
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
534 PyMac_PRECHECK(OSADoScript);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
535 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
536 if (!PyArg_ParseTuple(_args, "O&lO&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
537 AEDesc_Convert, &sourceData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
538 &contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
539 PyMac_GetOSType, &desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
540 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
541 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
542 _err = OSADoScript(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
543 &sourceData,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
544 contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
545 desiredType,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
546 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
547 &resultingText);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
548 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
549 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
550 AEDesc_New, &resultingText);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
551 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
552 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
553
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
554 static PyObject *OSAObj_OSASetCurrentDialect(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
555 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
556 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
557 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
558 short dialectCode;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
559 #ifndef OSASetCurrentDialect
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
560 PyMac_PRECHECK(OSASetCurrentDialect);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
561 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
562 if (!PyArg_ParseTuple(_args, "h",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
563 &dialectCode))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
564 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
565 _err = OSASetCurrentDialect(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
566 dialectCode);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
567 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
568 Py_INCREF(Py_None);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
569 _res = Py_None;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
570 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
571 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
572
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
573 static PyObject *OSAObj_OSAGetCurrentDialect(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
574 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
575 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
576 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
577 short resultingDialectCode;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
578 #ifndef OSAGetCurrentDialect
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
579 PyMac_PRECHECK(OSAGetCurrentDialect);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
580 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
581 if (!PyArg_ParseTuple(_args, ""))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
582 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
583 _err = OSAGetCurrentDialect(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
584 &resultingDialectCode);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
585 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
586 _res = Py_BuildValue("h",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
587 resultingDialectCode);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
588 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
589 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
590
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
591 static PyObject *OSAObj_OSAAvailableDialects(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
592 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
593 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
594 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
595 AEDesc resultingDialectInfoList;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
596 #ifndef OSAAvailableDialects
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
597 PyMac_PRECHECK(OSAAvailableDialects);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
598 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
599 if (!PyArg_ParseTuple(_args, ""))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
600 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
601 _err = OSAAvailableDialects(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
602 &resultingDialectInfoList);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
603 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
604 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
605 AEDesc_New, &resultingDialectInfoList);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
606 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
607 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
608
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
609 static PyObject *OSAObj_OSAGetDialectInfo(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
610 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
611 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
612 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
613 short dialectCode;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
614 OSType selector;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
615 AEDesc resultingDialectInfo;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
616 #ifndef OSAGetDialectInfo
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
617 PyMac_PRECHECK(OSAGetDialectInfo);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
618 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
619 if (!PyArg_ParseTuple(_args, "hO&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
620 &dialectCode,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
621 PyMac_GetOSType, &selector))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
622 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
623 _err = OSAGetDialectInfo(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
624 dialectCode,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
625 selector,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
626 &resultingDialectInfo);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
627 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
628 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
629 AEDesc_New, &resultingDialectInfo);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
630 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
631 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
632
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
633 static PyObject *OSAObj_OSAAvailableDialectCodeList(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
634 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
635 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
636 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
637 AEDesc resultingDialectCodeList;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
638 #ifndef OSAAvailableDialectCodeList
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
639 PyMac_PRECHECK(OSAAvailableDialectCodeList);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
640 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
641 if (!PyArg_ParseTuple(_args, ""))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
642 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
643 _err = OSAAvailableDialectCodeList(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
644 &resultingDialectCodeList);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
645 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
646 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
647 AEDesc_New, &resultingDialectCodeList);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
648 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
649 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
650
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
651 static PyObject *OSAObj_OSAExecuteEvent(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
652 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
653 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
654 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
655 AppleEvent theAppleEvent;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
656 OSAID contextID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
657 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
658 OSAID resultingScriptValueID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
659 #ifndef OSAExecuteEvent
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
660 PyMac_PRECHECK(OSAExecuteEvent);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
661 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
662 if (!PyArg_ParseTuple(_args, "O&ll",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
663 AEDesc_Convert, &theAppleEvent,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
664 &contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
665 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
666 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
667 _err = OSAExecuteEvent(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
668 &theAppleEvent,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
669 contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
670 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
671 &resultingScriptValueID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
672 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
673 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
674 resultingScriptValueID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
675 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
676 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
677
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
678 static PyObject *OSAObj_OSADoEvent(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
679 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
680 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
681 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
682 AppleEvent theAppleEvent;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
683 OSAID contextID;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
684 long modeFlags;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
685 AppleEvent reply;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
686 #ifndef OSADoEvent
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
687 PyMac_PRECHECK(OSADoEvent);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
688 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
689 if (!PyArg_ParseTuple(_args, "O&ll",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
690 AEDesc_Convert, &theAppleEvent,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
691 &contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
692 &modeFlags))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
693 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
694 _err = OSADoEvent(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
695 &theAppleEvent,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
696 contextID,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
697 modeFlags,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
698 &reply);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
699 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
700 _res = Py_BuildValue("O&",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
701 AEDesc_New, &reply);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
702 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
703 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
704
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
705 static PyObject *OSAObj_OSAMakeContext(OSAComponentInstanceObject *_self, PyObject *_args)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
706 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
707 PyObject *_res = NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
708 OSAError _err;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
709 AEDesc contextName;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
710 OSAID parentContext;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
711 OSAID resultingContextID;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
712 #ifndef OSAMakeContext
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
713 PyMac_PRECHECK(OSAMakeContext);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
714 #endif
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
715 if (!PyArg_ParseTuple(_args, "O&l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
716 AEDesc_Convert, &contextName,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
717 &parentContext))
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
718 return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
719 _err = OSAMakeContext(_self->ob_itself,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
720 &contextName,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
721 parentContext,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
722 &resultingContextID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
723 if (_err != noErr) return PyMac_Error(_err);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
724 _res = Py_BuildValue("l",
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
725 resultingContextID);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
726 return _res;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
727 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
728
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
729 static PyMethodDef OSAObj_methods[] = {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
730 {"OSALoad", (PyCFunction)OSAObj_OSALoad, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
731 PyDoc_STR("(AEDesc scriptData, long modeFlags) -> (OSAID resultingScriptID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
732 {"OSAStore", (PyCFunction)OSAObj_OSAStore, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
733 PyDoc_STR("(OSAID scriptID, DescType desiredType, long modeFlags) -> (AEDesc resultingScriptData)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
734 {"OSAExecute", (PyCFunction)OSAObj_OSAExecute, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
735 PyDoc_STR("(OSAID compiledScriptID, OSAID contextID, long modeFlags) -> (OSAID resultingScriptValueID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
736 {"OSADisplay", (PyCFunction)OSAObj_OSADisplay, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
737 PyDoc_STR("(OSAID scriptValueID, DescType desiredType, long modeFlags) -> (AEDesc resultingText)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
738 {"OSAScriptError", (PyCFunction)OSAObj_OSAScriptError, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
739 PyDoc_STR("(OSType selector, DescType desiredType) -> (AEDesc resultingErrorDescription)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
740 {"OSADispose", (PyCFunction)OSAObj_OSADispose, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
741 PyDoc_STR("(OSAID scriptID) -> None")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
742 {"OSASetScriptInfo", (PyCFunction)OSAObj_OSASetScriptInfo, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
743 PyDoc_STR("(OSAID scriptID, OSType selector, long value) -> None")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
744 {"OSAGetScriptInfo", (PyCFunction)OSAObj_OSAGetScriptInfo, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
745 PyDoc_STR("(OSAID scriptID, OSType selector) -> (long result)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
746 {"OSAScriptingComponentName", (PyCFunction)OSAObj_OSAScriptingComponentName, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
747 PyDoc_STR("() -> (AEDesc resultingScriptingComponentName)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
748 {"OSACompile", (PyCFunction)OSAObj_OSACompile, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
749 PyDoc_STR("(AEDesc sourceData, long modeFlags) -> (OSAID previousAndResultingScriptID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
750 {"OSACopyID", (PyCFunction)OSAObj_OSACopyID, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
751 PyDoc_STR("(OSAID fromID) -> (OSAID toID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
752 {"OSAGetSource", (PyCFunction)OSAObj_OSAGetSource, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
753 PyDoc_STR("(OSAID scriptID, DescType desiredType) -> (AEDesc resultingSourceData)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
754 {"OSACoerceFromDesc", (PyCFunction)OSAObj_OSACoerceFromDesc, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
755 PyDoc_STR("(AEDesc scriptData, long modeFlags) -> (OSAID resultingScriptID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
756 {"OSACoerceToDesc", (PyCFunction)OSAObj_OSACoerceToDesc, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
757 PyDoc_STR("(OSAID scriptID, DescType desiredType, long modeFlags) -> (AEDesc result)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
758 {"OSASetDefaultTarget", (PyCFunction)OSAObj_OSASetDefaultTarget, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
759 PyDoc_STR("(AEAddressDesc target) -> None")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
760 {"OSAStartRecording", (PyCFunction)OSAObj_OSAStartRecording, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
761 PyDoc_STR("() -> (OSAID compiledScriptToModifyID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
762 {"OSAStopRecording", (PyCFunction)OSAObj_OSAStopRecording, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
763 PyDoc_STR("(OSAID compiledScriptID) -> None")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
764 {"OSALoadExecute", (PyCFunction)OSAObj_OSALoadExecute, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
765 PyDoc_STR("(AEDesc scriptData, OSAID contextID, long modeFlags) -> (OSAID resultingScriptValueID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
766 {"OSACompileExecute", (PyCFunction)OSAObj_OSACompileExecute, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
767 PyDoc_STR("(AEDesc sourceData, OSAID contextID, long modeFlags) -> (OSAID resultingScriptValueID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
768 {"OSADoScript", (PyCFunction)OSAObj_OSADoScript, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
769 PyDoc_STR("(AEDesc sourceData, OSAID contextID, DescType desiredType, long modeFlags) -> (AEDesc resultingText)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
770 {"OSASetCurrentDialect", (PyCFunction)OSAObj_OSASetCurrentDialect, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
771 PyDoc_STR("(short dialectCode) -> None")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
772 {"OSAGetCurrentDialect", (PyCFunction)OSAObj_OSAGetCurrentDialect, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
773 PyDoc_STR("() -> (short resultingDialectCode)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
774 {"OSAAvailableDialects", (PyCFunction)OSAObj_OSAAvailableDialects, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
775 PyDoc_STR("() -> (AEDesc resultingDialectInfoList)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
776 {"OSAGetDialectInfo", (PyCFunction)OSAObj_OSAGetDialectInfo, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
777 PyDoc_STR("(short dialectCode, OSType selector) -> (AEDesc resultingDialectInfo)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
778 {"OSAAvailableDialectCodeList", (PyCFunction)OSAObj_OSAAvailableDialectCodeList, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
779 PyDoc_STR("() -> (AEDesc resultingDialectCodeList)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
780 {"OSAExecuteEvent", (PyCFunction)OSAObj_OSAExecuteEvent, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
781 PyDoc_STR("(AppleEvent theAppleEvent, OSAID contextID, long modeFlags) -> (OSAID resultingScriptValueID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
782 {"OSADoEvent", (PyCFunction)OSAObj_OSADoEvent, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
783 PyDoc_STR("(AppleEvent theAppleEvent, OSAID contextID, long modeFlags) -> (AppleEvent reply)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
784 {"OSAMakeContext", (PyCFunction)OSAObj_OSAMakeContext, 1,
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
785 PyDoc_STR("(AEDesc contextName, OSAID parentContext) -> (OSAID resultingContextID)")},
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
786 {NULL, NULL, 0}
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
787 };
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
788
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
789 #define OSAObj_getsetlist NULL
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
790
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
791
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
792 #define OSAObj_compare NULL
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
793
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
794 #define OSAObj_repr NULL
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
795
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
796 #define OSAObj_hash NULL
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
797 #define OSAObj_tp_init 0
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
798
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
799 #define OSAObj_tp_alloc PyType_GenericAlloc
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
800
35200
5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments:
Jack Jansen <jack.jansen@cwi.nl>
parents: 31165
diff changeset
801 static PyObject *OSAObj_tp_new(PyTypeObject *type, PyObject *_args, PyObject *_kwds)
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
802 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
803 PyObject *_self;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
804 ComponentInstance itself;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
805 char *kw[] = {"itself", 0};
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
806
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
807 if (!PyArg_ParseTupleAndKeywords(_args, _kwds, "O&", kw, OSAObj_Convert, &itself)) return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
808 if ((_self = type->tp_alloc(type, 0)) == NULL) return NULL;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
809 ((OSAComponentInstanceObject *)_self)->ob_itself = itself;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
810 return _self;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
811 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
812
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
813 #define OSAObj_tp_free PyObject_Del
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
814
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
815
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
816 PyTypeObject OSAComponentInstance_Type = {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
817 PyObject_HEAD_INIT(NULL)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
818 0, /*ob_size*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
819 "_OSA.OSAComponentInstance", /*tp_name*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
820 sizeof(OSAComponentInstanceObject), /*tp_basicsize*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
821 0, /*tp_itemsize*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
822 /* methods */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
823 (destructor) OSAObj_dealloc, /*tp_dealloc*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
824 0, /*tp_print*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
825 (getattrfunc)0, /*tp_getattr*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
826 (setattrfunc)0, /*tp_setattr*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
827 (cmpfunc) OSAObj_compare, /*tp_compare*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
828 (reprfunc) OSAObj_repr, /*tp_repr*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
829 (PyNumberMethods *)0, /* tp_as_number */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
830 (PySequenceMethods *)0, /* tp_as_sequence */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
831 (PyMappingMethods *)0, /* tp_as_mapping */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
832 (hashfunc) OSAObj_hash, /*tp_hash*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
833 0, /*tp_call*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
834 0, /*tp_str*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
835 PyObject_GenericGetAttr, /*tp_getattro*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
836 PyObject_GenericSetAttr, /*tp_setattro */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
837 0, /*tp_as_buffer*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
838 Py_TPFLAGS_DEFAULT|Py_TPFLAGS_BASETYPE, /* tp_flags */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
839 0, /*tp_doc*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
840 0, /*tp_traverse*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
841 0, /*tp_clear*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
842 0, /*tp_richcompare*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
843 0, /*tp_weaklistoffset*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
844 0, /*tp_iter*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
845 0, /*tp_iternext*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
846 OSAObj_methods, /* tp_methods */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
847 0, /*tp_members*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
848 OSAObj_getsetlist, /*tp_getset*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
849 0, /*tp_base*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
850 0, /*tp_dict*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
851 0, /*tp_descr_get*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
852 0, /*tp_descr_set*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
853 0, /*tp_dictoffset*/
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
854 OSAObj_tp_init, /* tp_init */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
855 OSAObj_tp_alloc, /* tp_alloc */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
856 OSAObj_tp_new, /* tp_new */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
857 OSAObj_tp_free, /* tp_free */
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
858 };
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
859
31165
885dbf1578bc - Renamed OSA.ComponentInstance to OSA.OSAComponentInstance. It is not
Jack Jansen <jack.jansen@cwi.nl>
parents: 31161
diff changeset
860 /* -------------- End object type OSAComponentInstance -------------- */
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
861
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
862
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
863 static PyMethodDef OSA_methods[] = {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
864 {NULL, NULL, 0}
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
865 };
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
866
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
867
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
868
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
869
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
870 void init_OSA(void)
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
871 {
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
872 PyObject *m;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
873 PyObject *d;
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
874
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
875
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
876
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
877 /*
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
878 PyMac_INIT_TOOLBOX_OBJECT_NEW(ComponentInstance, OSAObj_New);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
879 PyMac_INIT_TOOLBOX_OBJECT_CONVERT(ComponentInstance, OSAObj_Convert);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
880 */
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
881
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
882
61465
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
883 m = Py_InitModule("_OSA", OSA_methods);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
884 d = PyModule_GetDict(m);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
885 OSA_Error = PyMac_GetOSErrException();
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
886 if (OSA_Error == NULL ||
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
887 PyDict_SetItemString(d, "Error", OSA_Error) != 0)
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
888 return;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
889 OSAComponentInstance_Type.ob_type = &PyType_Type;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
890 if (PyType_Ready(&OSAComponentInstance_Type) < 0) return;
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
891 Py_INCREF(&OSAComponentInstance_Type);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
892 PyModule_AddObject(m, "OSAComponentInstance", (PyObject *)&OSAComponentInstance_Type);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
893 /* Backward-compatible name */
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
894 Py_INCREF(&OSAComponentInstance_Type);
e38335d4df91 Recorded merge of revisions 81029 via svnmerge from
Antoine Pitrou <solipsis@pitrou.net>
parents: 44185
diff changeset
895 PyModule_AddObject(m, "OSAComponentInstanceType", (PyObject *)&OSAComponentInstance_Type);
31090
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
896 }
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
897
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
898 /* ======================== End module _OSA ========================= */
0a7f1a53c773 Adding an interface to the high-level Open Scripting Architecture,
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
899