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

---
 test.adb | 33 +++------------------------------
 1 file changed, 3 insertions(+), 30 deletions(-)

(limited to 'test.adb')

diff --git a/test.adb b/test.adb
index 795e9a1..aa8b5fe 100644
--- a/test.adb
+++ b/test.adb
@@ -1,39 +1,12 @@
-with Ada.Text_IO;
 with Text_IO; use Text_IO;
-with Ada.Strings.Fixed; use Ada.Strings.Fixed;
-with Ada.Strings; use Ada.Strings;
-with Ada.Containers.Vectors;
-with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
-with Ada.Numerics.Discrete_Random;
 with Raylib; use Raylib;
 with Interfaces.C; use Interfaces.C;
-with Interfaces.C.Pointers;
+with Interfaces.C.Strings; use Interfaces.C.Strings;
 with Ada.Unchecked_Conversion;
-with Raylib; use Raylib;
-with Raymath; use Raymath;
 
 function Test return Integer is
-    type Palette is (
-      COLOR_BACKGROUND,
-      COLOR_FLOOR,
-      COLOR_WALL,
-      COLOR_BARRICADE,
-      COLOR_PLAYER,
-      COLOR_DOOR_KEY,
-      COLOR_BOMB,
-      COLOR_LABEL,
-      COLOR_GUARD,
-      COLOR_URMOM,
-      COLOR_GNOME,
-      COLOR_CHECKPOINT,
-      COLOR_EXPLOSION,
-      COLOR_HEALTHBAR,
-      COLOR_NEW_GAME,
-      COLOR_EYES,
-      COLOR_FINAL);
 begin
-    for C in Palette loop
-        Put_Line(To_Unbounded_String(C'Image));
-    end loop;
+    Put_Line("Working Directory: " & To_Ada(Value(Get_Working_Directory)));
+    Put_Line("Application Directory: " & To_Ada(Value(Get_Application_Directory)));
     return 0;
 end;
-- 
cgit v1.2.3