Re: HELP: renames and enum values

[Tucker Taft <stt@averstar.com>]

Al Johnston wrote:
> 
> I am having a little trouble with the following:
> 
> package EU_AG.ET.Dsc is
> 
>   type OvrRd0State_Typ is (OVERRIDE_OFF,OVERRIDE_ON);
>   for  OvrRd0State_Typ'size use integer'size;
>   for  OvrRd0State_Typ use (OVERRIDE_OFF => 0,OVERRIDE_ON  => 1);
> end EU_AG.ET.Dsc;
> 
> with EU_AG.ET.Dsc;
> package SK_Types.Dsc is
>   package EU_AGETDsc renames EU_AG.ET.Dsc;
>   subtype OvrRd0State_Typ is EU_AGETDsc.OvrRd0State_Typ;
> end SK_Types.Dsc;
> 
> with SK_Types.Dsc;
> package THREE is
>   foo : SK_Types.Dsc.OvrRd0State_Typ := SK_Types.Dsc.OVERRIDE_OFF;
> end THREE;
> 
> When I compile "THREE" the compiler complains that "OVERRIDE_OFF" is not
> 
> declared in "Dsc".  I could get around this by renaming each of the enum
> values
> (that is adding OVERRIDE _OFF renames EU_AG.ET.Dsc.OVERRIDE_OFF;
> to the sk_types.dsc package spec,) but that would be pretty nasty for a
> large
> enum type... plus the fact that it totally defeats the point of package
> in the first place.
> 
> Any one know of a better way of doing the reference to OVERRIDE_OFF in
> the package THREE?

One way would be to move the enumeration type declaration into
a subpackage all by itself.  You could then rename this subpackage
rather than the enumeration type itself, and all references to the 
enumeration type and the enumeration literals would uniformly 
use the subpackage name as a prefix.

> thanks,
> 
> -al

-- 
-Tucker Taft   stt@averstar.com   http://www.averstar.com/~stt/
Technical Director, Distributed IT Solutions  (www.averstar.com/tools)
AverStar (formerly Intermetrics, Inc.)   Burlington, MA  USA