diff options
Diffstat (limited to 'src/candidates.adb')
-rw-r--r-- | src/candidates.adb | 45 |
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; + + |