在通用的LISP（SBCL）中，您如何解析文件？

Question

我有一个文件：test.lisp带有此内容：

(+ 3 3)

(let ((n 3)) (+ n 1))

(let ((n 4))
  (+ n 1))

(defun d (f)
  (let ((n 3)
    (f 4)
    (g 3))
    (if (= n 0)
    (+ n f g)
      (* n f g))))

我试图读取这样的文件：

  (let ((in (open dd)))
   (when in 
    (loop for line = (read-line in nil)
     while line do (format t "~a~%" line))
     (close in)))

这给了我明显正确的输出：

(+ 3 3)

(let ((n 3)) (+ n 1))

(let ((n 4))
  (+ n 1))

(defun d (f)
  (let ((n 3)
    (f 4)
    (g 3))
    (if (= n 0)
    (+ n f g)
      (* n f g))))

我想调用我的函数parse-parse-exp parse-exp < /代码>在文件的每一行上，与上面的每个表达式相对应。

从stackoverflow上的另一个答案中，我尝试执行此操作：

* (defun get-file (filename)
   (let ((in (open filename)))
    (loop for line = (read-line in nil)
     while line
     collect line)))
GET-FILE
* (get-file dd)
("(+ 3 3)" "" "(let ((n 3)) (+ n 1))" "" "(let ((n 4))" "  (+ n 1))" ""
 "(defun d (f)" "  (let ((n 3)" "   (f 4)" "    (g 3))" "    (if (= n 0)"
 "  (+ n f g)" "      (* n f g))))")

将每行转换为字符串，而不是我想要的格式。

我也尝试这样做：

(uiop:read-file-lines "file.txt")

但是我获得了与上一个示例相同的输出。

我希望能够将每行/表达式用作parse-exp的输入 - 像这样：

（parse-exp'（+ 3 3））或 （parse-exp'（let（（n 3））（+ n 1））） 等等。

我该怎么做？

谢谢。

Answer 1

您搜索的是读取而不是read-line读取expression-wise（并由LISP解释器使用）。

(with-open-file (stream "test1.lisp")
  (loop for expr = (read stream nil 'eof)
    until (eq expr 'eof)
    collect expr))
;; ((+ 3 3) (LET ((N 3)) (+ N 1)) (LET ((N 4)) (+ N 1))
;; (DEFUN D (F) (LET ((N 3) (F 4) (G 3)) (IF (= N 0) (+ N F G) (* N F G)))))
;; every element is an expression.

如果您希望表达式为字符串而不是符号列表，请使用（格式nil“ 〜a” ...）：

(with-open-file (stream "test1.lisp")
  (loop for expr = (read stream nil 'eof)
    until (eq expr 'eof)
    collect (format nil "~a" expr)))
;; ("(+ 3 3)" "(LET ((N 3)) (+ N 1))" "(LET ((N 4)) (+ N 1))"
;;  "(DEFUN D (F) (LET ((N 3) (F 4) (G 3)) (IF (= N 0) (+ N F G) (* N F G))))")

Answer 2

Common Lisp具有许多功能可以处理的功能：

• 读取从流中读取S-表达。
• 读取从字符串读取从字符串
• print，prin1和pprint打印S-表达。后者漂亮打印出来。
• eval评估S-表达。
• with-open-file是一个宏，它以输入以流以流为“流” 是一个宏来打开并关闭文件
• ，是一个创建流的宏，以便可以从该字符串中读取