Package Hierarchy and Private functions

Package Hierarchy and Private functions

[RasikaSrinivasan]

Friends

Supposing we have 2 packages like :

package P is
  type Pvt_T is private ;
private
  type Pvt_T is ... ;
  procedure Pvt_Proc(p : in out Pvt_T) ;
end P ;

---------------------

package P.C is
....
end P.C ;

------------------

Is there a way for P.C to access Pvt_Proc (instead of making it
public). I guess this may be analogous to protected in C++?

Does P.C has a special relationship to P?

any pointers/advice appreciated. thanks, srini

Re: Package Hierarchy and Private functions

[Maciej Sobczak]

On 18 Mar, 13:22, "RasikaSriniva...@gmail.com"
<RasikaSriniva...@gmail.com> wrote:

> Supposing we have 2 packages like :
>
> package P is
>   type Pvt_T is private ;
> private
>   type Pvt_T is ... ;
>   procedure Pvt_Proc(p : in out Pvt_T) ;
> end P ;
>
> ---------------------
>
> package P.C is
> ....
> end P.C ;
>
> ------------------
>
> Is there a way for P.C to access Pvt_Proc

Yes. Just do it.

> I guess this may be analogous to protected in C++?

Ada's private *is* analogous to protected in C++.

> Does P.C has a special relationship to P?

Yes, it can see its private (which means protected) parts.

--
Maciej Sobczak * www.msobczak.com * www.inspirel.com

Database Access Library for Ada: www.inspirel.com/soci-ada

Re: Package Hierarchy and Private functions

[Srini -]

Thanks. The doubt came due to an error message that I misunderstood.
srini

On Mar 18, 8:42 am, Maciej Sobczak <see.my.homep...@gmail.com> wrote:
> On 18 Mar, 13:22, "RasikaSriniva...@gmail.com"
>
>
>
> <RasikaSriniva...@gmail.com> wrote:
> > Supposing we have 2 packages like :
>
> > package P is
> >   type Pvt_T is private ;
> > private
> >   type Pvt_T is ... ;
> >   procedure Pvt_Proc(p : in out Pvt_T) ;
> > end P ;
>
> > ---------------------
>
> > package P.C is
> > ....
> > end P.C ;
>
> > ------------------
>
> > Is there a way for P.C to access Pvt_Proc
>
> Yes. Just do it.
>
> > I guess this may be analogous to protected in C++?
>
> Ada's private *is* analogous to protected in C++.
>
> > Does P.C has a special relationship to P?
>
> Yes, it can see its private (which means protected) parts.
>
> --
> Maciej Sobczak *www.msobczak.com*www.inspirel.com
>
> Database Access Library for Ada:www.inspirel.com/soci-ada

Re: Package Hierarchy and Private functions

[Robert A Duff]

"RasikaSrinivasan@gmail.com" <RasikaSrinivasan@gmail.com> writes:

> Supposing we have 2 packages like :
>
> package P is
>   type Pvt_T is private ;
> private
>   type Pvt_T is ... ;
>   procedure Pvt_Proc(p : in out Pvt_T) ;
> end P ;
>
> ---------------------
>
> package P.C is
> ....
> end P.C ;
>
> ------------------
>
> Is there a way for P.C to access Pvt_Proc (instead of making it
> public).

The contents of P's private part are visible in the private part and the
body of P.C.  It's similar to putting a package C nested inside P,
but not exactly the same.

If you make P.C into a private child package:

private package P.C is
...
end P.C ;

then the contents of P's private part are visible in ALL of P.C,
including its visible part.

> I guess this may be analogous to protected in C++?

Yeah, sort of.

- Bob