Clojure에서 리소스 사용 시도

Question

Clojure에 Java의 try-with-resources 구조체가 있습니까?

그렇지 않은 경우 Clojure 코드에서이 관용구를 처리하는 일반적인 방법은 무엇입니까?

리소스를 안전하게 열고 닫을 수있게하는 Java 이전 버전의 관용구는 언어에 대한 try-with-resources에 대한 지원을 실제로 추가 할만큼 충분히 장황합니다. 표준 Clojure 라이브러리에서이 사용 사례에 대한 매크로를 찾을 수 없다는 것이 이상한 것처럼 보입니다.

Clojure 기반 프로젝트 저장소의 주류 (이 문제를 실제로 어떻게 처리하는지 보여주는 예제)가 매우 유용합니다.

Answer 1

with-open을 사용하여 리소스를 심볼에 바인딩하고 제어 흐름이 블록을 떠난 후에 리소스가 닫혀 있는지 확인할 수 있습니다.

다음 예는 clojuredocs의 예제입니다.

(with-open [r (clojure.java.io/input-stream "myfile.txt")] 
    (loop [c (.read r)] 
     (when (not= c -1) 
     (print (char c)) 
     (recur (.read r))))) 

이

는 다음에 확장됩니다 : 당신은 let 블록이 try로 생성되는 것을 볼 수 있습니다

(let [r (clojure.java.io/input-stream "myfile.txt")] 
    (try 
    (loop [c (.read r)] 
     (when (not= c -1) 
     (print (char c)) 
     (recur (.read r)))) 
    (finally (.close r)))) 

- 전화 .close() 방법 finally.

Answer 2

당신은 자바에 더 가깝게 뭔가를 할 수 있습니다. with-open 위에 매크로를 만듭니다. 다음과 같이 표시 될 수 있습니다.

(defmacro with-open+ [[var-name resource & clauses] & body] 
    (if (seq clauses) 
    `(try (with-open [~var-name ~resource] ~@body) 
      ~@clauses) 
    `(with-open [~var-name ~resource] ~@body))) 

이렇게하면 바인딩 옆에 다른 절을 전달할 수 있습니다.

(with-open+ [x 111] 
    (println "body")) 

은 간단 with-open로 확장 :

(let* 
    [x 111] 
    (try (do (println "body")) (finally (. x clojure.core/close)))) 

추가 조항이 시도 - 캐치에 그것을 포장으로 이어질 때 :

(with-open+ [x 111 
      (catch RuntimeException ex (println ex)) 
      (finally (println "finally!"))] 
    (println "body")) 

여전히

(try 
    (let* 
    [x 111] 
    (try (do (println "body")) (finally (. x clojure.core/close)))) 
    (catch RuntimeException ex (println ex)) 
    (finally (println "finally!"))) 

그러나로 확장 꽤 의견이다. 에드 솔루션입니다.