humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add bindings to query gamepad's face buttons

Browse Source
This commit is contained in:
Humza Shahid
2026-01-20 04:19:26 +00:00
parent 6f89fbc89c
commit f2bffc4b6b
2 changed files with 38 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
ffi/glfw-input.sml
View File

@@ -53,6 +53,7 @@ struct
_symbol "KEY_ARROW_DOWN" public : ( unit -> int ) * ( int -> unit );
val KEY_ARROW_DOWN = KEY_ARROW_DOWN ()
(* gamepad bindings below *)
val getGamepadState =
_import "getGamepadState" public : int -> unit;
@@ -60,4 +61,17 @@ struct
_import "getLeftJoystickXAxisState" public : unit -> Real32.real;
val getLeftJoystickYAxisState =
_import "getLeftJoystickYAxisState" public : unit -> Real32.real;
val isCrossButtonPressed =
_import "isCrossButtonPressed" public : unit -> int;
val isCircleButtonPressed =
_import "isCircleButtonPressed" public : unit -> int;
val isSquareButtonPressed =
_import "isSquareButtonPressed" public : unit -> int;
val isTriangleButtonPressed =
_import "isTriangleButtonPressed" public : unit -> int;
val isR1ButtonPressed =
_import "isR1ButtonPressed" public : unit -> int;
val isL1ButtonPressed =
_import "isL1ButtonPressed" public : unit -> int;
end