macros - 用 memfn 定义函数

Question

我正在研究一些 java 库包装器。
我们有一些带有方法的对象，可以用 (.method object ...) 调用它们.我想创建更方便的具有许多功能的 api (method object ...) .

我写了一个简单的宏:

(defmacro ^{:private true} gen-method [method & argv]
  `(def ~method (memfn ~method ~@argv)))

现在我可以调用 (gen-method charAt i)例如，之后我可以使用 (charAt "string" 1) .

但我有很多方法可以生成并想要使用类似的东西:

(map #(gen-method (-> %1 name symbol arg)) [:charAt :substring ...])

但这不起作用。下一个示例也不起作用:

(map #(let [fname (-> %1 name symbol)] (gen-method fname arg)) [:charAt :substring ...])

我需要在宏中更改什么或为正确的行为添加一些东西？

谢谢。

Answer 1

你将不得不采取map宏本身内部的操作为map操作应该在编译时发生，即表单扩展时而不是在运行时。

如下所示:

(defmacro ^{:private true} gen-methods [methods]
`(do 
       ~@(map (fn [[x & i]] (let [m (-> x name symbol)] `(def ~m (memfn ~m ~@i)) )) methods)))

(gen-methods [ [:charAt i] [:substring i]])