Interface to the Mac List Manager.

1 files changed, 73 insertions, 0 deletions

diff --git a/Mac/Modules/list/listscan.py b/Mac/Modules/list/listscan.py
new file mode 100644
index 0000000..8061b56
--- /dev/null
+++ b/Mac/Modules/list/listscan.py
@@ -0,0 +1,73 @@
+# Scan an Apple header file, generating a Python file of generator calls.
+
+import addpack
+addpack.addpack(':tools:bgen:bgen')
+from scantools import Scanner
+
+LONG = "Lists"
+SHORT = "list"
+OBJECT = "ListRef"
+
+def main():
+	input = LONG + ".h"
+	output = SHORT + "gen.py"
+	defsoutput = LONG + ".py"
+	scanner = MyScanner(input, output, defsoutput)
+	scanner.scan()
+	scanner.close()
+	print "=== Done scanning and generating, now importing the generated code... ==="
+	exec "import " + SHORT + "support"
+	print "=== Done.  It's up to you to compile it now! ==="
+
+class MyScanner(Scanner):
+
+	def destination(self, type, name, arglist):
+		classname = "Function"
+		listname = "functions"
+		if arglist:
+			t, n, m = arglist[-1]
+			# This is non-functional today
+			if t == OBJECT and m == "InMode":
+				classname = "Method"
+				listname = "methods"
+		return classname, listname
+
+	def makeblacklistnames(self):
+		return [
+			"LDispose",		# Done by removing the object
+			"LSearch",		# We don't want to handle procs just yet
+			"LGetCellDataLocation",		# What does this do??
+			]
+
+	def makeblacklisttypes(self):
+		return [
+			]
+
+	def makerepairinstructions(self):
+		return [
+			([('ListBounds_ptr', '*', 'InMode')],
+			 [('Rect_ptr', '*', 'InMode')]),
+
+			([("Cell", "theCell", "OutMode")],
+			 [("Cell", "theCell", "InOutMode")]),
+			 
+			([("void_ptr", "*", "InMode"), ("short", "*", "InMode")],
+			 [("InBufferShortsize", "*", "*")]),
+			
+			([("void", "*", "OutMode"), ("short", "*", "OutMode")],
+			 [("VarOutBufferShortsize", "*", "InOutMode")]),
+			
+#			([("void", "wStorage", "OutMode")],
+#			 [("NullStorage", "*", "InMode")]),
+#			
+#			# GetKeys
+#			([('KeyMap', 'theKeys', 'InMode')],
+#			 [('*', '*', 'OutMode')]),
+#			 
+#			# GetTicker
+#			([('unsigned long', '*', '*')],
+#			 [('unsigned_long', '*', '*')]),
+			]
+			
+if __name__ == "__main__":
+	main()