From 58a94b047f5d832d3c268345e850f47492f0b384 Mon Sep 17 00:00:00 2001 From: xolatile Date: Mon, 22 Apr 2024 16:07:40 -0400 Subject: [PATCH] More functions that I started writing 16 days ago... --- raylib.ads | 299 +++++++++++++++++++++++++++++++++++++++---------------------- 1 file changed, 193 insertions(+), 106 deletions(-) diff --git a/raylib.ads b/raylib.ads index 708ebe4..e3d18e0 100644 --- 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);