From 85704a5b67bd1d1d31cd4e6ca04be488c5fe64d8 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 1 Apr 2017 09:51:05 -0400
Subject: input: Add keyboard module.

* sdl2/bindings.scm (sdl-get-keyboard-state): New procedure.
* sdl2/input/keyboard.scm: New file.
* Makefile.am (SOURCES): Add it.
---
 sdl2/bindings.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'sdl2/bindings.scm')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index 1eb4813..d69e737 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -816,6 +816,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-public SDLK_EJECT (scancode->keycode SDL_SCANCODE_EJECT))
 (define-public SDLK_SLEEP (scancode->keycode SDL_SCANCODE_SLEEP))
 
+(define-foreign sdl-get-keyboard-state
+  '* "SDL_GetKeyboardState" '(*))
+
 
 ;;;
 ;;; Text Input
-- 
cgit v1.2.3