diff options
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 := ',') |