Clojureのマクロ - 引数から構成された名前を持つバインディングを定義します。

Question

OK、struct-mapを定義するClojureマクロを記述し、各フィールドの型を指定するよう呼び出し元に通知します。

シグネチャは次のようになります。マップにある結合*category-meta*を、作成もそれはstruct-mapというカテゴリを作成しますこれは何があるん

(defmodel category :id Integer :name String) 

を、そして{:id Integer :name String}

ここで達成することが私のマクロですこれは：

(defmacro defmodel [name & field-spec] 
    `(let [fields# (take-nth 2 ~@field-spec)] 
     (defstruct ~name fields#) 
     (def *~name-meta* (reduce #(assoc %1 (first %2) (last %2))) (partition 2 ~@field-spec)))) 

しかし、問題は、私は名前が構成されているバインディングを定義することはできません別の名前。基本的に(def *~name-meta* ...)は動作しません。

これをどのように達成できますか？

ありがとうございました。

Answer 1

（問題文からマクロのデバッグバージョンで更新。）

指定されたように、これは動作するはずです：

(defmacro defmodel [name & field-spec] 
    `(do (defstruct ~name ~@(take-nth 2 field-spec)) 
     (def ~(symbol (str "*" name "-meta*")) 
     (reduce #(assoc %1 (first %2) (last %2)) 
       {} 
       (partition 2 '~field-spec))))) 

メインの質問への答えが所定の位置に~(symbol (str "*" name "-meta*"))を使用することです*~name-meta*。 ~は、構文引用形式の次の式を引用符で囲み、その戻り値を指定されたリスト構造の適切な場所に挿入します。

特に、defstructでは、単一のseq（またはそのようなseqを保持する変数の名前）ではなく別の引数としてキーを指定する必要があり、reduceには明示的な種が必要ですここで働く価値など

ちなみに、Clojure 1.1に固執する必要がある場合を除き、defstructよりも1.2のdefrecordを使用することをお勧めします。後者は1.2では非推奨です。