collections - 将 org.w3c.dom.NodeList 转换为 Clojure ISeq

Question

我正在尝试了解新的 defprotocol、reify 等。

我有一个从 XPath 调用返回的 org.w3c.dom.NodeList，我想将其“转换”为 ISeq。

在Scala中，我实现了隐式转换方法:

implicit def nodeList2Traversable(nodeList: NodeList): Traversable[Node] = {
  new Traversable[Node] {
    def foreach[A](process: (Node) => A) {
      for (index <- 0 until nodeList.getLength) {
        process(nodeList.item(index))
      }
    }
  }
}

NodeList 包含方法 int getLength() 和 Node item(int index)。

如何在 Clojure 中执行等效操作？我预计我需要使用 defprotocol。我需要定义哪些函数来创建 seq？

如果我使用loop和recur对列表进行简单、天真的转换，我最终会得到一个非惰性结构。

Answer 1

大多数 Clojure 的序列处理函数都会返回惰性序列，包括 map 和 range 函数:

(defn node-list-seq [^org.w3c.dom.NodeList node-list]
  (map (fn [index] (.item node-list index))
       (range (.getLength node-list))))

请注意，上面的 NodeList 类型提示不是必需的，但可以提高性能。

现在您可以像这样使用该函数:

(map #(.getLocalName %) (node-list-seq your-node-list))