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

Housekeeping: HEAD^

This commit is contained in:
Peter Taoussanis 2014-08-14 18:25:22 +07:00
parent 6b6395db10
commit 8b275387c7
1 changed files with 28 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -215,24 +215,35 @@
(printf s-pattern "Accounted Time" "" "" "" "" ""
(perc accounted clock-time) (ft accounted)))))
(defmacro defnp "Like `defn` but wraps body in `p` macro."
{:arglists '([name ?doc-string ?attr-map [params] ?prepost-map body])}
[name & sigs]
(let [[name sigs] (encore/name-with-attrs name sigs)
[sigs func->str] (if (vector? (first sigs)) ;only one arity
[(list sigs) (fn [name _] (clojure.core/name name))]
[sigs (fn [name params] (str (clojure.core/name name) \_ (count params)))])
new-sigs (map (fn [[params & others]]
(let [[prepost-map & body] (if (and (map? (first others)) (next others)) ;has prepost map
others
(cons {} others))]
`(~params ~prepost-map (pspy ~(func->str name params) ~@body))))
sigs)]
`(defn ~name ~@new-sigs)))
(defmacro defnp "Like `defn` but wraps fn bodies with `p` macro."
{:arglists
'([name doc-string? attr-map? [params*] prepost-map? body]
[name doc-string? attr-map? ([params*] prepost-map? body)+ attr-map?])}
[name' & sigs]
(let [[name' sigs] (encore/name-with-attrs name' sigs)
single-arity? (vector? (first sigs))
[sigs func->str]
(if single-arity?
[(list sigs) (fn [name' _params] (name name'))]
[sigs (fn [name' params] (str (name name') \_ (count params)))])
(comment (defnp foo "Docstring "[x] "boo" (* x x))
(macroexpand '(defnp foo "Docstring" [x] "boo" (* x x)))
(profile :info :defnp-test (foo 5)))
new-sigs
(map (fn [[params & others]]
(let [has-prepost-map? (and (map? (first others)) (next others))
[prepost-map & body]
(if has-prepost-map?
others
(cons {} others))]
`(~params ~prepost-map (pspy ~(func->str name' params) ~@body))))
sigs)]
`(defn ~name' ~@new-sigs)))
(comment
(defnp foo "Docstring "[x] "boo" (* x x))
(macroexpand '(defnp foo "Docstring" [x] "boo" (* x x)))
(macroexpand '(defnp foo "Docstring" ([x] (* x x))
([x y] (* x y))))
(profile :info :defnp-test (foo 5)))
(comment
(profile :info :sleepy-threads