More functions that I started writing 16 days ago...

diff --git a/raylib.ads b/raylib.ads
index 708ebe4a2665fedc66f451fff5e5d52cbfbca5e2..e3d18e0bf759d21eb3298affd2a3fd0c1df6c585 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -3492,140 +3492,227 @@ package Raylib is
       Convention    => C,
       External_Name => "UnloadUTF8";
 
-   --~function int *LoadCodepoints (const char *text, int *count) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Load_Code_Points (
+      Text  :        String  := "";
+      Count : access Integer := null
+   ) return access Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadCodepoints";
 
-   --~procedure UnloadCodepoints (int *codepoints) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Unload_Code_Points (
+      Code_Points : access Integer := null
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "UnloadCodepoints";
 
-   --~function int GetCodepointCount (const char *text) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Get_Code_Point_Count (
+      Text : String := ""
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetCodepointCount";
 
-   --~function int GetCodepoint (const char *text, int *codepointSize) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Get_Code_Point (
+      Text            :        String  := "";
+      Code_Point_Size : access Integer := null
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetCodepoint";
 
-   --~function int GetCodepointNext (const char *text, int *codepointSize) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Get_Code_Point_Next (
+      Text            :        String  := "";
+      Code_Point_Size : access Integer := null
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetCodepointNext";
 
-   --~function int GetCodepointPrevious (const char *text, int *codepointSize) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Get_Code_Point_Previous (
+      Text            :        String  := "";
+      Code_Point_Size : access Integer := null
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetCodepointPrevious";
 
-   --~function const char *CodepointToUTF8 (int codepoint, int *utf8Size) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Code_Point_To_UTF8 (
+      Code_Point :        Integer := 0;
+      UTF8_Size  : access Integer := null
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CodepointToUTF8";
 
-   --~function int TextCopy (char *dst, const char *src) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Copy (
+      Destination : Strings := null;
+      Source      : Strings := null
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextCopy";
 
-   --~function bool TextIsEqual (const char *text1, const char *text2) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Is_Equal (
+      Text_1 : Strings := null;
+      Text_2 : Strings := null
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextIsEqual";
 
-   --~function unsigned int TextLength (const char *text) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Length (
+      Text : String := ""
+   ) return Natural with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextLength";
 
-   --~function const char *TextFormat (const char *text, ...) with
+   --~function Text_Format (
+      --~Text : String := "";
+       --~...
+   --~) return Strings with
       --~Import        => True,
       --~Convention    => C,
-      --~External_Name => "";
+      --~External_Name => "TextFormat";
 
-   --~function const char *TextSubtext (const char *text, int position, int length) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Subtext (
+      Text     : String  := "";
+      Position : Integer := 0;
+      Length   : Integer := 0
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextSubtext";
 
-   --~function char *TextReplace (char *text, const char *replace, const char *by) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Replace (
+      Text    : Strings := null;
+      Replace : String  := "";
+      By      : String  := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextReplace";
 
-   --~function char *TextInsert (const char *text, const char *insert, int position) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Insert (
+      Text     : String  := "";
+      Insert   : String  := "";
+      Position : Integer := 0
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextInsert";
 
-   --~function const char *TextJoin (const char **textList, int count, const char *delimiter) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Join (
+      Text      : Strings := null;
+      Count     : Integer := 0;
+      Delimiter : String  := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextJoin";
 
-   --~function const char **TextSplit (const char *text, char delimiter, int *count) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Split (
+      Text      :        String    := "";
+      Delimiter :        Character := ' ';
+      Count     : access Integer   := null
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextSplit";
 
-   --~procedure TextAppend (char *text, const char *append, int *position) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Text_Append (
+      Text     :        Strings := null;
+      Append   :        String  := "";
+      Position : access Integer := null
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextAppend";
 
-   --~function int TextFindIndex (const char *text, const char *find) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_Find_Index (
+      Text : String := "";
+      Find : String := ""
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextFindIndex";
 
-   --~function const char *TextToUpper (const char *text) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_To_Upper (
+      Text : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextToUpper";
 
-   --~function const char *TextToLower (const char *text) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_To_Lower (
+      Text : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextToLower";
 
-   --~function const char *TextToPascal (const char *text) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_To_Pascal (
+      Text : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextToPascal";
 
-   --~function int TextToInteger (const char *text) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   function Text_To_Integer (
+      Text : String := ""
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "TextToInteger";
 
-   --~procedure DrawLine3D (Vector3 startPos, Vector3 endPos, Color color) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Draw_Line_3D (
+      From : Vector_3D := (others => 0.0);
+      To   : Vector_3D := (others => 0.0);
+      Tint : Color     := Black
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DrawLine3D";
 
-   --~procedure DrawPoint3D (Vector3 position, Color color) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Draw_Point_3D (
+      Position : Vector_3D := (others => 0.0);
+      Tint     : Color     := Black
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DrawPoint3D";
 
-   --~procedure DrawCircle3D (Vector3 center, float radius, Vector3 rotationAxis, float rotationAngle, Color color) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Draw_Circle_3D (
+      Center         : Vector_3D := (others => 0.0);
+      Radius         : Float     := 0.0;
+      Rotation_Axis  : Vector_3D := (others => 0.0);
+      Rotation_Angle : Float     := 0.0;
+      Tint           : Color     := Black
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DrawCircle3D";
 
-   --~procedure DrawTriangle3D (Vector3 v1, Vector3 v2, Vector3 v3, Color color) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Draw_Triangle_3D (
+      Point_1 : Vector_3D := (others => 0.0);
+      Point_2 : Vector_3D := (others => 0.0);
+      Point_3 : Vector_3D := (others => 0.0);
+      Tint    : Color     := Black
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DrawTriangle3D";
 
-   --~procedure DrawTriangleStrip3D (Vector3 *points, int pointCount, Color color) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "";
+   procedure Draw_Triangle_Strip_3D (
+      Points      : access Vector_3D := null;
+      Point_Count :        Integer   := 0;
+      Tint        :        Color     := Black
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DrawTriangleStrip3D";
 
    procedure Draw_Cube (
       Position : Vector_3D := (others => 0.0);