动态检索Clojure函数元数据

作者: 小蚊子
发布时间: 2024-08-16 08:35:10 (1月前)
转自：

4 条回复

0#
回复此人
句号了哦哦 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我想详细说明一下 <a href="https://stackoverflow.com/users/1308287/beyamor"> Beyamor的回答 </A> 。对于我写的一些代码，我使用的是： </p> <pre> <code> (def ^{:doc "put the-func docstring here" :arglists '([x])} the-func ^{:some-key :some-value} (fn [x] (* x x))) </code> </pre> <P> 是的，拥有两个元数据映射有点笨拙。这就是我这样做的原因： </p> <OL> <LI> <P> 第一个元数据附加到 <code> the-func </code> 变种。所以你可以使用 <code> (doc the-func) </code> 返回： </p> <pre> <code> my-ns.core/the-func ([x]) put the-func docstring here </code> </pre> </LI> <LI> <P> 第二个元数据附加到函数本身。这可以让你使用 <code> (meta the-func) </code> 回来： </p> <pre> <code> {:some-key :some-value} </code> </pre> </LI> </醇> <P> 总之，当您需要REPL中的文档字符串以及对函数元数据的动态访问时，此方法会派上用场。 </p> </DIV>

编辑
1#
回复此人
My☀ | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 表达方式 <code> #(meta #'%) </code> 是一个扩展为调用的宏 <code> defn </code> （其实 <code> def </code> ）其中有一个名为p1__1637＃的参数 <code> gensym </code> 并且对meta的调用是尝试将此本地参数用作var，因为不存在具有该名称的var，您会收到此错误。 </p> <P> 如果你 <B> 从矢量开始 <code> var </code> 而不是函数的向量 </B> 那么你可以将元映射到它们上面。您可以在任何使用函数的地方使用var（非常接近），每次调用var时，查找var的内容的运行时成本非常小。 </p> <pre> <code> 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> </code> </pre> <P> 所以加一对 <code> #' </code> s到您的原始代码并删除额外的尾随：应该做的伎俩： </p> <pre> <code> 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> </code> </pre> </DIV>

编辑
2#
回复此人
誓言你好 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 最近，我发现将元数据附加到函数本身而不是像vars一样有用 <code> defn </code> 确实。 </p> <P> 你可以用好的ol'做到这一点 <code> def </code> ： </p> <pre> <code> (def funca ^{:tau-or-pi :pi} (fn [x] (* x x))) (def funcb ^{:tau-or-pi :tau} (fn [x] (* x x x))) </code> </pre> <P> 这里，元数据已附加到函数，然后这些元数据负载函数绑定到变量。 </p> <P> 关于这一点的好处是，在考虑元数据时，您不再需要担心变量。由于函数包含元数据，因此您可以直接从中提取元数据。 </p> <pre> <code> (def funcs [funca funcb]) (map (comp :tau-or-pi meta) funcs) ; [:pi :tau] </code> </pre> <P> 显然是语法 <code> def </code> 不是那么精致 <code> defn </code> 对于功能，所以根据您的使用情况，您可能有兴趣重新实现 <code> defn </code> 将元数据附加到函数。 </p> </DIV>

编辑

登录后才能参与评论