From a8104131cac18bc82e2f51cb233c0363167caaac Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Wed, 21 Jan 2026 22:45:19 +0000
Subject: [PATCH] add bindings for d-pad directions

---
 ffi/glfw-input.c   | 16 ++++++++++++++++
 ffi/glfw-input.sml |  9 +++++++++
 2 files changed, 25 insertions(+)

diff --git a/ffi/glfw-input.c b/ffi/glfw-input.c
index 34f9d7a..689a64d 100644
--- a/ffi/glfw-input.c
+++ b/ffi/glfw-input.c
@@ -101,3 +101,19 @@ int isR1ButtonPressed() {
 int isL1ButtonPressed() {
   return state.buttons[GLFW_GAMEPAD_BUTTON_LEFT_BUMPER];
 }
+
+int isDpadUpPressed() {
+  return state.buttons[GLFW_GAMEPAD_BUTTON_DPAD_UP];
+}
+
+int isDpadDownPressed() {
+  return state.buttons[GLFW_GAMEPAD_BUTTON_DPAD_DOWN];
+}
+
+int isDpadLeftPressed() {
+  return state.buttons[GLFW_GAMEPAD_BUTTON_DPAD_LEFT];
+}
+
+int isDpadRightPressed() {
+  return state.buttons[GLFW_GAMEPAD_BUTTON_DPAD_RIGHT];
+}
diff --git a/ffi/glfw-input.sml b/ffi/glfw-input.sml
index 784299b..17499c5 100644
--- 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 =