Mac/Modules/ae/aesupport.py

   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()