From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,1b78051e65d4576a
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2004-02-26 23:53:28 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!colt.net!news.tele.dk!not-for-mail
Date: Fri, 27 Feb 2004 08:53:03 +0100
From: Erlo Haugen <_elh_@_tema_._com_>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; da;
 rv:1.5) Gecko/20031007
X-Accept-Language: da,en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: types and non-contigous ranges
References: <403e001b$0$144$edfadb0f@dread11.news.tele.dk>
 <vg5s30h8fihtrvc0k5kqu2nnhuc7u09nar@4ax.com>
In-Reply-To: <vg5s30h8fihtrvc0k5kqu2nnhuc7u09nar@4ax.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Message-ID: <403ef778$0$128$edfadb0f@dread11.news.tele.dk>
Organization: TDC Totalloesninger
NNTP-Posting-Host: 193.163.1.108
X-Trace: 1077868408 dread11.news.tele.dk 128 193.163.1.108:45172
X-Complaints-To: abuse@post.tele.dk
Xref: archiver1.google.com comp.lang.ada:5885
Date: 2004-02-27T08:53:03+01:00
List-Id: <comp.lang.ada>

Dmitry A. Kazakov skrev:
> 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.

I want to use the set/type like  this:
My_array : array[Valid_Characters] of something;
That excludes the character set, I guess.

-- 
Erlo
-----
Remove underscores from mail address.
The statements and opinions are mine and does not
neccesarily reflect those of my employers