ファイルまたはURLの代わりに文字列から読み込む入力ストリームを作成するには

Question

*in*をバインドして、「実際の」入力ストリームではなく文字列からストリームを読み込みたいとします。これはどうすればいいですか？

Answer 1

チェックアウトwith-in-str：

;; Given you have a function that will read from *in* 
(defn prompt [question] 
    (println question) 
    (read-line)) 

user=> (prompt "How old are you?") 
How old are you? 
34     ; <== This is what you enter 
"34"     ; <== This is returned by the function 

;; You can now simulate entering your age at the prompt by using with-in-str 

user=> (with-in-str "34" (prompt "How old are you?")) 
How old are you? 
"34"     ; <== The function now returns immediately 

Answer 2

ここに私がやってしまった何のためのサンプルコードです：

http://clojure.github.com/clojure/clojure.core-api.html#clojure.core/with-in-str

ClojureDocsは、その使用例があります。このアイデアは、インストリームとアウトストリームをとるシンプルなサーバーの読み取り/印刷ループ機能です。私の問題は、そのような関数のテストストリームを生成する方法であり、文字列関数が行うと考えました。代わりに、これは私が必要なものです：

(ns test 
    (:use [clojure.java.io :only [reader writer]])) 
(def prompt ">") 
(defn test-client [in out] 
    (binding [*in* (reader in) 
      *out* (writer out)] 
      (print prompt) (flush) 

(loop [input (read-line)] 
      (when input 
       (println (str "OUT:" input)) 
       (print prompt) (flush) 
       (if (not= input "exit\n") (recur (read-line))) 
       )))) 
(def client-stream (java.io.PipedWriter.)) 
(def r (java.io.BufferedReader. (java.io.PipedReader. client-stream))) 
(doto (Thread. #(do (test-client r *out*))) .start) 

(.write client-stream "test\n")