Re: stopping a loop iteration without exiting it

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

On 2018-01-05 00:08, Niklas Holsti wrote:
> On 18-01-04 23:17 , Dmitry A. Kazakov wrote:
> 
>     [snip]
> 
>> I thought about really important cases, but could not invent syntax:
>>
>>    if X in T'Class then
>>       declare
>>          Same_X : T'Class renames T'Class (X);
>>       begin
>>          ...
>>       end;
>>    end if;
> 
> A syntax suggestion, drawing on analogy with exception handlers:
> 
>     case X is
>     when Same_X : T'Class =>
>        ...
>     when Same_X : U'Class =>  -- other named classes
>        ...
>     when others =>  -- always required
>        ...
>     end case;
> 
> This would be legal only if no two classes in the "whens" are related 
> with "in", so that at most one "when S'Class" matches X.

It looks nice, but is inconsistent, at least logically. T'Class and 
U'Class always overlap. Differently to this case, which is logically OK:

    case X'Tag is  -- Tag to denote "type"?
       when Same_X : T =>
          ...
       when Same_X : U =>  -- other instances
          ...
       when others =>  -- always required
          ...
    end case;

>>    if P /= null then
>>       declare
>>          X : P_Type renames P.all;
>>       begin
>>          ...
>>       end;
>>    end if;
> 
> Similarly, applying an implicit dereference to the selecting expression 
> when it has an access type:
> 
>     case P is
>     when X : P_Type =>
>        ...
>     when null =>  -- or "when others =>"
>        ...
>     end case;

But as heavy weight as if-declare ...

However the idea of re-using exception handler style declarations could 
be very helpful in general cases. For example this is very frequent in 
parsers and protocol handlers:

    declare
       Symbol : constant Character := Get_Character;
    begin
       case Symbol is
          when '0'..'9' =>
             -- Process digit
          when 'A'..'Z' | 'a'..'z' =>
             -- Process letter

Much better this:

    case Get_Character is
       when Digit : '0'..'9' =>
          -- Process digit
       when Letter : 'A'..'Z' | 'a'..'z' =>
          -- Process letter

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de