Preparations for Release code generation (basic)

2018-05-20 12:02:45 +02:00
parent ea46726a06
commit 9c4305a622
8 changed files with 147 additions and 7 deletions
@@ -157,6 +157,28 @@ package body Alire.Releases is
      Priv_Props   => Private_Properties,
      Available    => Available);

+   -------------------------
+   -- New_Working_Release --
+   -------------------------
+
+   function New_Working_Release
+     (Project      : Alire.Project;
+      Origin       : Origins.Origin := Origins.New_Filesystem (".");
+      Dependencies : Conditional.Dependencies := Conditional.For_Dependencies.Empty;
+      Properties   : Conditional.Properties   := Conditional.For_Properties.Empty)
+      return         Release is
+     (Prj_Len      => Project'Length,
+      Notes_Len    => 0,
+      Project      => Project,
+      Alias        => +"",
+      Version      => +"0.0.0",
+      Origin       => Origin,
+      Notes        => "",
+      Dependencies => Dependencies,
+      Properties   => Properties,
+      Priv_Props   => Conditional.For_Properties.Empty,
+      Available    => Requisites.Booleans.Always_True);
+
   ----------------------------
   -- On_Platform_Properties --
   ----------------------------