diff --git a/raylib.ads b/raylib.ads index e3d18e0..7d6f0a3 100644 --- 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 := ""