1 # This script will generate the AppleEvents interface for Python. 2 # It uses the "bgen" package to generate C code. 3 # It execs the file aegen.py which contain the function definitions 4 # (aegen.py was generated by aescan.py, scanning the <AppleEvents.h> header file). 5 6 7 from macsupport import * 8 9 10 AEArrayType = Type("AEArrayType", "c") 11 AESendMode = Type("AESendMode", "l") 12 AESendPriority = Type("AESendPriority", "h") 13 AEInteractAllowed = Type("AEInteractAllowed", "b") 14 AEReturnID = Type("AEReturnID", "h") 15 AETransactionID = Type("AETransactionID", "l") 16 17 18 19 AEEventClass = OSTypeType('AEEventClass') 20 AEEventID = OSTypeType('AEEventID') 21 AEKeyword = OSTypeType('AEKeyword') 22 DescType = OSTypeType('DescType') 23 24 25 AEDesc = OpaqueType('AEDesc') 26 AEDesc_ptr = OpaqueType('AEDesc') 27 28 AEAddressDesc = OpaqueType('AEAddressDesc', 'AEDesc') 29 AEAddressDesc_ptr = OpaqueType('AEAddressDesc', 'AEDesc') 30 31 AEDescList = OpaqueType('AEDescList', 'AEDesc') 32 AEDescList_ptr = OpaqueType('AEDescList', 'AEDesc') 33 34 AERecord = OpaqueType('AERecord', 'AEDesc') 35 AERecord_ptr = OpaqueType('AERecord', 'AEDesc') 36 37 AppleEvent = OpaqueType('AppleEvent', 'AEDesc') 38 AppleEvent_ptr = OpaqueType('AppleEvent', 'AEDesc') 39 40 41 class EHType(Type): 42 def __init__(self, name = 'EventHandler', format = ''): 43 Type.__init__(self, name, format) 44 def declare(self, name): 45 Output("AEEventHandlerUPP %s__proc__ = upp_GenericEventHandler;", name) 46 Output("PyObject *%s;", name) 47 def getargsFormat(self): 48 return "O" 49 def getargsArgs(self, name): 50 return "&%s" % name 51 def passInput(self, name): 52 return "%s__proc__, (long)%s" % (name, name) 53 def passOutput(self, name): 54 return "&%s__proc__, (long *)&%s" % (name, name) 55 def mkvalueFormat(self): 56 return "O" 57 def mkvalueArgs(self, name): 58 return name 59 def cleanup(self, name): 60 Output("Py_INCREF(%s); /* XXX leak, but needed */", name) 61 62 class EHNoRefConType(EHType): 63 def passInput(self, name): 64 return "upp_GenericEventHandler" 65 66 EventHandler = EHType() 67 EventHandlerNoRefCon = EHNoRefConType() 68 69 70 IdleProcPtr = FakeType("upp_AEIdleProc") 71 AEIdleUPP = IdleProcPtr 72 EventFilterProcPtr = FakeType("(AEFilterUPP)0") 73 AEFilterUPP = EventFilterProcPtr 74 NMRecPtr = FakeType("(NMRecPtr)0") 75 EventHandlerProcPtr = FakeType("upp_GenericEventHandler") 76 AEEventHandlerUPP = EventHandlerProcPtr 77 AlwaysFalse = FakeType("0") 78 79 80 AEFunction = OSErrWeakLinkFunctionGenerator 81 AEMethod = OSErrWeakLinkMethodGenerator 82 83 84 includestuff = includestuff + """ 85 #include <Carbon/Carbon.h> 86 87 #ifdef USE_TOOLBOX_OBJECT_GLUE 88 extern PyObject *_AEDesc_New(AEDesc *); 89 extern int _AEDesc_Convert(PyObject *, AEDesc *); 90 91 #define AEDesc_New _AEDesc_New 92 #define AEDesc_NewBorrowed _AEDesc_NewBorrowed 93 #define AEDesc_Convert _AEDesc_Convert 94 #endif 95 96 typedef long refcontype; 97 98 static pascal OSErr GenericEventHandler(const AppleEvent *request, AppleEvent *reply, refcontype refcon); /* Forward */ 99 100 AEEventHandlerUPP upp_GenericEventHandler; 101 102 static pascal Boolean AEIdleProc(EventRecord *theEvent, long *sleepTime, RgnHandle *mouseRgn) 103 { 104 if ( PyOS_InterruptOccurred() ) 105 return 1; 106 return 0; 107 } 108 109 AEIdleUPP upp_AEIdleProc; 110 """ 111 112 finalstuff = finalstuff + """ 113 static pascal OSErr 114 GenericEventHandler(const AppleEvent *request, AppleEvent *reply, refcontype refcon) 115 { 116 PyObject *handler = (PyObject *)refcon; 117 AEDescObject *requestObject, *replyObject; 118 PyObject *args, *res; 119 if ((requestObject = (AEDescObject *)AEDesc_New((AppleEvent *)request)) == NULL) { 120 return -1; 121 } 122 if ((replyObject = (AEDescObject *)AEDesc_New(reply)) == NULL) { 123 Py_DECREF(requestObject); 124 return -1; 125 } 126 if ((args = Py_BuildValue("OO", requestObject, replyObject)) == NULL) { 127 Py_DECREF(requestObject); 128 Py_DECREF(replyObject); 129 return -1; 130 } 131 res = PyEval_CallObject(handler, args); 132 requestObject->ob_itself.descriptorType = 'null'; 133 requestObject->ob_itself.dataHandle = NULL; 134 replyObject->ob_itself.descriptorType = 'null'; 135 replyObject->ob_itself.dataHandle = NULL; 136 Py_DECREF(args); 137 if (res == NULL) { 138 PySys_WriteStderr("Exception in AE event handler function\\n"); 139 PyErr_Print(); 140 return -1; 141 } 142 Py_DECREF(res); 143 return noErr; 144 } 145 146 PyObject *AEDesc_NewBorrowed(AEDesc *itself) 147 { 148 PyObject *it; 149 150 it = AEDesc_New(itself); 151 if (it) 152 ((AEDescObject *)it)->ob_owned = 0; 153 return (PyObject *)it; 154 } 155 156 """ 157 158 initstuff = initstuff + """ 159 upp_AEIdleProc = NewAEIdleUPP(AEIdleProc); 160 upp_GenericEventHandler = NewAEEventHandlerUPP(GenericEventHandler); 161 PyMac_INIT_TOOLBOX_OBJECT_NEW(AEDesc *, AEDesc_New); 162 PyMac_INIT_TOOLBOX_OBJECT_NEW(AEDesc *, AEDesc_NewBorrowed); 163 PyMac_INIT_TOOLBOX_OBJECT_CONVERT(AEDesc, AEDesc_Convert); 164 """ 165 166 module = MacModule('_AE', 'AE', includestuff, finalstuff, initstuff) 167 168 class AEDescDefinition(PEP253Mixin, GlobalObjectDefinition): 169 getsetlist = [( 170 'type', 171 'return PyMac_BuildOSType(self->ob_itself.descriptorType);', 172 None, 173 'Type of this AEDesc' 174 ), ( 175 'data', 176 """ 177 PyObject *res; 178 Size size; 179 char *ptr; 180 OSErr err; 181 182 size = AEGetDescDataSize(&self->ob_itself); 183 if ( (res = PyString_FromStringAndSize(NULL, size)) == NULL ) 184 return NULL; 185 if ( (ptr = PyString_AsString(res)) == NULL ) 186 return NULL; 187 if ( (err=AEGetDescData(&self->ob_itself, ptr, size)) < 0 ) 188 return PyMac_Error(err); 189 return res; 190 """, 191 None, 192 'The raw data in this AEDesc' 193 )] 194 195 def __init__(self, name, prefix = None, itselftype = None): 196 GlobalObjectDefinition.__init__(self, name, prefix or name, itselftype or name) 197 self.argref = "*" 198 199 def outputStructMembers(self): 200 GlobalObjectDefinition.outputStructMembers(self) 201 Output("int ob_owned;") 202 203 def outputInitStructMembers(self): 204 GlobalObjectDefinition.outputInitStructMembers(self) 205 Output("it->ob_owned = 1;") 206 207 def outputCleanupStructMembers(self): 208 Output("if (self->ob_owned) AEDisposeDesc(&self->ob_itself);") 209 210 aedescobject = AEDescDefinition('AEDesc') 211 module.addobject(aedescobject) 212 213 functions = [] 214 aedescmethods = [] 215 216 execfile('aegen.py') 217 ##execfile('aedatamodelgen.py') 218 219 # Manual generator 220 AutoDispose_body = """ 221 int onoff, old; 222 if (!PyArg_ParseTuple(_args, "i", &onoff)) 223 return NULL; 224 old = _self->ob_owned; 225 _self->ob_owned = onoff; 226 _res = Py_BuildValue("i", old); 227 return _res; 228 """ 229 f = ManualGenerator("AutoDispose", AutoDispose_body) 230 f.docstring = lambda: "(int)->int. Automatically AEDisposeDesc the object on Python object cleanup" 231 aedescmethods.append(f) 232 233 for f in functions: module.add(f) 234 for f in aedescmethods: aedescobject.add(f) 235 236 SetOutputFileName('_AEmodule.c') 237 module.generate() 238
