diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-04-01 09:51:05 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-04-01 09:51:05 -0400 |
| commit | 85704a5b67bd1d1d31cd4e6ca04be488c5fe64d8 (patch) | |
| tree | 5f738857538698df9aa348a0e471357881d13da7 /sdl2/bindings.scm | |
| parent | 429d7c01b04728fec4bc3896ec70bd970ceecc04 (diff) | |
input: Add keyboard module.
* sdl2/bindings.scm (sdl-get-keyboard-state): New procedure.
* sdl2/input/keyboard.scm: New file.
* Makefile.am (SOURCES): Add it.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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 |