Re: Rep Clause Vaues??

Re: Rep Clause Vaues??

[Samuel Tardieu]

>>>>> "Robert" == Robert B Love <rlove@neosoft.com> writes:

Robert> What method can I use to get back the bit pattern or integer
Robert> value represented by the enumerated type?  All my attempts at
Robert> type conversion and pos/val attributes have failed.

Wanna be dirty? :) The untested piece of code below should do the job
using the Get_Value function:

###
   type Int_Mechs is mod 2 ** Mechs'Size;
   for Int_Mechs'Size use Mechs'Size;

   function Get_Value is new Ada.Unchecked_Conversion (Mechs, Int_Mechs);
###

  Sam
-- 
Samuel Tardieu -- sam@ada.eu.org

Re: Rep Clause Vaues??

[David C. Hoos, Sr.]

Hi Robert,
The main problem in your thinking is that 'Val and 'Pos only relate the
enumeration VALUE and its POSITION in the declaration.  See Ada95 LRM
13.4(11).
The only way to obtain the representation is with unchecked conversion. 
The following code shows how it can be done.  Note carefully the comments
in the code.

with Unchecked_Conversion;
procedure Love is
type mechs is (bolt,latch);
for mechs use(bolt => 12, latch => 29);
-- You should specify a size for this type here.  
-- E.g., for Mechs'Size use Integer'Size.
-- In my experience, when specific representations are needed, e.g., to
match
-- some hardware or software interface, the size should be specified to
insure
-- portability, even if your current Ada compiler generates the correct
size
-- by default.

mechanism : mechs := latch;

-- Here we specify an integer tyoe which has exactly the same size as the
-- mechs type.
type Mechs_Bit_Pattern_Type is new Integer range 0 .. 2 ** Mechs'Size -1;
for Mechs_Bit_Pattern_Type'Size use Mechs'Size;

-- And, of, cource, we declare the object to be of our new type.
bit_pattern : Mechs_Bit_Pattern_Type;

-- here we declare two instances of Unchecked_Conversion to convert from
the
-- integer type to the enumerated type, and vice versa.

function To_Mechs is new Unchecked_Conversion (
    Source => Mechs_Bit_Pattern_Type,
    Target => Mechs
    );

function To_Mechs_Bit_Pattern_Type is new Unchecked_Conversion (
    Source => Mechs,
    Target => Mechs_Bit_Pattern_Type
    );

begin
   --....
   --....
   -- And the assignment now becomes
   bit_pattern := To_Mechs_Bit_Pattern_Type (mechanism);
   --....
end Love;

-- 
David C. Hoos, Sr.,
http://www.dbhwww.com
http://www.ada95.com

Robert B. Love  <rlove@neosoft.com> wrote in article
<5c3oh5$7oh@uuneo.neosoft.com>...
> 
> Because of design aspects beyond my control I find myself wanting
> to know how to return the bit pattern of an enumerated type that
> has a specific rep spec.  A simple example fragment is in order--
> 
> type mechs is (bolt,latch);
> for mechs use(bolt => 12, latch => 29);
> 
> mechanism : mechs := latch;
> bit_pattern : integer;
> 
> begin
>    ....
>    ....
>    bit_pattern := Integer(mechs'val(mechanism));
>    ....
> end
> 
> What method can I use to get back the bit pattern or integer
> value represented by the enumerated type?  All my attempts at
> type conversion and pos/val attributes have failed.
> 
> All help appreciated.
> ----------------------------------------------------------------
> Bob Love, rlove@neosoft.com (local)        MIME & NeXT Mail OK
> rlove@raptor.rmnug.org  (permanent)        PGP key available
> ----------------------------------------------------------------
> 
> 

Rep Clause Vaues??

[Robert B. Love]

Because of design aspects beyond my control I find myself wanting
to know how to return the bit pattern of an enumerated type that
has a specific rep spec.  A simple example fragment is in order--

type mechs is (bolt,latch);
for mechs use(bolt => 12, latch => 29);

mechanism : mechs := latch;
bit_pattern : integer;

begin
   ....
   ....
   bit_pattern := Integer(mechs'val(mechanism));
   ....
end

What method can I use to get back the bit pattern or integer
value represented by the enumerated type?  All my attempts at
type conversion and pos/val attributes have failed.

All help appreciated.
----------------------------------------------------------------
Bob Love, rlove@neosoft.com (local)        MIME & NeXT Mail OK
rlove@raptor.rmnug.org  (permanent)        PGP key available
----------------------------------------------------------------

Re: Rep Clause Vaues??

[Robert A Duff]

In article <01bc0862$77b689c0$018c71a5@dhoossr.iquest.com>,
David C. Hoos, Sr. <david.c.hoos.sr@ada95.com> wrote:
>-- E.g., for Mechs'Size use Integer'Size.
...
>type Mechs_Bit_Pattern_Type is new Integer range 0 .. 2 ** Mechs'Size -1;
>for Mechs_Bit_Pattern_Type'Size use Mechs'Size;

If Mechs'Size = Integer'Size, then Integer'Last is probably
2**(Mechs'Size-1)-1, so the above will overflow.

I suspect you meant:

    type Mechs_Bit_Pattern_Type is range 0 .. 2 ** Mechs'Size -1;

which will work fine, IF the implementation supports integer types
bigger than Integer.

If you want an unsigned type that is the same size as the biggest
supported signed integer, then you have to use modular types, which is
unfortunate, because you lose overflow checking.  (It's unfortunate if
you *want* overflow checking, that is.)

- Bob

Re: Rep Clause Vaues??

[Robert Dewar]

Bob Love asks

"What method can I use to get back the bit pattern or integer
value represented by the enumerated type?  All my attempts at
type conversion and pos/val attributes have failed."


1) use unchecked conversion
2) if you are using GNAT, check out the 'Enum_Rep attribute, which does
	exactly what you want.

Re: Rep Clause Vaues??

[Robert Dewar]

Matthew says

I'm curious, why didn't you name the attribute just 'Rep, rather than 'Enum_Rep?

Robert replies

because it applies only to enumeration types

Re: Rep Clause Vaues??

[Matthew Heaney]

In article <dewar.854213652@merv>, dewar@merv.cs.nyu.edu (Robert Dewar) wrote:


>"What method can I use to get back the bit pattern or integer
>value represented by the enumerated type?  All my attempts at
>type conversion and pos/val attributes have failed."
>
>2) if you are using GNAT, check out the 'Enum_Rep attribute, which does
>        exactly what you want.

I'm curious, why didn't you name the attribute just 'Rep, rather than 'Enum_Rep?

--------------------------------------------------------------------
Matthew Heaney
Software Development Consultant
<mailto:matthew_heaney@acm.org>
(818) 985-1271