From 7f66c54f4c9753b94dbf46ec50b8b16549daf324 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 1 Dec 2016 11:00:44 -0400
Subject: - Collected the Lux compiler's repo, the Standard Library's, the
 Leiningen plugin's and the Emacs mode's into a big monorepo, to keep
 development unified.

---
 lux-lein/src/leiningen/luxc/repl.clj | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 lux-lein/src/leiningen/luxc/repl.clj

(limited to 'lux-lein/src/leiningen/luxc/repl.clj')

diff --git a/lux-lein/src/leiningen/luxc/repl.clj b/lux-lein/src/leiningen/luxc/repl.clj
new file mode 100644
index 000000000..2bfb281e6
--- /dev/null
+++ b/lux-lein/src/leiningen/luxc/repl.clj
@@ -0,0 +1,35 @@
+;;  Copyright (c) Eduardo Julian. All rights reserved.
+;;  This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
+;;  If a copy of the MPL was not distributed with this file,
+;;  You can obtain one at http://mozilla.org/MPL/2.0/.
+
+(ns leiningen.luxc.repl
+  (:require [leiningen.core.classpath :as classpath]
+            [leiningen.luxc.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)))))
+  ;;     ))
+  )
-- 
cgit v1.2.3