如何在clojure中设置和获取多方法元数据?

Ale*_*xey 1 metadata clojure multimethod

我正在使用多方法来解析命令行命令及其参数。

(defmulti run (fn [command args] command))

(defmethod run :default
  [& _]
  ...)

^{:args "[command]"}
(defmethod run "help"
  [_ & [args]]
  "Display command list or help for a given command"
  ...)

^{:args ""}
(defmethod run "version"
  [_ & [args]]
  "Print program's version"
  ...)

(defn -main
  [& args]
  (run (first args)
    (next args)))
Run Code Online (Sandbox Code Playgroud)

当我尝试访问元数据时,对于特定方法,clojure 返回nil:

(meta ((methods run) "help"))
Run Code Online (Sandbox Code Playgroud)

Ole*_*Cat 6

没有这种可能。第一个原因(直截了当)是defmethod不提供为特定方法设置元数据的能力(只defmulti允许这样做,但仅限于整个多方法)。第二个原因是 multimethod 本质上是一个单一的函数,只是有多个执行“变体”,每个“变体”都根据传递的参数触发。粗略地说,从调用者的角度来看,函数f1和f2下面定义的没有特别的区别:

(defmulti f1 (fn [x] x))

(defmethod f1 :foo [x]
  ...)

(defmethod f1 :bar [x]
  ...)

(defmethod f1 :baz [x]
  ...)

(defn f2 [x]
  (case x
    :foo ...
    :bar ...
    :baz ...))
Run Code Online (Sandbox Code Playgroud)

就我个人而言,我会根据具体功能是多方法还是普通功能来考虑实现细节。此外,如果您需要明确记录 multimethod 的每个方法,您应该考虑用普通函数替换每个方法,并且根本不要使用 multimethods。