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