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

addComponent and removeComponent return the entry

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-09-10 23:05:30 +00:00
parent a27e8cef5c
commit 49734a071f
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -32,14 +32,18 @@
// 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 (withEvalOnce [archive e c]
(log null (+ "adding " (the nat.components ,componentType ,c) " as " ,(symbolName componentType) " for " .id ,e)) (withWritableEntry archive e
(dictSet .components ,e ,(symbolName componentType) (tink.Json.stringify (the nat.components ,componentType ,c))))) (log null (+ "adding " (the nat.components ,componentType c) " as " ,(symbolName componentType) " for " e.id))
(dictSet e.components ,(symbolName componentType) (tink.Json.stringify (the nat.components ,componentType c)))
e)))
(defMacro removeComponent [archive e componentType] (defMacro removeComponent [archive e componentType]
`(withWritableEntry ,archive ,e (withEvalOnce [archive e]
(log null (+ "removing " ,(symbolName componentType) " component from " .id ,e)) (withWritableEntry archive e
(.remove .components ,e ,(symbolName componentType)))) (log null (+ "removing " ,(symbolName componentType) " component from " e.id))
(e.components.remove ,(symbolName componentType))
e)))
// Retrieve multiple components from an Entity with mutable access. // Retrieve multiple components from an Entity with mutable access.
// All components will be serialized after the block is done. // All components will be serialized after the block is done.
@@ -132,14 +136,14 @@
(readComponent e Scale) (readComponent e Scale)
1.0))) 1.0)))
(function addConnections [:nat.Archive archive :nat.Entry e :Array<Entry> entriesToConnect] (function addConnections [:nat.Archive archive :nat.Entry e :Array<nat.Entry> entriesToConnect]
(if (hasComponent e Connections) (if (hasComponent e Connections)
(withWritableComponents archive e [conn Connections] (withWritableComponents archive e [conn Connections]
(doFor e2 entriesToConnect (dictSet conn e2.id 1))) (doFor e2 entriesToConnect (dictSet conn e2.id 1)))
(addComponent archive e Connections (for e2 entriesToConnect =>e2.id 1))) (addComponent archive e Connections (for e2 entriesToConnect =>e2.id 1)))
e) e)
(function removeConnections [:nat.Archive archive :nat.Entry e :Array<Entry> entriesToRemove] (function removeConnections [:nat.Archive archive :nat.Entry e :Array<nat.Entry> entriesToRemove]
(when (hasComponent e Connections) (when (hasComponent e Connections)
(withWritableComponents archive e [conn Connections] (withWritableComponents archive e [conn Connections]
(doFor e2 entriesToRemove (conn.remove e2.id)))) (doFor e2 entriesToRemove (conn.remove e2.id))))