blob: fc39b7b3b99f253247cd97a0edae111d4816b7fc (
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
31
|
(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 ^:private separate-paths
"(-> 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 platform (&/$Cons program-module (&/$Cons resources-dirs (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil)))))))
(time (&compiler/compile-program platform &/$Build program-module (separate-paths resources-dirs) (separate-paths source-dirs) target-dir))
(&/$Cons "repl" (&/$Cons resources-dirs (&/$Cons source-dirs (&/$Cons target-dir (&/$Nil)))))
(&repl/repl (separate-paths resources-dirs)
(separate-paths source-dirs)
target-dir)
_
(println "Cannot understand command.")))
|
