Re: Case statement and Integers.

["Vadim Godunko" <vgodunko@vipmail.ru>]

case Numbers(J) is
   when Numbers (J) in Numbers_Array_Element_Type'First .. Pivot - 1 =>
      swap ...
   when Numbers (J) in Pivot + 1 .. Numbers_Array_Element_Type'Last =>
      swap ...
   when others =>
      null;
end case;

----- Original Message ----- 
From: "Wannabe h4x0r" <chris@dont.spam.me>
Newsgroups: comp.lang.ada
Sent: Saturday, April 20, 2002 8:42 PM
Subject: Case statement and Integers.


> I have a statement like this...
> 
> case numbers(j) is
> when numbers(j) < pivot => swap(left_swap, right_swap); 
> -- If the number is less than the pivot, swap it with the number
> -- to the right of the Pivot;
> when numbers(j) > pivot => swap(right_swap, left_swap);
> -- If the number is greater than the pivot, then do the opposite of the
> -- above.
> when numbers(j) = pivot => null;
> when others => null;
> end case;
> 
> Now, it's pretty obvious whats wrong here. The swap procedure is
> expecting an Integer, and instead it's getting a boolean value due to the
> '>', '<', and '=>' operators.
> 
> Whats the proper way to indicate to the compiler that I want to send
> the numbers indexed by "left_swap" and "right_swap" to the swap procedure
> rather than the results of the boolean test in the case statement?
> 
> Thanks for your patience.
> 
> Chris