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

Explaining examples and utter install script cancer...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-23 10:00:40 -04:00
parent fba5a57989
commit cffe810f43
3 changed files with 69 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
example/window.adb
View File

@ -1,19 +1,63 @@
with Raylib;
use Raylib;
with Raylib; -- File path specified in 'install.sh' script.
use Raylib; -- I agree with raysan5 on namespaces being boring.
procedure Window is
-- This is not Ada tutorial, but brief explanation of my bindings.
-- This is not my usual style of programming, following conventions.
--
-- C uses null terminated strings, while Ada does not, hence:
-- - "Foo" & Character'Val (0)
-- - "Bar" & ASCII.NUL
-- - To_C_String ("Baz")
--
-- This decision was made intentionally to avoid package body.
-- If your project uses 10-40 functions and 5-10 structures:
-- - Write your own bindings, it's simple and bloat-free.
-- - Use someone elses Ada bindings, or run command:
-- - $ gcc -c -fdump-ada-spec -C /usr/include/raylib.h
--
-- I don't like to use Interfaces.C package unless I have to...
function To_C_String ( -- I find this better than Interfaces.C.To_C.
Data : String := "" -- Concatenate this however you like...
) return String is -- Or simply use GCC generated bindings.
begin
return (Data & Character'Val (0)); -- This null terminates string.
end To_C_String;
begin
Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
--
Main_Loop: loop
exit when Window_Should_Close;
--
Begin_Drawing;
Clear_Background (Ray_White);
Draw_Text ("Heyo Raylib, greetings from Ada!" & Character'Val (0), 4, 4, 32, Black);
Draw_Text ("Press Escape key to exit program." & Character'Val (0), 4, 36, 32, Black);
End_Drawing;
end loop Main_Loop;
--
Close_Window;
Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
--
-- You can have main loop in several ways, choose what you like:
-- - Foo: loop ... exit when ... end loop Foo;
-- - loop ... exit when ... end loop;
-- - while (not) ... loop (exit when ...) ... end loop;
--
Main_Loop: loop
exit when Window_Should_Close;
--
Begin_Drawing;
Clear_Background (Ray_White);
-- You can specify all arguments, or use defaults after one point.
Draw_Text ("Heyo from Ada." & ASCII.NUL, 4, 4, 32, Black);
-- You can explicitly state all arguments and their values.
Draw_Text (
Text => To_C_String ("Press Escape key to exit program."),
X => 4,
Y => 36,
Size => 32,
Tint => Black
);
-- Or at last, you can specify which arguments won't be defaults.
Draw_Text (
Text => To_C_String ("You can ignore some arguments."),
X => 4,
Y => 68
);
-- And naturally, you can align them however you like...
End_Drawing;
end loop Main_Loop;
--
Close_Window;
end Window;

7
install.sh
View File

@ -2,6 +2,13 @@
set -xe
# Find your own file path for this, I rely on GCC and GNAT:
# $ gcc -print-libgcc-file-name
# Run the command above to get the following output:
# /usr/lib/gcc/x86_64-linux-gnu/8/libgcc.a
# Then, add 'adainclude' and file name to the file path.
# Sorry, I don't know a better way to do this...
cp raylib.ads /usr/lib/gcc/x86_64-linux-gnu/8/adainclude/raylib.ads
exit

6
raylib.ads
View File

@ -3884,7 +3884,7 @@ package Raylib is
X : Integer := 0;
Y : Integer := 0;
Size : Integer := 32;
Tint : Color := White
Tint : Color := Black
) with
Import => True,
Convention => C,
@ -3896,7 +3896,7 @@ package Raylib is
Position : Vector_2D := (others => 0.0);
Font_Size : Float := 0.0;
Spacing : Float := 0.0;
Tint : Color := White
Tint : Color := Black
) with
Import => True,
Convention => C,
@ -3910,7 +3910,7 @@ package Raylib is
Rotation : Float := 0.0;
Font_Size : Float := 0.0;
Spacing : Float := 0.0;
Tint : Color := White
Tint : Color := Black
) with
Import => True,
Convention => C,