Add interrupt handler routine for user button

PSU-Capstone-Team24 · Feb 14, 2024 · 7769149 · 7769149
1 parent 95a77c9
commit 7769149
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/eRINA_STM32F7/src/rina/board.adb b/eRINA_STM32F7/src/rina/board.adb
@@ -0,0 +1,11 @@
+with Debug;
+
+package body Board is
+   protected body Button_Handler is
+      procedure Pressed is
+      begin
+         STM32.Board.All_LEDs_On;
+         Debug.Print(Debug.Info, "Button pressed!");
+      end Pressed;
+   end Button_Handler;
+end Board;
diff --git a/eRINA_STM32F7/src/rina/board.ads b/eRINA_STM32F7/src/rina/board.ads
@@ -0,0 +1,9 @@
+with STM32;
+with STM32.Board;
+
+package Board is
+   protected type Button_Handler is
+      procedure Pressed;
+      pragma Attach_Handler (Pressed, STM32.Board.User_Button_Interrupt);
+   end Button_Handler;
+end Board;