kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

clarify Archive constructor

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-09-27 22:44:06 -06:00
parent 28b2d219cd
commit c458290574
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
projects/nat-archive-tool/src/nat/Archive.kiss
View File

@@ -2,6 +2,7 @@
[:Array<System> systems
[]
// Parse all entries into a dictionary of id => entry
:Map<String,Entry> entries
(let [entryDir (joinPath archiveDir "entries")
componentDir (joinPath archiveDir "components")
@@ -10,7 +11,9 @@
(FileSystem.createDirectory componentDir)
(FileSystem.createDirectory filesDir)
(let [entryFiles (FileSystem.readDirectory entryDir)]
(for file entryFiles =>(file.withoutExtension) (the Entry (Json.parse (File.getContent (joinPath archiveDir "entries" file)))))))])
(for file entryFiles
=>(file.withoutExtension)
(the Entry (Json.parse (File.getContent (joinPath archiveDir "entries" file)))))))])
(method addSystem [:System system]
// Assign entries to the Systems that care about them