Re: Concatenate enumeration

[Eryndlia Mavourneen <eryndlia@gmail.com>]

On Nov 23, 1:15 pm, Pablo <pablit...@gmail.com> wrote:
> Hi, I have a enumerate type and I have another one which I want to add
> some enumerations.
> So:
> type Enumerate_Type is
>   (
>    NONE,
>    READY
>   );
> for Enumerate_Type use
>   (
>    NONE  => 0,
>    READY=> 1
>   );
> for Enumerate_Type'Size use 1;
>
> and I want to create a new type Enumerate2_Type which could be the
> form
> type Enumerate_Type is
>   (
>    NONE,
>    READY,
>    OFF
>   );
> for Enumerate_Type use
>   (
>    NONE  => 0,
>    READY=> 1,
>    OFF     => 2
>   );
> for Enumerate_Type'Size use 2;
>
> How to I do this without having to explicit clone the first one?
> Thanks

It sounds as if you want the binary values of your enumerations to be
concatenated within a field.  You *can* do this by declaring a record
that has 2 fields, one for each enumeration.  You then can use a
representation clause to specify that the first type is contained in,
say, the first bit of the record and that the second type is contained
in the next 2 bits of the record.

This has the effect of concatenating the bit representations of the
types, but, of course, it does not concatenate the enumerations at the
Ada level, that is, the literals themselves.

Eryndlia