Preference data reads into Bundles properly, with packed memory and a few fixed bugs

1 files changed, 30 insertions, 0 deletions

diff --git a/src/bundles-containers.ads b/src/bundles-containers.ads
new file mode 100644
index 0000000..d405e7e
--- /dev/null
+++ b/src/bundles-containers.ads
@@ -0,0 +1,30 @@
+
+
+with Ada.Containers.Ordered_Maps;
+with Ada.Containers.Vectors;
+
+
+generic
+package Bundles.Containers is
+
+
+    package Bundle_Vectors is new Ada.Containers.Vectors
+           (Index_Type   => Positive,
+            Element_Type => Bundle);
+
+
+    package Bundle_Maps is new Ada.Containers.Ordered_Maps
+           (Key_Type     => Candidates.CandidateID,
+            Element_Type => Bundle_Vectors.Vector,
+            "<"          => Candidates."<",
+            "="          => Bundle_Vectors."=");
+
+
+    procedure Read_Bundles
+           (Filename : in     String;
+            Result   :    out Bundle_Maps.Map);
+
+
+end Bundles.Containers;
+
+