can export assignment statements

Author: leafo

moonscript/parse.lua

@@ -410,7 +410,7 @@ local build_grammar = wrap(function()
 		TableBlock = SpaceBreak^1 * Advance * TableBlockInner * PopIndent / mark"table",
 
 		ClassDecl = key"class" * Name * (key"extends" * Exp + C"")^-1 * TableBlock / mark"class",
-		Export = key"export" * (Ct(NameList) + op"*" + op"^") / mark"export",
+		Export = key"export" * (Ct(NameList) * (sym"=" * Ct(ExpListLow))^-1  + op"*" + op"^") / mark"export",
 
 		KeyValue = (sym":" * Name) / self_assign + Ct((SimpleName + sym"[" * Exp * sym"]") * symx":" * (Exp + TableBlock)),
 		KeyValueList = KeyValue * (sym"," * KeyValue)^0,

moonscript/transform.lua

@@ -215,6 +215,19 @@ Statement = Transformer({
       return node
     end
   end,
+  export = function(node)
+    if #node > 2 then
+      return build.group({
+        node,
+        build.assign({
+          names = node[2],
+          values = node[3]
+        })
+      })
+    else
+      return nil
+    end
+  end,
   update = function(node)
     local _, name, op, exp = unpack(node)
     local op_final = op:match("^(.+)=$")

moonscript/transform.moon

@@ -124,6 +124,19 @@ Statement = Transformer {
     else
       node
 
+  export: (node) ->
+    -- assign values if they are included
+    if #node > 2
+      build.group {
+        node
+        build.assign {
+          names: node[2]
+          values: node[3]
+        }
+      }
+    else
+      nil
+
   update: (node) ->
     _, name, op, exp = unpack node
     op_final = op\match "^(.+)=$"

tests/inputs/export.moon

@@ -35,3 +35,6 @@ y = ->
 with tmp
   j = 2000
 
+
+export a,b,c = 223, 343
+export cool = "dad"

tests/outputs/export.lua

@@ -28,4 +28,6 @@ end
 do
   local _with_0 = tmp
   local j = 2000
-end
+end
+a, b, c = 223, 343
+cool = "dad"