diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-02-06 13:34:23 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-02-06 13:34:23 +1100 |
commit | 8f2f6a5e2074a5da684f9f1a5f5e8f3c51a82b76 (patch) | |
tree | 2b11d86d759867e35db6489743355d2761c5bb53 /src/candidates.ads | |
parent | c2f324ac23ea143dfea308229f0ac0376ed4f745 (diff) |
More or less completed main procedure, fixed some bugs
Diffstat (limited to 'src/candidates.ads')
-rw-r--r-- | src/candidates.ads | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/candidates.ads b/src/candidates.ads index fb04a4e..8b76707 100644 --- a/src/candidates.ads +++ b/src/candidates.ads @@ -7,6 +7,9 @@ private with Ada.Containers.Vectors; package Candidates is + type State_Name is (ACT, NT, TAS, SA, WA, VIC, QLD, NSW); + + type Candidate is private; type CandidateID is new Positive; @@ -24,8 +27,9 @@ package Candidates is procedure Read_Candidates - (Filename, State : in String; - Candidate_List : out Candidate_Vector); + (Filename : in String; + State : in State_Name; + Candidate_List : out Candidate_Vector); function First |