# Scan <Controls.h>, generating ctlgen.py. import sys from bgenlocations import TOOLBOXDIR, BGENDIR sys.path.append(BGENDIR) from scantools import Scanner def main(): # input = "Controls.h" # Universal Headers < 3.3 input = ["Controls.h", "ControlDefinitions.h"] # Universal Headers >= 3.3 output = "ctlgen.py" defsoutput = TOOLBOXDIR + "Controls.py" scanner = MyScanner(input, output, defsoutput) scanner.scan() scanner.close() print "=== Testing definitions output code ===" execfile(defsoutput, {}, {}) print "=== Done scanning and generating, now doing 'import ctlsupport' ===" import ctlsupport print "=== Done. It's up to you to compile Ctlmodule.c ===" class MyScanner(Scanner): def destination(self, type, name, arglist): classname = "Function" listname = "functions" if arglist: t, n, m = arglist[0] if t in ("ControlHandle", "ControlRef") and m == "InMode": classname = "Method" listname = "methods" return classname, listname def writeinitialdefs(self): self.defsfile.write("def FOUR_CHAR_CODE(x): return x\n") self.defsfile.write("from Carbon.TextEdit import *\n") self.defsfile.write("from Carbon.QuickDraw import *\n") self.defsfile.write("from Carbon.Dragconst import *\n") self.defsfile.write("from Carbon.CarbonEvents import *\n") self.defsfile.write("from Carbon.Appearance import *\n") self.defsfile.write("kDataBrowserItemAnyState = -1\n") self.defsfile.write("kControlBevelButtonCenterPopupGlyphTag = -1\n") self.defsfile.write("kDataBrowserClientPropertyFlagsMask = 0xFF000000\n") self.defsfile.write("\n") def makeblacklistnames(self): return [ 'FindControlUnderMouse', # Generated manually, returns an existing control, not a new one. 'DisposeControl', # Generated manually 'KillControls', # Implied by close of dialog 'SetCtlAction', 'TrackControl', # Generated manually 'HandleControlClick', # Generated manually 'SetControlData', # Generated manually 'GetControlData', # Generated manually 'kControlBevelButtonCenterPopupGlyphTag', # Constant with funny definition 'kDataBrowserClientPropertyFlagsMask', # ditto 'kDataBrowserItemAnyState', # and ditto # The following are unavailable for static 68k (appearance manager) ## 'GetBevelButtonMenuValue', ## 'SetBevelButtonMenuValue', ## 'GetBevelButtonMenuHandle', ## 'SetBevelButtonTransform', 'SetBevelButtonGraphicAlignment', 'SetBevelButtonTextAlignment', 'SetBevelButtonTextPlacement', ## 'SetImageWellTransform', ## 'GetTabContentRect', ## 'SetTabEnabled', ## 'SetDisclosureTriangleLastValue', ## # Unavailable in CW Pro 3 libraries ## 'SetUpControlTextColor', ## # Unavailable in Jack's CW Pro 5.1 libraries ## 'GetControlRegion', ## 'RemoveControlProperty', ## 'IsValidControlHandle', ## 'SetControl32BitMinimum', ## 'GetControl32BitMinimum', ## 'SetControl32BitMaximum', ## 'GetControl32BitMaximum', ## 'SetControl32BitValue', ## 'GetControl32BitValue', ## 'SetControlViewSize', ## 'GetControlViewSize', # Generally Bad News 'GetControlProperty', 'SetControlProperty', 'GetControlPropertySize', 'SendControlMessage', # Parameter changed from long to void* from UH3.3 to UH3.4 'CreateTabsControl', # wrote manually 'GetControlAction', # too much effort for too little usefulness # too lazy for now 'GetImageWellContentInfo', 'GetBevelButtonContentInfo', # OS8 only 'GetAuxiliaryControlRecord', 'SetControlColor', ] def makeblacklisttypes(self): return [ 'ProcPtr', # 'ControlActionUPP', 'Ptr', 'ControlDefSpec', # Don't know how to do this yet 'ControlDefSpec_ptr', # ditto 'Collection', # Ditto # not-yet-supported stuff in Universal Headers 3.4: 'ControlColorUPP', 'ControlKind', # XXX easy: 2-tuple containing 2 OSType's # 'ControlTabEntry_ptr', # XXX needed for tabs # 'ControlButtonContentInfoPtr', # 'ControlButtonContentInfo', # XXX ugh: a union # 'ControlButtonContentInfo_ptr', # XXX ugh: a union 'ListDefSpec_ptr', # XXX see _Listmodule.c, tricky but possible 'DataBrowserItemID_ptr', # XXX array of UInt32, for BrowserView 'DataBrowserItemUPP', 'DataBrowserItemDataRef', # XXX void * 'DataBrowserCallbacks', # difficult struct 'DataBrowserCallbacks_ptr', 'DataBrowserCustomCallbacks', 'DataBrowserCustomCallbacks_ptr', ## 'DataBrowserTableViewColumnDesc', ## 'DataBrowserListViewColumnDesc', 'CFDataRef', 'DataBrowserListViewHeaderDesc', # difficult struct ] def makerepairinstructions(self): return [ ([("void_ptr", "*", "InMode"), ("long", "*", "InMode")], [("InBuffer", "*", "*")]), ([("void", "*", "OutMode"), ("long", "*", "InMode"), ("long", "*", "OutMode")], [("VarVarOutBuffer", "*", "InOutMode")]), ## # For TrackControl ## ([("ProcPtr", "actionProc", "InMode")], ## [("FakeType('(ControlActionUPP)0')", "*", "*")]), ## ([("ControlActionUPP", "actionProc", "InMode")], ## [("FakeType('(ControlActionUPP)0')", "*", "*")]), # For GetControlTitle ([('Str255', 'title', 'InMode')], [('Str255', 'title', 'OutMode')]), ([("ControlHandle", "*", "OutMode")], [("ExistingControlHandle", "*", "*")]), ([("ControlRef", "*", "OutMode")], # Ditto, for Universal Headers [("ExistingControlHandle", "*", "*")]), ([("Rect_ptr", "*", "ReturnMode")], # GetControlBounds [("void", "*", "ReturnMode")]), ([("DataBrowserListViewColumnDesc", "*", "OutMode")], [("DataBrowserListViewColumnDesc", "*", "InMode")]), ([("ControlButtonContentInfoPtr", 'outContent', "InMode")], [("ControlButtonContentInfoPtr", '*', "OutMode")]), ([("ControlButtonContentInfo", '*', "OutMode")], [("ControlButtonContentInfo", '*', "InMode")]), ([("ControlActionUPP", 'liveTrackingProc', "InMode")], [("ControlActionUPPNewControl", 'liveTrackingProc', "InMode")]), ] if __name__ == "__main__": main()