Re: Thought this was funny

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

On Wed, 22 Oct 2003 08:44:44 +0200 (MET DST),
christoph.grein@eurocopter.com wrote:

>> case <boolean expression> is
>>   when true =>
>>        <do something>
>>
>>   when false =>
>>        <do something else>
>>
>> end case;
>
>What's so funny about this code. I also normally use if-statements with booleans but 
>there are circumstances where a case statement seems more appropriate to the 
>problem at hand.
>
>Take e.g. kind of double-buffering. I use an array indexed by Boolean and switch 
>via
>  "X := not X;"
>
>In such cases, neither True nor False denote something which is wrong or right, 
>so I prefer the case statement.
>
>Switching with a two-valued enumeration is not so elegant, you need a switch 
>table or a case statement instead of the simple "X := not X;".

This is not elegant, but it should work for all enumeration types
having two values:

 X := Enumeration'Val (1 - Enumeration'Pos (X));

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