Clojure: Tương đương với chức năng Common Lisp READ?

Question

Khi tôi muốn đọc trong một S-biểu hiện lưu trữ trong một tập tin vào một chương trình Common Lisp chạy, tôi thực hiện như sau:

(defun load-file (filename) 
    "Loads data corresponding to a s-expression in file with name FILENAME." 
    (with-open-file (stream filename) 
    (read stream))) 

Nếu, ví dụ, tôi có một tập tin có tên foo.txt chứa S -Thông báo (1 2 3), hàm trên sẽ trả về biểu thức S nếu được gọi như sau: (load-file "foo.txt").

Tôi đã tìm kiếm và tìm kiếm và không tìm thấy giải pháp thanh lịch như nhau ở Clojure. Bất kỳ ý tưởng?

Cảm ơn!

Answer 1

Bạn có thể thực hiện ví dụ:

(require '[clojure.contrib.io :as io]) 

(io/with-in-reader (io/file "foo.txt") (read)) 
; => (1 2 3) 

Lưu ý rằng bạn có thể muốn rebind *read-eval* đến false trước tiên. Cũng lưu ý rằng các công trình trên với HEAD contrib hiện tại (và gần như chắc chắn sẽ làm việc trong 1,2 khi nó được phát hành); cho Clojure 1.1, chức năng tương tự có sẵn trong các không gian tên clojure.contrib.duck-streams và clojure.contrib.java-utils.

Answer 2

Tôi tìm thấy một giải pháp ở đây: How do you evaluate a string as a clojure expression?

(read-string (slurp "foo.txt")) 

Xin lỗi vì đã làm phiền bạn, folks^_^