blob: 6f75c151c0d4b3c0684f93dbbcfaee2dd4b8f42a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(ns leiningen.lux.repl
(:require [leiningen.core.classpath :as classpath]
[leiningen.lux.utils :as &utils])
(:import (java.io InputStreamReader
BufferedReader
PrintStream)))
(defn repl [project]
(println (&utils/repl-path project (:source-paths project)))
;; (let [process (.exec (Runtime/getRuntime) (&utils/repl-path project (:source-paths project)))]
;; (with-open [std-in (->> System/in (new InputStreamReader) (new BufferedReader))
;; process-in (->> process .getOutputStream (new PrintStream))
;; process-out (->> process .getInputStream (new InputStreamReader) (new BufferedReader))
;; process-err (->> process .getErrorStream (new InputStreamReader) (new BufferedReader))]
;; (loop []
;; (do (loop []
;; (when (.ready process-out)
;; (println (.readLine process-out))
;; (recur)))
;; (loop [had-error? false]
;; (if (.ready process-out)
;; (do (println (.readLine process-err))
;; (recur true))
;; (when had-error?
;; (System/exit 1))))
;; (when-let [input (.readLine std-in)]
;; (do (.println process-in input)
;; (recur)))))
;; ))
)
|