[Gtk2hs-commit] gtk2hs/tools/apiGen CodeGen.hs,1.23,1.24 ModuleScan.hs,1.7,1.8

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/tools/apiGen
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11289/tools/apiGen

Modified Files:
	CodeGen.hs ModuleScan.hs 
Log Message:
Minor apigen updates. Add the to{Object} functions to the export list.


Index: ModuleScan.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/tools/apiGen/ModuleScan.hs,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- ModuleScan.hs	1 Apr 2005 22:55:22 -0000	1.7
+++ ModuleScan.hs	19 Oct 2005 22:21:34 -0000	1.8
@@ -212,6 +212,9 @@
 scanCCall :: [String] -> Line
 scanCCall tokens =
   case takeWhile (\t -> t/="#}" && t/="#}."&& t/="#})") . tail . dropWhile (/="{#") $ tokens of
+    ("call":"pure":"unsafe":cname:[]) -> CCall MethodInfo { methodinfo_cname = cname,
+                                                            methodinfo_shortcname = cname,
+                                                            methodinfo_unsafe = True }
     ("call":"unsafe":cname:[]) -> CCall MethodInfo { methodinfo_cname = cname,
                                                      methodinfo_shortcname = cname,
                                                      methodinfo_unsafe = True }

Index: CodeGen.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/tools/apiGen/CodeGen.hs,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- CodeGen.hs	9 Sep 2005 15:36:48 -0000	1.23
+++ CodeGen.hs	19 Oct 2005 22:21:34 -0000	1.24
@@ -632,7 +632,8 @@
   $  [(ss "-- * Types", defaultAttrs)
      ,(ss "  ".ss (object_name object).sc ',', defaultAttrs)
      ,(ss "  ".ss (object_name object).ss "Class,", defaultAttrs)
-     ,(ss "  ".ss "castTo".ss (object_name object).sc ',', defaultAttrs)] 
+     ,(ss "  ".ss "castTo".ss (object_name object).sc ',', defaultAttrs)
+     ,(ss "  ".ss "to".ss (object_name object).sc ',', defaultAttrs)]
   ++ (sectionHeader "Constructors"
     . map fst
     . sortBy (comparing snd))