Browse files

Add -l option to enable showing platform column in table

  • Loading branch information...
1 parent 66e91b3 commit d78592d8853ce50474488d16df093c06d6bf7816 @jafingerhut committed Oct 24, 2012
Showing with 10 additions and 2 deletions.
  1. +10 −2 bin/results2graphs
View
12 bin/results2graphs
@@ -171,6 +171,7 @@ consisting of one or more Measurement elements\n"
;;(def options-spec
;; [ ["-t" "--show-table" "Show table of results"]
;; ["-a" "--show-all-times" "In table, show all run times"]
+;; ["-l" "--show-platform" "In table, show platform"]
;; ["-p" "--[no]-plots" :default true] ])
@@ -186,6 +187,8 @@ consisting of one or more Measurement elements\n"
problem/platform/language combo, but also a list of all elapsed
times sorted in increasing order.
+ -l Like -a, except adds a 'platform' column to the table.
+
-p By default, use gnuplot to generate PNG format plots for each
problem. With this option, skip the generation of plots.
" prog-name options-desc))
@@ -195,11 +198,13 @@ consisting of one or more Measurement elements\n"
(loop [args args
opts {:show-table false
:show-all-times false
+ :show-platform false
:plots true}]
(if-let [arg (first args)]
(if-let [opt (case arg
"-t" {:show-table true}
"-a" {:show-all-times true}
+ "-l" {:show-platform true}
"-p" {:plots false}
nil)]
(recur (rest args) (merge opts opt))
@@ -240,8 +245,11 @@ consisting of one or more Measurement elements\n"
;; debug output
(when (:show-table opts)
- (let [columns (concat [:problem :platform :language :elapsed_time_sec
- :time_var]
+ (let [columns (concat [:problem]
+ (if (:show-platform opts)
+ [:platform]
+ [])
+ [:language :elapsed_time_sec :time_var]
(if (:show-all-times opts)
[:other_elapsed_time_sec]
[])

0 comments on commit d78592d

Please sign in to comment.