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