From 2987e6fb0d430bf67090a2b60212062233afdfad Mon Sep 17 00:00:00 2001 From: xolatile Date: Tue, 23 Apr 2024 06:36:51 -0400 Subject: [PATCH] Minor changes yet again... --- raylib.ads | 23 +++++++++-------------- 1 file changed, 9 insertions(+), 14 deletions(-) diff --git a/raylib.ads b/raylib.ads index f07b6da..f034a28 100644 --- a/raylib.ads +++ b/raylib.ads @@ -9,15 +9,18 @@ -- -- This file was made by altering original Raylib 5.1 C header file. I -- used few formatting programs of mine, tho sadly most of the editing --- was done manually. Contact me if there are license issues. +-- was done manually. Contact me if there are license issues, read this +-- file, since this is the documentation. -- --- Raylib is great game programming library written by 'raysan5', you --- can check out original C source code here below, it's under zlib --- license. I wrote this because of the lack of good Ada bindings. +-- Raylib is great game programming library written by 'raysan5' and +-- many contributors, you can check out original C source code in the +-- link below, it's under zlib license. I wrote this because of the +-- lack of good Ada bindings. -- -- There are minor name changes, and this binding was adapted to Ada -- programming language. That means that you can't replace few keywords --- in your C example, and everything works. Aim are new Ada projects. +-- in your C program, and expect that everything works. Aim are new Ada +-- projects. Variadic functions and function pointers were removed. -- -- https://github.com/raysan5/raylib -- @@ -763,7 +766,7 @@ package Raylib is Mesh_Materials : access Integer := null; Bone_Count : Integer := 0; Bones : access Bone_Info := null; - --ERRORBind_Post : access Transform := null; + -- ERROR Bind_Post : access Transform := null; end record with Convention => C_Pass_By_Copy; No_Model : Model; @@ -4078,14 +4081,6 @@ package Raylib is Convention => C, External_Name => "TextLength"; - --~function Text_Format ( - --~Text : String := ""; - --~... - --~) return Strings with - --~Import => True, - --~Convention => C, - --~External_Name => "TextFormat"; - function Text_Subtext ( Text : String := ""; Position : Integer := 0;