From 964a28e91593c4bf1e1c132536828d87f8d12c84 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 8 Feb 2017 11:25:34 +1100 Subject: Bundles mostly done, still need to adapt Preferences and Candidates packages --- src/candidates.ads | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/candidates.ads') 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 := ',') -- cgit