clojure:为命名空间中的每个函数添加调试跟踪? [英] clojure: adding a debug trace to every function in a namespace?
问题描述
刚刚开始在我的一个home项目中使用log4j,我只是打破了鼠标和剪切和粘贴(trace(strentered:function-name))
到大模块中的每个函数。那么原因的声音被抓住了,并说必须有一个更好的方法...我可以想到制作一个宏包装一整块功能,并添加痕迹给他们或类似的东西?任何意见,从明智堆栈溢出clojurians?
just started using log4j in one of my home-projects and I was just about to break out the mouse and cut-and-paste (trace (str "entering: " function-name))
into every function in a large module. then the voice of reason caught up and said "there has simply got to be a better way"... I can think of making a macro that wraps a whole block of functions and adds the traces to them or something like that? Any advice from the wise Stack-overflowing-clojurians?
推荐答案
不需要宏:
(defn trace-ns
"ns should be a namespace object or a symbol."
[ns]
(doseq [s (keys (ns-interns ns))
:let [v (ns-resolve ns s)]
:when (and (ifn? @v) (-> v meta :macro not))]
(intern ns
(with-meta s {:traced true :untraced @v})
(let [f @v] (fn [& args]
(clojure.contrib.trace/trace (str "entering: " s))
(apply f args))))))
(defn untrace-ns [ns]
(doseq [s (keys (ns-interns ns))
:let [v (ns-resolve ns s)]
:when (:traced (meta v))]
(alter-meta! (intern ns s (:untraced (meta v)))
#(dissoc % :traced :untraced))))
...或类似的东西。最可能的额外要求是使用 filter
,以便在不是<$的事情上调用 trace
c $ c> ifn? s。更新:在解决方案中编辑(也处理宏)。更新2:修复了一些主要的错误。更新4:添加untrace功能。
...or something similar. The most likely extra requirement would be to use filter
so as not to call trace
on things which aren't ifn?
s. Update: edited in a solution to that (also handling macros). Update 2: fixed some major bugs. Update 4: added untrace functionality.
更新3:以下是我的REPL示例:
Update 3: Here's an example from my REPL:
user> (ns foo)
nil
foo> (defn foo [x] x)
#'foo/foo
foo> (defmacro bar [x] x)
#'foo/bar
foo> (ns user)
nil
user> (trace-ns 'foo)
nil
user> (foo/foo :foo)
TRACE: "entering: foo"
:foo
user> (foo/bar :foo)
:foo
user> (untrace-ns 'foo)
nil
user> (foo/foo :foo)
:foo
这篇关于clojure:为命名空间中的每个函数添加调试跟踪?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!