在线程宏中记录值的惯用方式是什么？

Question

在我的代码中，我广泛地使用了线程宏。不过，有时我希望记录宏中的一个或多个值。例如,

(-> val
    (fn-1)
    (fn-2)
    (fn-3))

在这里，假设我想记录fn-2的结果。我该怎么做呢？

我试过两种方法：

• 把trace放在fn-2后面。
• 在fn-2之后添加一个匿名函数，比如#(do (log/debug %) %)。

使用trace似乎并不理想，因为它不能与真正的记录器集成。滚动自己的功能似乎也不理想。

这里的最佳做法是什么？

Answer 1

您可以创建一个更高级的debug函数，它用您想要的任何逻辑包装您的函数。下面是一个简单打印的示例：

(defn debug
  ([v d bmf] (debug v d bmf nil))
  ([v f before-msg-fmt amf]
   (let [r (f v)]
     (println (format before-msg-fmt v)
              (str (when amf (format amf r))))
     r)))

因此，使用以下函数调用它：

(def fn1 identity)
(def fn2 inc)
(def fn3 (fn[x] (* x 3)))

(-> 5
    (debug fn1 "here! %s")
    (debug fn2 "old val: %s" "new val: %s")
    fn3)

产

here! 5 
old val: 5 new val: 6
=> 18