An interface to the font manager
diff --git a/Mac/Modules/fm/fmscan.py b/Mac/Modules/fm/fmscan.py
new file mode 100644
index 0000000..adbb3dc
--- /dev/null
+++ b/Mac/Modules/fm/fmscan.py
@@ -0,0 +1,46 @@
+# Scan an Apple header file, generating a Python file of generator calls.
+
+import addpack
+addpack.addpack(':tools:bgen:bgen')
+from scantools import Scanner
+
+LONG = "Fonts"
+SHORT = "Fm"
+
+def main():
+	input = "Fonts.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"
+		return classname, listname
+
+	def makeblacklistnames(self):
+		return [
+			"OutlineMetrics",	# Too complicated
+			]
+
+	def makeblacklisttypes(self):
+		return [
+			"FMInput_ptr",	# Not needed for now
+			"FMOutPtr",		# Ditto
+			]
+
+	def makerepairinstructions(self):
+		return [
+			([('Str255', '*', 'InMode')], [('Str255', '*', 'OutMode')]),
+			([('FMetricRecPtr', 'theMetrics', 'InMode')], [('FMetricRecPtr', 'theMetrics', 'OutMode')]),
+			]
+			
+if __name__ == "__main__":
+	main()