X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=glafp-utils%2Fnofib-analyse%2FCmdLine.hs;h=b265d764431e676717eec5e57eb11abe9cf7b470;hb=407e07594462b96a7632ccafa1c02ad3f82fa8db;hp=4dfc9f9e2184d6fd1207ab3c01e018c6f31ca6db;hpb=b7081c5f00ef3947dbb39f942b4c5edaf524b3b5;p=ghc-hetmet.git

diff --git a/glafp-utils/nofib-analyse/CmdLine.hs b/glafp-utils/nofib-analyse/CmdLine.hs
index 4dfc9f9..b265d76 100644
--- a/glafp-utils/nofib-analyse/CmdLine.hs
+++ b/glafp-utils/nofib-analyse/CmdLine.hs
@@ -22,10 +22,22 @@ tooquick_threshold
 	[] -> default_tooquick_threshold
 	(i:_) -> i
 
+devs   = OptDeviations   `elem` flags
+nodevs = OptNoDeviations `elem` flags
+
+default_title = "NoFib Results"
+reportTitle = case [ t | OptTitle t <- flags ] of
+        []    -> default_title
+        (t:_) -> t
+
 data CLIFlags
   = OptASCIIOutput
+  | OptLaTeXOutput
   | OptHTMLOutput
   | OptIgnoreSmallTimes Float
+  | OptDeviations
+  | OptNoDeviations
+  | OptTitle String
   | OptHelp
   deriving Eq
 
@@ -39,5 +51,13 @@ argInfo =
 	"Produce HTML output"
   , Option ['i'] ["ignore"]  (ReqArg (OptIgnoreSmallTimes . read) "secs")
 	"Ignore runtimes smaller than <secs>"
+  , Option ['d'] ["deviations"] (NoArg OptDeviations)
+	"Display deviations (default)"
+  , Option ['l'] ["latex"]    (NoArg OptLaTeXOutput)  
+	"Produce LaTeX output"
+  , Option ['n'] ["nodeviations"] (NoArg OptNoDeviations)
+	"Hide deviations"
+  , Option ['t'] ["title"] (ReqArg OptTitle "title")
+	"Specify report title"
   ]