diff options
Diffstat (limited to 'luxc/src/lux.clj')
-rw-r--r-- | luxc/src/lux.clj | 35 |
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."))) |