[Gtk2hs-commit] gtk2hs/tools/c2hs/c2hs/state Switches.hs,1.1.1.1,1.2

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

Update of /cvsroot/gtk2hs/gtk2hs/tools/c2hs/c2hs/state
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15642/c2hs/state

Modified Files:
	Switches.hs 
Log Message:
add Axel's --precomp patches with a binary serialisation framework derived from
the one used in ghc. This required makeing Position a proper data type.
Also converted to using Data.FiniteMap rather than the CTK FiniteMaps module.


Index: Switches.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/tools/c2hs/c2hs/state/Switches.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Switches.hs	13 Nov 2004 16:42:40 -0000	1.1.1.1
+++ Switches.hs	13 Nov 2004 17:26:53 -0000	1.2
@@ -49,6 +49,12 @@
 --    `--output' option and `outDirSB' contains arguments to the
 --    `--output-dir' option.
 --
+--  * The pre-compiled header switch is unset if no pre-compiled header should
+--    be read or generated. If the option is set and a header file is given
+--    a concise version of the header will be written to the FilePath. If
+--    a binding file is given, the pre-compiled header is used to expand the
+--    module unless the binding file contains itself C declarations.
+--
 --- TODO ----------------------------------------------------------------------
 --
 
@@ -73,6 +79,7 @@
 		     outputSB  :: FilePath,	-- basename of generated files
 		     outDirSB  :: FilePath,	-- dir where generated files go
 		     headerSB  :: FilePath,	-- generated header file
+		     preCompSB :: Maybe FilePath,-- optional binary header r/w
 		     oldFFI    :: Bool,		-- GHC 4.XX compatible code
 		     chiPathSB :: [FilePath]	-- .chi file directories
 		   }
@@ -89,6 +96,7 @@
 			outputSB  = "",
 			outDirSB  = "",
 			headerSB  = "",
+			preCompSB = Nothing,
 			oldFFI	  = False,
 			chiPathSB = ["."]
 		      }