Mac/Modules/qd/qdsupport.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 = 'QuickDraw.h'           # The Apple header file
  10 MODNAME = 'Qd'                          # The name of the module
  11 OBJECTNAME = 'Graf'                     # The basic name of the objects used here
  12
  13 # The following is *usually* unchanged but may still require tuning
  14 MODPREFIX = MODNAME                     # The prefix for module-wide routines
  15 OBJECTTYPE = OBJECTNAME + 'Ptr'         # The C type used to represent them
  16 OBJECTPREFIX = MODPREFIX + 'Obj'        # The prefix for object methods
  17 INPUTFILE = string.lower(MODPREFIX) + 'gen.py' # The file generated by the scanner
  18 EXTRAFILE = string.lower(MODPREFIX) + 'edit.py' # A similar file but hand-made
  19 OUTPUTFILE = MODNAME + "module.c"       # The file generated by this program
  20
  21 from macsupport import *
  22
  23 # Create the type objects
  24
  25 class TextThingieClass(FixedInputBufferType):
  26         def getargsCheck(self, name):
  27                 pass
  28
  29 TextThingie = TextThingieClass(None)
  30
  31 # These are temporary!
  32 RgnHandle = OpaqueByValueType("RgnHandle", "ResObj")
  33 OptRgnHandle = OpaqueByValueType("RgnHandle", "OptResObj")
  34 PicHandle = OpaqueByValueType("PicHandle", "ResObj")
  35 PolyHandle = OpaqueByValueType("PolyHandle", "ResObj")
  36 PixMapHandle = OpaqueByValueType("PixMapHandle", "ResObj")
  37 PixPatHandle = OpaqueByValueType("PixPatHandle", "ResObj")
  38 PatHandle = OpaqueByValueType("PatHandle", "ResObj")
  39 CursHandle = OpaqueByValueType("CursHandle", "ResObj")
  40 CCrsrHandle = OpaqueByValueType("CCrsrHandle", "ResObj")
  41 CIconHandle = OpaqueByValueType("CIconHandle", "ResObj")
  42 CTabHandle = OpaqueByValueType("CTabHandle", "ResObj")
  43 ITabHandle = OpaqueByValueType("ITabHandle", "ResObj")
  44 GDHandle = OpaqueByValueType("GDHandle", "ResObj")
  45 CGrafPtr = OpaqueByValueType("CGrafPtr", "GrafObj")
  46 GrafPtr = OpaqueByValueType("GrafPtr", "GrafObj")
  47 BitMap_ptr = OpaqueByValueType("BitMapPtr", "BMObj")
  48 const_BitMap_ptr = OpaqueByValueType("const BitMap *", "BMObj")
  49 BitMap = OpaqueType("BitMap", "BMObj_NewCopied", "BUG")
  50 RGBColor = OpaqueType('RGBColor', 'QdRGB')
  51 RGBColor_ptr = RGBColor
  52 FontInfo = OpaqueType('FontInfo', 'QdFI')
  53 Component = OpaqueByValueType('Component', 'CmpObj')
  54 ComponentInstance = OpaqueByValueType('ComponentInstance', 'CmpInstObj')
  55
  56 Cursor = StructOutputBufferType('Cursor')
  57 Cursor_ptr = StructInputBufferType('Cursor')
  58 Pattern = StructOutputBufferType('Pattern')
  59 Pattern_ptr = StructInputBufferType('Pattern')
  60 PenState = StructOutputBufferType('PenState')
  61 PenState_ptr = StructInputBufferType('PenState')
  62
  63 includestuff = includestuff + """
  64 #ifdef WITHOUT_FRAMEWORKS
  65 #include <QuickDraw.h>
  66 #else
  67 #include <Carbon/Carbon.h>
  68 #endif
  69
  70 #ifdef USE_TOOLBOX_OBJECT_GLUE
  71 extern PyObject *_GrafObj_New(GrafPtr);
  72 extern int _GrafObj_Convert(PyObject *, GrafPtr *);
  73 extern PyObject *_BMObj_New(BitMapPtr);
  74 extern int _BMObj_Convert(PyObject *, BitMapPtr *);
  75 extern PyObject *_QdRGB_New(RGBColorPtr);
  76 extern int _QdRGB_Convert(PyObject *, RGBColorPtr);
  77
  78 #define GrafObj_New _GrafObj_New
  79 #define GrafObj_Convert _GrafObj_Convert
  80 #define BMObj_New _BMObj_New
  81 #define BMObj_Convert _BMObj_Convert
  82 #define QdRGB_New _QdRGB_New
  83 #define QdRGB_Convert _QdRGB_Convert
  84 #endif
  85
  86 #if !ACCESSOR_CALLS_ARE_FUNCTIONS
  87 #define GetPortBitMapForCopyBits(port) ((const struct BitMap *)&((GrafPort *)(port))->portBits)
  88 #define GetPortPixMap(port) (((CGrafPtr)(port))->portPixMap)
  89 #define GetPortBounds(port, bounds) (*(bounds) = (port)->portRect, (bounds))
  90 #define GetPortForeColor(port, color) (*(color) = (port)->rgbFgColor, (color))
  91 #define GetPortBackColor(port, color) (*(color) = (port)->rgbBkColor, (color))
  92 #define GetPortOpColor(port, color) (*(color) = (*(GVarHandle)((port)->grafVars))->rgbOpColor, (color))
  93 #define GetPortHiliteColor(port, color) (*(color) = (*(GVarHandle)((port)->grafVars))->rgbHiliteColor, (color))
  94 #define GetPortTextFont(port) ((port)->txFont)
  95 #define GetPortTextFace(port) ((port)->txFace)
  96 #define GetPortTextMode(port) ((port)->txMode)
  97 #define GetPortTextSize(port) ((port)->txSize)
  98 #define GetPortChExtra(port) ((port)->chExtra)
  99 #define GetPortFracHPenLocation(port) ((port)->pnLocHFrac)
 100 #define GetPortSpExtra(port) ((port)->spExtra)
 101 #define GetPortPenVisibility(port) ((port)->pnVis)
 102 #define GetPortVisibleRegion(port, rgn) ((rgn) = (port)->visRgn, (rgn))
 103 #define GetPortClipRegion(port, rgn) ((rgn) = (port)->clipRgn, (rgn))
 104 #define GetPortBackPixPat(port, pat) ((pat) = (port)->bkPixPat, (pat))
 105 #define GetPortPenPixPat(port, pat) ((pat) = (port)->pnPixPat, (pat))
 106 #define GetPortFillPixPat(port, pat) ((pat) = (port)->fillPixPat, (pat))
 107 #define GetPortPenSize(port, pensize) (*(pensize) = (port)->pnSize, (pensize))
 108 #define GetPortPenMode(port) ((port)->pnMode)
 109 #define GetPortPenLocation(port, location) ((*location) = (port)->pnLoc, (location))
 110 #define IsPortRegionBeingDefined(port) (!!((port)->rgnSave))
 111 #define IsPortPictureBeingDefined(port) (!!((port)->picSave))
 112 /* #define IsPortOffscreen(port) */
 113 /* #define IsPortColor(port) */
 114
 115 #define SetPortBounds(port, bounds) ((port)->portRect = *(bounds))
 116 #define SetPortOpColor(port, color) ((*(GVarHandle)((port)->grafVars))->rgbOpColor = *(color))
 117 #define SetPortVisibleRegion(port, rgn) ((port)->visRgn = (rgn))
 118 #define SetPortClipRegion(port, rgn) ((port)->clipRgn = (rgn))
 119 #define SetPortBackPixPat(port, pat) ((port)->bkPixPat = (pat))
 120 #define SetPortPenPixPat(port, pat) ((port)->pnPixPat = (pat))
 121 #define SetPortFillPixPat(port, pat) ((port)->fillPixPat = (pat))
 122 #define SetPortPenSize(port, pensize) ((port)->pnSize = (pensize))
 123 #define SetPortPenMode(port, mode) ((port)->pnMode = (mode))
 124 #define SetPortFracHPenLocation(port, frac) ((port)->pnLocHFrac = (frac))
 125
 126 /* On pixmaps */
 127 #define GetPixBounds(pixmap, rect) (*(rect) = (*(pixmap))->bounds, (rect))
 128 #define GetPixDepth(pixmap) ((*(pixmap))->pixelSize)
 129
 130 /* On regions */
 131 #define GetRegionBounds(rgn, rect) (*(rect) = (*(rgn))->rgnBBox, (rect))
 132
 133 /* On QD Globals */
 134 #define GetQDGlobalsRandomSeed() (qd.randSeed)
 135 #define GetQDGlobalsScreenBits(bits) (*(bits) = qd.screenBits, (bits))
 136 #define GetQDGlobalsArrow(crsr) (*(crsr) = qd.arrow, (crsr))
 137 #define GetQDGlobalsDarkGray(pat) (*(pat) = qd.dkGray, (pat))
 138 #define GetQDGlobalsLightGray(pat) (*(pat) = qd.ltGray, (pat))
 139 #define GetQDGlobalsGray(pat) (*(pat) = qd.gray, (pat))
 140 #define GetQDGlobalsBlack(pat) (*(pat) = qd.black, (pat))
 141 #define GetQDGlobalsWhite(pat) (*(pat) = qd.white, (pat))
 142 #define GetQDGlobalsThePort() ((CGrafPtr)qd.thePort)
 143
 144 #define SetQDGlobalsRandomSeed(seed) (qd.randSeed = (seed))
 145 #define SetQDGlobalsArrow(crsr) (qd.arrow = *(crsr))
 146
 147 #endif /* ACCESSOR_CALLS_ARE_FUNCTIONS */
 148
 149 #if !TARGET_API_MAC_CARBON
 150 #define QDFlushPortBuffer(port, rgn) /* pass */
 151 #define QDIsPortBufferDirty(port) 0
 152 #define QDIsPortBuffered(port) 0
 153 #endif /* !TARGET_API_MAC_CARBON  */
 154
 155 staticforward PyObject *BMObj_NewCopied(BitMapPtr);
 156
 157 /*
 158 ** Parse/generate RGB records
 159 */
 160 PyObject *QdRGB_New(RGBColorPtr itself)
 161 {
 162
 163         return Py_BuildValue("lll", (long)itself->red, (long)itself->green, (long)itself->blue);
 164 }
 165
 166 QdRGB_Convert(PyObject *v, RGBColorPtr p_itself)
 167 {
 168         long red, green, blue;
 169
 170         if( !PyArg_ParseTuple(v, "lll", &red, &green, &blue) )
 171                 return 0;
 172         p_itself->red = (unsigned short)red;
 173         p_itself->green = (unsigned short)green;
 174         p_itself->blue = (unsigned short)blue;
 175         return 1;
 176 }
 177
 178 /*
 179 ** Generate FontInfo records
 180 */
 181 static
 182 PyObject *QdFI_New(FontInfo *itself)
 183 {
 184
 185         return Py_BuildValue("hhhh", itself->ascent, itself->descent,
 186                         itself->widMax, itself->leading);
 187 }
 188 """
 189
 190 finalstuff = finalstuff + """
 191 /* Like BMObj_New, but the original bitmap data structure is copied (and
 192 ** released when the object is released)
 193 */
 194 PyObject *BMObj_NewCopied(BitMapPtr itself)
 195 {
 196         BitMapObject *it;
 197         BitMapPtr itself_copy;
 198
 199         if ((itself_copy=(BitMapPtr)malloc(sizeof(BitMap))) == NULL)
 200                 return PyErr_NoMemory();
 201         *itself_copy = *itself;
 202         it = (BitMapObject *)BMObj_New(itself_copy);
 203         it->referred_bitmap = itself_copy;
 204         return (PyObject *)it;
 205 }
 206
 207 """
 208
 209 variablestuff = """
 210 {
 211         PyObject *o;
 212
 213         o = QDGA_New();
 214         if (o == NULL || PyDict_SetItemString(d, "qd", o) != 0)
 215                 return;
 216 }
 217 """
 218
 219 initstuff = initstuff + """
 220         PyMac_INIT_TOOLBOX_OBJECT_NEW(BitMapPtr, BMObj_New);
 221         PyMac_INIT_TOOLBOX_OBJECT_CONVERT(BitMapPtr, BMObj_Convert);
 222         PyMac_INIT_TOOLBOX_OBJECT_NEW(GrafPtr, GrafObj_New);
 223         PyMac_INIT_TOOLBOX_OBJECT_CONVERT(GrafPtr, GrafObj_Convert);
 224         PyMac_INIT_TOOLBOX_OBJECT_NEW(RGBColorPtr, QdRGB_New);
 225         PyMac_INIT_TOOLBOX_OBJECT_CONVERT(RGBColor, QdRGB_Convert);
 226 """
 227
 228 ## not yet...
 229 ##
 230 ##class Region_ObjectDefinition(GlobalObjectDefinition):
 231 ##      def outputCheckNewArg(self):
 232 ##              Output("if (itself == NULL) return PyMac_Error(resNotFound);")
 233 ##      def outputFreeIt(self, itselfname):
 234 ##              Output("DisposeRegion(%s);", itselfname)
 235 ##
 236 ##class Polygon_ObjectDefinition(GlobalObjectDefinition):
 237 ##      def outputCheckNewArg(self):
 238 ##              Output("if (itself == NULL) return PyMac_Error(resNotFound);")
 239 ##      def outputFreeIt(self, itselfname):
 240 ##              Output("KillPoly(%s);", itselfname)
 241
 242 class MyGRObjectDefinition(GlobalObjectDefinition):
 243         def outputCheckNewArg(self):
 244                 Output("if (itself == NULL) return PyMac_Error(resNotFound);")
 245         def outputCheckConvertArg(self):
 246                 Output("#if 1")
 247                 OutLbrace()
 248                 Output("WindowRef win;")
 249                 OutLbrace("if (WinObj_Convert(v, &win) && v)")
 250                 Output("*p_itself = (GrafPtr)GetWindowPort(win);")
 251                 Output("return 1;")
 252                 OutRbrace()
 253                 Output("PyErr_Clear();")
 254                 OutRbrace()
 255                 Output("#else")
 256                 OutLbrace("if (DlgObj_Check(v))")
 257                 Output("DialogRef dlg = (DialogRef)((GrafPortObject *)v)->ob_itself;")
 258                 Output("*p_itself = (GrafPtr)GetWindowPort(GetDialogWindow(dlg));")
 259                 Output("return 1;")
 260                 OutRbrace()
 261                 OutLbrace("if (WinObj_Check(v))")
 262                 Output("WindowRef win = (WindowRef)((GrafPortObject *)v)->ob_itself;")
 263                 Output("*p_itself = (GrafPtr)GetWindowPort(win);")
 264                 Output("return 1;")
 265                 OutRbrace()
 266                 Output("#endif")
 267         def outputGetattrHook(self):
 268                 Output("#if !ACCESSOR_CALLS_ARE_FUNCTIONS")
 269                 Output("""
 270                 {       CGrafPtr itself_color = (CGrafPtr)self->ob_itself;
 271
 272                         if ( strcmp(name, "data") == 0 )
 273                                 return PyString_FromStringAndSize((char *)self->ob_itself, sizeof(GrafPort));
 274
 275                         if ( (itself_color->portVersion&0xc000) == 0xc000 ) {
 276                                 /* Color-only attributes */
 277
 278                                 if ( strcmp(name, "portBits") == 0 )
 279                                         /* XXXX Do we need HLock() stuff here?? */
 280                                         return BMObj_New((BitMapPtr)*itself_color->portPixMap);
 281                                 if ( strcmp(name, "grafVars") == 0 )
 282                                         return Py_BuildValue("O&", ResObj_New, (Handle)itself_color->visRgn);
 283                                 if ( strcmp(name, "chExtra") == 0 )
 284                                         return Py_BuildValue("h", itself_color->chExtra);
 285                                 if ( strcmp(name, "pnLocHFrac") == 0 )
 286                                         return Py_BuildValue("h", itself_color->pnLocHFrac);
 287                                 if ( strcmp(name, "bkPixPat") == 0 )
 288                                         return Py_BuildValue("O&", ResObj_New, (Handle)itself_color->bkPixPat);
 289                                 if ( strcmp(name, "rgbFgColor") == 0 )
 290                                         return Py_BuildValue("O&", QdRGB_New, &itself_color->rgbFgColor);
 291                                 if ( strcmp(name, "rgbBkColor") == 0 )
 292                                         return Py_BuildValue("O&", QdRGB_New, &itself_color->rgbBkColor);
 293                                 if ( strcmp(name, "pnPixPat") == 0 )
 294                                         return Py_BuildValue("O&", ResObj_New, (Handle)itself_color->pnPixPat);
 295                                 if ( strcmp(name, "fillPixPat") == 0 )
 296                                         return Py_BuildValue("O&", ResObj_New, (Handle)itself_color->fillPixPat);
 297                         } else {
 298                                 /* Mono-only attributes */
 299                                 if ( strcmp(name, "portBits") == 0 )
 300                                         return BMObj_New(&self->ob_itself->portBits);
 301                                 if ( strcmp(name, "bkPat") == 0 )
 302                                         return Py_BuildValue("s#", (char *)&self->ob_itself->bkPat, sizeof(Pattern));
 303                                 if ( strcmp(name, "fillPat") == 0 )
 304                                         return Py_BuildValue("s#", (char *)&self->ob_itself->fillPat, sizeof(Pattern));
 305                                 if ( strcmp(name, "pnPat") == 0 )
 306                                         return Py_BuildValue("s#", (char *)&self->ob_itself->pnPat, sizeof(Pattern));
 307                         }
 308                         /*
 309                         ** Accessible for both color/mono windows.
 310                         ** portVersion is really color-only, but we put it here
 311                         ** for convenience
 312                         */
 313                         if ( strcmp(name, "portVersion") == 0 )
 314                                 return Py_BuildValue("h", itself_color->portVersion);
 315                         if ( strcmp(name, "device") == 0 )
 316                                 return PyInt_FromLong((long)self->ob_itself->device);
 317                         if ( strcmp(name, "portRect") == 0 )
 318                                 return Py_BuildValue("O&", PyMac_BuildRect, &self->ob_itself->portRect);
 319                         if ( strcmp(name, "visRgn") == 0 )
 320                                 return Py_BuildValue("O&", ResObj_New, (Handle)self->ob_itself->visRgn);
 321                         if ( strcmp(name, "clipRgn") == 0 )
 322                                 return Py_BuildValue("O&", ResObj_New, (Handle)self->ob_itself->clipRgn);
 323                         if ( strcmp(name, "pnLoc") == 0 )
 324                                 return Py_BuildValue("O&", PyMac_BuildPoint, self->ob_itself->pnLoc);
 325                         if ( strcmp(name, "pnSize") == 0 )
 326                                 return Py_BuildValue("O&", PyMac_BuildPoint, self->ob_itself->pnSize);
 327                         if ( strcmp(name, "pnMode") == 0 )
 328                                 return Py_BuildValue("h", self->ob_itself->pnMode);
 329                         if ( strcmp(name, "pnVis") == 0 )
 330                                 return Py_BuildValue("h", self->ob_itself->pnVis);
 331                         if ( strcmp(name, "txFont") == 0 )
 332                                 return Py_BuildValue("h", self->ob_itself->txFont);
 333                         if ( strcmp(name, "txFace") == 0 )
 334                                 return Py_BuildValue("h", (short)self->ob_itself->txFace);
 335                         if ( strcmp(name, "txMode") == 0 )
 336                                 return Py_BuildValue("h", self->ob_itself->txMode);
 337                         if ( strcmp(name, "txSize") == 0 )
 338                                 return Py_BuildValue("h", self->ob_itself->txSize);
 339                         if ( strcmp(name, "spExtra") == 0 )
 340                                 return Py_BuildValue("O&", PyMac_BuildFixed, self->ob_itself->spExtra);
 341                         /* XXXX Add more, as needed */
 342                         /* This one is so we can compare grafports: */
 343                         if ( strcmp(name, "_id") == 0 )
 344                                 return Py_BuildValue("l", (long)self->ob_itself);
 345                 }""")
 346                 Output("#else")
 347                 Output("""
 348                 {       CGrafPtr itself_color = (CGrafPtr)self->ob_itself;
 349                         if ( strcmp(name, "portBits") == 0 )
 350                                 return BMObj_New((BitMapPtr)GetPortBitMapForCopyBits(itself_color));
 351                         if ( strcmp(name, "chExtra") == 0 )
 352                                 return Py_BuildValue("h", GetPortChExtra(itself_color));
 353                         if ( strcmp(name, "pnLocHFrac") == 0 )
 354                                 return Py_BuildValue("h", GetPortFracHPenLocation(itself_color));
 355                         if ( strcmp(name, "bkPixPat") == 0 ) {
 356                                 PixPatHandle h=0;
 357                                 return Py_BuildValue("O&", ResObj_New, (Handle)GetPortBackPixPat(itself_color, h));
 358                         }
 359                         if ( strcmp(name, "rgbFgColor") == 0 ) {
 360                                 RGBColor c;
 361                                 return Py_BuildValue("O&", QdRGB_New, GetPortForeColor(itself_color, &c));
 362                         }
 363                         if ( strcmp(name, "rgbBkColor") == 0 ) {
 364                                 RGBColor c;
 365                                 return Py_BuildValue("O&", QdRGB_New, GetPortBackColor(itself_color, &c));
 366                         }
 367                         if ( strcmp(name, "pnPixPat") == 0 ) {
 368                                 PixPatHandle h=NewPixPat(); /* XXXX wrong dispose routine */
 369
 370                                 return Py_BuildValue("O&", ResObj_New, (Handle)GetPortPenPixPat(itself_color, h));
 371                         }
 372                         if ( strcmp(name, "fillPixPat") == 0 ) {
 373                                 PixPatHandle h=NewPixPat(); /* XXXX wrong dispose routine */
 374                                 return Py_BuildValue("O&", ResObj_New, (Handle)GetPortFillPixPat(itself_color, h));
 375                         }
 376                         if ( strcmp(name, "portRect") == 0 ) {
 377                                 Rect r;
 378                                 return Py_BuildValue("O&", PyMac_BuildRect, GetPortBounds(itself_color, &r));
 379                         }
 380                         if ( strcmp(name, "visRgn") == 0 ) {
 381                                 RgnHandle h=NewRgn(); /* XXXX wrong dispose routine */
 382                                 return Py_BuildValue("O&", ResObj_New, (Handle)GetPortVisibleRegion(itself_color, h));
 383                         }
 384                         if ( strcmp(name, "clipRgn") == 0 ) {
 385                                 RgnHandle h=NewRgn(); /* XXXX wrong dispose routine */
 386                                 return Py_BuildValue("O&", ResObj_New, (Handle)GetPortClipRegion(itself_color, h));
 387                         }
 388                         if ( strcmp(name, "pnLoc") == 0 ) {
 389                                 Point p;
 390                                 return Py_BuildValue("O&", PyMac_BuildPoint, *GetPortPenLocation(itself_color, &p));
 391                         }
 392                         if ( strcmp(name, "pnSize") == 0 ) {
 393                                 Point p;
 394                                 return Py_BuildValue("O&", PyMac_BuildPoint, *GetPortPenSize(itself_color, &p));
 395                         }
 396                         if ( strcmp(name, "pnMode") == 0 )
 397                                 return Py_BuildValue("h", GetPortPenMode(itself_color));
 398                         if ( strcmp(name, "pnVis") == 0 )
 399                                 return Py_BuildValue("h", GetPortPenVisibility(itself_color));
 400                         if ( strcmp(name, "txFont") == 0 )
 401                                 return Py_BuildValue("h", GetPortTextFont(itself_color));
 402                         if ( strcmp(name, "txFace") == 0 )
 403                                 return Py_BuildValue("h", (short)GetPortTextFace(itself_color));
 404                         if ( strcmp(name, "txMode") == 0 )
 405                                 return Py_BuildValue("h", GetPortTextMode(itself_color));
 406                         if ( strcmp(name, "txSize") == 0 )
 407                                 return Py_BuildValue("h", GetPortTextSize(itself_color));
 408                         if ( strcmp(name, "spExtra") == 0 )
 409                                 return Py_BuildValue("O&", PyMac_BuildFixed, GetPortSpExtra(itself_color));
 410                         /* XXXX Add more, as needed */
 411                         /* This one is so we can compare grafports: */
 412                         if ( strcmp(name, "_id") == 0 )
 413                                 return Py_BuildValue("l", (long)self->ob_itself);
 414                 }""")
 415                 Output("#endif")
 416
 417 class MyBMObjectDefinition(GlobalObjectDefinition):
 418         def outputCheckNewArg(self):
 419                 Output("if (itself == NULL) return PyMac_Error(resNotFound);")
 420         def outputStructMembers(self):
 421                 # We need to more items: a pointer to privately allocated data
 422                 # and a python object we're referring to.
 423                 Output("%s ob_itself;", self.itselftype)
 424                 Output("PyObject *referred_object;")
 425                 Output("BitMap *referred_bitmap;")
 426         def outputInitStructMembers(self):
 427                 Output("it->ob_itself = %sitself;", self.argref)
 428                 Output("it->referred_object = NULL;")
 429                 Output("it->referred_bitmap = NULL;")
 430         def outputCleanupStructMembers(self):
 431                 Output("Py_XDECREF(self->referred_object);")
 432                 Output("if (self->referred_bitmap) free(self->referred_bitmap);")
 433         def outputGetattrHook(self):
 434                 Output("""if ( strcmp(name, "baseAddr") == 0 )
 435                         return PyInt_FromLong((long)self->ob_itself->baseAddr);
 436                 if ( strcmp(name, "rowBytes") == 0 )
 437                         return PyInt_FromLong((long)self->ob_itself->rowBytes);
 438                 if ( strcmp(name, "bounds") == 0 )
 439                         return Py_BuildValue("O&", PyMac_BuildRect, &self->ob_itself->bounds);
 440                 /* XXXX Add more, as needed */
 441                 if ( strcmp(name, "bitmap_data") == 0 )
 442                         return PyString_FromStringAndSize((char *)self->ob_itself, sizeof(BitMap));
 443                 if ( strcmp(name, "pixmap_data") == 0 )
 444                         return PyString_FromStringAndSize((char *)self->ob_itself, sizeof(PixMap));
 445                 """)
 446
 447 # This object is instanciated once, and will access qd globals.
 448 class QDGlobalsAccessObjectDefinition(ObjectDefinition):
 449         def outputStructMembers(self):
 450                 pass
 451         def outputNew(self):
 452                 Output()
 453                 Output("%sPyObject *%s_New(void)", self.static, self.prefix)
 454                 OutLbrace()
 455                 Output("%s *it;", self.objecttype)
 456                 Output("it = PyObject_NEW(%s, &%s);", self.objecttype, self.typename)
 457                 Output("if (it == NULL) return NULL;")
 458                 Output("return (PyObject *)it;")
 459                 OutRbrace()
 460         def outputConvert(self):
 461                 pass
 462         def outputCleanupStructMembers(self):
 463                 pass
 464
 465         def outputGetattrHook(self):
 466                 Output("#if !ACCESSOR_CALLS_ARE_FUNCTIONS")
 467                 Output("""
 468         if ( strcmp(name, "arrow") == 0 )
 469                 return PyString_FromStringAndSize((char *)&qd.arrow, sizeof(qd.arrow));
 470         if ( strcmp(name, "black") == 0 )
 471                 return PyString_FromStringAndSize((char *)&qd.black, sizeof(qd.black));
 472         if ( strcmp(name, "white") == 0 )
 473                 return PyString_FromStringAndSize((char *)&qd.white, sizeof(qd.white));
 474         if ( strcmp(name, "gray") == 0 )
 475                 return PyString_FromStringAndSize((char *)&qd.gray, sizeof(qd.gray));
 476         if ( strcmp(name, "ltGray") == 0 )
 477                 return PyString_FromStringAndSize((char *)&qd.ltGray, sizeof(qd.ltGray));
 478         if ( strcmp(name, "dkGray") == 0 )
 479                 return PyString_FromStringAndSize((char *)&qd.dkGray, sizeof(qd.dkGray));
 480         if ( strcmp(name, "screenBits") == 0 )
 481                 return BMObj_New(&qd.screenBits);
 482         if ( strcmp(name, "thePort") == 0 )
 483                 return GrafObj_New(qd.thePort);
 484         if ( strcmp(name, "randSeed") == 0 )
 485                 return Py_BuildValue("l", &qd.randSeed);
 486                 """)
 487                 Output("#else")
 488                 Output("""
 489         if ( strcmp(name, "arrow") == 0 ) {
 490                 Cursor rv;
 491                 GetQDGlobalsArrow(&rv);
 492                 return PyString_FromStringAndSize((char *)&rv, sizeof(rv));
 493         }
 494         if ( strcmp(name, "black") == 0 ) {
 495                 Pattern rv;
 496                 GetQDGlobalsBlack(&rv);
 497                 return PyString_FromStringAndSize((char *)&rv, sizeof(rv));
 498         }
 499         if ( strcmp(name, "white") == 0 )  {
 500                 Pattern rv;
 501                 GetQDGlobalsWhite(&rv);
 502                 return PyString_FromStringAndSize((char *)&rv, sizeof(rv));
 503         }
 504         if ( strcmp(name, "gray") == 0 )  {
 505                 Pattern rv;
 506                 GetQDGlobalsGray(&rv);
 507                 return PyString_FromStringAndSize((char *)&rv, sizeof(rv));
 508         }
 509         if ( strcmp(name, "ltGray") == 0 )  {
 510                 Pattern rv;
 511                 GetQDGlobalsLightGray(&rv);
 512                 return PyString_FromStringAndSize((char *)&rv, sizeof(rv));
 513         }
 514         if ( strcmp(name, "dkGray") == 0 )  {
 515                 Pattern rv;
 516                 GetQDGlobalsDarkGray(&rv);
 517                 return PyString_FromStringAndSize((char *)&rv, sizeof(rv));
 518         }
 519         if ( strcmp(name, "screenBits") == 0 ) {
 520                 BitMap rv;
 521                 GetQDGlobalsScreenBits(&rv);
 522                 return BMObj_NewCopied(&rv);
 523         }
 524         if ( strcmp(name, "thePort") == 0 )
 525                 return GrafObj_New(GetQDGlobalsThePort());
 526         if ( strcmp(name, "randSeed") == 0 )
 527                 return Py_BuildValue("l", GetQDGlobalsRandomSeed());
 528                 """)
 529                 Output("#endif")
 530
 531 # Create the generator groups and link them
 532 module = MacModule(MODNAME, MODPREFIX, includestuff, finalstuff, initstuff, variablestuff)
 533 ##r_object = Region_ObjectDefinition('Region', 'QdRgn', 'RgnHandle')
 534 ##po_object = Polygon_ObjectDefinition('Polygon', 'QdPgn', 'PolyHandle')
 535 ##module.addobject(r_object)
 536 ##module.addobject(po_object)
 537 gr_object = MyGRObjectDefinition("GrafPort", "GrafObj", "GrafPtr")
 538 module.addobject(gr_object)
 539 bm_object = MyBMObjectDefinition("BitMap", "BMObj", "BitMapPtr")
 540 module.addobject(bm_object)
 541 qd_object = QDGlobalsAccessObjectDefinition("QDGlobalsAccess", "QDGA", "XXXX")
 542 module.addobject(qd_object)
 543
 544
 545 # Create the generator classes used to populate the lists
 546 Function = OSErrFunctionGenerator
 547 Method = OSErrMethodGenerator
 548
 549 # Create and populate the lists
 550 functions = []
 551 methods = []
 552 execfile(INPUTFILE)
 553 execfile(EXTRAFILE)
 554
 555 # add the populated lists to the generator groups
 556 # (in a different wordl the scan program would generate this)
 557 for f in functions: module.add(f)
 558 ##for f in r_methods: r_object.add(f)
 559 ##for f in po_methods: po_object.add(f)
 560
 561 # Manual generator: get data out of a bitmap
 562 getdata_body = """
 563 int from, length;
 564 char *cp;
 565
 566 if ( !PyArg_ParseTuple(_args, "ii", &from, &length) )
 567         return NULL;
 568 cp = _self->ob_itself->baseAddr+from;
 569 return PyString_FromStringAndSize(cp, length);
 570 """
 571 f = ManualGenerator("getdata", getdata_body)
 572 f.docstring = lambda: """(int start, int size) -> string. Return bytes from the bitmap"""
 573 bm_object.add(f)
 574
 575 # Manual generator: store data in a bitmap
 576 putdata_body = """
 577 int from, length;
 578 char *cp, *icp;
 579
 580 if ( !PyArg_ParseTuple(_args, "is#", &from, &icp, &length) )
 581         return NULL;
 582 cp = _self->ob_itself->baseAddr+from;
 583 memcpy(cp, icp, length);
 584 Py_INCREF(Py_None);
 585 return Py_None;
 586 """
 587 f = ManualGenerator("putdata", putdata_body)
 588 f.docstring = lambda: """(int start, string data). Store bytes into the bitmap"""
 589 bm_object.add(f)
 590
 591 #
 592 # We manually generate a routine to create a BitMap from python data.
 593 #
 594 BitMap_body = """
 595 BitMap *ptr;
 596 PyObject *source;
 597 Rect bounds;
 598 int rowbytes;
 599 char *data;
 600
 601 if ( !PyArg_ParseTuple(_args, "O!iO&", &PyString_Type, &source, &rowbytes, PyMac_GetRect,
 602                 &bounds) )
 603         return NULL;
 604 data = PyString_AsString(source);
 605 if ((ptr=(BitMap *)malloc(sizeof(BitMap))) == NULL )
 606         return PyErr_NoMemory();
 607 ptr->baseAddr = (Ptr)data;
 608 ptr->rowBytes = rowbytes;
 609 ptr->bounds = bounds;
 610 if ( (_res = BMObj_New(ptr)) == NULL ) {
 611         free(ptr);
 612         return NULL;
 613 }
 614 ((BitMapObject *)_res)->referred_object = source;
 615 Py_INCREF(source);
 616 ((BitMapObject *)_res)->referred_bitmap = ptr;
 617 return _res;
 618 """
 619
 620 f = ManualGenerator("BitMap", BitMap_body)
 621 f.docstring = lambda: """Take (string, int, Rect) argument and create BitMap"""
 622 module.add(f)
 623
 624 #
 625 # And again, for turning a correctly-formatted structure into the object
 626 #
 627 RawBitMap_body = """
 628 BitMap *ptr;
 629 PyObject *source;
 630
 631 if ( !PyArg_ParseTuple(_args, "O!", &PyString_Type, &source) )
 632         return NULL;
 633 if ( PyString_Size(source) != sizeof(BitMap) && PyString_Size(source) != sizeof(PixMap) ) {
 634         PyErr_BadArgument();
 635         return NULL;
 636 }
 637 ptr = (BitMapPtr)PyString_AsString(source);
 638 if ( (_res = BMObj_New(ptr)) == NULL ) {
 639         return NULL;
 640 }
 641 ((BitMapObject *)_res)->referred_object = source;
 642 Py_INCREF(source);
 643 return _res;
 644 """
 645
 646 f = ManualGenerator("RawBitMap", RawBitMap_body)
 647 f.docstring = lambda: """Take string BitMap and turn into BitMap object"""
 648 module.add(f)
 649
 650 # generate output (open the output file as late as possible)
 651 SetOutputFileName(OUTPUTFILE)
 652 module.generate()
 653 SetOutputFile() # Close it