Re: types and non-contigous ranges

[Dmitry A. Kazakov <mailbox@dmitry-kazakov.de>]

On Thu, 26 Feb 2004 15:17:38 +0100, Erlo Haugen <_elh_@_tema_._com_>
wrote:

>Hello everyone,
>what is the easiest way to define a (sub)type consisting of ranges and 
>single values?

Only ranges are allowed.

>Let me give an example:
>
>I want a type, based on character, that contains 'A'..'Z' and '0'..'9'
>and some single characters like '�','�' and '�'.
>
>subtype Valid_Characters is character range 'A'..'Z' ????? and what then??
>
>
>Do I really have list all the values?

Take a look at Ada.Strings.Maps and Strings.Maps.Constants. They
provide sets of characters, operations on them and useful constant
sets like Alphanumeric_Set etc. I think that

Whatsoever : constant Character_Set :=
   Decimal_Digit_Set  or
   To_Set (Character_Range'('A', 'Z')) or
   To_Set ('�') or
   To_Set ('�') or
   To_Set ('�');

is what you are looking for.

--
Regards,
Dmitry A. Kazakov
www.dmitry-kazakov.de