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 = 'Windows.h'             # The Apple header file

    10 MODNAME = '_Win'                                # The name of the module

    11 OBJECTNAME = 'Window'                   # The basic name of the objects used here

    12 

    13 # The following is *usually* unchanged but may still require tuning

    14 MODPREFIX = 'Win'                       # 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 EDITFILE = string.lower(MODPREFIX) + 'edit.py' # The manual definitions

    19 OUTPUTFILE = MODNAME + "module.c"       # The file generated by this program

    20 

    21 from macsupport import *

    22 

    23 # Create the type objects

    24 

    25 WindowPtr = OpaqueByValueType(OBJECTTYPE, OBJECTPREFIX)

    26 WindowRef = WindowPtr

    27 WindowPeek = OpaqueByValueType("WindowPeek", OBJECTPREFIX)

    28 WindowPeek.passInput = lambda name: "(WindowPeek)(%s)" % name

    29 CGrafPtr = OpaqueByValueType("CGrafPtr", "GrafObj")

    30 GrafPtr = OpaqueByValueType("GrafPtr", "GrafObj")

    31 

    32 DragReference = OpaqueByValueType("DragReference", "DragObj")

    33 

    34 RgnHandle = OpaqueByValueType("RgnHandle", "ResObj")

    35 PicHandle = OpaqueByValueType("PicHandle", "ResObj")

    36 WCTabHandle = OpaqueByValueType("WCTabHandle", "ResObj")

    37 AuxWinHandle = OpaqueByValueType("AuxWinHandle", "ResObj")

    38 PixPatHandle = OpaqueByValueType("PixPatHandle", "ResObj")

    39 AliasHandle = OpaqueByValueType("AliasHandle", "ResObj")

    40 IconRef = OpaqueByValueType("IconRef", "ResObj")

    41 

    42 WindowRegionCode = Type("WindowRegionCode", "H")

    43 WindowClass = Type("WindowClass", "l")

    44 WindowAttributes = Type("WindowAttributes", "l")

    45 WindowPositionMethod = Type("WindowPositionMethod", "l")

    46 WindowTransitionEffect = Type("WindowTransitionEffect", "l")

    47 WindowTransitionAction = Type("WindowTransitionAction", "l")

    48 RGBColor = OpaqueType("RGBColor", "QdRGB")

    49 RGBColor_ptr = RGBColor

    50 ScrollWindowOptions = Type("ScrollWindowOptions", "l")

    51 WindowPartCode = Type("WindowPartCode", "h")

    52 WindowDefPartCode = Type("WindowDefPartCode", "h")

    53 WindowModality = Type("WindowModality", "l")

    54 GDHandle = OpaqueByValueType("GDHandle", "ResObj")

    55 WindowConstrainOptions = Type("WindowConstrainOptions", "l")

    56 

    57 PropertyCreator = OSTypeType("PropertyCreator")

    58 PropertyTag = OSTypeType("PropertyTag")

    59 

    60 includestuff = includestuff + """

    61 #include <Carbon/Carbon.h>

    62 

    63 #ifdef USE_TOOLBOX_OBJECT_GLUE

    64 extern PyObject *_WinObj_New(WindowRef);

    65 extern PyObject *_WinObj_WhichWindow(WindowRef);

    66 extern int _WinObj_Convert(PyObject *, WindowRef *);

    67 

    68 #define WinObj_New _WinObj_New

    69 #define WinObj_WhichWindow _WinObj_WhichWindow

    70 #define WinObj_Convert _WinObj_Convert

    71 #endif

    72 

    73 /* Classic calls that we emulate in carbon mode */

    74 #define GetWindowUpdateRgn(win, rgn) GetWindowRegion((win), kWindowUpdateRgn, (rgn))

    75 #define GetWindowStructureRgn(win, rgn) GetWindowRegion((win), kWindowStructureRgn, (rgn))

    76 #define GetWindowContentRgn(win, rgn) GetWindowRegion((win), kWindowContentRgn, (rgn))

    77 

    78 /* Function to dispose a window, with a "normal" calling sequence */

    79 static void

    80 PyMac_AutoDisposeWindow(WindowPtr w)

    81 {

    82         DisposeWindow(w);

    83 }

    84 """

    85 

    86 finalstuff = finalstuff + """

    87 /* Return the object corresponding to the window, or NULL */

    88 

    89 PyObject *

    90 WinObj_WhichWindow(WindowPtr w)

    91 {

    92         PyObject *it;

    93 

    94         if (w == NULL) {

    95                 it = Py_None;

    96                 Py_INCREF(it);

    97         } else {

    98                 it = (PyObject *) GetWRefCon(w);

    99                 if (it == NULL || !IsPointerValid((Ptr)it) || ((WindowObject *)it)->ob_itself != w || !WinObj_Check(it)) {

   100                         it = WinObj_New(w);

   101                         ((WindowObject *)it)->ob_freeit = NULL;

   102                 } else {

   103                         Py_INCREF(it);

   104                 }

   105         }

   106         return it;

   107 }

   108 """

   109 

   110 initstuff = initstuff + """

   111         PyMac_INIT_TOOLBOX_OBJECT_NEW(WindowPtr, WinObj_New);

   112         PyMac_INIT_TOOLBOX_OBJECT_NEW(WindowPtr, WinObj_WhichWindow);

   113         PyMac_INIT_TOOLBOX_OBJECT_CONVERT(WindowPtr, WinObj_Convert);

   114 """

   115 

   116 class MyObjectDefinition(PEP253Mixin, GlobalObjectDefinition):

   117     def outputCheckNewArg(self):

   118         Output("if (itself == NULL) return PyMac_Error(resNotFound);")

   119         Output("/* XXXX Or should we use WhichWindow code here? */")

   120     def outputStructMembers(self):

   121         GlobalObjectDefinition.outputStructMembers(self)

   122         Output("void (*ob_freeit)(%s ptr);", self.itselftype)

   123     def outputInitStructMembers(self):

   124         GlobalObjectDefinition.outputInitStructMembers(self)

   125         Output("it->ob_freeit = NULL;")

   126         Output("if (GetWRefCon(itself) == 0)")

   127         OutLbrace()

   128         Output("SetWRefCon(itself, (long)it);")

   129         Output("it->ob_freeit = PyMac_AutoDisposeWindow;")

   130         OutRbrace()

   131     def outputCheckConvertArg(self):

   132         Out("""

   133         if (v == Py_None) { *p_itself = NULL; return 1; }

   134         if (PyInt_Check(v)) { *p_itself = (WindowPtr)PyInt_AsLong(v); return 1; }

   135         """)

   136         OutLbrace()

   137         Output("DialogRef dlg;")

   138         OutLbrace("if (DlgObj_Convert(v, &dlg) && dlg)")

   139         Output("*p_itself = GetDialogWindow(dlg);")

   140         Output("return 1;")

   141         OutRbrace()

   142         Output("PyErr_Clear();")

   143         OutRbrace()

   144     def outputCleanupStructMembers(self):

   145         Output("if (self->ob_freeit && self->ob_itself)")

   146         OutLbrace()

   147         Output("SetWRefCon(self->ob_itself, 0);")

   148         Output("self->ob_freeit(self->ob_itself);")

   149         OutRbrace()

   150         Output("self->ob_itself = NULL;")

   151         Output("self->ob_freeit = NULL;")

   152 

   153     def outputCompare(self):

   154         Output()

   155         Output("static int %s_compare(%s *self, %s *other)", self.prefix, self.objecttype, self.objecttype)

   156         OutLbrace()

   157         Output("if ( self->ob_itself > other->ob_itself ) return 1;")

   158         Output("if ( self->ob_itself < other->ob_itself ) return -1;")

   159         Output("return 0;")

   160         OutRbrace()

   161 

   162     def outputHash(self):

   163         Output()

   164         Output("static int %s_hash(%s *self)", self.prefix, self.objecttype)

   165         OutLbrace()

   166         Output("return (int)self->ob_itself;")

   167         OutRbrace()

   168 

   169     def outputRepr(self):

   170         Output()

   171         Output("static PyObject * %s_repr(%s *self)", self.prefix, self.objecttype)

   172         OutLbrace()

   173         Output("char buf[100];")

   174         Output("""sprintf(buf, "<Window object at 0x%%8.8x for 0x%%8.8x>", (unsigned)self, (unsigned)self->ob_itself);""")

   175         Output("return PyString_FromString(buf);")

   176         OutRbrace()

   177 

   178 ##      def outputFreeIt(self, itselfname):

   179 ##              Output("DisposeWindow(%s);", itselfname)

   180 # From here on it's basically all boiler plate...

   181 

   182 # Create the generator groups and link them

   183 module = MacModule(MODNAME, MODPREFIX, includestuff, finalstuff, initstuff)

   184 object = MyObjectDefinition(OBJECTNAME, OBJECTPREFIX, OBJECTTYPE)

   185 module.addobject(object)

   186 

   187 # Create the generator classes used to populate the lists

   188 Function = OSErrWeakLinkFunctionGenerator

   189 Method = OSErrWeakLinkMethodGenerator

   190 

   191 # Create and populate the lists

   192 functions = []

   193 methods = []

   194 execfile(INPUTFILE)

   195 

   196 # Add manual routines for converting integer WindowPtr's (as returned by

   197 # various event routines)  and Dialog objects to a WindowObject.

   198 whichwin_body = """

   199 long ptr;

   200 

   201 if ( !PyArg_ParseTuple(_args, "i", &ptr) )

   202         return NULL;

   203 _res = WinObj_WhichWindow((WindowPtr)ptr);

   204 return _res;

   205 """

   206 

   207 f = ManualGenerator("WhichWindow", whichwin_body)

   208 f.docstring = lambda : "Resolve an integer WindowPtr address to a Window object"

   209 

   210 functions.append(f)

   211 

   212 # And add the routines that access the internal bits of a window struct. They

   213 # are currently #defined in Windows.h, they will be real routines in Copland

   214 # (at which time this execfile can go)

   215 execfile(EDITFILE)

   216 

   217 # add the populated lists to the generator groups

   218 # (in a different wordl the scan program would generate this)

   219 for f in functions: module.add(f)

   220 for f in methods: object.add(f)

   221 

   222 

   223 

   224 # generate output (open the output file as late as possible)

   225 SetOutputFileName(OUTPUTFILE)

   226 module.generate()