Major refactoring...?

diff --git a/raylib.ads b/raylib.ads
index 7afd858487ec85607466d4dc6cd0beea61e3d921..200abb182321d7d16c090de6df2a26c539613437 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -50,23 +50,23 @@ package Raylib is
    ) with Convention => C;
 
    for Config_Flags use (
-      Flag_None                     => 16#00000000#,
-      Flag_Fullscreen_Mode          => 16#00000002#,
-      Flag_Window_Resizable         => 16#00000004#,
-      Flag_Window_Undecorated       => 16#00000008#,
-      Flag_Window_Transparent       => 16#00000010#,
-      Flag_MSAA_x4_Hint             => 16#00000020#,
-      Flag_VSync_Hint               => 16#00000040#,
-      Flag_Window_Hidden            => 16#00000080#,
-      Flag_Window_Always_Run        => 16#00000100#,
-      Flag_Window_Minimized         => 16#00000200#,
-      Flag_Window_Maximized         => 16#00000400#,
-      Flag_Window_Unfocused         => 16#00000800#,
-      Flag_Window_Topmost           => 16#00001000#,
-      Flag_Window_High_DPI          => 16#00002000#,
-      Flag_Window_Mouse_Passthrough => 16#00004000#,
-      Flag_Borderless_Windowed_Mode => 16#00008000#,
-      Flag_Interlaced_Hint          => 16#00010000#
+      Flag_None                     => 16#00000000#, -- 0
+      Flag_Fullscreen_Mode          => 16#00000002#, -- 2
+      Flag_Window_Resizable         => 16#00000004#, -- 4
+      Flag_Window_Undecorated       => 16#00000008#, -- 8
+      Flag_Window_Transparent       => 16#00000010#, -- 16
+      Flag_MSAA_x4_Hint             => 16#00000020#, -- 32
+      Flag_VSync_Hint               => 16#00000040#, -- 64
+      Flag_Window_Hidden            => 16#00000080#, -- 128
+      Flag_Window_Always_Run        => 16#00000100#, -- 256
+      Flag_Window_Minimized         => 16#00000200#, -- 512
+      Flag_Window_Maximized         => 16#00000400#, -- 1024
+      Flag_Window_Unfocused         => 16#00000800#, -- 2048
+      Flag_Window_Topmost           => 16#00001000#, -- 4096
+      Flag_Window_High_DPI          => 16#00002000#, -- 8192
+      Flag_Window_Mouse_Passthrough => 16#00004000#, -- 16384
+      Flag_Borderless_Windowed_Mode => 16#00008000#, -- 32768
+      Flag_Interlaced_Hint          => 16#00010000#  -- 65536
    );
 
    type Trace_Log_Level is (
@@ -499,17 +499,17 @@ package Raylib is
    ) with Convention => C;
 
    for Gesture use (
-      Gesture_None        => 0,
-      Gesture_Tap         => 1,
-      Gesture_Doubletap   => 2,
-      Gesture_Hold        => 4,
-      Gesture_Drag        => 8,
-      Gesture_Swipe_Right => 16,
-      Gesture_Swipe_Left  => 32,
-      Gesture_Swipe_Up    => 64,
-      Gesture_Swipe_Down  => 128,
-      Gesture_Pinch_In    => 256,
-      Gesture_Pinch_Out   => 512
+      Gesture_None        => 2#0000000000#, --   0
+      Gesture_Tap         => 2#0000000001#, --   1
+      Gesture_Doubletap   => 2#0000000010#, --   2
+      Gesture_Hold        => 2#0000000100#, --   4
+      Gesture_Drag        => 2#0000001000#, --   8
+      Gesture_Swipe_Right => 2#0000010000#, --  16
+      Gesture_Swipe_Left  => 2#0000100000#, --  32
+      Gesture_Swipe_Up    => 2#0001000000#, --  64
+      Gesture_Swipe_Down  => 2#0010000000#, -- 128
+      Gesture_Pinch_In    => 2#0100000000#, -- 256
+      Gesture_Pinch_Out   => 2#1000000000#  -- 512
    );
 
    type Camera_Mode is (
@@ -637,6 +637,8 @@ package Raylib is
       Layout : NPatch_Layout := NPatch_Nine_Patch;
    end record with Convention => C_Pass_By_Copy;
 
+   No_NPatch_Info : NPatch_Info;
+
    type Glyph_Info is record
       Value     : Integer := 0;
       Offset_X  : Integer := 0;
@@ -645,6 +647,8 @@ package Raylib is
       Data      : Image   := No_Image;
    end record with Convention => C_Pass_By_Copy;
 
+   No_Glyph_Info : Glyph_Info;
+
    type Font is record
       Base_Size     :        Integer    := 0;
       Glyph_Count   :        Integer    := 0;
@@ -712,7 +716,8 @@ package Raylib is
 
    type Float_Array_4        is array (0 .. 3) of Float;
    type Material_Map_Array_4 is array (0 .. 3) of Material_Map;
-   type Material_Map_Array   is array (Natural range <>) of Material_Map;
+
+   type Material_Map_Array is array (Natural range <>) of Material_Map;
 
    type Material is record
       Data      :        Shader             := No_Shader;
@@ -728,6 +733,8 @@ package Raylib is
       Scale       : Vector_3D := (others => 0.0);
    end record with Convention => C_Pass_By_Copy;
 
+   No_Transform : Transform;
+
    type Character_Array_32 is array (0 .. 31) of Character;
 
    Empty : Character_Array_32 := (others => Character'Val (0));
@@ -751,7 +758,7 @@ package Raylib is
       Mesh_Materials : access Integer        := null;
       Bone_Count     :        Integer        := 0;
       Bones          : access Bone_Info      := null;
-      --~Bind_Post      : access Transform      := null; ERROR
+      --ERRORBind_Post      : access Transform      := null;
    end record with Convention => C_Pass_By_Copy;
 
    No_Model : Model;
@@ -863,20 +870,26 @@ package Raylib is
       Paths    : Pointer := null;
    end record with Convention => C_Pass_By_Copy;
 
+   No_File_Path_List : File_Path_List;
+
    type Integer_Array_4 is array (0 .. 3) of Integer;
 
    type Automation_Event is record
       Frame      : Natural         := 0;
       Kind       : Natural         := 0;
-      Parameters : Integer_Array_4 := (0, 0, 0, 0);
+      Parameters : Integer_Array_4 := (others => 0);
    end record with Convention => C_Pass_By_Copy;
 
+   No_Automation_Event : Automation_Event;
+
    type Automation_Event_List is record
       Capacity :        Natural          := 0;
       Count    :        Natural          := 0;
       Events   : access Automation_Event := null;
    end record with Convention => C_Pass_By_Copy;
 
+   No_Automation_Event_List : Automation_Event_List;
+
 ------------------------------------------------------------------------
 
    Version_Major :         constant Integer := 5;
@@ -3662,8 +3675,8 @@ package Raylib is
       External_Name => "DrawModelWiresEx";
 
    procedure Draw_Bounding_Box (
-      Box  : BoundingBox := No_Bounding_Box;
-      Tint : Color       := White
+      Box  : Bounding_Box := No_Bounding_Box;
+      Tint : Color        := White
    ) with
       Import        => True,
       Convention    => C,