X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=glafp-utils%2Fnofib-analyse%2FCmdLine.hs;h=6e920f8c6017129681d2abe36a718418f38b03f6;hb=a0f46309637779ccc141ec531e9b128596a5bba0;hp=b265d764431e676717eec5e57eb11abe9cf7b470;hpb=f216dd0134b3c581dde683f16a75885457e4c60b;p=ghc-hetmet.git

diff --git a/glafp-utils/nofib-analyse/CmdLine.hs b/glafp-utils/nofib-analyse/CmdLine.hs
index b265d76..6e920f8 100644
--- a/glafp-utils/nofib-analyse/CmdLine.hs
+++ b/glafp-utils/nofib-analyse/CmdLine.hs
@@ -1,14 +1,14 @@
 -----------------------------------------------------------------------------
 -- CmdLine.hs
 
--- (c) Simon Marlow 1999
+-- (c) Simon Marlow 2005
 -----------------------------------------------------------------------------
 
 module CmdLine where
 
-import GetOpt
-import System
-import IOExts
+import System.Console.GetOpt
+import System.Environment	( getArgs )
+import System.IO.Unsafe		( unsafePerformIO )
 
 -----------------------------------------------------------------------------
 -- Command line arguments
@@ -38,6 +38,8 @@ data CLIFlags
   | OptDeviations
   | OptNoDeviations
   | OptTitle String
+  | OptColumns String
+  | OptRows String
   | OptHelp
   deriving Eq
 
@@ -55,6 +57,10 @@ argInfo =
 	"Display deviations (default)"
   , Option ['l'] ["latex"]    (NoArg OptLaTeXOutput)  
 	"Produce LaTeX output"
+  , Option [] ["columns"] (ReqArg OptColumns "COLUMNS")
+	"Specify columns for summary table (comma separates)"
+  , Option [] ["rows"] (ReqArg OptRows "ROWS")
+	"Specify rows for summary table (comma separates)"
   , Option ['n'] ["nodeviations"] (NoArg OptNoDeviations)
 	"Hide deviations"
   , Option ['t'] ["title"] (ReqArg OptTitle "title")