Re: subtype of enumeration type

["Björn Persson" <spam-away@nowhere.nil>]

Maciej Sobczak wrote:
> Consider this:
> 
>    type Day is (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
> 
> and the following standard example:
> 
>    subtype Weekday is Day range Mon .. Fri;
> 
> Now imagine that in some country children don't have to go to school on 
> Wednesdays, they go there only Monday, Tuesday, Thursday and Friday.
> 
> I want to say it in Ada.
> 
>    subtype Schoolday is Day <what goes here?>;

I think the best you can do is:

Is_Schoolday : constant array(Day) of Boolean :=
   (True, True, False, True, True, False, False);

-- 
Bj�rn Persson                              PGP key A88682FD
                    omb jor ers @sv ge.
                    r o.b n.p son eri nu