aboutsummaryrefslogtreecommitdiff
path: root/src/lux.clj
blob: 73e8e91269a743739c50fe83ed5f2ade91e764bc (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
;;  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]
            :reload-all)
  (:import (java.io File)))

(defn -main [& args]
  (|case (&/->list args)
    (&/$Cons "release" (&/$Cons program-module source-dirs))
    (time (&compiler/compile-program &/$Release program-module source-dirs))

    (&/$Cons "debug" (&/$Cons program-module source-dirs))
    (time (&compiler/compile-program &/$Debug program-module source-dirs))

    (&/$Cons "repl" source-dirs)
    (&repl/repl source-dirs)

    _
    (println "Can't understand command.")))