status-im
/
timbre
mirror of https://github.com/status-im/timbre.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Distinguish between wall-clock and accounted times

This commit is contained in:
Peter Taoussanis 2012-12-16 18:45:53 +07:00
parent d6bc6b2947
commit b07c044004
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/taoensso/timbre/profiling.clj
View File

@ -54,14 +54,12 @@
([stats] (plog-table stats :time)) ([stats] (plog-table stats :time))
([stats sort-field] ([stats sort-field]
(let [;; How long entire (profile) body took (let [;; How long entire (profile) body took
total-time (-> stats :meta/total :time) clock-time (-> stats ::clock-time :time)
stats (dissoc stats :meta/total) stats (dissoc stats ::clock-time)
;; Sum of (p) times, <= total-time
accounted (reduce + (map :time (vals stats))) accounted (reduce + (map :time (vals stats)))
max-name-width (apply max (map (comp count str) max-name-width (apply max (map (comp count str)
(conj (keys stats) "Unaccounted"))) (conj (keys stats) "Accounted Time")))
pattern (str "%" max-name-width "s %6d %9s %10s %9s %9s %7d %1s%n") pattern (str "%" max-name-width "s %6d %9s %10s %9s %9s %7d %1s%n")
s-pattern (.replace pattern \d \s) s-pattern (.replace pattern \d \s)
@ -82,12 +80,11 @@
(sort-by #(- (get-in stats [% sort-field]))))] (sort-by #(- (get-in stats [% sort-field]))))]
(let [{:keys [count min max mean mad time]} (stats pname)] (let [{:keys [count min max mean mad time]} (stats pname)]
(printf pattern (fqname pname) count (ft min) (ft max) (ft mad) (printf pattern (fqname pname) count (ft min) (ft max) (ft mad)
(ft mean) (perc time total-time) (ft time)))) (ft mean) (perc time clock-time) (ft time))))
(let [unacc (- total-time accounted) (printf s-pattern "[Clock] Time" "" "" "" "" "" 100 (ft clock-time))
unacc-perc (perc unacc total-time)] (printf s-pattern "Accounted Time" "" "" "" "" ""
(printf s-pattern "Unaccounted" "" "" "" "" "" unacc-perc (ft unacc)) (perc accounted clock-time) (ft accounted))))))
(printf s-pattern "Time" "" "" "" "" "" 100 (ft total-time)))))))
(defmacro profile* (defmacro profile*
"Executes named body with profiling enabled. Body forms wrapped in (p) will be "Executes named body with profiling enabled. Body forms wrapped in (p) will be
@ -118,7 +115,7 @@
(str "Profiling " (fqname name#)) (str "Profiling " (fqname name#))
(str "\n" (plog-table stats#)))) (str "\n" (plog-table stats#))))
~name ~name
(p :meta/total ~@body)) (p ::clock-time ~@body))
(do ~@body))) (do ~@body)))
(defmacro sampling-profile (defmacro sampling-profile