From ae7be287d615473d20aee769deee44f7af0f26b3 Mon Sep 17 00:00:00 2001 From: xolatile Date: Fri, 5 Apr 2024 07:49:33 -0400 Subject: [PATCH] Removed callback functions and types... --- raylib.ads | 57 ++++++++------------------------------------------------- 1 file changed, 8 insertions(+), 49 deletions(-) diff --git a/raylib.ads b/raylib.ads index 7e9a24a..bfbb01c 100644 --- a/raylib.ads +++ b/raylib.ads @@ -724,15 +724,15 @@ package Raylib is type Material_Array is array (Natural range <>) of Material; type Model is record - Transform : Matrix_4D := Id_Matrix; - Mesh_Count : Integer := 0; - Material_Count : Integer := 0; - Meshes : access Mesh := null; + Transform : Matrix_4D := Id_Matrix; + Mesh_Count : Integer := 0; + Material_Count : Integer := 0; + Meshes : access Mesh := null; Materials : access Material_Array := null; - Mesh_Materials : access Integer := null; - Bone_Count : Integer := 0; - Bones : access Bone_Info := null; - --~Bind_Post : access Transform := null; ERROR + Mesh_Materials : access Integer := null; + Bone_Count : Integer := 0; + Bones : access Bone_Info := null; + --~Bind_Post : access Transform := null; ERROR end record with Convention => C_Pass_By_Copy; No_Model : Model; @@ -899,12 +899,6 @@ package Raylib is ------------------------------------------------------------------------ ---~typedef void (*TraceLogCallback)(int logLevel, const char *text, va_list args); -- Logging: Redirect trace log messages ---~typedef unsigned char *(*LoadFileDataCallback)(const char *fileName, int *dataSize); -- FileIO: Load binary data ---~typedef bool (*SaveFileDataCallback)(const char *fileName, void *data, int dataSize); -- FileIO: Save binary data ---~typedef char *(*LoadFileTextCallback)(const char *fileName); -- FileIO: Load text data ---~typedef bool (*SaveFileTextCallback)(const char *fileName, char *text); -- FileIO: Save text data - procedure Open_Window ( Width : Integer := 640; Height : Integer := 480; @@ -1608,31 +1602,6 @@ package Raylib is Convention => C, External_Name => "MemFree"; - --~procedure SetTraceLogCallback (TraceLogCallback callback) with - --~Import => True, - --~Convention => C, - --~External_Name => "SetTraceLogCallback"; - - --~procedure SetLoadFileDataCallback (LoadFileDataCallback callback) with - --~Import => True, - --~Convention => C, - --~External_Name => "SetLoadFileDataCallback"; - - --~procedure SetSaveFileDataCallback (SaveFileDataCallback callback) with - --~Import => True, - --~Convention => C, - --~External_Name => "SetSaveFileDataCallback"; - - --~procedure SetLoadFileTextCallback (LoadFileTextCallback callback) with - --~Import => True, - --~Convention => C, - --~External_Name => "SetLoadFileTextCallback"; - - --~procedure SetSaveFileTextCallback (SaveFileTextCallback callback) with - --~Import => True, - --~Convention => C, - --~External_Name => "SetSaveFileTextCallback"; - function Load_File_Data ( File_Name : String := ""; Data_Size : access Integer := null @@ -4014,11 +3983,6 @@ package Raylib is Convention => C, External_Name => "GetRayCollisionQuad"; - --~typedef void (*AudioCallback) (void *bufferData, unsigned int frames) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; - procedure Open_Audio_Device with Import => True, Convention => C, @@ -4463,11 +4427,6 @@ package Raylib is Convention => C, External_Name => "SetAudioStreamBufferSizeDefault"; - --~procedure SetAudioStreamCallback (AudioStream stream, AudioCallback callback) with - --~Import => True, - --~Convention => C, - --~External_Name => ""; - procedure Attach_Audio_Stream_Processor ( Stream : Audio_Stream := No_Audio_Stream; Processor : Pointer := null