xolatile/raylib-ada
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor changes yet again...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-23 06:36:51 -04:00
parent ed04c22a0e
commit 2987e6fb0d
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
raylib.ads
View File

@ -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;