lc-compile: Generate/parse record type info in interface files

peter-b · peter-b · commit a1dc0c810cbd · 2017-01-24T12:28:17.000Z
diff --git a/libscript/src/script-module.cpp b/libscript/src/script-module.cpp
@@ -1388,8 +1388,24 @@ bool MCScriptWriteInterfaceOfModule(MCScriptModuleRef self, MCStreamRef stream)
                     }
                     break;
                     case kMCScriptTypeKindRecord:
-                        // TODO - Records not yet supported
-                        break;
+                    {
+                        auto t_record_type =
+                            static_cast<MCScriptRecordType *>(t_type);
+                        __enterln(stream, "record type %@", t_def_name);
+                        for (uindex_t t_field = 0;
+                             t_field < t_record_type->field_count;
+                             ++t_field)
+                        {
+                            MCAutoStringRef t_ftype_name;
+                            type_to_string(self, t_record_type->fields[t_field].type,
+                                           &t_ftype_name);
+                            __writeln(stream, "%@ as %@",
+                                      t_record_type->fields[t_field].name,
+                                      *t_ftype_name);
+                        }
+                        __leaveln(stream, "end type");
+                    }
+                    break;
                     default:
                     {
                         MCAutoStringRef t_sig;
diff --git a/toolchain/lc-compile/src/grammar.g b/toolchain/lc-compile/src/grammar.g
@@ -227,7 +227,12 @@
 
     'rule' ImportDefinition(-> type(Position, public, Id, handler(Position, foreign, Signature))):
         "foreign" @(-> Position) "handler" "type" Identifier(-> Id) Signature(-> Signature)
-        
+
+    'rule' ImportDefinition(-> type(Position, public, Id, record(Position, Fields))):
+        "record" @(-> Position) "type" Identifier(-> Id) Separator
+            RecordFields(-> Fields)
+        "end" "type"
+
     'rule' ImportDefinition(-> type(Position, public, Id, Type)):
         "type" @(-> Position) Identifier(-> Id) "is" Type(-> Type)
 
