Added even more functions, only one more block to go...

diff --git a/raylib.ads b/raylib.ads
index e3d18e0bf759d21eb3298affd2a3fd0c1df6c585..7d6f0a3e76d4ac3680b1761f6d23e20c1d23bbfe 100644 (file)
--- a/raylib.ads
+++ b/raylib.ads
@@ -1649,150 +1649,215 @@ package Raylib is
       Convention    => C,
       External_Name => "UnloadFileData";
 
-   --~function bool SaveFileData (const char *fileName, void *data, int dataSize) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "SaveFileData";
+   function Save_File_Data (
+      File_Name : String  := "";
+      Data      : Pointer := null;
+      Data_Size : Natural := 0
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "SaveFileData";
 
-   --~function bool ExportDataAsCode (const unsigned char *data, int dataSize, const char *fileName) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "ExportDataAsCode";
+   function Export_Data_As_Code (
+      Data      : Pointer := null;
+      Data_Size : Natural := 0;
+      File_Name : String  := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ExportDataAsCode";
 
-   --~function char *LoadFileText (const char *fileName) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "LoadFileText";
+   function Load_File_Text (
+      File_Name : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadFileText";
 
-   --~procedure UnloadFileText (char *text) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "UnloadFileText";
+   procedure Unload_File_Text (
+      Text : String := ""
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "UnloadFileText";
 
-   --~function bool SaveFileText (const char *fileName, char *text) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "SaveFileText";
+   function Save_File_Text (
+      File_Name : String := "";
+      Text      : String := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "SaveFileText";
 
-   --~function bool FileExists (const char *fileName) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "FileExists";
+   function File_Exists (
+      File_Name : String := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "FileExists";
 
-   --~function bool DirectoryExists (const char *dirPath) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "DirectoryExists";
+   function Directory_Exists (
+      Directory_Path : String := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DirectoryExists";
 
-   --~function bool IsFileExtension (const char *fileName, const char *ext) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "IsFileExtension";
+   function Is_File_Extension (
+      File_Name : String := "";
+      Extension : String := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "IsFileExtension";
 
-   --~function int GetFileLength (const char *fileName) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetFileLength";
+   function Get_File_Length (
+      File_Name : String := ""
+   ) return Integer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetFileLength";
 
-   --~function const char *GetFileExtension (const char *fileName) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetFileExtension";
+   function Get_File_Extension (
+      File_Name : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetFileExtension";
 
-   --~function const char *GetFileName (const char *filePath) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetFileName";
+   function Get_File_Name (
+      File_Path : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetFileName";
 
-   --~function const char *GetFileNameWithoutExt (const char *filePath) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetFileNameWithoutExt";
+   function Get_File_Name_Without_Ext (
+      File_Path : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetFileNameWithoutExt";
 
-   --~function const char *GetDirectoryPath (const char *filePath) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetDirectoryPath";
+   function Get_Directory_Path (
+      File_Path : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetDirectoryPath";
 
-   --~function const char *GetPrevDirectoryPath (const char *dirPath) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetPrevDirectoryPath";
+   function Get_Prev_Directory_Path (
+      Directory_Path : String := ""
+   ) return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetPrevDirectoryPath";
 
-   --~function const char *GetWorkingDirectory (void) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetWorkingDirectory";
+   function Get_Working_Directory return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetWorkingDirectory";
 
-   --~function const char *GetApplicationDirectory (void) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetApplicationDirectory";
+   function Get_Application_Directory return Strings with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetApplicationDirectory";
 
-   --~function bool ChangeDirectory (const char *dir) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "ChangeDirectory";
+   function Change_Directory (
+      Directory_Path : String := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "ChangeDirectory";
 
-   --~function bool IsPathFile (const char *path) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "IsPathFile";
+   function Is_Path_File (
+      Path : String := ""
+   ) return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "IsPathFile";
 
-   --~function FilePathList LoadDirectoryFiles (const char *dirPath) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "LoadDirectoryFiles";
+   function Load_Directory_Files (
+      Directory_Path : String := ""
+   ) return File_Path_List with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadDirectoryFiles";
 
-   --~function FilePathList LoadDirectoryFilesEx (const char *basePath, const char *filter, bool scanSubdirs) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "LoadDirectoryFilesEx";
+   function Load_Directory_Files_Ex (
+      Base_Path           : String  := "";
+      Filter              : String  := "";
+      Scan_Subdirectories : Logical := False
+   ) return File_Path_List with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadDirectoryFilesEx";
 
-   --~procedure UnloadDirectoryFiles (FilePathList files) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "UnloadDirectoryFiles";
+   procedure Unload_Directory_Files (
+      Files : File_Path_List := No_File_Path_List
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "UnloadDirectoryFiles";
 
-   --~function bool IsFileDropped (void) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "IsFileDropped";
+   function Is_File_Dropped return Logical with
+      Import        => True,
+      Convention    => C,
+      External_Name => "IsFileDropped";
 
-   --~function FilePathList LoadDroppedFiles (void) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "LoadDroppedFiles";
+   function Load_Dropped_Files return File_Path_List with
+      Import        => True,
+      Convention    => C,
+      External_Name => "LoadDroppedFiles";
 
-   --~procedure UnloadDroppedFiles (FilePathList files) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "UnloadDroppedFiles";
+   procedure Unload_Dropped_Files (
+      Files : File_Path_List := No_File_Path_List
+   ) with
+      Import        => True,
+      Convention    => C,
+      External_Name => "UnloadDroppedFiles";
 
-   --~function long GetFileModTime (const char *fileName) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "GetFileModTime";
+   function Get_File_Mod_Time (
+      File_Name : String := ""
+   ) return Natural with
+      Import        => True,
+      Convention    => C,
+      External_Name => "GetFileModTime";
 
-   --~function unsigned char *CompressData (const unsigned char *data, int dataSize, int *compDataSize) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "CompressData";
+   function Compress_Data (
+      Data                 :        Pointer := null;
+      Data_Size            :        Natural := 0;
+      Compressed_Data_Size : access Integer := null
+   ) return Pointer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "CompressData";
 
-   --~function unsigned char *DecompressData (const unsigned char *compData, int compDataSize, int *dataSize) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "DecompressData";
+   function Decompress_Data (
+      Compressed_Data      : Pointer := null;
+      Compressed_Data_Size : Natural := 0;
+      Data_Size            : Natural := 0
+   ) return Pointer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DecompressData";
 
-   --~function char *EncodeDataBase64 (const unsigned char *data, int dataSize, int *outputSize) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "EncodeDataBase64";
+   function Encode_Data_Base_64 (
+      Data        :        Pointer := null;
+      Data_Size   :        Natural := 0;
+      Output_Size : access Integer := null
+   ) return Pointer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "EncodeDataBase64";
 
-   --~function unsigned char *DecodeDataBase64 (const unsigned char *data, int *outputSize) with
-      --~Import        => True,
-      --~Convention    => C,
-      --~External_Name => "DecodeDataBase64";
+   function Decode_Data_Base_64 (
+      Data        :        Pointer := null;
+      Output_Size : access Integer := null
+   ) return Pointer with
+      Import        => True,
+      Convention    => C,
+      External_Name => "DecodeDataBase64";
 
    function Load_Automation_Event_List (
       File_Name : String := ""