[Gtk2hs-commit] gtk2hs/tools/apiGen ApiGen.hs,1.11,1.12

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

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

Modified Files:
	ApiGen.hs 
Log Message:
Split ApiGen.hs into several modules to make it easier to manage and understand.


Index: ApiGen.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/tools/apiGen/ApiGen.hs,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- ApiGen.hs	5 Feb 2005 01:21:47 -0000	1.11
+++ ApiGen.hs	5 Feb 2005 03:01:01 -0000	1.12
@@ -2,1183 +2,25 @@
 -- binding module. Optionally it can be supplied with an xml documentation file
 -- in which case the .chs file will contain haddock-format documentation too.
 
--- If you want to teach ApiGen how to marshal new types, the function you want
--- to modify is either genMarshalParameter or genMarshalResult near the end of
--- this file.
+-- If you want to teach ApiGen how to marshal new types, the you want to modify
+-- either genMarshalParameter or genMarshalResult in the Marshal module.
 
 module Main (main) where
 
[...1213 lines suppressed...]
-lines [x]    = x
-lines (x:xs) = x. sc '\n'. lines xs
-
-sepBy :: String -> [String] -> ShowS
-sepBy s []     = id
-sepBy s [x]    = ss x
-sepBy s (x:xs) = ss x. ss s. sepBy s xs
-
-sepBy' :: String -> [ShowS] -> ShowS
-sepBy' s []     = id
-sepBy' s [x]    = x
-sepBy' s (x:xs) = x. ss s. sepBy' s xs
-
-templateSubstitute :: String -> (String -> ShowS) -> ShowS
-templateSubstitute template varSubst = doSubst template
-  where doSubst [] = id
-        doSubst ('\\':'@':cs) = sc '@' . doSubst cs
-        doSubst ('@':cs) = let (var,_:cs') = span ('@'/=) cs
-                            in varSubst var . doSubst cs'
-        doSubst (c:cs) = sc c . doSubst cs