Clojure代码解析

Question

我正在编写DSL，我想实现调试。

但是，我丢失了所有的行信息，因为我用(读-字符串-输入)读取用户输入，然后它不再是源，而是使用eval计算的表达式。

我想到的第一件事是，只需在每一行的末尾添加代码(用户不知道)，如下所示：

(user-func-a)
(user-func-b)

将成为：

(user-func-a) (my-source-index 0)
(user-func-b) (my-source-index 1)

然而，这将以多行形式分崩离析：

(+ (my-source-index 0)
 1 (my-source-index 1)
 2 (my-source-index 2)
 3) (my-source-index 3)

然后，我希望实现括号跟踪，因此，只有在关闭parens时，我才会添加源索引：

(+
 1
 2
 3) (my-source-index 3)

但后来我想，等等，评论呢？我也要追踪“；”，否则会是这样的：

(+
 1 ;) (my-source-index 1)
 2 (my-source-index 2)
 3) (my-source-index 3)

即使我实现了，我也必须跟踪注释符号不在引号(文本的一部分)中的位置，等等。

在那之后我没走多远(可能会有更多的怪癖.)来到这里。是否有任何库可供clojure解析代码、查找行周围的上下文并避免此类麻烦？

Answer 1

来自clojure.tools.reader的clojure.tools.reader应该完成这项工作。根据文档，它向符号、向量和地图(但不是文字)添加行/列元数据。

见以下内容：

(require '[clojure.tools.reader :as r])
(require '[clojure.tools.reader.reader-types :as rt])

(def reader (rt/indexing-push-back-reader
             "(+ \n;; comment here \n 1 \n a)"))

(def s-expr (r/read reader)) ;; => (+ 1 a)

(meta s-expr) ;; => {:line 1, :column 1, :end-line 4, :end-column 4}

(nth s-expr 0) ;; => +
(meta (nth s-expr 0)) ;; => {:line 1, :column 2, :end-line 1, :end-column 3}

(nth s-expr 1) ;; => 1
(meta (nth s-expr 1)) ;; => nil (no metadata on literals)

(nth s-expr 2) ;; => a
(meta (nth s-expr 2)) ;; => {:line 4, :column 2, :end-line 4, :end-column 3}