Commit 8d5bf65c authored by keithw's avatar keithw
Browse files

[project @ 2000-07-05 15:42:19 by keithw]

Add -t flag to specify title of report.
parent dfedfb02
......@@ -25,12 +25,18 @@ tooquick_threshold
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
| OptHTMLOutput
| OptIgnoreSmallTimes Float
| OptDeviations
| OptNoDeviations
| OptTitle String
| OptHelp
deriving Eq
......@@ -48,5 +54,7 @@ argInfo =
"Display deviations (default)"
, Option ['n'] ["nodeviations"] (NoArg OptNoDeviations)
"Hide deviations"
, Option ['t'] ["title"] (ReqArg OptTitle "title")
"Specify report title"
]
-----------------------------------------------------------------------------
-- $Id: Main.hs,v 1.3 2000/03/02 11:39:45 keithw Exp $
-- $Id: Main.hs,v 1.4 2000/07/05 15:42:19 keithw Exp $
-- (c) Simon Marlow 1997-1999
-----------------------------------------------------------------------------
......@@ -113,8 +113,9 @@ time_ok t = t > tooquick_threshold
-- HTML page generation
htmlPage results args
= header [] (theTitle [] (htmlStr "NoFib Results"))
= header [] (theTitle [] (htmlStr reportTitle))
+++ bar []
+++ h1 [] (htmlStr reportTitle)
+++ gen_menu
+++ bar []
+++ body [] (gen_tables results args)
......@@ -131,7 +132,7 @@ gen_tables results args =
+++ foldr1 (+++) (map (htmlGenModTable results args) per_module_result_tab)
htmlGenProgTable results args (SpecP title anc get_result get_status result_ok)
= sectHeading title anc
= sectHeading title anc
+++ font [size 1] (
mkTable (htmlShowResults results args get_result get_status result_ok))
+++ bar []
......@@ -279,7 +280,9 @@ hexDig i | i > 10 = chr (i-10 + ord 'a')
-- ASCII page generation
asciiPage results args =
( interleave "\n\n" (map (asciiGenProgTable results args) per_prog_result_tab)
( str reportTitle
. str "\n\n"
. interleave "\n\n" (map (asciiGenProgTable results args) per_prog_result_tab)
. str "\n"
. interleave "\n\n" (map (asciiGenModTable results args) per_module_result_tab)
) "\n"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment