macros - 用于读取文件的 Clojure 宏

Question

我想创建一个可以读取文件的 Clojure 宏，当文件读取成功时，应该关闭流。

(import '(java.io FileReader File))

(defmacro read([x y]
`(let ~x 
  (try ~y 
   (. x close)
    (catch Exception e# e#))))) 

这样调用，

(read [stream (java.io.FileReader (java.io.File "somefile.txt"))] (. stream read)))

导致这个错误

java.lang.Exception: No such var: user/x (NO_SOURCE_FILE:8) 

有没有人有什么建议，谢谢。

Answer 1

你不是在寻找 with-open 吗，除非出于某种原因你想明确地使用宏？

(defn read [file-name]
  (with-open [reader (BufferedReader. (FileReader. file-name))]
    (doseq [line (line-seq reader)] (println line))))

根据ClojureDocs page , 它确保阅读器在表单末尾关闭。

希望对您有所帮助!