begin binding gamepad functions from GLFW to SML

2026-01-19 13:23:47 +00:00
parent c6dee6e9f9
commit 6f89fbc89c
4 changed files with 64 additions and 0 deletions
--- a/ffi/glfw-input.sml
+++ b/ffi/glfw-input.sml
@@ -52,4 +52,12 @@ struct
  val (KEY_ARROW_DOWN, _) =
    _symbol "KEY_ARROW_DOWN" public : ( unit -> int ) * ( int -> unit );
  val KEY_ARROW_DOWN = KEY_ARROW_DOWN ()
+
+  val getGamepadState =
+    _import "getGamepadState" public : int -> unit;
+
+  val getLeftJoystickXAxisState =
+    _import "getLeftJoystickXAxisState" public : unit -> Real32.real;
+  val getLeftJoystickYAxisState =
+    _import "getLeftJoystickYAxisState" public : unit -> Real32.real;
 end