diff options
| author | Ian Lynagh <igloo@earth.li> | 2006-12-20 22:07:15 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2006-12-20 22:07:15 +0000 |
| commit | 49fd39a14fd972bd7680b35a5d1d0911f764c4a3 (patch) | |
| tree | 7bfef455932e54779cbb121854c08604ba069bed /utils | |
| parent | 1db8e4d0719bff692a9dbb74e2b250a8745470b9 (diff) | |
| download | haskell-49fd39a14fd972bd7680b35a5d1d0911f764c4a3.tar.gz | |
Parse and use ghci nofib output
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/nofib-analyse/Slurp.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/nofib-analyse/Slurp.hs b/utils/nofib-analyse/Slurp.hs index 5387a8ff0f..6d3183e0ba 100644 --- a/utils/nofib-analyse/Slurp.hs +++ b/utils/nofib-analyse/Slurp.hs @@ -79,7 +79,7 @@ Various banner lines: -- NB. the hyphen must come last (or first) inside [...] to stand for itself. banner_re :: Regex -banner_re = mkRegex "^==nofib==[ \t]+([A-Za-z0-9_-]+):[ \t]+(size of|time to link|time to run|time to compile)[ \t]+([A-Za-z0-9_-]+)(\\.o)?[ \t]+follows" +banner_re = mkRegex "^==nofib==[ \t]+([A-Za-z0-9_-]+):[ \t]+(size of|time to link|time to run|time to compile|time to compile & run)[ \t]+([A-Za-z0-9_-]+)(\\.o)?[ \t]+follows" {- This regexp for the output of "time" works on FreeBSD, other versions @@ -227,6 +227,8 @@ process_chunk (progName : what : modName : _, chk) = case what of "time to compile" -> parse_compile_time progName modName chk "time to run" -> parse_run_time progName (reverse chk) emptyResults NotDone + "time to compile & run" -> parse_compile_time progName modName chk + ++ parse_run_time progName (reverse chk) emptyResults NotDone "time to link" -> parse_link_time progName chk "size of" -> parse_size progName modName chk _ -> error ("process_chunk: "++what) |