From f2e40ecffec519e1094ed829f8735309ae67997f Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Sat, 13 Apr 2024 16:30:46 +0100
Subject: add a few functions

these are some sdl functions i needed for a project.
there is not much structure beyond that.
---
 sdl2/keyboard.ha | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'sdl2/keyboard.ha')

diff --git a/sdl2/keyboard.ha b/sdl2/keyboard.ha
index d42fa8a..cc137d2 100644
--- a/sdl2/keyboard.ha
+++ b/sdl2/keyboard.ha
@@ -643,3 +643,13 @@ export fn SDL_GetKeyFromName(name: str) (SDL_Keycode | error) = {
 	};
 	return sym;
 };
+
+@symbol("SDL_GetKeyboardState") fn _SDL_GetKeyboardState(numkeys: *int) *[*]bool;
+
+export fn SDL_GetKeyboardState() []bool = {
+	let numkeys: int = 0;
+	let arr = _SDL_GetKeyboardState(&numkeys);
+	let arr = arr[..numkeys];
+	return arr;
+};
+
-- 
cgit v1.2.3