Re: subtype definitions

[Niklas Holsti <niklas.holsti@tidorum.invalid>]

On 12-09-26 16:45 , bj�rn lundin wrote:
> Hi!
> 
> I got a type definition as
> 
> type Assignment_Type_Type is (Transport, Store, Retrieve, Rearrange, Check, 
>                                 Set_Error, Restore, Mob_Trsp1, Mob_Trsp2, 
>                                 Mob_Trsp3, Mob_Trsp4, Mob_Store, Mob_Check);
> 
> I want to loop through some of the values, in another order
> 
> for Asm_Type in Transport | Check | Restore | Set_Error | Store loop
>   Do_Something(Asm_Type);
> end loop;
> 
> The above does not compile.
> 
> subtype Asm_Type_Type is Assignment_Type_Type range  Transport | Check | Restore | Set_Error | Store ; 
> no go . 
> 
> Is there a valid construction in Ada 05 (gnat) that I can use?

This is what comes to mind, apart from a simple sequence of calls to
Do_Something:

   Loop_Order : constant array (Integer range <>)
      of Assignment_Type_Type :=
      (Transport, Check, Restore, Set_Error, Store);

   for L in Loop_Order'Range loop
      Do_Something (Loop_Order(L));
   end loop;


-- 
Niklas Holsti
Tidorum Ltd
niklas holsti tidorum fi
      .      @       .