test.adb


1
2
3
4
5
6
7
8
9
10
11
12

with Text_IO; use Text_IO;
with Raylib; use Raylib;
with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings; use Interfaces.C.Strings;
with Ada.Unchecked_Conversion;

function Test return Integer is
begin
    Put_Line("Working Directory: " & To_Ada(Value(Get_Working_Directory)));
    Put_Line("Application Directory: " & To_Ada(Value(Get_Application_Directory)));
    return 0;
end;