add implicit objects support while writing tables.

4 files changed, 20 insertions, 6 deletions

diff --git a/src/MoonP/moon_ast.h b/src/MoonP/moon_ast.h
index 91d7614..16f7801 100644
--- a/src/MoonP/moon_ast.h
+++ b/src/MoonP/moon_ast.h
@@ -527,9 +527,15 @@ AST_NODE(TableLit)
         AST_MEMBER(TableLit, &sep, &values)
 AST_END(TableLit)
 
+AST_NODE(TableBlockIndent)
+        ast_ptr<true, Seperator_t> sep;
+        ast_sel_list<false, variable_pair_t, normal_pair_t, TableBlockIndent_t> values;
+        AST_MEMBER(TableBlockIndent, &sep, &values)
+AST_END(TableBlockIndent)
+
 AST_NODE(TableBlock)
         ast_ptr<true, Seperator_t> sep;
-        ast_sel_list<false, variable_pair_t, normal_pair_t> values;
+        ast_sel_list<false, variable_pair_t, normal_pair_t, TableBlockIndent_t> values;
         AST_MEMBER(TableBlock, &sep, &values)
 AST_END(TableBlock)
 
diff --git a/src/MoonP/moon_compiler.cpp b/src/MoonP/moon_compiler.cpp
index 2f16fff..406b412 100644
--- a/src/MoonP/moon_compiler.cpp
+++ b/src/MoonP/moon_compiler.cpp
@@ -49,7 +49,7 @@ inline std::string s(std::string_view sv) {
 }
 
 const std::string_view version() {
-        return "0.4.10"sv;
+        return "0.4.12"sv;
 }
 
 // name of table stored in lua registry
@@ -4608,6 +4608,7 @@ private:
                                 case id<Exp_t>(): transformExp(static_cast<Exp_t*>(pair), temp, ExpUsage::Closure); break;
                                 case id<variable_pair_t>(): transform_variable_pair(static_cast<variable_pair_t*>(pair), temp); break;
                                 case id<normal_pair_t>(): transform_normal_pair(static_cast<normal_pair_t*>(pair), temp); break;
+                                case id<TableBlockIndent_t>(): transformTableBlockIndent(static_cast<TableBlockIndent_t*>(pair), temp); break;
                                 default: assert(false); break;
                         }
                         temp.back() = indent() + temp.back() + (pair == pairs.back() ? Empty : s(","sv)) + nll(pair);
@@ -4728,6 +4729,10 @@ private:
                 addToScope(varName);
         }
 
+        void transformTableBlockIndent(TableBlockIndent_t* table, str_list& out) {
+                transformTable(table, table->values.objects(), out);
+        }
+
         void transformTableBlock(TableBlock_t* table, str_list& out) {
                 transformTable(table, table->values.objects(), out);
         }
diff --git a/src/MoonP/moon_parser.cpp b/src/MoonP/moon_parser.cpp
index a13a779..53a6b8f 100644
--- a/src/MoonP/moon_parser.cpp
+++ b/src/MoonP/moon_parser.cpp
@@ -430,12 +430,14 @@ MoonParser::MoonParser() {
                 Space
         );
 
-        TableBlockInner = Seperator >> KeyValueLine >> *(+(SpaceBreak) >> KeyValueLine);
-        TableBlock = +(SpaceBreak) >> Advance >> ensure(TableBlockInner, PopIndent);
+        TableBlockInner = Seperator >> KeyValueLine >> *(+SpaceBreak >> KeyValueLine);
+        TableBlock = +SpaceBreak >> Advance >> ensure(TableBlockInner, PopIndent);
+        TableBlockIndent = sym('#') >> Seperator >> KeyValueList >> -sym(',') >>
+                -(+SpaceBreak >> Advance >> ensure(KeyValueList >> -sym(',') >> *(+SpaceBreak >> KeyValueLine), PopIndent));
 
         class_member_list = Seperator >> KeyValue >> *(sym(',') >> KeyValue);
         ClassLine = CheckIndent >> (class_member_list | Statement) >> -sym(',');
-        ClassBlock = +(SpaceBreak) >> Advance >>Seperator >> ClassLine >> *(+(SpaceBreak) >> ClassLine) >> PopIndent;
+        ClassBlock = +SpaceBreak >> Advance >> Seperator >> ClassLine >> *(+SpaceBreak >> ClassLine) >> PopIndent;
 
         ClassDecl =
                 key("class") >> not_(expr(':')) >>
@@ -489,7 +491,7 @@ MoonParser::MoonParser() {
         });
 
         KeyValueList = KeyValue >> *(sym(',') >> KeyValue);
-        KeyValueLine = CheckIndent >> KeyValueList >> -sym(',');
+        KeyValueLine = CheckIndent >> (KeyValueList >> -sym(',') | TableBlockIndent);
 
         FnArgDef = (Variable | SelfName) >> -(sym('=') >> Space >> Exp);
 
diff --git a/src/MoonP/moon_parser.h b/src/MoonP/moon_parser.h
index c6a03f8..6b7f224 100644
--- a/src/MoonP/moon_parser.h
+++ b/src/MoonP/moon_parser.h
@@ -264,6 +264,7 @@ private:
         AST_RULE(existential_op)
         AST_RULE(TableLit)
         AST_RULE(TableBlock)
+        AST_RULE(TableBlockIndent)
         AST_RULE(class_member_list)
         AST_RULE(ClassBlock)
         AST_RULE(ClassDecl)