Re: how to print position number of an enumeration variable?

["DuckE" <nospam_steved94@home.com>]

Perhaps:
  Put_Line( "the position number of the first enumeration element is " &
                  Integer'Image( Day_Type'Pos( Day_Type'First ) ) );

SteveD

"mike@athome" <mike_member@newsguy.com> wrote in message
news:9p5rd30202n@drn.newsguy.com...
> hello,
>
> suppose I have a variable of some enumeration type, and I want to
> print or find the position number in the enumeration type that this
> variable holds. How can do that?
>
> for example:
>
> -----------
> with Ada.Text_Io; use Ada.Text_Io;
>
> procedure Enum is
>   type Day_type is (Monday, Tuesday, Wednesday, Thursday,
>                     Friday, Saturday, Sunday);
>
>   Day Day_Type := Monday;
>
> begin
>
>    Put_Line("the position number of first enumeration elemenet is " &
>              Day_type'Image( ???? ) );
>
> end Enum;
>
> ---------------
>
> I know that the first enumeration literal will have a position of 0. But
> I just wanted to see if one can print this value. I looked at the
attributes
> of scalar data types, and do not see something like S'pos ?
>
> thanks,
> mike
>