Subtyped boolean into logical.

This commit is contained in:
Ognjen Milan Robovic 2024-03-18 08:19:30 -04:00
parent 2d12d1d819
commit 1bf8f0fa75

View File

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