From 661c70e4d786e7b2188564beddc586f1a50e4656 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 3 Jan 2015 11:24:14 -0400
Subject: The language officially has a name: Lux (stylized as "lux").

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

(limited to 'src/lux.clj')

diff --git a/src/lux.clj b/src/lux.clj
new file mode 100644
index 000000000..82fcb3a57
--- /dev/null
+++ b/src/lux.clj
@@ -0,0 +1,51 @@
+(ns lux
+  (:require (lux [lexer :as &lexer]
+                 [parser :as &parser]
+                 [type :as &type]
+                 [analyser :as &analyser]
+                 [compiler :as &compiler])
+            :reload))
+
+(comment
+  ;; TODO: Make macros monadic.
+  ;; TODO: Finish type system.
+  ;; TODO: Re-implement compiler in language.
+  ;; TODO: Add signatures & structures OR type-classes.
+  ;; TODO: Add type-level computations.
+  ;; TODO: Add thunks.
+  ;; TODO: Do tail-call optimization.
+  ;; TODO: Adding metadata to global vars.
+  ;; TODO: Add records.
+  ;; TODO: throw, try, catch, finally
+  ;; TODO: Tuple8 and Tuple8X (for arbitrary-size tuples).
+  ;; TODO: Add extra arities (apply2, apply3, ..., apply16)
+  ;; TODO: When doing partial application, skip "apply" and just call constructor appropiatedly.
+  ;; TODO: Add "new". Allow setting fields.
+  ;; TODO: Don't take into account newlines in strings unless they come from \n to allow better coding.
+  ;; TODO: monitor enter & monitor exit.
+  ;; TODO: 
+  ;; TODO: 
+  ;; TODO: 
+
+  (let [source-code (slurp "test2.lux")
+        tokens (&lexer/lex source-code)
+        ;; _ (prn 'tokens tokens)
+        syntax (&parser/parse tokens)
+        ;; _ (prn 'syntax syntax)
+        ;; ann-syntax (&analyser/analyse "test2" syntax)
+        ;; _ (prn 'ann-syntax ann-syntax)
+        ;; class-data (&compiler/compile "test2" ann-syntax)
+        class-data (&compiler/compile "test2" syntax)
+        ;; _ (prn 'class-data class-data)
+        ]
+    )
+
+  ;; jar cvf test2.jar *.class test2 && java -cp "test2.jar" test2
+  )
+
+;; (def (workday? d)
+;;   (case d
+;;     (or [#Monday #Tuesday #Wednesday #Thursday #Friday]
+;;         true)
+;;     (or [#Saturday #Sunday]
+;;         false)))
-- 
cgit v1.2.3