diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-02-09 13:01:23 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-02-09 13:01:23 -0500 |
commit | 44f4d45b65ad9400417dc5e71a36b2372c0eb113 (patch) | |
tree | 40aa5c6ffcd68c4b2a447080b97aff53c9fbac50 /2d/helpers.scm | |
parent | 3267fc1ace530a37fecd05d0838809c6f0af22a7 (diff) |
Add define-guardian macro.
* 2d/helpers.scm (define-guardian): New macro.
* 2d/texture.scm (reap-textures): Delete it.
(texture-guardian): Defined using define-guardian.
Diffstat (limited to '2d/helpers.scm')
-rw-r--r-- | 2d/helpers.scm | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/2d/helpers.scm b/2d/helpers.scm index 142161a..a9d2dfe 100644 --- a/2d/helpers.scm +++ b/2d/helpers.scm @@ -24,8 +24,11 @@ (define-module (2d helpers) #:use-module (srfi srfi-1) #:use-module (rnrs arithmetic bitwise) + #:use-module (2d agenda) + #:use-module (2d game) #:export (any-equal? - logand?)) + logand? + define-guardian)) (define (any-equal? elem . args) "Return #t if ELEM equals any of the elements in the list ARGS." @@ -35,3 +38,21 @@ "Return #t if the result of a bitwise AND of the integers in list ARGS is non-zero." (not (zero? (apply logand args)))) + +(define-syntax-rule (define-guardian name reaper) + "Define a new guardian called NAME and call REAPER when an object +within the guardian is GC'd. Reaping is ensured to happen from the +same thread that is running the game loop." + (begin + (define name (make-guardian)) + (add-hook! after-gc-hook + (lambda () + (define (reap) + (let ((obj (name))) + (when obj + (reaper obj) + (reap)))) + ;; Scheduling the reaping procedure in the game + ;; loop's agenda ensures that the reaping will be + ;; done in the main thread. + (schedule game-agenda reap))))) |