hpc-tools: improving flag processing and help messages, small bug fixes.

1 files changed, 28 insertions, 0 deletions

diff --git a/utils/hpc/HpcOverlay.hs b/utils/hpc/HpcOverlay.hs
new file mode 100644
index 0000000000..ba229c5ef5
--- /dev/null
+++ b/utils/hpc/HpcOverlay.hs
@@ -0,0 +1,28 @@
+module HpcOverlay where
+
+import HpcFlags
+import HpcParser
+
+overlay_options 
+        = srcDirOpt
+        . hpcDirOpt
+        . outputOpt
+
+overlay_plugin = Plugin { name = "overlay"
+	      	       , usage = "[OPTION] .. <OVERLAY_FILE> [<OVERLAY_FILE> [...]]" 
+		       , options = overlay_options 
+		       , summary = "Generate a .tix file from an overlay file"
+		       , implementation = overlay_main
+		       , init_flags = default_flags
+		       , final_flags = default_final_flags
+		       }
+
+
+overlay_main flags [] = hpcError overlay_plugin $ "no overlay file specified" 
+overlay_main flags files = do
+  print ("HERE", files)
+  result <- hpcParser (head files)
+  print result
+  return ()
+  
+