2

好的，让我们试着弄清楚这一点：我的最终目的是为用户提供一个宏作为 API，它看起来像：

(defscript [a b]
  (println a))

结果必须是Script协议的一个实例，如下所示：

(defprotocol Script
  (run [this model]))

这个想法是第一个参数defscript是需要绑定到对应键的符号列表model：

(.run (defscript [a b] (println a)) {:a 1}) ;; yields 1

我想不出任何可以有效产生这种效果的代码，因为我在尝试使用参数时经常碰壁model，因为在宏扩展时它只是一个符号：

(defmacro invoke-
  [params model body]
  (let [p (flatten (map (fn [x] [x (model (keyword x))]) params))]
    `(let [~@p]
       ~body)))

(defmacro defscript
  [params & body]
  `(reify Script
    (run [~'this ~'model]
      (invoke- ~params ~'model ~@body))))

invoke-如果直接调用可以正常工作：

(invoke- [a] {:a 1} (println a)) ;; prints 1

defscript但在asmodel无法正确展开时，它不起作用：

(.run (defscript [a] (println a)) {:a 1}) ;; prints nil

我怎样才能越过这一点并将各个部分粘合在一起？

4

1 回答 1

4

基本上，您的参数向量似乎是解构绑定的快捷方式：

(defscript [a b] body)  -> (reify Script (run [this {:keys [a b]}] body))

这样，模型在运行时就被解构了，这是应该的。

于 2011-10-28T06:53:05.740 回答