aboutsummaryrefslogtreecommitdiff
path: root/luxc/src/lux.clj
diff options
context:
space:
mode:
Diffstat (limited to 'luxc/src/lux.clj')
-rw-r--r--luxc/src/lux.clj35
1 files changed, 0 insertions, 35 deletions
diff --git a/luxc/src/lux.clj b/luxc/src/lux.clj
deleted file mode 100644
index dc6066669..000000000
--- a/luxc/src/lux.clj
+++ /dev/null
@@ -1,35 +0,0 @@
-(ns lux
- (:gen-class)
- (:require [lux.base :as & :refer [|let |do return return* |case]]
- [lux.compiler :as &compiler]
- [lux.repl :as &repl]
- [clojure.string :as string]
- :reload-all)
- (:import (java.io File)))
-
-(def unit-separator (str (char 31)))
-
-(defn- separate-paths
- "(-> Text (List Text))"
- [paths]
- (-> paths
- (string/replace unit-separator "\n")
- string/split-lines
- rest
- &/->list))
-
-(defn -main [& args]
- (|case (&/->list args)
- (&/$Cons "release" (&/$Cons program-module (&/$Cons dependencies (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil))))))
- (&compiler/compile-program &/$Build program-module
- (separate-paths dependencies)
- (separate-paths source-dirs)
- target-dir)
-
- (&/$Cons "repl" (&/$Cons dependencies (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil)))))
- (&repl/repl (separate-paths dependencies)
- (separate-paths source-dirs)
- target-dir)
-
- _
- (println "Cannot understand command.")))