Distinct GPR/Project_File properties

2018-03-07 19:02:43 +01:00
parent b596c8386a
commit 251ba54ba8
8 changed files with 150 additions and 87 deletions
@@ -70,6 +70,21 @@ package body Alire.Releases is
      end return;
   end GPR_Files;

+   -------------------
+   -- Project_Files --
+   -------------------
+
+   function Project_Files (R : Release;
+                           P : Properties.Vector)
+                           return Utils.String_Vector is
+   begin
+      return Files : Utils.String_Vector := Values (R.Properties.Evaluate (P), Project_File) do
+         if Files.Is_Empty then
+            Files.Append (R.Project & ".gpr");
+         end if;
+      end return;
+   end Project_Files;
+
   ------------------------
   -- Labeled_Properties --
   ------------------------