Functions to access entities and components inside systems

[gacela.git] / src / system.scm

diff --git a/src/system.scm b/src/system.scm
index 2a9365b708530d33e558b2d714d0cb142ce5e8be..587fc066c339a134e874ddfd4efa6f1718584bf4 100644 (file)
--- a/src/system.scm
+++ b/src/system.scm
@@ -225,3 +225,16 @@
        make-system
        join-systems
        threaded-systems)
+
+
+;;; Entities and components access inside systems
+
+(define (get-key entity)
+  (car entity))
+
+(define (get-component component-name entity)
+  (assoc-ref (cdr entity) component-name))
+
+
+(export get-key
+       get-component)