Петля через args макроса
Я пытаюсь написать макрос в Clojure, который позволяет оценивать ряд простых выражений "def". Я n00b, когда дело доходит до макросов. Идея в том, что
(my-defs y1 1
y2 "taco")
следует расширить до
(do (def y1 1) (def y2 "taco"))
следующий код выполняет это для специального случая двух defs
(defmacro my-defs
[& args]
`(do
(def ~(first args) ~(second args))
(def ~(nth args 2) ~(nth args 3) )))
что приятно,но мне трудно обобщить это. Я попробовал несколько наивных вещей, связанных с петлей через привязки элементов (partition 2 args)
но Я всегда получал мусор (я знаю, что это не очень конкретно, но разнообразие и объем мусора, казалось, слишком много, чтобы сообщить здесь). Как мне зациклиться на них и оценить мои дефс?
С. П.
Макрос my-defs
это игрушка. Что я действительно хочу достичь в конце Литтел вспомогательный макрос, чтобы создать кучу мультиметода экземпляров. В настоящее время у меня есть большие куски кода, которые выглядят как
(defmethod f [A B] [x] "AB")
(defmethod f [A A] [x] "AA")
(defmethod f [C B] [x] "CB")
что немного неэстетично. Было бы здорово, если бы я мог ... что-то вроде
(defmethods f
[A B] [x] "AB"
[A A] [x] "AA"
[C B] [x] "CB")
вместо.
1 ответов
Мне кажется, что вы ищете расширение ~@ macro/unquote.
(defmacro defmethods [n & defs]
`(do ~@(map (fn [[a1 a2 a3]]
`(def ~n ~a1 ~a2 ~a3))
(partition 3 defs))))