diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-02-08 11:25:34 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-02-08 11:25:34 +1100 |
commit | 964a28e91593c4bf1e1c132536828d87f8d12c84 (patch) | |
tree | a386b12bdca1a18de5d09d80111facb0eaf6979b /src/candidates.ads | |
parent | f0a4bac4bde861bc639c8eca48682f96d7a751be (diff) |
Bundles mostly done, still need to adapt Preferences and Candidates packages
Diffstat (limited to 'src/candidates.ads')
-rw-r--r-- | src/candidates.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/candidates.ads b/src/candidates.ads index 8b76707..fe25228 100644 --- a/src/candidates.ads +++ b/src/candidates.ads @@ -14,6 +14,13 @@ package Candidates is type CandidateID is new Positive; + subtype Extended_CandidateID is CandidateID'Base + range CandidateID'First - 1 .. CandidateID'Last; + + + No_Candidate : constant Extended_CandidateID := Extended_CandidateID'First; + + function To_String (Input_Candidate : in Candidate; Delimiter : in Character := ',') |