8

环境：Clojure 1.4

我正在尝试从函数向量中动态提取函数元数据。

(defn #^{:tau-or-pi: :pi} funca "doc for func a" {:ans 42} [x] (* x x))
(defn #^{:tau-or-pi: :tau} funcb "doc for func b" {:ans 43} [x] (* x x x))

(def funcs [funca funcb])

现在，在 REPL 中检索元数据（在某种程度上）很简单：

user=>(:tau-or-pi (meta #'funca))
:pi

user=>(:ans (meta #'funca))
42

user=>(:tau-or-pi (meta #'funcb))
:tau

user=>(:ans (meta #'funcb))
43

但是，当我尝试制作地图以从元数据中获取:ans、:tau-or-pi或 basic:name时，出现异常：

user=>(map #(meta #'%) funcs)
CompilerException java.lang.RuntimeException: Unable to resolve var: p1__1637# in this context, compiling:(NO_SOURCE_PATH:1)

在进行了更多搜索之后，我从 2009 年的一篇帖子中得到了以下想法（https://groups.google.com/forum/?fromgroups=#!topic/clojure/VyDM0YAzF4o）：

user=>(map #(meta (resolve %)) funcs)
ClassCastException user$funca cannot be cast to clojure.lang.Symbol  clojure.core/ns-resolve (core.clj:3883)

我知道defn宏（在 Clojure 1.4 中）将元数据放在宏Var的def部分中，defn所以这就是简单(meta #'funca)工作的原因，但有没有办法动态获取函数元数据（如map上面的示例）？

也许我在语法上遗漏了一些东西，但如果有人能指出我正确的方向或正确的方法，那就太好了。

谢谢。

4

3 回答 3

3

该表达式#(meta #'%)是一个宏，它扩展为对defn（实际上def）的调用，该调用具有一个名为 p1__1637# 的参数，该参数是用生成的，gensym并且对 meta 的调用试图将此本地参数用作 var，因为不存在具有该名称的 var你得到这个错误。

如果您从vars 的向量而不是函数向量开始，那么您可以将元映射到它们上。您可以在任何使用函数的地方使用 var（非常接近），每次调用它时查找 var 的内容的运行时间成本非常小。

user> (def vector-of-functions [+ - *])
#'user/vector-of-functions
user> (def vector-of-symbols [#'+ #'- #'*])
#'user/vector-of-symbols
user> (map #(% 1 2) vector-of-functions)
(3 -1 2)
user> (map #(% 1 2) vector-of-symbols)
(3 -1 2)                                                           
user> (map #(:name (meta %)) vector-of-symbols)
(+ - *)
user>

因此，在您的原始代码中添加几个#'s 并删除额外的尾随 : 应该可以解决问题：

user> (defn #^{:tau-or-pi :pi} funca "doc for func a" {:ans 42} [x] (* x x))
#'user/funca
user> (defn #^{:tau-or-pi :tau} funcb "doc for func b" {:ans 43} [x] (* x x x))
#'user/funcb
user> (def funcs [#'funca #'funcb])
#'user/funcs
user> (map #(meta %) funcs)
({:arglists ([x]), :ns #<Namespace user>, :name funca, :ans 42, :tau-or-pi :pi, :doc "doc for func a", :line 1, :file "NO_SOURCE_PATH"} {:arglists ([x]), :ns #<Namespace user>, :name funcb, :ans 43, :tau-or-pi :tau, :doc "doc for func b", :line 1, :file "NO_SOURCE_PATH"})
user> (map #(:tau-or-pi (meta %)) funcs)
(:pi :tau)
user>
于 2012-12-28T19:49:00.657 回答
2

最近，我发现将元数据附加到函数本身而不是像 vars 那样有用defn。

你可以用好的 ol' 做到这一点def：

(def funca ^{:tau-or-pi :pi} (fn [x] (* x x)))
(def funcb ^{:tau-or-pi :tau} (fn [x] (* x x x)))

在这里，元数据已附加到函数，然后将那些包含元数据的函数绑定到 var。

这样做的好处是您在考虑元数据时不再需要担心 vars。由于这些函数包含元数据，因此您可以直接从它们中提取它。

(def funcs [funca funcb])

(map (comp :tau-or-pi meta) funcs) ; [:pi :tau]

显然，of 的语法def并不像defn函数那样精炼，因此根据您的使用情况，您可能有兴趣重新实现defn以将元数据附加到函数。

于 2012-12-28T20:37:19.957 回答
0

我想详细说明Beyamor 的回答。对于我正在编写的一些代码，我正在使用这个：

(def ^{:doc "put the-func docstring here" :arglists '([x])}
  the-func
  ^{:some-key :some-value}
  (fn [x] (* x x)))

是的，有两个元数据映射有点笨拙。这就是我这样做的原因：

  1. 第一个元数据附加到the-funcvar。所以你可以使用(doc the-func)which 返回：

    my-ns.core/the-func
([x])
  put the-func docstring here

  2. 第二个元数据附加到函数本身。这使您可以使用(meta the-func)返回：

    {:some-key :some-value}

总之，当您想要 REPL 中的文档字符串以及对函数元数据的动态访问时，这种方法会派上用场。

于 2013-05-22T18:29:07.933 回答