1 ;;; Gacela, a GNU Guile extension for fast games development
2 ;;; Copyright (C) 2013 by Javier Sancho Fernandez <jsf at jsancho dot org>
4 ;;; This program is free software: you can redistribute it and/or modify
5 ;;; it under the terms of the GNU General Public License as published by
6 ;;; the Free Software Foundation, either version 3 of the License, or
7 ;;; (at your option) any later version.
9 ;;; This program is distributed in the hope that it will be useful,
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 ;;; GNU General Public License for more details.
14 ;;; You should have received a copy of the GNU General Public License
15 ;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
18 (define-module (gacela gacela)
19 #:use-module (gacela system)
20 #:use-module (ice-9 threads)
21 #:use-module (srfi srfi-1))
24 ;;; Entities and components
26 (define entities-mutex (make-mutex))
27 (define game-entities '())
28 (define game-components '())
31 (define (entity . components)
32 (with-mutex entities-mutex
36 (map (lambda (c) (list (get-component-type c) c)) components)
38 (set! game-components (register-components key components))
42 (define* (register-components entity components #:optional (clist game-components))
43 (cond ((null? components) clist)
45 (let* ((type (get-component-type (car components)))
46 (elist (assoc-ref clist type)))
47 (register-components entity (cdr components)
48 (assoc-set! clist type
50 (lset-adjoin eq? elist entity))
55 (define (get-entity key)
56 (with-mutex entities-mutex
57 (assoc key game-entities)))