From aa3b52309f2e920688d56b0b00ba12040bf0e841 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 27 Sep 2015 01:07:18 -0400
Subject: - Lux programs can now use libraries for both the JVM (.jar files)
 and pure Lux code (.tar.gz files). - Fixed a bug regarding indices and
 loading/storing from/to arrays.

---
 src/lux.clj | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

(limited to 'src/lux.clj')

diff --git a/src/lux.clj b/src/lux.clj
index 03d09ebba..8cd2c4b80 100644
--- a/src/lux.clj
+++ b/src/lux.clj
@@ -5,17 +5,29 @@
 
 (ns lux
   (:gen-class)
-  (:require [lux.base :as &]
+  (:require [lux.base :as & :refer [|let |do return fail return* fail* |case]]
+            [lux.compiler.base :as &compiler-base]
             [lux.compiler :as &compiler]
-            :reload-all))
+            [lux.packager.lib :as &lib]
+            :reload-all)
+  (:import (java.io File)))
 
-(defn -main [& [program-module & _]]
-  (if program-module
-    (time (&compiler/compile-program program-module))
-    (println "Please provide a module name to compile."))
-  (System/exit 0)
+(defn -main [& args]
+  (|case (&/->list args)
+    (&/$Cons "compile" (&/$Cons program-module (&/$Nil)))
+    (if program-module
+      (time (&compiler/compile-program program-module))
+      (println "Please provide a module name to compile."))
+
+    (&/$Cons "lib" (&/$Cons lib-module (&/$Nil)))
+    (&lib/package lib-module (new File &compiler-base/input-dir))
+
+    _
+    (println "Can't understand command."))
+  ;; (System/exit 0)
   )
 
 (comment
-  (-main "program")
+  (-main "compile" "program")
+  (-main "lib" "lux")
   )
-- 
cgit v1.2.3