splot 0.1.15 → 0.1.16

raw patch · 2 files changed

+7/−3 lines, 2 files

Files

• Tools/StatePlot.hs +6/−2
• splot.cabal +1/−1

@@ -126,8 +126,11 @@  showHelp = mapM_ putStrLn [     "splot - a tool for visualizing the lifecycle of many concurrent multi-stage processes. See http://www.haskell.org/haskellwiki/Splot",-    "Usage: splot [-o PNGFILE] [-w WIDTH] [-h HEIGHT] [-bh BARHEIGHT] [-tf TIMEFORMAT] [-sort SORT] [-expire EXPIRE]",+    "Usage: splot [-if INFILE] [-o PNGFILE] [-w WIDTH] [-h HEIGHT] [-bh BARHEIGHT] ",+    "             [-tf TIMEFORMAT] [-sort SORT] [-expire EXPIRE]",     "             [-tickInterval TICKINTERVAL]",+    "  -if INFILE    - filename from where to read the trace.",+    "                  If omitted or '-', read from stdin.",     "  -o PNGFILE    - filename to which the output will be written in PNG format.",     "                  If omitted, it will be shown in a window.",     "  -w, -h        - width and height of the resulting picture. Default 640x480.",@@ -174,7 +177,8 @@   let timeFormat = getArg "tf" "%Y-%m-%d %H:%M:%OS" args   let parseTime s = fromMaybe (error $ "Invalid time: " ++ show s) . strptime (B.pack timeFormat) $ s   let outPNG = getArg "o" "" args-  input <- B.getContents+  let inputFile = getArg "if" "-" args+  input <- if inputFile == "-" then B.getContents else B.readFile inputFile   let pruneLF b | not (B.null b) && (B.last b == '\r') = B.init b                 | otherwise                            = b   let events = (parse parseTime . pruneLF) `map` B.lines input

@@ -1,5 +1,5 @@ Name: splot-Version: 0.1.15+Version: 0.1.16 License: BSD3 License-file: LICENSE Copyright: Eugene Kirpichov, 2010