From 446750df6a786a8fcce7309e2f9b145e53e24e4f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 26 Jan 2014 14:37:23 -0500 Subject: Move SDL event handling to a separate module. * 2d/event.scm: New module. * 2d/game.scm: Remove event handling code. * 2d/keyboard.scm: Import (2d event) instead of (2d game). * 2d/mouse.scm: Import (2d event) instead of (2d game). * 2d/window.scm: Import (2d event) instead of (2d game). --- 2d/event.scm | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 2d/event.scm (limited to '2d/event.scm') diff --git a/2d/event.scm b/2d/event.scm new file mode 100644 index 0000000..1dcaea5 --- /dev/null +++ b/2d/event.scm @@ -0,0 +1,45 @@ +;;; guile-2d +;;; Copyright (C) 2014 David Thompson +;;; +;;; Guile-2d is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU Lesser General Public License as +;;; published by the Free Software Foundation, either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; Guile-2d is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with this program. If not, see +;;; . + +;;; Commentary: +;; +;; SDL event handlers. +;; +;;; Code: + +(define-module (2d event) + #:use-module ((sdl sdl) #:prefix SDL:) + #:export (process-events + register-event-handler)) + +(define process-events + (let ((e (SDL:make-event))) + (lambda () + "Process all events in the input event queue." + (while (SDL:poll-event e) + (handle-event e))))) + +(define event-handlers (make-hash-table)) + +(define (register-event-handler event-type proc) + (hashq-set! event-handlers event-type proc)) + +(define (handle-event e) + "Run the relevant hook for the event E." + (let ((handle (hashq-get-handle event-handlers (SDL:event:type e)))) + (when handle + ((cdr handle) e)))) -- cgit v1.2.3