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

Subtyped boolean into logical.

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-03-18 08:19:30 -04:00
parent 2d12d1d819
commit 1bf8f0fa75
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
raylib.ads
View File

@ -92,6 +92,10 @@ package Raylib is
------------------------------------------------------------------------ ------------------------------------------------------------------------
type Logical is new Boolean;
--
for Logical'Size use 32;
type Config_Flags is ( type Config_Flags is (
Flag_Fullscreen_Mode, Flag_Fullscreen_Mode,
Flag_Window_Resizable, Flag_Window_Resizable,
@ -805,7 +809,7 @@ package Raylib is
end record with Convention => C_Pass_By_Copy; end record with Convention => C_Pass_By_Copy;
type Ray_Collision is record type Ray_Collision is record
Hit : Boolean := False; Hit : Logical := False;
Distance : Float := 0.0; Distance : Float := 0.0;
Point : Vector_3D := (0.0, 0.0, 0.0); Point : Vector_3D := (0.0, 0.0, 0.0);
Normal : Vector_3D := (0.0, 0.0, 0.0); Normal : Vector_3D := (0.0, 0.0, 0.0);
@ -842,7 +846,7 @@ package Raylib is
type Music is record type Music is record
Stream : Audio_Stream := No_Audio_Stream; Stream : Audio_Stream := No_Audio_Stream;
Frame_Count : Natural := 0; Frame_Count : Natural := 0;
Looping : Boolean := False; Looping : Logical := False;
Context_Type : Integer := 0; Context_Type : Integer := 0;
Context_Data : Pointer := null; Context_Data : Pointer := null;
end record; end record;
@ -959,49 +963,49 @@ package Raylib is
Convention => C, Convention => C,
External_Name => "CloseWindow"; External_Name => "CloseWindow";
function Window_Should_Close return Boolean with function Window_Should_Close return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "WindowShouldClose"; External_Name => "WindowShouldClose";
function Is_Window_Ready return Boolean with function Is_Window_Ready return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsWindowReady"; External_Name => "IsWindowReady";
function Is_Window_Fullscreen return Boolean with function Is_Window_Fullscreen return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsWindowFullscreen"; External_Name => "IsWindowFullscreen";
function Is_Window_Hidden return Boolean with function Is_Window_Hidden return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsWindowHidden"; External_Name => "IsWindowHidden";
function Is_Window_Minimized return Boolean with function Is_Window_Minimized return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsWindowMinimized"; External_Name => "IsWindowMinimized";
function Is_Window_Maximized return Boolean with function Is_Window_Maximized return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsWindowMaximized"; External_Name => "IsWindowMaximized";
function Is_Window_Focused return Boolean with function Is_Window_Focused return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsWindowFocused"; External_Name => "IsWindowFocused";
function Is_Window_Resized return Boolean with function Is_Window_Resized return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsWindowResized"; External_Name => "IsWindowResized";
function Is_Window_State ( function Is_Window_State (
Flags : Natural := 0 Flags : Natural := 0
) return Boolean with ) return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsWindowState"; External_Name => "IsWindowState";
@ -1244,7 +1248,7 @@ package Raylib is
Convention => C, Convention => C,
External_Name => "HideCursor"; External_Name => "HideCursor";
function Is_Cursor_Hidden return Boolean with function Is_Cursor_Hidden return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsCursorHidden"; External_Name => "IsCursorHidden";
@ -1259,7 +1263,7 @@ package Raylib is
Convention => C, Convention => C,
External_Name => "DisableCursor"; External_Name => "DisableCursor";
function Is_Cursor_On_Screen return Boolean with function Is_Cursor_On_Screen return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsCursorOnScreen"; External_Name => "IsCursorOnScreen";
@ -1400,7 +1404,7 @@ package Raylib is
function Is_Shader_Ready ( function Is_Shader_Ready (
Data : Shader := No_Shader Data : Shader := No_Shader
) return Boolean with ) return Logical with
Import => True, Import => True,
Convention => C, Convention => C,
External_Name => "IsShaderReady"; External_Name => "IsShaderReady";