From 5a8a3749f46828f1db5cbd6bd55d22ea9e188ab1 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 5 Feb 2017 00:43:59 +1100 Subject: CSV package done, sketched out Candidates package --- src/candidates.adb | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 src/candidates.adb (limited to 'src/candidates.adb') 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; + + -- cgit