From: Georg Bauhaus <sb463ba@l1-hrz.uni-duisburg.de>
Subject: Re: if X in 1..35000 versus Boolean
Date: Tue, 16 Jul 2002 20:25:52 +0000 (UTC)
Date: 2002-07-16T20:25:52+00:00 [thread overview]
Message-ID: <ah1vgg$d6t$1@a1-hrz.uni-duisburg.de> (raw)
In-Reply-To: pan.2002.07.16.12.08.32.802779.1467@gmx.net
Jan Prazak <janp9@gmx.net> wrote:
: Yes! That's exactly what I meant, but I gave it only another name.
: Then I haven't misunderstood something, it just doesn't exist in Ada.
:
Would this meet your needs?
procedure Set_Stuff is
X: Integer; -- at random
begin
case X is
when 1..100 =>
-- ...
when -12 .. -6 =>
-- ...
when 120 | 122..124 =>
-- ...
when others =>
raise Constraint_Error;
end case;
end Set_Stuff;
-- Georg
next prev parent reply other threads:[~2002-07-16 20:25 UTC|newest]
Thread overview: 37+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-07-13 19:10 if X in 1..35000 versus Boolean Jan Prazak
2002-07-13 16:27 ` Frank J. Lhota
2002-07-13 20:36 ` Jan Prazak
2002-07-13 18:05 ` Jeffrey Carter
2002-07-14 15:02 ` Jan Prazak
2002-07-13 22:10 ` Robert Dewar
2002-07-14 21:16 ` Jan Prazak
2002-07-14 20:47 ` Frank J. Lhota
2002-07-15 1:21 ` Jeffrey Carter
2002-07-16 8:18 ` Keith Thompson
2002-07-16 13:54 ` Jan Prazak
2002-07-16 11:13 ` Lutz Donnerhacke
2002-07-17 19:04 ` Jan Prazak
2002-07-17 20:00 ` Georg Bauhaus
2002-07-18 8:11 ` Lutz Donnerhacke
2002-07-18 14:39 ` Georg Bauhaus
2002-07-20 0:37 ` Robert Dewar
2002-07-16 20:25 ` Georg Bauhaus [this message]
2002-07-17 19:29 ` Jan Prazak
2002-07-16 19:24 ` Gautier
2002-07-17 19:04 ` Jan Prazak
2002-07-13 16:32 ` David C. Hoos, Sr.
2002-07-13 20:36 ` Jan Prazak
2002-07-13 18:02 ` David C. Hoos, Sr.
2002-07-13 18:17 ` sk
2002-07-13 20:02 ` Jeffrey Creem
[not found] ` <3D306ED5.33E80E09@myob.com>
2002-07-13 18:52 ` David C. Hoos, Sr.
[not found] ` <020a01c22a9f$2b50d6c0$6400000a@dhoos>
2002-07-13 19:02 ` sk
2002-07-14 15:02 ` Jan Prazak
2002-07-14 19:25 ` Darren New
2002-07-15 15:22 ` Steffen Huber
2002-07-13 16:44 ` Christopher Browne
2002-07-13 22:09 ` Robert Dewar
2002-07-13 17:17 ` tmoran
2002-07-13 19:44 ` Florian Weimer
-- strict thread matches above, loose matches on Subject: below --
2002-07-14 20:22 Gautier direct_replies_not_read
2002-07-15 11:36 ` Jan Prazak
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox