glafp-utils/nofib-analyse/CmdLine.hs

   1 -----------------------------------------------------------------------------
   2 -- CmdLine.hs
   3
   4 -- (c) Simon Marlow 1999
   5 -----------------------------------------------------------------------------
   6
   7 module CmdLine where
   8
   9 import GetOpt
  10 import System
  11 import IOExts
  12
  13 -----------------------------------------------------------------------------
  14 -- Command line arguments
  15
  16 args = unsafePerformIO getArgs
  17 (flags, other_args, cmdline_errors) = getOpt Permute argInfo args
  18
  19 default_tooquick_threshold = 0.2 {- secs -} :: Float
  20 tooquick_threshold
  21  = case [ i | OptIgnoreSmallTimes i <- flags ] of
  22         [] -> default_tooquick_threshold
  23         (i:_) -> i
  24
  25 devs   = OptDeviations   `elem` flags
  26 nodevs = OptNoDeviations `elem` flags
  27
  28 default_title = "NoFib Results"
  29 reportTitle = case [ t | OptTitle t <- flags ] of
  30         []    -> default_title
  31         (t:_) -> t
  32
  33 data CLIFlags
  34   = OptASCIIOutput
  35   | OptHTMLOutput
  36   | OptIgnoreSmallTimes Float
  37   | OptDeviations
  38   | OptNoDeviations
  39   | OptTitle String
  40   | OptHelp
  41   deriving Eq
  42
  43 argInfo :: [ OptDescr CLIFlags ]
  44 argInfo =
  45   [ Option ['?'] ["help"]    (NoArg OptHelp)
  46         "Display this message"
  47   , Option ['a'] ["ascii"]   (NoArg OptASCIIOutput)
  48         "Produce ASCII output (default)"
  49   , Option ['h'] ["html"]    (NoArg OptHTMLOutput)
  50         "Produce HTML output"
  51   , Option ['i'] ["ignore"]  (ReqArg (OptIgnoreSmallTimes . read) "secs")
  52         "Ignore runtimes smaller than <secs>"
  53   , Option ['d'] ["deviations"] (NoArg OptDeviations)
  54         "Display deviations (default)"
  55   , Option ['n'] ["nodeviations"] (NoArg OptNoDeviations)
  56         "Hide deviations"
  57   , Option ['t'] ["title"] (ReqArg OptTitle "title")
  58         "Specify report title"
  59   ]
  60