Streamlined dependencies working, solver is greedy

2018-05-07 00:14:04 +02:00
parent cf1da607e8
commit 73d2b8b435
9 changed files with 41 additions and 20 deletions
@@ -1,5 +1,29 @@
 package body Alire.Containers is

+   ------------
+   -- Insert --
+   ------------
+
+   procedure Insert (Dst : in out Release_Map; Src : Release_Map) is
+   begin
+      for E of Src loop
+         Dst.Insert (E.Project, E);
+      end loop;
+   end Insert;
+
+   ---------------
+   -- Inserting --
+   ---------------
+
+   function Inserting (Dst : Release_Map; Src : Release_Map) return Release_Map is
+   begin
+      return Result : Release_Map := Dst do
+         for E of Src loop
+            Result.Insert (E.Project, E);
+         end loop;
+      end return;
+   end Inserting;
+
   ---------------
   -- Excluding --
   ---------------