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").

---
 test2.lux | 181 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 181 insertions(+)
 create mode 100644 test2.lux

(limited to 'test2.lux')

diff --git a/test2.lux b/test2.lux
new file mode 100644
index 000000000..9e46012e3
--- /dev/null
+++ b/test2.lux
@@ -0,0 +1,181 @@
+(import java.lang.System)
+## (require "./another" as another)
+
+(definterface Function
+  (: apply (-> [java.lang.Object] java.lang.Object)))
+
+(defclass Tuple0 [])
+(defclass Tuple1 [[java.lang.Object _0]])
+(defclass Tuple2 [[java.lang.Object _0] [java.lang.Object _1]])
+
+(defclass Variant [[java.lang.String tag] [java.lang.Object value]])
+
+(def (++ xs ys)
+  (case xs
+    #Nil
+    ys
+
+    (#Cons x xs*)
+    (#Cons x (++ xs* ys))))
+
+(def (template elems)
+  (case elems
+    #Nil
+    elems
+
+    (#Cons head tail)
+    (case head
+      (#Form (#Cons (#Ident "~") (#Cons unquoted #Nil)))
+      (#Cons unquoted (template tail))
+
+      (#Form (#Cons (#Ident "~@") (#Cons spliced #Nil)))
+      (#Cons (#Ident "++") (#Cons spliced (template tail)))
+
+      _
+      (#Cons head (template tail))
+      )))
+
+(defmacro (' form)
+  (case form
+    (#Cons form* #Nil)
+    (case form*
+      (#Form elems)
+      (#Quote (#Form (template elems)))
+
+      _
+      (#Quote form*)
+      )))
+
+## Utils
+(def (fail* message)
+  (#Failure message))
+
+(def (return* state value)
+  (#Ok state value))
+
+(def (fail message)
+  (lambda [state]
+     (#Failure message)))
+
+(def (return value)
+  (lambda [state]
+     (#Ok state value)))
+
+(def (bind m-value step)
+  (lambda [state]
+     (let inputs (m-value state)
+          (case inputs
+            (#Ok ?state ?datum)
+            (step ?datum ?state)
+            
+            _
+            inputs))))
+
+## Ideally, this is what I want...
+## (exec [yolo lol
+##        #let [foo (bar 1 2 3)]
+##        #when true]
+##   (meme yolo foo))
+
+#( (def (+ x y)
+     (jvm/i+ x y))
+
+   (def inc (+ 1))
+
+   (def (fold f init values)
+     (case values
+       #Nil
+       init
+       (#Cons x xs)
+       (fold f (f init x) xs)))
+
+   (def length (fold inc 0))
+
+   (def (mod dividend divisor)
+     (jvm/imod dividend divisor))
+
+   (def (= x y)
+     (.equals x y))
+
+   (def (as-pairs list)
+     (case list
+       (#Cons x (#Cons y list*))
+       (#Cons [x y] (as-pairs list*))
+
+       _
+       #Nil))
+
+   (defmacro (exec tokens)
+     (case tokens
+       (#Cons (#Tuple steps) (#Cons return #Nil))
+       (if (= 0 (mod (length steps) 2))
+         (fold (lambda [inner pair]
+                  (case pair
+                    [label computation]
+                    (` (bind (~ computation)
+                             (lambda [(~ label)] (~ inner))))))
+               return
+               (as-pairs steps))
+         (#Text "Oh no!")))) )#
+
+## Program
+(def (main args)
+  (case (' ((~ "Doing a slight makeover.")))
+    (#Form (#Cons (#Text text) #Nil))
+    (:: (:: System out) (println text))
+    ))
+
+#(
+  (defmacro (::+ pieces)
+    (case pieces
+      (#Cons init #Nil)
+      init
+
+      (#Cons init (#Cons access others))
+      (' (::+ (:: (~ init) (~ access)) (~@ others)))
+      ))
+
+  (def (main args)
+    (if true
+      (let f (lambda [x] (lambda [y] (x y)))
+           (let g (lambda [x] x)
+                (::+ System out (println (f g "WE'VE GOT CLOSURES!")))))
+      (:: (:: System out) (println "FALSE"))))
+
+  (def (main args)
+    (if true
+      (case (++ (#Cons "Pattern" #Nil) (#Cons "Matching" #Nil))
+        (#Cons "Pattern" (#Cons second #Nil))
+        (do (:: (:: System out) (println "Branch #1"))
+          (:: (:: System out) (println second)))
+
+        (#Cons first (#Cons second #Nil))
+        (do (:: (:: System out) (println "Branch #2"))
+          (:: (:: System out) (println first))
+          (:: (:: System out) (println second))))
+      (:: (:: System out) (println "FALSE"))))
+
+  (def (main args)
+    (case (template (#Cons (#Cons (#Symbol "~@") (#Cons (#Symbol "Pattern") #Nil)) #Nil)
+                    ## (#Cons (#Cons (#Symbol "~") (#Cons (#Symbol "Pattern") #Nil)) #Nil)
+                       )
+      (#Cons word #Nil)
+      (do (:: (:: System out) (println "Branch #1"))
+        (:: (:: System out) (println word)))
+
+      (#Cons (#Symbol op) spliced)
+      (do (:: (:: System out) (println "Branch #2"))
+        (:: (:: System out) (println op)))
+      ))
+
+  (def (main args)
+    (case (' "YOLO")
+      (#Text text)
+      (:: (:: System out) (println text))))
+
+  (def (main args)
+    (case (' ((~ "TROLOLOL")))
+      (#Form (#Cons (#Text text) #Nil))
+      (:: (:: System out) (println text))
+      ))
+  )#
-- 
cgit v1.2.3