Re: array(enumeration)

[Frode Tenneboe <ft@alne.edh.ericsson.se>]

Mario Amado Alves <maa@di.fct.unl.pt> wrote:
: How do I define an array type indexed by an enumeration type?

:   type Array_Type is array(<>) of Some_Type;
:     --                    /|\
:     --                     |
:     -- compiler says identifier expected here

It is. You have to give the discrete type otherwise integer is assumed.

Try:

with Text_Io;

procedure Enum is

   type Month is (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
   type Array_Type is array(Month range <>) of Integer;

   Spring : Array_Type(Mar..May) := (Mar => 31, Apr => 30, May =>31);

begin
   Text_Io.Put_Line(Month'Image(Spring'First)& " has "& Integer'Image(Spring(Spring'First))& " days.");

end Enum;

: This makes sense to me, but does not compile. So how do I code the idea?

Does this make more sense?

 -Frode
-- 
^ Frode Tenneb�                    | email: ft@edh.ericsson.se      ^
| Ericsson Radar AS. N-1788 Halden |                                |
| Phone: +47 69 21 41 47           | Frode@IRC                      |
| with Standard.Disclaimer; use Standard.Disclaimer;                |