diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-07-05 21:52:49 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-05 21:52:49 +1000 |
commit | 52eb6622ee81c50dd41cfbc8ba53cc210c0e9b1e (patch) | |
tree | ce023c1386443df762d73795e1c1c9615da00887 /src/bundles-containers.ads | |
parent | fd71b0e74f89a7eb31e2a80a1b47614c2a59569f (diff) |
Simplified Bundle_Containers to use an array instead of a Map
Diffstat (limited to 'src/bundles-containers.ads')
-rw-r--r-- | src/bundles-containers.ads | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/bundles-containers.ads b/src/bundles-containers.ads index c12aa39..1982693 100644 --- a/src/bundles-containers.ads +++ b/src/bundles-containers.ads @@ -2,11 +2,11 @@ with - Ada.Containers.Ordered_Maps, Ada.Containers.Vectors; generic + type Candidate_Range is range <>; package Bundles.Containers is @@ -15,19 +15,15 @@ package Bundles.Containers is Element_Type => Bundle); - package Bundle_Maps is new Ada.Containers.Ordered_Maps - (Key_Type => Candidates.CandidateID, - Element_Type => Bundle_Vectors.Vector, - "<" => Candidates."<", - "=" => Bundle_Vectors."="); + subtype Bundle_Vector is Bundle_Vectors.Vector; - subtype Bundle_Map is Bundle_Maps.Map; + type Bundle_Collection is array (Candidate_Range) of Bundle_Vector; procedure Read_Bundles (Filename : in String; - Result : out Bundle_Map); + Result : out Bundle_Collection); end Bundles.Containers; |