扩展clojure reify的惯用方式

Question

到目前为止，这是我找到的解决方案，但我相信它不是很地道......

动态扩展 reify 有什么更好的建议吗？

更新！
我的想法是在执行当前 reify 实现的某些功能之前添加对 println 的调试调用。在提供的示例中，我向当前实现添加了一个短字符串。其他情况可能是您可以在 AspectOrientedProgramming 上找到的计时或公共方面

谢谢！

(def r (let [f "foo"]
         (reify Object
           (toString [this]
             f))))

(str r) ; == "foo"


(def r-extended (let [f "extended"]
         (reify Object
           (toString [this]
             (str f "-"(str r))))))

(str r-extended) ; == "extended-foo"

Answer 1

据我所知，您的目标是包装由 reify 创建的对象，并在对该对象的调用中注入新行为。

一个方向是编写一个宏来代替 reify 并将每个 reified 函数的“环绕”调用插入到您提供的函数中。使用可能看起来像这样：

(reifyw Object wrapf
  (toString [this]
    f)))

会变成：

(reify Object
  (toString [this] 
    (wrapf f)))

另一个方向是只包装对对象接口的调用以插入您自己的动态行为 - 这将在使用点完成，而不是在声明点进行，这需要权衡。