Clojure 的宏 - 定义一个名称由参数组成的绑定

Question

好的，我想写一个 Clojure 宏来定义一个 struct-map 并让调用者为每个字段指定类型。

签名将如下所示：

(defmodel category :id Integer :name String)

它的作用是创建一个名为struct-map的类别，并创建一个绑定*category-meta*，这是一个映射{: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，否则您可能希望使用 1.2 的 defrecord 而不是 defstruct - 事实上，后者在 1.2 中已被弃用。