cpython/Mac/Modules/ctl/ctlscan.py

332 lines
11 KiB
Python
Raw Normal View History

# Scan <Controls.h>, generating ctlgen.py.
import sys
import os
BGENDIR=os.path.join(sys.prefix, ':Tools:bgen:bgen')
sys.path.append(BGENDIR)
from scantools import Scanner
from bgenlocations import TOOLBOXDIR
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 "=== 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 TextEdit import *\n")
self.defsfile.write("from QuickDraw import *\n")
self.defsfile.write("from Dragconst import *\n")
2001-12-12 18:40:27 -04:00
self.defsfile.write("from CarbonEvents import *\n")
self.defsfile.write("from Appearance import *\n")
self.defsfile.write("kDataBrowserItemAnyState = -1\n")
self.defsfile.write("kControlBevelButtonCenterPopupGlyphTag = -1\n")
self.defsfile.write("kDataBrowserClientPropertyFlagsMask = 0xFF << 24 # kDataBrowserClientPropertyFlagsOffset\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
2001-12-12 18:40:27 -04:00
'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',
]
def makegreylist(self):
return [
('#if !TARGET_API_MAC_CARBON', [
'GetAuxiliaryControlRecord',
'SetControlColor',
# These have suddenly disappeared in UH 3.3.2...
## 'GetBevelButtonMenuValue',
## 'SetBevelButtonMenuValue',
## 'GetBevelButtonMenuHandle',
## 'SetBevelButtonTransform',
## 'SetImageWellTransform',
## 'GetTabContentRect',
## 'SetTabEnabled',
## 'SetDisclosureTriangleLastValue',
]),
('#if TARGET_API_MAC_CARBON', [
'IsAutomaticControlDragTrackingEnabledForWindow',
'SetAutomaticControlDragTrackingEnabledForWindow',
'HandleControlDragReceive',
'HandleControlDragTracking',
'GetControlByID',
'IsControlDragTrackingEnabled',
'SetControlDragTrackingEnabled',
'GetControlPropertyAttributes',
'ChangeControlPropertyAttributes',
'GetControlID',
'SetControlID',
'HandleControlSetCursor',
'GetControlClickActivation',
'HandleControlContextualMenuClick',
"CreateScrollBarControl",
"CreateSliderControl",
"CreateBevelButtonControl",
"CreateImageWellControl",
"CreatePictureControl",
"CreateIconControl",
"CreatePushButtonWithIconControl",
"SetBevelButtonContentInfo",
"SetImageWellContentInfo",
"AddDataBrowserListViewColumn",
"CreateDataBrowserControl",
"CreateScrollingTextBoxControl",
"CreateRadioGroupControl",
"CreatePopupButtonControl",
"CreateCheckBoxControl",
"CreateRadioButtonControl",
"CreatePushButtonControl",
"CreateWindowHeaderControl",
"CreateStaticTextControl",
"CreateEditTextControl",
"CreateUserPaneControl",
"CreateClockControl",
"CreatePlacardControl",
"CreatePopupArrowControl",
"CreatePopupGroupBoxControl",
"CreateCheckGroupBoxControl",
"CreateGroupBoxControl",
"CreateSeparatorControl",
"CreateChasingArrowsControl",
"CreateLittleArrowsControl",
"CreateProgressBarControl",
"CreateDisclosureTriangleControl",
"GetDataBrowserColumnViewDisplayType",
"SetDataBrowserColumnViewDisplayType",
"GetDataBrowserColumnViewPathLength",
"GetDataBrowserColumnViewPath",
"GetDataBrowserListViewDisclosureColumn",
"SetDataBrowserListViewDisclosureColumn",
"GetDataBrowserListViewUsePlainBackground",
"SetDataBrowserListViewUsePlainBackground",
"GetDataBrowserListViewHeaderBtnHeight",
"SetDataBrowserListViewHeaderBtnHeight",
"AutoSizeDataBrowserListViewColumns",
"GetDataBrowserTableViewColumnProperty",
"GetDataBrowserTableViewColumnPosition",
"SetDataBrowserTableViewColumnPosition",
"GetDataBrowserTableViewItemRow",
"SetDataBrowserTableViewItemRow",
"GetDataBrowserTableViewItemID",
"GetDataBrowserTableViewGeometry",
"SetDataBrowserTableViewGeometry",
"GetDataBrowserTableViewNamedColumnWidth",
"SetDataBrowserTableViewNamedColumnWidth",
"GetDataBrowserTableViewItemRowHeight",
"SetDataBrowserTableViewItemRowHeight",
"GetDataBrowserTableViewColumnWidth",
"SetDataBrowserTableViewColumnWidth",
"GetDataBrowserTableViewRowHeight",
"SetDataBrowserTableViewRowHeight",
"GetDataBrowserTableViewHiliteStyle",
"SetDataBrowserTableViewHiliteStyle",
"GetDataBrowserTableViewColumnCount",
"RemoveDataBrowserTableViewColumn",
"GetDataBrowserItemPartBounds",
"GetDataBrowserEditItem",
"SetDataBrowserEditItem",
"GetDataBrowserEditText",
"SetDataBrowserEditText",
"GetDataBrowserPropertyFlags",
"SetDataBrowserPropertyFlags",
"GetDataBrowserSelectionFlags",
"SetDataBrowserSelectionFlags",
"GetDataBrowserSortProperty",
"SetDataBrowserSortProperty",
"GetDataBrowserHasScrollBars",
"SetDataBrowserHasScrollBars",
"GetDataBrowserScrollPosition",
"SetDataBrowserScrollPosition",
"GetDataBrowserSortOrder",
"SetDataBrowserSortOrder",
"GetDataBrowserTarget",
"SetDataBrowserTarget",
"GetDataBrowserScrollBarInset",
"SetDataBrowserScrollBarInset",
"GetDataBrowserActiveItems",
"SetDataBrowserActiveItems",
"RevealDataBrowserItem",
"GetDataBrowserItemState",
"IsDataBrowserItemSelected",
"GetDataBrowserItemCount",
"GetDataBrowserItems",
"SortDataBrowserContainer",
"CloseDataBrowserContainer",
"OpenDataBrowserContainer",
"MoveDataBrowserSelectionAnchor",
"GetDataBrowserSelectionAnchor",
"ExecuteDataBrowserEditCommand",
"EnableDataBrowserEditCommand",
"SetDataBrowserViewStyle",
"GetDataBrowserViewStyle",
"GetControlCommandID",
"SetControlCommandID",
"CopyControlTitleAsCFString",
"SetControlTitleWithCFString",
]),
('#if ACCESSOR_CALLS_ARE_FUNCTIONS', [
# XXX These are silly, they should be #defined to access the fields
# directly. Later...
'GetControlBounds',
'IsControlHilited',
'GetControlHilite',
'GetControlOwner',
'GetControlDataHandle',
'GetControlPopupMenuHandle',
'GetControlPopupMenuID',
'SetControlDataHandle',
'SetControlBounds',
'SetControlPopupMenuHandle',
'SetControlPopupMenuID',
]),
('#if TARGET_API_MAC_OSX', [
'CreateRoundButtonControl',
'CreateDisclosureButtonControl',
'CreateRelevanceBarControl',
'DisableControl',
'EnableControl',
'IsControlEnabled',
'CreateEditUnicodeTextControl',
'CopyDataBrowserEditText',
]),
]
def makeblacklisttypes(self):
return [
'ProcPtr',
# 'ControlActionUPP',
'Ptr',
'ControlDefSpec', # Don't know how to do this yet
'ControlDefSpec_ptr', # ditto
'Collection', # Ditto
2001-12-12 18:40:27 -04:00
# 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
2001-12-12 18:40:27 -04:00
'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',
2001-12-12 18:40:27 -04:00
'CFDataRef',
]
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()