Re: semi-visibility

["Steve" <nospam_steved94@attbi.com>]

Is there some reason you don't want to put type Visible_To_Relatives in the
private part of A?

Steve
(The Duck)

<tmoran@acm.org> wrote in message news:YR8Ga.121540$d51.192359@sccrnsc01...
> I want to do the following, but it's illegal.  What's a good way to
> accomplish the purpose, preferably without increasing the depth of
> the package heirarchy, or enlarging package A.
>
> private package A.B is
>   type Visible_To_Relatives is ...
> end A.B;
>
> with A.B;
> package A.C is
>   type T is private;
>   procedure P(x : in T);
> private
>   type T is record
>     v : A.B.Visible_To_Relatives;
>   end record;
> end A.C;
>
> with A.B;
> package A.D is ...
>   -- private part here similarly needs visibility of A.B