Even more functions...

raylib.ads

@@ -97,6 +97,7 @@ package Raylib is
 	for Logical'Size use 32;
 
 	type Config_Flags is (
+		Flag_None,
 		Flag_Fullscreen_Mode,
 		Flag_Window_Resizable,
 		Flag_Window_Undecorated,
@@ -116,6 +117,7 @@ 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#,
@@ -1539,9 +1541,7 @@ package Raylib is
 		Import        => True,
 		Convention    => C,
 		External_Name => "GetWorldToScreen2D";
-################################################################
-################################################################
-################################################################
+
 	procedure Set_Target_FPS (
 		FPS : Integer := 60
 	) with
@@ -1549,316 +1549,351 @@ package Raylib is
 		Convention    => C,
 		External_Name => "SetTargetFPS";
 
-	--~function float GetFrameTime (void) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Get_Frame_Time return Float with
+		Import        => True,
+		Convention    => C,
+		External_Name => "GetFrameTime";
 
-	--~function double GetTime (void) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Get_Time return Long_Float with
+		Import        => True,
+		Convention    => C,
+		External_Name => "GetTime";
 
-	--~function int GetFPS (void) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Get_FPS return Integer with
+		Import        => True,
+		Convention    => C,
+		External_Name => "GetFPS";
 
-	--~procedure SwapScreenBuffer (void) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Swap_Screen_Buffer with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SwapScreenBuffer";
 
-	--~procedure PollInputEvents (void) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Poll_Input_Events with
+		Import        => True,
+		Convention    => C,
+		External_Name => "PollInputEvents";
 
-	--~procedure WaitTime (double seconds) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Wait_Time (
+		Seconds : Long_Float := 0.0
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "WaitTime";
 
-	--~procedure SetRandomSeed (unsigned int seed) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Set_Random_Seed (
+		Seed : Natural := 16#0EADBEEF#
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetRandomSeed";
 
-	--~function int GetRandomValue (int min, int max) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Get_Random_Value (
+		Min : Integer := 0;
+		Max : Integer := 255
+	) return Integer with
+		Import        => True,
+		Convention    => C,
+		External_Name => "GetRandomValue";
 
-	--~function int *LoadRandomSequence (unsigned int count, int min, int max) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Load_Random_Sequence (
+		Count : Natural := 0;
+		Min   : Integer := 0;
+		Max   : Integer := 0
+	) return access Integer with
+		Import        => True,
+		Convention    => C,
+		External_Name => "LoadRandomSequence";
 
-	--~procedure UnloadRandomSequence (int *sequence) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Unload_Random_Sequence (
+		Sequence : access Integer := null
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "UnloadRandomSequence";
 
-	--~procedure TakeScreenshot (const char *fileName) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Take_Screenshot (
+		File_Name : String := "Screenshot.png"
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "TakeScreenshot";
 
-	--~procedure SetConfigFlags (unsigned int flags) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Set_Config_Flags (
+		Flags : Config_Flags := Flag_None
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetConfigFlags";
 
-	--~procedure OpenURL (const char *url) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Open_URL (
+		URL : String := ""
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "OpenURL";
 
 	--~procedure TraceLog (int logLevel, const char *text, ...) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "TraceLog";
 
-	--~procedure SetTraceLogLevel (int logLevel) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Set_Trace_Log_Level (
+		Level : Trace_Log_Level := Log_All
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetTraceLogLevel";
 
-	--~procedure *MemAlloc (unsigned int size) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Allocate (
+		Size : Natural := 0
+	) return Pointer with
+		Import        => True,
+		Convention    => C,
+		External_Name => "MemAlloc";
 
-	--~procedure *MemRealloc (void *ptr, unsigned int size) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Reallocate (
+		Data : Pointer := null;
+		Size : Natural := 0
+	) return Pointer with
+		Import        => True,
+		Convention    => C,
+		External_Name => "MemRealloc";
 
-	--~procedure MemFree (void *ptr) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Deallocate (
+		Data : Pointer := null
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "MemFree";
 
 	--~procedure SetTraceLogCallback (TraceLogCallback callback) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SetTraceLogCallback";
 
 	--~procedure SetLoadFileDataCallback (LoadFileDataCallback callback) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SetLoadFileDataCallback";
 
 	--~procedure SetSaveFileDataCallback (SaveFileDataCallback callback) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SetSaveFileDataCallback";
 
 	--~procedure SetLoadFileTextCallback (LoadFileTextCallback callback) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SetLoadFileTextCallback";
 
 	--~procedure SetSaveFileTextCallback (SaveFileTextCallback callback) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SetSaveFileTextCallback";
 
-	--~function unsigned char *LoadFileData (const char *fileName, int *dataSize) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Load_File_Data (
+		File_Name :        String  := "";
+		Data_Size : access Integer := null
+	) return access Character with
+		Import        => True,
+		Convention    => C,
+		External_Name => "LoadFileData";
 
-	--~procedure UnloadFileData (unsigned char *data) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Unload_File_Data (
+		Data : Pointer := null
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "UnloadFileData";
 
 	--~function bool SaveFileData (const char *fileName, void *data, int dataSize) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SaveFileData";
 
 	--~function bool ExportDataAsCode (const unsigned char *data, int dataSize, const char *fileName) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "ExportDataAsCode";
 
 	--~function char *LoadFileText (const char *fileName) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "LoadFileText";
 
 	--~procedure UnloadFileText (char *text) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "UnloadFileText";
 
 	--~function bool SaveFileText (const char *fileName, char *text) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SaveFileText";
 
 	--~function bool FileExists (const char *fileName) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "FileExists";
 
 	--~function bool DirectoryExists (const char *dirPath) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "DirectoryExists";
 
 	--~function bool IsFileExtension (const char *fileName, const char *ext) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "IsFileExtension";
 
 	--~function int GetFileLength (const char *fileName) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetFileLength";
 
 	--~function const char *GetFileExtension (const char *fileName) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetFileExtension";
 
 	--~function const char *GetFileName (const char *filePath) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetFileName";
 
 	--~function const char *GetFileNameWithoutExt (const char *filePath) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetFileNameWithoutExt";
 
 	--~function const char *GetDirectoryPath (const char *filePath) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetDirectoryPath";
 
 	--~function const char *GetPrevDirectoryPath (const char *dirPath) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetPrevDirectoryPath";
 
 	--~function const char *GetWorkingDirectory (void) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetWorkingDirectory";
 
 	--~function const char *GetApplicationDirectory (void) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetApplicationDirectory";
 
 	--~function bool ChangeDirectory (const char *dir) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "ChangeDirectory";
 
 	--~function bool IsPathFile (const char *path) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "IsPathFile";
 
 	--~function FilePathList LoadDirectoryFiles (const char *dirPath) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "LoadDirectoryFiles";
 
 	--~function FilePathList LoadDirectoryFilesEx (const char *basePath, const char *filter, bool scanSubdirs) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "LoadDirectoryFilesEx";
 
 	--~procedure UnloadDirectoryFiles (FilePathList files) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "UnloadDirectoryFiles";
 
 	--~function bool IsFileDropped (void) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "IsFileDropped";
 
 	--~function FilePathList LoadDroppedFiles (void) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "LoadDroppedFiles";
 
 	--~procedure UnloadDroppedFiles (FilePathList files) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "UnloadDroppedFiles";
 
 	--~function long GetFileModTime (const char *fileName) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "GetFileModTime";
 
 	--~function unsigned char *CompressData (const unsigned char *data, int dataSize, int *compDataSize) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "CompressData";
 
 	--~function unsigned char *DecompressData (const unsigned char *compData, int compDataSize, int *dataSize) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "DecompressData";
 
 	--~function char *EncodeDataBase64 (const unsigned char *data, int dataSize, int *outputSize) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "EncodeDataBase64";
 
 	--~function unsigned char *DecodeDataBase64 (const unsigned char *data, int *outputSize) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "DecodeDataBase64";
 
 	--~function AutomationEventList LoadAutomationEventList (const char *fileName) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "LoadAutomationEventList";
 
 	--~procedure UnloadAutomationEventList (AutomationEventList *list) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "UnloadAutomationEventList";
 
 	--~function bool ExportAutomationEventList (AutomationEventList list, const char *fileName) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "ExportAutomationEventList";
 
 	--~procedure SetAutomationEventList (AutomationEventList *list) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SetAutomationEventList";
 
 	--~procedure SetAutomationEventBaseFrame (int frame) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "SetAutomationEventBaseFrame";
 
 	--~procedure StartAutomationEventRecording (void) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "StartAutomationEventRecording";
 
 	--~procedure StopAutomationEventRecording (void) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
+		--~External_Name => "StopAutomationEventRecording";
 
 	--~procedure PlayAutomationEvent (AutomationEvent event) with
 		--~Import        => True,
 		--~Convention    => C,
-		--~External_Name => "";
-
+		--~External_Name => "PlayAutomationEvent";
+--~################################################################
+--~################################################################
+--~################################################################
 	function Is_Key_Pressed (
 		Key : Keyboard_Key := Key_Null
 	) return Logical with