Mac/Modules/waste/wastesupport.py

   1 # This script generates a Python interface for an Apple Macintosh Manager.
   2 # It uses the "bgen" package to generate C code.
   3 # The function specifications are generated by scanning the mamager's header file,
   4 # using the "scantools" package (customized for this particular manager).
   5
   6 import string
   7
   8 # Declarations that change for each manager
   9 MACHEADERFILE = 'WASTE.h'               # The Apple header file
  10 MODNAME = 'waste'                               # The name of the module
  11 OBJECTNAME = 'waste'                    # The basic name of the objects used here
  12 KIND = 'Ptr'                            # Usually 'Ptr' or 'Handle'
  13
  14 # The following is *usually* unchanged but may still require tuning
  15 MODPREFIX = MODNAME                     # The prefix for module-wide routines
  16 OBJECTTYPE = "WEReference"              # The C type used to represent them
  17 OBJECTPREFIX = MODPREFIX + 'Obj'        # The prefix for object methods
  18 INPUTFILE = 'wastegen.py' # The file generated by the scanner
  19 TYPETESTFILE = 'wastetypetest.py'       # Another file generated by the scanner
  20 OUTPUTFILE = "wastemodule.c"    # The file generated by this program
  21
  22 from macsupport import *
  23
  24 # Create the type objects
  25 WEReference = OpaqueByValueType("WEReference", "wasteObj")
  26 ExistingWEReference = OpaqueByValueType("WEReference", "ExistingwasteObj")
  27 WEObjectReference = OpaqueByValueType("WEObjectReference", "WEOObj")
  28 StScrpHandle = OpaqueByValueType("StScrpHandle", "ResObj")
  29 RgnHandle = OpaqueByValueType("RgnHandle", "ResObj")
  30 EventModifiers = Type("EventModifiers", "h")
  31 FlavorType = OSTypeType("FlavorType")
  32 WESelector = OSTypeType("WESelector")
  33
  34 OptHandle = OpaqueByValueType("Handle", "OptResObj")
  35 OptSoupHandle = OpaqueByValueType("WESoupHandle", "OptResObj")
  36 OptStScrpHandle = OpaqueByValueType("StScrpHandle", "OptResObj")
  37
  38 WEStyleMode = Type("WEStyleMode", "h")
  39 WEActionKind = Type("WEActionKind", "h")
  40 WEAlignment = Type("WEAlignment", "b")
  41 WEEdge = Type("WEEdge", "b")
  42 WESoupHandle = OpaqueByValueType("WESoupHandle", "ResObj")
  43 WERunInfo = OpaqueType("WERunInfo", "RunInfo")
  44
  45 TextStyle = OpaqueType("TextStyle", "TextStyle")
  46 TextStyle_ptr = TextStyle
  47 LongPt = OpaqueType("LongPt", "LongPt")
  48 LongPt_ptr = LongPt
  49 LongRect = OpaqueType("LongRect", "LongRect")
  50 LongRect_ptr = LongRect
  51
  52 includestuff = includestuff + """
  53 #include <%s>""" % MACHEADERFILE + """
  54 #include <WEObjectHandlers.h>
  55
  56 /* Exported by Qdmodule.c: */
  57 extern PyObject *QdRGB_New(RGBColor *);
  58 extern int QdRGB_Convert(PyObject *, RGBColor *);
  59
  60 /* Forward declaration */
  61 staticforward PyObject *WEOObj_New(WEObjectReference);
  62 staticforward PyObject *ExistingwasteObj_New(WEReference);
  63
  64 /*
  65 ** Parse/generate TextStyle records
  66 */
  67 static
  68 PyObject *TextStyle_New(itself)
  69         TextStylePtr itself;
  70 {
  71
  72         return Py_BuildValue("lllO&", (long)itself->tsFont, (long)itself->tsFace, (long)itself->tsSize, QdRGB_New,
  73                                 &itself->tsColor);
  74 }
  75
  76 static
  77 TextStyle_Convert(v, p_itself)
  78         PyObject *v;
  79         TextStylePtr p_itself;
  80 {
  81         long font, face, size;
  82
  83         if( !PyArg_ParseTuple(v, "lllO&", &font, &face, &size, QdRGB_Convert, &p_itself->tsColor) )
  84                 return 0;
  85         p_itself->tsFont = (short)font;
  86         p_itself->tsFace = (Style)face;
  87         p_itself->tsSize = (short)size;
  88         return 1;
  89 }
  90
  91 /*
  92 ** Parse/generate RunInfo records
  93 */
  94 static
  95 PyObject *RunInfo_New(itself)
  96         WERunInfo *itself;
  97 {
  98
  99         return Py_BuildValue("llhhO&O&", itself->runStart, itself->runEnd, itself->runHeight,
 100                 itself->runAscent, TextStyle_New, &itself->runStyle, WEOObj_New, itself->runObject);
 101 }
 102
 103 /* Conversion of long points and rects */
 104 int
 105 LongRect_Convert(PyObject *v, LongRect *r)
 106 {
 107         return PyArg_Parse(v, "(llll)", &r->left, &r->top, &r->right, &r->bottom);
 108 }
 109
 110 PyObject *
 111 LongRect_New(LongRect *r)
 112 {
 113         return Py_BuildValue("(llll)", r->left, r->top, r->right, r->bottom);
 114 }
 115
 116
 117 LongPt_Convert(PyObject *v, LongPt *p)
 118 {
 119         return PyArg_Parse(v, "(ll)", &p->h, &p->v);
 120 }
 121
 122 PyObject *
 123 LongPt_New(LongPt *p)
 124 {
 125         return Py_BuildValue("(ll)", p->h, p->v);
 126 }
 127
 128 /* Stuff for the callbacks: */
 129 static PyObject *callbackdict;
 130 WENewObjectUPP upp_new_handler;
 131 WEDisposeObjectUPP upp_dispose_handler;
 132 WEDrawObjectUPP upp_draw_handler;
 133 WEClickObjectUPP upp_click_handler;
 134
 135 static OSErr
 136 any_handler(WESelector what, WEObjectReference who, PyObject *args, PyObject **rv)
 137 {
 138         FlavorType tp;
 139         PyObject *key, *func;
 140
 141         if ( args == NULL ) return errAECorruptData;
 142
 143         tp = WEGetObjectType(who);
 144
 145         if( (key=Py_BuildValue("O&O&", PyMac_BuildOSType, tp, PyMac_BuildOSType, what)) == NULL)
 146                 return errAECorruptData;
 147         if( (func = PyDict_GetItem(callbackdict, key)) == NULL ) {
 148                 Py_DECREF(key);
 149                 return errAEHandlerNotFound;
 150         }
 151         Py_INCREF(func);
 152         *rv = PyEval_CallObject(func, args);
 153         Py_DECREF(func);
 154         Py_DECREF(key);
 155         if ( *rv == NULL ) {
 156                 fprintf(stderr, "--Exception in callback: ");
 157                 PyErr_Print();
 158                 return errAEReplyNotArrived;
 159         }
 160         return 0;
 161 }
 162
 163 static pascal OSErr
 164 my_new_handler(Point *objectSize, WEObjectReference objref)
 165 {
 166         PyObject *args=NULL, *rv=NULL;
 167         OSErr err;
 168
 169         args=Py_BuildValue("(O&)", WEOObj_New, objref);
 170         err = any_handler(weNewHandler, objref, args, &rv);
 171         if (!err) {
 172                 if (!PyMac_GetPoint(rv, objectSize) )
 173                         err = errAECoercionFail;
 174         }
 175         if ( args ) Py_DECREF(args);
 176         if ( rv ) Py_DECREF(rv);
 177         return err;
 178 }
 179
 180 static pascal OSErr
 181 my_dispose_handler(WEObjectReference objref)
 182 {
 183         PyObject *args=NULL, *rv=NULL;
 184         OSErr err;
 185
 186         args=Py_BuildValue("(O&)", WEOObj_New, objref);
 187         err = any_handler(weDisposeHandler, objref, args, &rv);
 188         if ( args ) Py_DECREF(args);
 189         if ( rv ) Py_DECREF(rv);
 190         return err;
 191 }
 192
 193 static pascal OSErr
 194 my_draw_handler(Rect *destRect, WEObjectReference objref)
 195 {
 196         PyObject *args=NULL, *rv=NULL;
 197         OSErr err;
 198
 199         args=Py_BuildValue("O&O&", PyMac_BuildRect, destRect, WEOObj_New, objref);
 200         err = any_handler(weDrawHandler, objref, args, &rv);
 201         if ( args ) Py_DECREF(args);
 202         if ( rv ) Py_DECREF(rv);
 203         return err;
 204 }
 205
 206 static pascal Boolean
 207 my_click_handler(Point hitPt, EventModifiers modifiers,
 208                 unsigned long clickTime, WEObjectReference objref)
 209 {
 210         PyObject *args=NULL, *rv=NULL;
 211         int retvalue;
 212         OSErr err;
 213
 214         args=Py_BuildValue("O&llO&", PyMac_BuildPoint, hitPt,
 215                         (long)modifiers, (long)clickTime, WEOObj_New, objref);
 216         err = any_handler(weClickHandler, objref, args, &rv);
 217         if (!err)
 218                 retvalue = PyInt_AsLong(rv);
 219         else
 220                 retvalue = 0;
 221         if ( args ) Py_DECREF(args);
 222         if ( rv ) Py_DECREF(rv);
 223         return retvalue;
 224 }
 225
 226
 227 """
 228 finalstuff = finalstuff + """
 229 /* Return the object corresponding to the window, or NULL */
 230
 231 PyObject *
 232 ExistingwasteObj_New(w)
 233         WEReference w;
 234 {
 235         PyObject *it = NULL;
 236
 237         if (w == NULL)
 238                 it = NULL;
 239         else
 240                 WEGetInfo(weRefCon, (void *)&it, w);
 241         if (it == NULL || ((wasteObject *)it)->ob_itself != w)
 242                 it = Py_None;
 243         Py_INCREF(it);
 244         return it;
 245 }
 246 """
 247
 248 class WEMethodGenerator(OSErrMethodGenerator):
 249         """Similar to MethodGenerator, but has self as last argument"""
 250
 251         def parseArgumentList(self, args):
 252                 args, a0 = args[:-1], args[-1]
 253                 t0, n0, m0 = a0
 254                 if m0 != InMode:
 255                         raise ValueError, "method's 'self' must be 'InMode'"
 256                 self.itself = Variable(t0, "_self->ob_itself", SelfMode)
 257                 FunctionGenerator.parseArgumentList(self, args)
 258                 self.argumentList.append(self.itself)
 259
 260
 261
 262 class WEObjectDefinition(GlobalObjectDefinition):
 263         def outputCheckNewArg(self):
 264                 Output("""if (itself == NULL) {
 265                                         PyErr_SetString(waste_Error,"Cannot create null WE");
 266                                         return NULL;
 267                                 }""")
 268         def outputInitStructMembers(self):
 269                 GlobalObjectDefinition.outputInitStructMembers(self)
 270                 Output("WESetInfo(weRefCon, (void *)&it, itself);")
 271         def outputFreeIt(self, itselfname):
 272                 Output("WEDispose(%s);", itselfname)
 273
 274 class WEOObjectDefinition(GlobalObjectDefinition):
 275         def outputCheckNewArg(self):
 276                 Output("""if (itself == NULL) {
 277                                         Py_INCREF(Py_None);
 278                                         return Py_None;
 279                                 }""")
 280
 281 variablestuff = """
 282         callbackdict = PyDict_New();
 283         if (callbackdict == NULL || PyDict_SetItemString(d, "callbacks", callbackdict) != 0)
 284                 Py_FatalError("can't initialize Waste.callbackdict");
 285         upp_new_handler = NewWENewObjectProc(my_new_handler);
 286         upp_dispose_handler = NewWEDisposeObjectProc(my_dispose_handler);
 287         upp_draw_handler = NewWEDrawObjectProc(my_draw_handler);
 288         upp_click_handler = NewWEClickObjectProc(my_click_handler);
 289 """
 290
 291
 292 # From here on it's basically all boiler plate...
 293
 294 # Test types used for existence
 295 ## execfile(TYPETESTFILE)
 296
 297 # Create the generator groups and link them
 298 module = MacModule(MODNAME, MODPREFIX, includestuff, finalstuff, initstuff, variablestuff)
 299 object = WEObjectDefinition(OBJECTNAME, OBJECTPREFIX, OBJECTTYPE)
 300 object2 = WEOObjectDefinition("WEO", "WEOObj", "WEObjectReference")
 301 module.addobject(object2)
 302 module.addobject(object)
 303
 304 # Create the generator classes used to populate the lists
 305 Function = OSErrFunctionGenerator
 306 Method = WEMethodGenerator
 307 Method2 = OSErrMethodGenerator
 308
 309 # Create and populate the lists
 310 functions = []
 311 methods = []
 312 methods2 = []
 313 execfile(INPUTFILE)
 314
 315 # A function written by hand:
 316 stdhandlers_body = """
 317         OSErr err;
 318         // install the sample object handlers for pictures and sounds
 319 #define kTypePicture                    'PICT'
 320 #define kTypeSound                              'snd '
 321
 322         if ( !PyArg_ParseTuple(_args, "") ) return NULL;
 323
 324         if ((err = WEInstallObjectHandler(kTypePicture, weNewHandler,
 325                                 (UniversalProcPtr) NewWENewObjectProc(HandleNewPicture), NULL)) != noErr)
 326                 goto cleanup;
 327
 328         if ((err = WEInstallObjectHandler(kTypePicture, weDisposeHandler,
 329                                 (UniversalProcPtr) NewWEDisposeObjectProc(HandleDisposePicture), NULL)) != noErr)
 330                 goto cleanup;
 331
 332         if ((err = WEInstallObjectHandler(kTypePicture, weDrawHandler,
 333                                 (UniversalProcPtr) NewWEDrawObjectProc(HandleDrawPicture), NULL)) != noErr)
 334                 goto cleanup;
 335
 336         if ((err = WEInstallObjectHandler(kTypeSound, weNewHandler,
 337                                 (UniversalProcPtr) NewWENewObjectProc(HandleNewSound), NULL)) != noErr)
 338                 goto cleanup;
 339
 340         if ((err = WEInstallObjectHandler(kTypeSound, weDrawHandler,
 341                                 (UniversalProcPtr) NewWEDrawObjectProc(HandleDrawSound), NULL)) != noErr)
 342                 goto cleanup;
 343
 344         if ((err = WEInstallObjectHandler(kTypeSound, weClickHandler,
 345                                 (UniversalProcPtr) NewWEClickObjectProc(HandleClickSound), NULL)) != noErr)
 346                 goto cleanup;
 347         Py_INCREF(Py_None);
 348         return Py_None;
 349
 350 cleanup:
 351         return PyMac_Error(err);
 352 """
 353
 354 inshandler_body = """
 355         OSErr err;
 356         FlavorType objectType;
 357         WESelector selector;
 358         PyObject *py_handler;
 359         UniversalProcPtr handler;
 360         WEReference we = NULL;
 361         PyObject *key;
 362
 363
 364         if ( !PyArg_ParseTuple(_args, "O&O&O|O&",
 365                         PyMac_GetOSType, &objectType,
 366                         PyMac_GetOSType, &selector,
 367                         &py_handler,
 368                         ExistingwasteObj_New, &we) ) return NULL;
 369
 370         if ( selector == weNewHandler ) handler = (UniversalProcPtr)upp_new_handler;
 371         else if ( selector == weDisposeHandler ) handler = (UniversalProcPtr)upp_dispose_handler;
 372         else if ( selector == weDrawHandler ) handler = (UniversalProcPtr)upp_draw_handler;
 373         else if ( selector == weClickHandler ) handler = (UniversalProcPtr)upp_click_handler;
 374         else return PyMac_Error(weUndefinedSelectorErr);
 375
 376         if ((key = Py_BuildValue("O&O&",
 377                         PyMac_BuildOSType, objectType,
 378                         PyMac_BuildOSType, selector)) == NULL )
 379                 return NULL;
 380
 381         PyDict_SetItem(callbackdict, key, py_handler);
 382
 383         err = WEInstallObjectHandler(objectType, selector, handler, we);
 384         if ( err ) return PyMac_Error(err);
 385         Py_INCREF(Py_None);
 386         return Py_None;
 387 """
 388
 389 stdhand = ManualGenerator("STDObjectHandlers", stdhandlers_body)
 390 inshand = ManualGenerator("WEInstallObjectHandler", inshandler_body)
 391
 392 # add the populated lists to the generator groups
 393 # (in a different wordl the scan program would generate this)
 394 for f in functions: module.add(f)
 395 module.add(stdhand)
 396 module.add(inshand)
 397 for f in methods: object.add(f)
 398 for f in methods2: object2.add(f)
 399
 400 # generate output (open the output file as late as possible)
 401 SetOutputFileName(OUTPUTFILE)
 402 module.generate()
 403