diff options
Diffstat (limited to 'src/lux.clj')
| -rw-r--r-- | src/lux.clj | 38 | 
1 files changed, 0 insertions, 38 deletions
diff --git a/src/lux.clj b/src/lux.clj deleted file mode 100644 index e6fc3f4cc..000000000 --- a/src/lux.clj +++ /dev/null @@ -1,38 +0,0 @@ -;;  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 lux -  (:gen-class) -  (:require [lux.base :as & :refer [|let |do return fail return* fail* |case]] -            [lux.compiler.base :as &compiler-base] -            [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 ^:private process-dirs -  "(-> Text (List Text))" -  [resources-dirs] -  (-> resources-dirs -      (string/replace unit-separator "\n") -      string/split-lines -      &/->list)) - -(defn -main [& args] -  (|case (&/->list args) -    (&/$Cons "release" (&/$Cons program-module (&/$Cons resources-dirs (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil)))))) -    (time (&compiler/compile-program &/$Release program-module (process-dirs resources-dirs) (process-dirs source-dirs) target-dir)) - -    (&/$Cons "debug" (&/$Cons program-module (&/$Cons resources-dirs (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil)))))) -    (time (&compiler/compile-program &/$Debug program-module (process-dirs resources-dirs) (process-dirs source-dirs) target-dir)) - -    (&/$Cons "repl" (&/$Cons source-dirs (&/$Nil))) -    (&repl/repl (process-dirs source-dirs)) - -    _ -    (println "Can't understand command.")))  | 
