diff options
Diffstat (limited to 'src/bundles-containers.ads')
-rw-r--r-- | src/bundles-containers.ads | 30 |
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; + + |