Add rumble functionality from alexispaez-master.

Author: Lucretia

src/inputs/sdl-inputs-joysticks-game_controllers.adb

@@ -271,4 +271,33 @@ package body SDL.Inputs.Joysticks.Game_Controllers is
    begin
       return To_Boolean (SDL_Is_Game_Controller (C.int (Device) - 1));
    end Is_Game_Controller;
+
+   function Has_Rumble (Self : in Game_Controller) return Boolean is
+      function SDL_Game_Controller_Has_Rumble (Controller : in SDL.C_Pointers.Game_Controller_Pointer)
+                                               return SDL_Bool with
+        Import        => True,
+        Convention    => C,
+        External_Name => "SDL_GameControllerHasRumble";
+   begin
+      return To_Boolean (SDL_Game_Controller_Has_Rumble (Self.Internal));
+   end Has_Rumble;
+
+   function Rumble (Self           : in Game_Controller;
+                    Low_Frequency  : in Uint16;
+                    High_Frequency : in Uint16;
+                    Duration       : in Uint32) return Integer is
+      function SDL_Game_Controller_Rumble (Controller     : in SDL.C_Pointers.Game_Controller_Pointer;
+                                           Low_Frequency  : in Uint16;
+                                           High_Frequency : in Uint16;
+                                           Duration       : in Uint32)
+                                           return C.int with
+        Import        => True,
+        Convention    => C,
+        External_Name => "SDL_GameControllerRumble";
+   begin
+      return Integer (SDL_Game_Controller_Rumble (Self.Internal,
+                      Low_Frequency,
+                      High_Frequency,
+                      Duration));
+   end Rumble;
 end SDL.Inputs.Joysticks.Game_Controllers;

src/inputs/sdl-inputs-joysticks-game_controllers.ads

@@ -49,6 +49,9 @@ package SDL.Inputs.Joysticks.Game_Controllers is
 
    Null_Game_Controller : constant Game_Controller;
 
+   subtype Uint16 is Interfaces.Unsigned_16;
+   subtype Uint32 is Interfaces.Unsigned_32;
+
    procedure Add_Mapping (Data : in String; Updated_Existing : out Boolean);
    procedure Add_Mappings_From_File (Database_Filename : in String; Number_Added : out Natural);
 
@@ -92,6 +95,15 @@ package SDL.Inputs.Joysticks.Game_Controllers is
 
    function Is_Game_Controller (Device : in Devices) return Boolean with
      Inline => True;
+
+   function Has_Rumble (Self : in Game_Controller) return Boolean with
+     Inline => True;
+
+   function Rumble (Self           : in Game_Controller;
+                    Low_Frequency  : in Uint16;
+                    High_Frequency : in Uint16;
+                    Duration       : in Uint32) return Integer with
+     Inline => True;
 private
    type Game_Controller is new Ada.Finalization.Limited_Controlled with
       record