- The output directory is now being used as the cache.

- "input" has been renamed as "source" and "output" has been renamed as "target".

1 files changed, 54 insertions, 0 deletions

diff --git a/source/lux/meta/macro.lux b/source/lux/meta/macro.lux
new file mode 100644
index 000000000..22aeaf874
--- /dev/null
+++ b/source/lux/meta/macro.lux
@@ -0,0 +1,54 @@
+##   Copyright (c) Eduardo Julian. All rights reserved.
+##   The use and distribution terms for this software are covered by the
+##   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+##   which can be found in the file epl-v10.html at the root of this distribution.
+##   By using this software in any fashion, you are agreeing to be bound by
+##   the terms of this license.
+##   You must not remove this notice, or any other, from this software.
+
+(;import lux)
+
+## [Utils]
+(def (_meta x)
+  (-> (Syntax' (Meta Cursor)) Syntax)
+  (#;Meta [["" -1 -1] x]))
+
+## [Syntax]
+(def #export (defmacro tokens state)
+  Macro
+  (case tokens
+    (#;Cons [(#;Meta [_ (#;FormS (#;Cons [name args]))]) (#;Cons [body #;Nil])])
+    (#;Right [state (#;Cons [(` ((~ (_meta (#;SymbolS ["lux" "def"]))) ((~ name) (~@ args))
+                                 (~ (_meta (#;SymbolS ["lux" "Macro"])))
+                                 (~ body)))
+                             (#;Cons [(` ((~ (_meta (#;SymbolS ["" "_lux_declare-macro"]))) (~ name)))
+                                      #;Nil])])])
+
+    (#;Cons [(#;Meta [_ (#;TagS ["" "export"])]) (#;Cons [(#;Meta [_ (#;FormS (#;Cons [name args]))]) (#;Cons [body #;Nil])])])
+    (#;Right [state (#;Cons [(` ((~ (_meta (#;SymbolS ["lux" "def"]))) (~ (_meta (#;TagS ["" "export"]))) ((~ name) (~@ args))
+                                 (~ (_meta (#;SymbolS ["lux" "Macro"])))
+                                 (~ body)))
+                             (#;Cons [(` ((~ (_meta (#;SymbolS ["" "_lux_declare-macro"]))) (~ name)))
+                                      #;Nil])])])
+
+    _
+    (#;Left "Wrong syntax for defmacro")))
+(_lux_declare-macro defmacro)
+
+## [Functions]
+(do-template [<name> <type> <tag>]
+  [(def #export (<name> x)
+     (-> <type> Syntax)
+     (#;Meta [["" -1 -1] (<tag> x)]))]
+  
+  [bool$   Bool                     #;BoolS]
+  [int$    Int                      #;IntS]
+  [real$   Real                     #;RealS]
+  [char$   Char                     #;CharS]
+  [text$   Text                     #;TextS]
+  [symbol$ Ident                    #;SymbolS]
+  [tag$    Ident                    #;TagS]
+  [form$   (List Syntax)            #;FormS]
+  [tuple$  (List Syntax)            #;TupleS]
+  [record$ (List (, Syntax Syntax)) #;RecordS]
+  )