implement -C/--chdir flag

src/alr/alr-commands.adb

@@ -59,6 +59,8 @@ package body Alr.Commands is
 
    Command_Line_Config_Path : aliased GNAT.OS_Lib.String_Access;
 
+   Command_Line_Chdir_Target_Path : aliased GNAT.OS_Lib.String_Access;
+
    --  Following aliased booleans are used by GNAT.Command_Line processing:
 
    Log_Quiet  : Boolean renames Alire_Early_Elaboration.Switch_Q;
@@ -143,6 +145,11 @@ package body Alr.Commands is
                      "-c=", "--config=",
                      "Override configuration folder location");
 
+      Define_Switch (Config,
+                     Command_Line_Chdir_Target_Path'Access,
+                     "-C=", "--chdir=",
+                     "Run `alr` in the given directory");
+
       Define_Switch (Config,
                      Alire.Force'Access,
                      "-f", "--force",
@@ -498,6 +505,14 @@ package body Alr.Commands is
          end;
       end if;
 
+      --  chdir(2) if necessary.
+
+      if Command_Line_Chdir_Target_Path /= null and then
+         Command_Line_Chdir_Target_Path.all /= ""
+      then
+         Ada.Directories.Set_Directory (Command_Line_Chdir_Target_Path.all);
+      end if;
+
       Create_Alire_Folders;
 
       begin

testsuite/tests/init/with-chdir/test.py

@@ -0,0 +1,20 @@
+"""
+Test "executable" only appears in --bin initializations
+"""
+
+import os.path
+
+from drivers.alr import run_alr
+from drivers.asserts import assert_match
+from drivers.helpers import content_of
+
+test_dir = os.getcwd()
+
+# Binary crate
+run_alr("init", "--bin", "xxx")
+assert_match(".*executables = \[", content_of("xxx/alire.toml"))
+
+# Check that it builds and runs
+run_alr("--chdir=xxx", "run")
+
+print('SUCCESS')

testsuite/tests/init/with-chdir/test.yaml

@@ -0,0 +1,4 @@
+driver: python-script
+indexes:
+    basic_index: # needed to avoid cloning the community index
+        in_fixtures: true