BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

Pass requested entity components as arguments to 'entity systems

Browse source
This commit is contained in:
BirDt_ 2026-04-17 17:10:00 +08:00
parent d379cd28d7
commit b37f78330c
2 changed files with 57 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

12
engine/core.scm
View file

@ -271,7 +271,17 @@
(let ((entities (map get-entity (set->list (apply query-by-components (system-criteria system))))))
(cond
((eqv? (system-mode system) 'batch) ((system-process system) entities))
((eqv? (system-mode system) 'entity) (for-each (lambda (e) ((system-process system) e)) entities))))))
((eqv? (system-mode system) 'entity)
(for-each (lambda (e)
(apply (system-process system)
(cons e
(map (lambda (component)
(find (lambda (c)
(eqv? (rtd-name (record-rtd c))
component))
e))
(system-criteria system)))))
entities))))))
(define (execute-systems)
(for-each