Re: Need Value of enum type not position.

["Robert I. Eachus" <rieachus@comcast.net>]

Daniel Allex wrote:

> With the following declaration:
>  
>    type Hov_Mode_Type is 
>          (INVALID,  
>           OFF,      
>           INITIATE, 
>           AUTO); 
>    for Hov_Mode_Type use(
>       INVALID  => 7, 
>       OFF      => 8, 
>       INITIATE => 9, 
>       AUTO     => 10);
> 
> I can get the position 
>    Ada.Text_IO.Put_Line(Integer'Image(Hov_Mode_Type'Pos(I)));
> Which returns 0,1,2, or 3.  What I want is the value of 7,8,9,10.  I
> can't get 'val to work.  need some help.

The ability to specify representations for enumeration types changes how 
the values are represented in hardware.  The function 'Pos returns the 
position number, not the representation.  If you want the 
representation, add also a 'Size clause, then do an Unchecked_Conversion 
to an appropriate integer type.

For this particular case you could just declare a type with eleven 
values, and derive from it:

type Hov_Base_Type is (HovO, Hov1, Hov2, Hov3, Hov4, Hov5, Hov6,
                        Invalid, Off, Initiate, Auto);
type Hov_Mode_Type is new Hov_Base_Type range Invalid..Auto;

-- 
                                           Robert I. Eachus

100% Ada, no bugs--the only way to create software.