From 7f66c54f4c9753b94dbf46ec50b8b16549daf324 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 1 Dec 2016 11:00:44 -0400
Subject: - Collected the Lux compiler's repo, the Standard Library's, the
 Leiningen plugin's and the Emacs mode's into a big monorepo, to keep
 development unified.

---
 luxc/src/lux.clj | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 luxc/src/lux.clj

(limited to 'luxc/src/lux.clj')

diff --git a/luxc/src/lux.clj b/luxc/src/lux.clj
new file mode 100644
index 000000000..4f73f79e0
--- /dev/null
+++ b/luxc/src/lux.clj
@@ -0,0 +1,52 @@
+;;  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.")))
+
+(comment
+  (-main "release" "tests"
+         "/home/eduardoejp/workspace/projects/lux-stdlib/resources"
+         (str "/home/eduardoejp/workspace/projects/lux-stdlib/source" unit-separator
+              "/home/eduardoejp/workspace/projects/lux-stdlib/test")
+         "/home/eduardoejp/workspace/projects/lux/target/jvm")
+
+  (-main "release" "tests"
+         "/home/eduardoejp/workspace/projects/lux-stdlib/resources"
+         (str "/home/eduardoejp/workspace/projects/lux-stdlib/source" unit-separator
+              "/home/eduardoejp/workspace/projects/lux-stdlib/test")
+         "/home/eduardoejp/workspace/projects/lux-stdlib/target/jvm")
+  )
-- 
cgit v1.2.3