Clojureでリソースを試してみよう

Question

ClojureにはJavaのtry-with-resources構造と同等のものがありますか？

そうでない場合、Clojureコードでこのイディオムを処理する通常の方法は何ですか？

リソースを安全に開いたり閉じたりするためのJava-7以前のイディオムは、実際にはリソースに対する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 [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)))) 

あなたはletブロックがtryで作成されていることがわかります - コール.close()方法にfinally。

Answer 2

Javaの近くでは、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)))) 

追加条項はのtry-catchでラップにつながるながら：

(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!"))) 

しかし、まだに展開しますそれはかなりの意見ですソリューション。