From ea99441e0da927e5a40cf21311265c7e22974f12 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 13 Feb 2017 13:21:17 +1100
Subject: Preference dedupe removed, bignum library obtained from internet
 (will be replaced later)

---
 src/bundles.adb | 28 ++++++++--------------------
 1 file changed, 8 insertions(+), 20 deletions(-)

(limited to 'src/bundles.adb')

diff --git a/src/bundles.adb b/src/bundles.adb
index 50741ee..39c6cfa 100644
--- a/src/bundles.adb
+++ b/src/bundles.adb
@@ -5,17 +5,9 @@ package body Bundles is
 
     procedure Add
            (To   : in out Bundle;
-            Item : in     Given_Prefs.Preference_Array)
-    is
-        use type Given_Prefs.Preference_Array;
+            Item : in     Given_Prefs.Preference_Array) is
     begin
-        for P of To.Papers loop
-            if P.Prefs = Item then
-                P.How_Many := P.How_Many + 1;
-                return;
-            end if;
-        end loop;
-        To.Papers.Append ( (How_Many => 1, Prefs => Item) );
+        To.Papers.Append (Item);
     end Add;
 
 
@@ -38,20 +30,21 @@ package body Bundles is
             Position := Given_Prefs.Preference_Range'First;
 
             while Position <= Given_Prefs.Preference_Range'Last and then
-                  P.Prefs (Position) /= From
+                  P (Position) /= From
             loop
                 Position := Position + 1;
             end loop;
             Position := Position + 1;
 
             while Position <= Given_Prefs.Preference_Range'Last and then
-                  Excluded.Contains (P.Prefs (Position))
+                  P (Position) /= Candidates.No_Candidate and then
+                  Excluded.Contains (P (Position))
             loop
                 Position := Position + 1;
             end loop;
 
             if Position <= Given_Prefs.Preference_Range'Last and then
-               P.Prefs (Position) = To
+               P (Position) = To
             then
                 Result.Papers.Append (P);
             end if;
@@ -73,14 +66,9 @@ package body Bundles is
 
     function Count_Papers
            (This : in Bundle)
-        return Natural
-    is
-        Result : Natural := 0;
+        return Natural is
     begin
-        for P of This.Papers loop
-            Result := Result + P.How_Many;
-        end loop;
-        return Result;
+        return Integer (This.Papers.Length);
     end Count_Papers;
 
 
-- 
cgit