mirror of
https://github.com/python/cpython.git
synced 2025-07-23 11:15:24 +00:00
0e04eecdbf
And these can now be vectored through glue routines (by defining USE_TOOLBOX_OBJECT_GLUE) which will do the necessary imports, whereupon the module's init routine will tell the glue routine about the real conversion routine address and everything is fine again.
246 lines
7.9 KiB
Python
246 lines
7.9 KiB
Python
# This script generates a Python interface for an Apple Macintosh Manager.
|
|
# It uses the "bgen" package to generate C code.
|
|
# The function specifications are generated by scanning the mamager's header file,
|
|
# using the "scantools" package (customized for this particular manager).
|
|
|
|
import string
|
|
|
|
# Declarations that change for each manager
|
|
MACHEADERFILE = 'Windows.h' # The Apple header file
|
|
MODNAME = 'Win' # The name of the module
|
|
OBJECTNAME = 'Window' # The basic name of the objects used here
|
|
|
|
# The following is *usually* unchanged but may still require tuning
|
|
MODPREFIX = MODNAME # The prefix for module-wide routines
|
|
OBJECTTYPE = OBJECTNAME + 'Ptr' # The C type used to represent them
|
|
OBJECTPREFIX = MODPREFIX + 'Obj' # The prefix for object methods
|
|
INPUTFILE = string.lower(MODPREFIX) + 'gen.py' # The file generated by the scanner
|
|
EDITFILE = string.lower(MODPREFIX) + 'edit.py' # The manual definitions
|
|
OUTPUTFILE = MODNAME + "module.c" # The file generated by this program
|
|
|
|
from macsupport import *
|
|
|
|
# Create the type objects
|
|
|
|
WindowPtr = OpaqueByValueType(OBJECTTYPE, OBJECTPREFIX)
|
|
WindowRef = WindowPtr
|
|
WindowPeek = OpaqueByValueType("WindowPeek", OBJECTPREFIX)
|
|
WindowPeek.passInput = lambda name: "(WindowPeek)(%s)" % name
|
|
CGrafPtr = OpaqueByValueType("CGrafPtr", "GrafObj")
|
|
GrafPtr = OpaqueByValueType("GrafPtr", "GrafObj")
|
|
|
|
DragReference = OpaqueByValueType("DragReference", "DragObj")
|
|
|
|
RgnHandle = OpaqueByValueType("RgnHandle", "ResObj")
|
|
PicHandle = OpaqueByValueType("PicHandle", "ResObj")
|
|
WCTabHandle = OpaqueByValueType("WCTabHandle", "ResObj")
|
|
AuxWinHandle = OpaqueByValueType("AuxWinHandle", "ResObj")
|
|
PixPatHandle = OpaqueByValueType("PixPatHandle", "ResObj")
|
|
AliasHandle = OpaqueByValueType("AliasHandle", "ResObj")
|
|
IconRef = OpaqueByValueType("IconRef", "ResObj")
|
|
|
|
WindowRegionCode = Type("WindowRegionCode", "H")
|
|
WindowClass = Type("WindowClass", "l")
|
|
WindowAttributes = Type("WindowAttributes", "l")
|
|
WindowPositionMethod = Type("WindowPositionMethod", "l")
|
|
WindowTransitionEffect = Type("WindowTransitionEffect", "l")
|
|
WindowTransitionAction = Type("WindowTransitionAction", "l")
|
|
RGBColor = OpaqueType("RGBColor", "QdRGB")
|
|
RGBColor_ptr = RGBColor
|
|
ScrollWindowOptions = Type("ScrollWindowOptions", "l")
|
|
WindowPartCode = Type("WindowPartCode", "h")
|
|
|
|
PropertyCreator = OSTypeType("PropertyCreator")
|
|
PropertyTag = OSTypeType("PropertyTag")
|
|
|
|
includestuff = includestuff + """
|
|
#include <%s>""" % MACHEADERFILE + """
|
|
|
|
#ifdef USE_TOOLBOX_OBJECT_GLUE
|
|
extern PyObject *_WinObj_New(WindowRef);
|
|
extern PyObject *_WinObj_WhichWindow(WindowRef);
|
|
extern int _WinObj_Convert(PyObject *, WindowRef *);
|
|
|
|
#define WinObj_New _WinObj_New
|
|
#define WinObj_WhichWindow _WinObj_WhichWindow
|
|
#define WinObj_Convert _WinObj_Convert
|
|
#endif
|
|
|
|
#if !ACCESSOR_CALLS_ARE_FUNCTIONS
|
|
/* Carbon calls that we emulate in classic mode */
|
|
#define GetWindowSpareFlag(win) (((CWindowPeek)(win))->spareFlag)
|
|
#define GetWindowFromPort(port) ((WindowRef)(port))
|
|
#define GetWindowPortBounds(win, rectp) (*(rectp) = ((CWindowPeek)(win))->port.portRect)
|
|
#define IsPointerValid(p) (((long)p&3) == 0)
|
|
#endif
|
|
#if ACCESSOR_CALLS_ARE_FUNCTIONS
|
|
/* Classic calls that we emulate in carbon mode */
|
|
#define GetWindowUpdateRgn(win, rgn) GetWindowRegion((win), kWindowUpdateRgn, (rgn))
|
|
#define GetWindowStructureRgn(win, rgn) GetWindowRegion((win), kWindowStructureRgn, (rgn))
|
|
#define GetWindowContentRgn(win, rgn) GetWindowRegion((win), kWindowContentRgn, (rgn))
|
|
#endif
|
|
|
|
/* Function to dispose a window, with a "normal" calling sequence */
|
|
static void
|
|
PyMac_AutoDisposeWindow(WindowPtr w)
|
|
{
|
|
DisposeWindow(w);
|
|
}
|
|
"""
|
|
|
|
finalstuff = finalstuff + """
|
|
/* Return the object corresponding to the window, or NULL */
|
|
|
|
PyObject *
|
|
WinObj_WhichWindow(w)
|
|
WindowPtr w;
|
|
{
|
|
PyObject *it;
|
|
|
|
if (w == NULL) {
|
|
it = Py_None;
|
|
Py_INCREF(it);
|
|
} else {
|
|
it = (PyObject *) GetWRefCon(w);
|
|
if (it == NULL || !IsPointerValid((Ptr)it) || ((WindowObject *)it)->ob_itself != w || !WinObj_Check(it)) {
|
|
it = WinObj_New(w);
|
|
((WindowObject *)it)->ob_freeit = NULL;
|
|
} else {
|
|
Py_INCREF(it);
|
|
}
|
|
}
|
|
return it;
|
|
}
|
|
"""
|
|
|
|
initstuff = initstuff + """
|
|
PyMac_INIT_TOOLBOX_OBJECT_NEW(WinObj_New);
|
|
PyMac_INIT_TOOLBOX_OBJECT_NEW(WinObj_WhichWindow);
|
|
PyMac_INIT_TOOLBOX_OBJECT_CONVERT(WinObj_Convert);
|
|
"""
|
|
|
|
class MyObjectDefinition(GlobalObjectDefinition):
|
|
def outputCheckNewArg(self):
|
|
Output("if (itself == NULL) return PyMac_Error(resNotFound);")
|
|
def outputStructMembers(self):
|
|
GlobalObjectDefinition.outputStructMembers(self)
|
|
Output("void (*ob_freeit)(%s ptr);", self.itselftype)
|
|
def outputInitStructMembers(self):
|
|
GlobalObjectDefinition.outputInitStructMembers(self)
|
|
Output("it->ob_freeit = NULL;")
|
|
Output("if (GetWRefCon(itself) == 0)")
|
|
OutLbrace()
|
|
Output("SetWRefCon(itself, (long)it);")
|
|
Output("it->ob_freeit = PyMac_AutoDisposeWindow;")
|
|
OutRbrace()
|
|
def outputCheckConvertArg(self):
|
|
Output("#if 1")
|
|
OutLbrace()
|
|
Output("DialogRef dlg;")
|
|
OutLbrace("if (DlgObj_Convert(v, &dlg) && dlg)")
|
|
Output("*p_itself = GetDialogWindow(dlg);")
|
|
Output("return 1;")
|
|
OutRbrace()
|
|
Output("PyErr_Clear();")
|
|
OutRbrace()
|
|
Output("#else")
|
|
OutLbrace("if (DlgObj_Check(v))")
|
|
Output("*p_itself = DlgObj_ConvertToWindow(v);")
|
|
Output("return 1;")
|
|
OutRbrace()
|
|
Output("#endif")
|
|
Out("""
|
|
if (v == Py_None) { *p_itself = NULL; return 1; }
|
|
if (PyInt_Check(v)) { *p_itself = (WindowPtr)PyInt_AsLong(v); return 1; }
|
|
""")
|
|
def outputCleanupStructMembers(self):
|
|
Output("if (self->ob_freeit && self->ob_itself)")
|
|
OutLbrace()
|
|
Output("SetWRefCon(self->ob_itself, 0);")
|
|
Output("self->ob_freeit(self->ob_itself);")
|
|
OutRbrace()
|
|
Output("self->ob_itself = NULL;")
|
|
Output("self->ob_freeit = NULL;")
|
|
|
|
def outputCompare(self):
|
|
Output()
|
|
Output("static int %s_compare(self, other)", self.prefix)
|
|
IndentLevel()
|
|
Output("%s *self, *other;", self.objecttype)
|
|
DedentLevel()
|
|
OutLbrace()
|
|
Output("if ( self->ob_itself > other->ob_itself ) return 1;")
|
|
Output("if ( self->ob_itself < other->ob_itself ) return -1;")
|
|
Output("return 0;")
|
|
OutRbrace()
|
|
|
|
def outputHash(self):
|
|
Output()
|
|
Output("static int %s_hash(self)", self.prefix)
|
|
IndentLevel()
|
|
Output("%s *self;", self.objecttype)
|
|
DedentLevel()
|
|
OutLbrace()
|
|
Output("return (int)self->ob_itself;")
|
|
OutRbrace()
|
|
|
|
def outputRepr(self):
|
|
Output()
|
|
Output("static PyObject * %s_repr(self)", self.prefix)
|
|
IndentLevel()
|
|
Output("%s *self;", self.objecttype)
|
|
DedentLevel()
|
|
OutLbrace()
|
|
Output("char buf[100];")
|
|
Output("""sprintf(buf, "<Window object at 0x%%08.8x for 0x%%08.8x>", self, self->ob_itself);""")
|
|
Output("return PyString_FromString(buf);")
|
|
OutRbrace()
|
|
|
|
## def outputFreeIt(self, itselfname):
|
|
## Output("DisposeWindow(%s);", itselfname)
|
|
# From here on it's basically all boiler plate...
|
|
|
|
# Create the generator groups and link them
|
|
module = MacModule(MODNAME, MODPREFIX, includestuff, finalstuff, initstuff)
|
|
object = MyObjectDefinition(OBJECTNAME, OBJECTPREFIX, OBJECTTYPE)
|
|
module.addobject(object)
|
|
|
|
# Create the generator classes used to populate the lists
|
|
Function = OSErrFunctionGenerator
|
|
Method = OSErrMethodGenerator
|
|
|
|
# Create and populate the lists
|
|
functions = []
|
|
methods = []
|
|
execfile(INPUTFILE)
|
|
|
|
# Add manual routines for converting integer WindowPtr's (as returned by
|
|
# various event routines) and Dialog objects to a WindowObject.
|
|
whichwin_body = """
|
|
long ptr;
|
|
|
|
if ( !PyArg_ParseTuple(_args, "i", &ptr) )
|
|
return NULL;
|
|
return WinObj_WhichWindow((WindowPtr)ptr);
|
|
"""
|
|
|
|
f = ManualGenerator("WhichWindow", whichwin_body)
|
|
f.docstring = lambda : "Resolve an integer WindowPtr address to a Window object"
|
|
|
|
functions.append(f)
|
|
|
|
# And add the routines that access the internal bits of a window struct. They
|
|
# are currently #defined in Windows.h, they will be real routines in Copland
|
|
# (at which time this execfile can go)
|
|
execfile(EDITFILE)
|
|
|
|
# add the populated lists to the generator groups
|
|
# (in a different wordl the scan program would generate this)
|
|
for f in functions: module.add(f)
|
|
for f in methods: object.add(f)
|
|
|
|
|
|
|
|
# generate output (open the output file as late as possible)
|
|
SetOutputFileName(OUTPUTFILE)
|
|
module.generate()
|