summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2019-01-06 00:05:47 -0500
committerDavid Thompson <dthompson2@worcester.edu>2019-01-06 00:05:47 -0500
commita969c1059b636a8f8807c621c35d1382259367f1 (patch)
tree7f23d8b5011ef243b30bdd5dadba30ebd13ac4a7
parent088dddcd454d58efc2545a78d4f7a126b9c7e4c0 (diff)
Add controller-name procedure.
* chickadee.scm (controller-name): New procedure.
-rw-r--r--chickadee.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/chickadee.scm b/chickadee.scm
index e14f924..0b46237 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -38,9 +38,11 @@
#:use-module (chickadee render gl)
#:use-module (chickadee render gpu)
#:use-module (chickadee render viewport)
+ #:use-module (chickadee utils)
#:export (current-window
controller-button-pressed?
controller-axis
+ controller-name
key-pressed?
key-released?
mouse-x
@@ -108,6 +110,13 @@ not being pushed at all."
(/ (sdl2:game-controller-axis controller axis)
32768.0))
+(define controller-name
+ ;; Memoize to avoid repeated allocation of strings via
+ ;; pointer->string.
+ (memoize
+ (lambda (controller)
+ (sdl2:game-controller-name controller))))
+
(define current-window (make-parameter #f))
(define* (run-game #:key