Clojure:如何获取函数的元数据？

Question

我正在尝试获取所有内置Clojure函数的元数据。

在previous question中，我了解到这可以使用诸如^#'func_name (获取var对象的元数据)之类的东西来实现。但是我没有设法以编程的方式做到这一点，因为func-name事先是不知道的。

例如，尝试获取clojure.core中最后一个函数的元数据：

user=> (use 'clojure.contrib.ns-utils)
nil
user=> (def last-func (last (vars clojure.core)))

user=> last-func
zipmap

;The real metadata (zipmap is hardcoded)
user=> ^#'zipmap
{:ns #<Namespace clojure.core>, :name zipmap, :file "clojure/core.clj", :line 1661, :arglists ([keys vals]), :doc "Returns a map .."}

;Try to get programmatically, but get shit
user=> ^#'last-func
{:ns #<Namespace user>, :name last-func, :file "NO_SOURCE_PATH", :line 282}

怎么做呢？我已经尝试了许多变体，但都不能奏效。

Answer 1

你在找meta和ns-resolve。

user=> (let [fun "map"] (meta (ns-resolve 'clojure.core (symbol fun))))
{:ns #<Namespace clojure.core>, :name map, :file "clojure/core.clj", :line 1705, :arglists ([f coll] [f c1 c2] [f c1 c2 c3] [f c1 c2 c3 & colls]), :doc "Returns a lazy sequence consisting of the result of applying f to the\n  set of first i tems of each coll, followed by applying f to the set\n  of second items in each coll, until any one of the colls is\n  exhausted.  Any remaining items in other colls are ignored. Function\n  f should accept number-of-colls arguments."}

Answer 2

从技术上讲，函数目前不能在Clojure中包含元数据：

http://www.assembla.com/spaces/clojure/tickets/94-GC--Issue-90---%09-Support-metadata-on-fns

然而，绑定到函数的var可能会，看起来这就是您在ns-resolve中找到的。(meta last-func)也可以。因为last-func本身就是var本身，所以^#'last-func (它是(meta (var (引用last-func)的简写)有一个多余的var取消引用。