add bindings for d-pad directions

2026-01-21 22:45:19 +00:00
parent 2d1bcf28f7
commit a8104131ca
2 changed files with 25 additions and 0 deletions
--- a/ffi/glfw-input.sml
+++ b/ffi/glfw-input.sml
@@ -75,6 +75,15 @@ struct
  val isL1ButtonPressed =
    _import "isL1ButtonPressed" public : unit -> int;

+  val isDpadUpButtonPressed =
+    _import "isDpadUpButtonPressed" public : unit -> int;
+  val isDpadDownButtonPressed =
+    _import "isDpadDownButtonPressed" public : unit -> int;
+  val isDpadLeftButtonPressed =
+    _import "isDpadLeftButtonPressed" public : unit -> int;
+  val isDpadRightButtonPressed =
+    _import "isDpadRightButtonPressed" public : unit -> int;
+
  val getR2State =
    _import "getR2State" public : unit -> Real32.real;
  val getL2State =