clojure.edn/read를 사용하여 파일의 객체 시퀀스를 가져 오는 방법은 무엇입니까?

Question

Clojure 1.5는 PushbackReader을 필요로하는 읽기 기능을 포함하여 clojure.edn을 도입했습니다. 내가 처음 다섯 오브젝트를 읽고 싶다면, 나는

을 수행 할 수 있습니다

(with-open [infile (java.io.PushbackReader. (clojure.java.io/reader "foo.txt"))] 
    (binding [*in* infile] 
    (let [edn-seq (repeatedly clojure.edn/read)] 
     (dorun (take 5 (map println edn-seq)))))) 

어떻게 대신 모든 개체를 인쇄 할 수 있습니까? 그것들 중 일부가 nils 일 수 있다고 생각하면, EOF 나 유사한 것을 검사 할 필요가있는 것 같습니다. line-seq에서 얻을 수있는 것과 유사한 일련의 객체를 갖고 싶습니다. 파일의 마지막에 수익 가치 - EOF :

Answer 1

사용 : EOF 키

http://clojure.github.com/clojure/clojure.edn-api.html

OPTS는 다음 키를 포함 할 수 있습니다 맵입니다. 제공되지 않으면, eof는 예외를 던집니다.

편집 : 죄송합니다. 세부 사항이 충분하지 않았습니다. 여기 y'go : 그것은

Answer 2

내가 다시 바라 보았다해야

(with-open [in (java.io.PushbackReader. (clojure.java.io/reader "foo.txt"))] 
    (let [edn-seq (repeatedly (partial edn/read {:eof :theend} in))] 
    (dorun (map println (take-while (partial not= :theend) edn-seq))))) 

합니다.

(defn edn-seq 
    "Returns the objects from stream as a lazy sequence." 
    ([] 
    (edn-seq *in*)) 
    ([stream] 
    (edn-seq {} stream)) 
    ([opts stream] 
    (lazy-seq (cons (clojure.edn/read opts stream) (edn-seq opts stream))))) 

(defn swallow-eof 
    "Ignore an EOF exception raised when consuming seq." 
    [seq] 
    (-> (try 
     (cons (first seq) (swallow-eof (rest seq))) 
     (catch java.lang.RuntimeException e 
      (when-not (= (.getMessage e) "EOF while reading") 
      (throw e)))) 
     lazy-seq)) 

(with-open [stream (java.io.PushbackReader. (clojure.java.io/reader "foo.txt"))] 
    (dorun (map println (swallow-eof (edn-seq stream))))) 

edn-seq가 clojure.edn/read과 동일한 서명을 가지고 있으며, 나는 사람들이 다른 방식으로 :eof 옵션을 사용할 수 있다는 주어진 중요하다고 생각 기존의 행동을 모두 보존 : 여기에 내가 무엇을 최대 온 것입니다. 비록 그것이 단지 java.lang.RuntimeException처럼 보여지기 때문에 그것을 포착하는 것이 가장 잘 모르겠지만, EOF 예외를 포함하는 별도의 함수는 더 나은 선택처럼 보였다.