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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.36.89.140 with SMTP id p134mr2142482itb.40.1521090291905;
        Wed, 14 Mar 2018 22:04:51 -0700 (PDT)
X-Received: by 10.157.82.140 with SMTP id f12mr329776oth.10.1521090291463;
 Wed, 14 Mar 2018 22:04:51 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.uzoreto.com!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!e10-v6no652217itf.0!news-out.google.com!a25-v6ni1312itj.0!nntp.google.com!e10-v6no652213itf.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 14 Mar 2018 22:04:51 -0700 (PDT)
In-Reply-To: <p8cagc$7fb$1@franka.jacob-sparre.dk>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2a02:1206:45c6:8b20:3c1c:b354:7823:2c1e;
 posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG
NNTP-Posting-Host: 2a02:1206:45c6:8b20:3c1c:b354:7823:2c1e
References: <365d65ea-5f4b-4b6a-be9b-1bba146394ab@googlegroups.com>
 <p8cagc$7fb$1@franka.jacob-sparre.dk>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <bec23d67-3cff-43d2-b099-8495f445403b@googlegroups.com>
Subject: Re: Ada case-statement
From: gautier_niouzes@hotmail.com
Injection-Date: Thu, 15 Mar 2018 05:04:51 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Xref: reader02.eternal-september.org comp.lang.ada:50984
Date: 2018-03-14T22:04:51-07:00
List-Id: <comp.lang.ada>

Le jeudi 15 mars 2018 00:16:29 UTC+1, Randy Brukardt a =C3=A9crit=C2=A0:

> declare
>   Selector : Day_Type renames Calculate_Day;
>   subtype Weekend_Subtype is Day_Type range Sat .. Sun;
>      -- Or use a static predicate if the range is discontiguous.
> begin
>   case Selector is
>       when Mon .. Fri =3D>
>          ...
>       when  Sat | Sun =3D>

You can even write "when Weekend_Subtype =3D>" there instead of "when Sat |=
 Sun =3D>".
And if you write above "subtype Weekend is Day_Type range Sat .. Sun", then=
 you have a nice "when Weekend =3D>" in the case statement.