CSV package done, sketched out Candidates package

1 files changed, 45 insertions, 0 deletions

diff --git a/src/candidates.adb b/src/candidates.adb
new file mode 100644
index 0000000..3701ffc
--- /dev/null
+++ b/src/candidates.adb
@@ -0,0 +1,45 @@
+
+
+with Ada.Text_IO;
+use Ada.Text_IO;
+with CSV;
+
+
+package body Candidates is
+
+
+    procedure Read_Candidates
+           (Data_File, State : in     String;
+            Above_Ballot     :    out Above_Line_Ballot;
+            Below_Ballot     :    out Below_Line_Ballot;
+            Candidate_List   :    out Candidate_Vectors.Vector)
+    is
+    begin
+    end Read_Candidate;
+
+
+
+
+    function Lookup
+           (Above_Ballot : in Above_Line_Ballot;
+            Index        : in Natural)
+        return CandidateID_Vectors.Vector is
+    begin
+        return Above_Ballot.Element (Index);
+    end Lookup;
+
+
+
+
+    function Lookup
+           (Below_Ballot : in Below_Line_Ballot;
+            Index        : in Natural)
+        return CandidateID is
+    begin
+        return Below_Ballot.Element (Index);
+    end Lookup;
+
+
+end Candidates;
+
+