[hoc-cvs] hoc/InterfaceGenerator Headers.hs,1.3,1.4

[Wolfgang T. <wth...@us...>]

Update of /cvsroot/hoc/hoc/InterfaceGenerator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7563/InterfaceGenerator

Modified Files:
	Headers.hs 
Log Message:
*) Derrive Show instance for HeaderInfo (for debugging purposes)
*) make stripPreprocessor retain empty lines in place of preprocessor
   directives


Index: Headers.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/InterfaceGenerator/Headers.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Headers.hs	5 Apr 2004 00:04:46 -0000	1.3
+++ Headers.hs	31 Mar 2005 20:50:32 -0000	1.4
@@ -12,6 +12,7 @@
 
 type ModuleName = String
 data HeaderInfo = HeaderInfo ModuleName [ModuleName] [Declaration]
+    deriving(Show)
 
 stripPreprocessor = unlines . stripPP . lines
     where
@@ -19,8 +20,8 @@
 		stripPP (x : xs) = x : stripPP xs
 		stripPP [] = []
 		dropPreprocessorLine x xs
-			| last x == '\\' = dropPreprocessorLine (head xs) (tail xs)
-			| otherwise = stripPP xs
+			| last x == '\\' = "" : dropPreprocessorLine (head xs) (tail xs)
+			| otherwise = "" : stripPP xs
 
 findImports = mapMaybe checkImport . lines
     where