From 59972aee3a2a2d6524af1d8768699f5157cac23f Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Fri, 22 Mar 2024 20:10:17 +0700
Subject: Change working directory to the application directory

---
 raylib.ads | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'raylib.ads')

diff --git a/raylib.ads b/raylib.ads
index a58c34c..dc8a8f0 100644
--- a/raylib.ads
+++ b/raylib.ads
@@ -1,4 +1,5 @@
 with Interfaces.C; use Interfaces.C;
+with Interfaces.C.Strings; use Interfaces.C.Strings;
 with Raymath; use Raymath;
 
 package Raylib is
@@ -209,4 +210,20 @@ package Raylib is
     type Vector2_Array is array (size_t range <>) of aliased Vector2;
 
     procedure Draw_Triangle_Strip(Points: Vector2_Array; C: Color);
+
+    function Get_Working_Directory return chars_ptr
+        with
+            Import => True,
+            Convention => C,
+            External_Name => "GetWorkingDirectory";
+    function Get_Application_Directory return chars_ptr
+        with
+            Import => True,
+            Convention => C,
+            External_Name => "GetApplicationDirectory";
+    function Change_Directory(dir: chars_ptr) return C_Bool
+        with
+            Import => True,
+            Convention => C,
+            External_Name => "ChangeDirectory";
 end Raylib;
-- 
cgit v1.2.3