爲什麼在使用lein運行敲擊ENTER（看起來像一個掛起）之後，read-line不會返回，而是與lein repl一起使用？

Question

現在的問題是，當我運行我的程序lein run它到達(read-line)部分，我無法擺脫它，這意味着：read-line永不返回。

下面是相關代碼：

(def command (atom "")) 

(defn print-prompt [] 
    (print "prompt> ") 
    (flush) 
) 

(defn ask-for-input [] 
    (print-prompt) 
    (let [x (str (read-line))] 
     (println (str "User input: " x)) 
     (reset! command x) 
    ) 
) 

我從來沒有看到「用戶輸入：」字符串在屏幕上。 奇怪的部份是，如果我跑lein repl並調用(ask-for-input)然後它工作正常：S

Answer 1

嘗試雷音蹦牀運行，它的工作原理。

以下是leiningen FAQ：

問：我沒有我的項目中獲得標準輸入。

答：這是JVM的進程處理方法的限制;他們都沒有正確地暴露標準輸入。這意味着像readline這樣的函數在大多數情況下都不會像預期的那樣工作，儘管repl任務必須包含一個解決方法。您也可以在Leiningen退出而不是將其作爲子進程啓動後使用蹦牀任務來啓動您的項目的JVM。

Answer 2

我試過你的源代碼，但省略了刷新。它工作沒有問題。你使用的是什麼版本的Clojure？我用Clojure 1.3試了下面的代碼。

(def command (atom 0)) 

(defn print-prompt [] 
    (print "prompt> ") 
) 

(defn ask-for-input 
    [] 
    (print-prompt) 
    (let [x (str (read-line))] 
     (println (str "User input: " x)) 
     (reset! command x) 
    )) 

編輯： 我改變了你的職責，我複製與測試之一，它現在獨立和雷音運行工作。您的原始示例中有（沖洗）。

(defn print-prompt [] 
    (print "prompt> ") 
    (flush) 
) 

從我可以爭取，導致的println沖洗，打印不，你需要打印後沖水。

我在添加這些信息的情況下可能會有所幫助。我有一個名爲repl-test的Clojure項目。這是我的repl-test項目的core.clj文件頭。您已經發布的源文件包含其他一些功能，與您的文章無關。

(ns repl-test.core 
    (:gen-class) 
    (:use clojure.contrib.command-line) 
    (:require [clojure.contrib.string :as cstr]) 
    (:require [clojure.contrib.trace :as ctr]) 
    (:require [clojure.string :as sstr]) 
    (:use clojure-csv.core)) 

這裏是project.clj文件：

(defproject repl-test "0.0.1-SNAPSHOT" 
    :description "TODO: add summary of your project" 
    :dependencies [[org.clojure/clojure "1.3.0"] 
       [org.clojure/clojure-contrib "1.2.0"] 
       [clojure-csv/clojure-csv "1.2.4"] 
       [org.clojure/tools.cli "0.1.0"] 
       [clj-http "0.1.3"]] 
    :aot [repl-test.core] 
    :main repl-test.core)