luxc/src/lux/compiler.clj


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
32
33
34
35
36

(ns lux.compiler
  (:refer-clojure :exclude [compile])
  (:require clojure.core.match
            clojure.core.match.array
            (lux [base :as & :refer [|let |do return* return |case]])
            (lux.compiler [core :as &&core]
                          [io :as &&io]
                          [parallel :as &&parallel]
                          [jvm :as &&jvm]
                          [js :as &&js]
                          )))

(defn init! [platform resources-dirs ^String target-dir]
  (do (reset! &&core/!output-dir target-dir)
    (&&parallel/setup!)
    (&&io/init-libs!)
    (.mkdirs (new java.io.File target-dir))
    (case platform
      "jvm" (&&jvm/init! resources-dirs target-dir)
      "js" (&&js/init! resources-dirs target-dir))
    ))

(def all-compilers
  &&jvm/all-compilers)

(defn eval! [expr]
  (&&jvm/eval! expr))

(defn compile-module [source-dirs name]
  (&&jvm/compile-module source-dirs name))

(defn compile-program [platform mode program-module resources-dir source-dirs target-dir]
  (init! platform resources-dir target-dir)
  (case platform
    "jvm" (&&jvm/compile-program mode program-module resources-dir source-dirs target-dir)
    "js" (&&js/compile-program mode program-module resources-dir source-dirs target-dir)))