From f2937706edb6887c5eb1a6a0b6668b1334f5ef3b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 11 Apr 2019 22:30:05 -0400
Subject: WIP: Lua compiler.

---
 new-luxc/source/luxc/lang/host/lua.lux | 188 ---------------------------------
 1 file changed, 188 deletions(-)
 delete mode 100644 new-luxc/source/luxc/lang/host/lua.lux

(limited to 'new-luxc/source/luxc/lang/host/lua.lux')

diff --git a/new-luxc/source/luxc/lang/host/lua.lux b/new-luxc/source/luxc/lang/host/lua.lux
deleted file mode 100644
index 364c05052..000000000
--- a/new-luxc/source/luxc/lang/host/lua.lux
+++ /dev/null
@@ -1,188 +0,0 @@
-(.module:
-  [lux #- not or and function]
-  (lux (data [text]
-             text/format
-             (coll [list "list/" Functor<List> Fold<List>]))))
-
-(type: #export Lua Text)
-
-(type: #export Expression Lua)
-
-(type: #export Statement Lua)
-
-(def: #export nil
-  Expression
-  "nil")
-
-(def: #export bool
-  (-> Bit Expression)
-  %b)
-
-(def: #export int
-  (-> Int Expression)
-  %i)
-
-(def: #export float
-  (-> Frac Expression)
-  %f)
-
-(def: #export (string value)
-  (-> Text Expression)
-  (%t value))
-
-(def: #export (array elements)
-  (-> (List Expression) Expression)
-  (format "{" (text.join-with "," elements) "}"))
-
-(def: #export (nth idx array)
-  (-> Expression Expression Expression)
-  (format "(" array ")[" idx "]"))
-
-(def: #export (length array)
-  (-> Expression Expression)
-  (format "#(" array ")"))
-
-(def: #export (apply func args)
-  (-> Expression (List Expression) Expression)
-  (format func "(" (text.join-with "," args) ")"))
-
-(def: #export (method field table args)
-  (-> Text Expression (List Expression) Expression)
-  (format table ":" field "(" (text.join-with "," args) ")"))
-
-(def: #export (local! name value)
-  (-> Text (Maybe Expression) Statement)
-  (case value
-    #.None
-    (format "local " name ";")
-    
-    (#.Some value)
-    (format "local " name " = " value ";")))
-
-(def: #export (global! name value)
-  (-> Text (Maybe Expression) Statement)
-  (case value
-    #.None
-    (format name ";")
-    
-    (#.Some value)
-    (format name " = " value ";")))
-
-(def: #export (set! name value)
-  (-> Text Expression Statement)
-  (format name " = " value ";"))
-
-(def: #export (if! test then! else!)
-  (-> Expression Statement Statement Statement)
-  (format "if " test
-          " then " then!
-          " else " else!
-          " end;"))
-
-(def: #export (when! test then!)
-  (-> Expression Statement Statement)
-  (format "if " test
-          " then " then!
-          " end;"))
-
-(def: #export (cond! clauses else!)
-  (-> (List [Expression Statement]) Statement Statement)
-  (list/fold (.function (_ [test then!] next!)
-               (if! test then! next!))
-             else!
-             (list.reverse clauses)))
-
-(def: #export (block! statements)
-  (-> (List Statement) Statement)
-  (text.join-with " " statements))
-
-(def: #export (while! test body)
-  (-> Expression Statement Statement)
-  (format "while " test " do " body " end;"))
-
-(def: #export (for-in! vars source body)
-  (-> (List Text) Expression Statement Statement)
-  (format "for " (text.join-with "," vars) " in " source
-          " do " body " end;"))
-
-(def: #export (for-step! var from to step body)
-  (-> Text Expression Expression Expression Statement
-      Statement)
-  (format "for " var " = " from ", " to ", " step
-          " do " body " end;"))
-
-(def: #export (error message)
-  (-> Expression Expression)
-  (apply "error" (list message)))
-
-(def: #export (return! value)
-  (-> Expression Statement)
-  (format "return " value ";"))
-
-(def: #export (function args body)
-  (-> (List Text) Statement Expression)
-  (format "("
-          (format "function " (format "(" (text.join-with ", " args) ")")
-                  " "
-                  body
-                  " end")
-          ")"))
-
-(def: #export (function! name args body)
-  (-> Text (List Text) Statement Expression)
-  (format "function " name (format "(" (text.join-with ", " args) ")")
-          " "
-          body
-          " end;"))
-
-(def: #export (table fields)
-  (-> (List [Text Expression]) Expression)
-  (format "{"
-          (|> fields
-              (list/map (.function (_ [key val])
-                          (format key " = " val)))
-              (text.join-with ", "))
-          "}"))
-
-(template [<name> <op>]
-  [(def: #export (<name> param subject)
-     (-> Expression Expression Expression)
-     (format "(" subject " " <op> " " param ")"))]
-
-  [=       "=="]
-  [<       "<"]
-  [<=      "<="]
-  [>       ">"]
-  [>=      ">="]
-  [+       "+"]
-  [-       "-"]
-  [*       "*"]
-  [/       "/"]
-  [//      "//"]
-  [%       "%"]
-  )
-
-(template [<name> <op>]
-  [(def: #export (<name> param subject)
-     (-> Expression Expression Expression)
-     (format "(" param " " <op> " " subject ")"))]
-
-  [or      "or"]
-  [and     "and"]
-  [bit-or  "|"]
-  [bit-and "&"]
-  [bit-xor "~"]
-  )
-
-(template [<name> <op>]
-  [(def: #export (<name> param subject)
-     (-> Expression Expression Expression)
-     (format "(" subject " " <op> " " param ")"))]
-
-  [bit-shl "<<"]
-  [bit-shr ">>"]
-  )
-
-(def: #export (not subject)
-  (-> Expression Expression)
-  (format "(not " subject ")"))
-- 
cgit v1.2.3