如何将 clojure 的 doc 函数应用于一系列函数

Question

我试图做一些我认为很简单的事情，但事实证明并非如此，我认为该解决方案可能会让我对 clojure 有更深入的了解，所以我想我会在这里问。

我希望能够从 clojure REPL 运行以下命令：

(map #(doc %) v)

其中 v 是...某物的向量，我不确定是什么。目标是打印出某些函数序列的文档字符串，但我不确定如何表达该向量。我尝试了几件事：（我会随机挑选一些功能）

[+ - first set]
['+ '- 'first 'set]
[`+ `- `first `set]
[(var +) (var -) (var first) (var set)]
[`~+ `~- `~first `~set]

没有任何作用。我还尝试应用 doc 函数，但这不起作用，因为 doc 是一个宏，因此不能作为 的参数>应用。我缺少什么？

Answer 1

(doseq [f ['+ '- 'first 'set]] (eval (list 'doc f)))

Answer 2

在 Clojure 1.2 中，您可以使用函数 print-doc：

(print-doc #'fisrt)

这样

(map print-doc [#'fisrt #'+])

#'fisrt 与 (var first) 相同。

请注意，这不适用于特殊形式： (doc def) 有效，但 (print-doc #def)` 给出：

java.lang.Exception: Unable to resolve var: def in this context (NO_SOURCE_FILE:7)

这是因为未定义特殊形式在变量中。您可以使用 macroexpand-1 了解 doc 如何为它们工作：

user=> (macroexpand-1 '(doc def))
(clojure.core/print-special-doc (quote def) "Special Form" (clojure.core/special-form-anchor (quote def)))

在 Clojure 1.3 中，print-doc 被移动到 clojure.repl 命名空间中，并且是私有的，所以你不能直接执行它。您可以输入 ns：

user=> (in-ns 'clojure.repl)
clojure.repl=> (print-doc (meta #'first))
clojure.repl=> (map #(print-doc (meta %)) [#'first #'+])

如您所见，Clojure 1.3 需要显式获取元数据。

如果您需要从不同的命名空间执行此操作，则必须导出该函数。一种方法是定义一个新函数：

clojure.repl=> (defn my-print-doc [m] (print-doc m))
user=> (clojure.repl/my-print-doc (meta #'first))

Answer 3

(defn my-doc [v] (-> v meta :doc))

该函数获取 var 的元数据，然后从元数据中获取文档字符串。
您可以将其映射到一系列变量上：

(map my-doc [(var +) (var -) (var first) (var set)]) ;=> LazySeq of doc-strings

或更短：

(map my-doc [#'+ #'- #'first #'set]) ;=> LazySeq of doc-strings

这不适用于特殊形式，因为它们不被变量引用。