将函数映射传递给宏

Question

我有一个将实现作为侦听器的Java接口的宏。我定义了宏以获取包含我想要解构的函数的映射，并用于每个接口方法。这是宏： -

(defmacro with-cache-listener-m [component event body] 
    (let [{:keys [f-insert f-update]} body] 
    `(. ~component addMapListener 
    (proxy [AbstractMapListener] [] 
     (entryInserted [~event] ~f-insert ~event) 
     (entryUpdated [~event] ~f-update ~event))))) 

的身体图是这样的： -

(def m-callbacks {:f-insert callback-insert :f-update callback-update}) 

但是当我打电话(macroexpand '(with-cache-listener-m test-cache e m-callbacks))它扩展为(. test-cache user/addMapListener (clojure.core/proxy [com.tangosol.util.AbstractMapListener] [] (user/entryInserted [e] nil e) (user/entryUpdated [e] nil e)))

的回调函数是零。我是否需要对它们进行不同的定义，或者我是否以这种错误的方式去做。

Answer 1

当您调用with-cache-listener-m宏时，body参数作为符号被限制为'm-callbacks，因此当您尝试解构该局部变量时，它将不起作用，因为它不是一个映射。你可以让生成的表单做这样的工作：

(defmacro with-cache-listener-m [component event body] 
    `(let [{:keys [f-insert# f-update#]} ~body] 
    (. ~component addMapListener 
     (proxy [AbstractMapListener] [] 
      (entryInserted [~event] f-insert# ~event) 
      (entryUpdated [~event] f-update# ~event))))) 

但最终我不知道你的代码需要一个宏，你试图把它写成一个函数：

(defn add-map-listener [component insert-fn update-fn] 
    (.addMapListener component 
    (proxy [AbstractMapListener] [] 
     (entryInserted [e] (insert-fn e)) 
     (entryUpdated [e] (update-fn e))))) 

正如你所看到的，我改变了一些事情：

• 作出的函数名称更清晰，宏是不是真的像其他与 - *宏，通常在某种特殊评估一些代码（body）上下文。
• 删除了事件参数，因为它似乎没有任何用处。
• 使insert-fn和update-fn参数显式化以简化示例。
• 使用新的方法调用语法。
• 修复了代理实际使用给定函数的方法。
  ，我已经添加了代码

  (defn add-map-listener [component & functions] 
      (let [{:keys [insert-fn update-fn]} (into {} functions)] 
      (when-not (empty? functions) 
       (.addMapListener component 
       (proxy [AbstractMapListener] [] 
        (entryInserted [e] (insert-fn e)) 
        (entryUpdated [e] (update-fn e))))))) 
  

  通知不调用addMapListener时：

如果你想的功能完全是可选的，并使其能够以任意顺序你总是可以做到这一点给予没有给出任何功能。

Answer 2

宏不是函数：它们只知道在编译时传递给它们的文字形式。如果您为变量x分配一个值（例如10），然后将x传递给您的宏，它看起来不是10，而是看到x。如果您的宏不是def ing m-callbacks，然后传递该符号，则只需将该地图直接作为文字传递即可。