[nat] printComponent

projects/nat-archive-tool/src/nat/Archive.kiss

@@ -36,12 +36,15 @@
         (Path.join [archiveDir "entries" (e.id.withExtension "json")])
         (Json.stringify e)))
 
+(defmethod componentData [:Entry e :String componentType]
+    (haxe.Json.parse (File.getContent (haxe.io.Path.join [archiveDir "components" "$(dictGet e.components componentType).json"]))))
+
 (defmethod fullData [:Entry e]
     (object
         id e.id
         components
             (for =>type id e.components
-                =>type (haxe.Json.parse (File.getContent (haxe.io.Path.join [archiveDir "components" "$(dictGet e.components type).json"]))))
+                =>type (componentData e type))
         files
             e.files))