在clojure中，我如何從另一個宏評估宏的參數？

Question

我有兩個宏。第一個將符號作爲唯一參數（因爲它傳遞給def，需要一個符號）。第二個函數帶有一個符號列表，並且應該分別爲每個符號調用第一個符號。

(defmacro m1 [s] 
    '(let [f# ... dynamic function definition ...] 
     (def ~s f#)) 

第二個宏應該取一個符號列表並將它們傳遞給第一個，但我無法讓它工作。我能想出的最好的是以下幾點：

(defmacro m2 [symbols] 
    `(for [s# ~symbols] (eval (read-string (str "(name.of.current.namespace/m1 " s# ")"))))) 

迫使s#它被傳遞給第一宏之前進行評估。它也被調用一個字符串列表，而不是一個符號列表。

這對我使用的庫很有用，庫中的所有功能都採用相同的兩個第一個參數。我試圖在我的命名空間中爲一些函數創建包裝函數，這些函數自動提供前兩個參數值，這些參數值對所有這些參數都是通用的。

任何想法，以改善這一點？

Answer 1

通常當你問如何讓兩個宏配合時，答案是不要讓它們成爲宏。我認爲我的博客文章macro-writing macros將有助於澄清。對於這種特殊的情況我可能會從註釋結合了兩種建議：

(defmacro build-simpler-functions [& names] 
    (cons 'do 
     (for [name names] 
      `(def ~(symbol (str "simple-" name)) 
      (partial ~name 5 10))))) ; if you always pass 5 and 10 

(build-simpler-functions f1 f2) 

這擴展到

(do 
    (def simple-f1 (clojure.core/partial f1 5 10)) 
    (def simple-f2 (clojure.core/partial f2 5 10))) 

它看起來像基本上你想要什麼。

編輯：如果你「總是」通過args作爲各功能是不同的，你可以這樣做：

(defmacro build-simpler-functions [& names] 
    (cons 'do 
     (for [[name & args] names] 
      `(def ~(symbol (str "simple-" name)) 
      (partial ~name ~@args))))) 

(build-simpler-functions [f1 5 10] [f2 "Yo dawg"]) ; expansion similar to the previous