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

readComponentOr

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-07-05 00:14:37 +00:00
parent 0d0f7b01d5
commit 29a010e110
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
projects/nat-archive-tool/src/nat/Lib.kiss
View File

@@ -23,6 +23,13 @@
// TODO add to the documentation a hint that macros should use fully qualified type paths so macro caller classes don't need to import everything // TODO add to the documentation a hint that macros should use fully qualified type paths so macro caller classes don't need to import everything
(tink.Json.parse componentData)))) (tink.Json.parse componentData))))
// Return either the desired component, or def if no such component exists
(defMacro readComponentOr [e componentType def]
(withEvalOnce [e]
(if (hasComponent e ,componentType)
(readComponent e ,componentType)
,def)))
// TODO check not overwriting a component // TODO check not overwriting a component
(defMacro addComponent [archive e componentType c] (defMacro addComponent [archive e componentType c]
`(withWritableEntry ,archive ,e `(withWritableEntry ,archive ,e