comp.lang.ada
 help / color / mirror / Atom feed
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: generic child package
Date: Sun, 23 Jul 2006 09:24:28 +0200
Date: 2006-07-23T09:24:27+02:00	[thread overview]
Message-ID: <18vshm271kljo$.14dm2c0ayqmwz$.dlg@40tude.net> (raw)
In-Reply-To: 1153637097.986754.139160@75g2000cwc.googlegroups.com

On 22 Jul 2006 23:44:58 -0700, nblanpain@hotmail.com wrote:

> Is my example correct ? :
> 
> ------------------------------
> generic
>    with type T_Toto is private;

type T_Toto is private;

> package Parent is
>    pragma Pure;
> end Parent;
> ------------------------------
> 
> ------------------------------
> generic
> package Parent.Child1 is
>    type T_Child1 is tagged private;
>    ....
> end Parent.Child1;
> ------------------------------
> 
> ------------------------------
> generic
>    with P_Child1 is new Parent.Child1;   ----- or with P_Child1 is new
> Parent.Child1 (<>); ?????

with package P_Child1 is new Parent.Child1;

> package Parent.Child2 is
>    type T_Child2 is new P_Child1.T_Child1 with private;
>    ....
> end Parent.Child2;
> ------------------------------
> 
> Is there or problem or is it correct ?

What about:

generic
package Parent.Child1.Grandchild1 is
   type T_Grandchild1 is new T_Child1 with private;
   ....
end Parent.Child1.Grandchild1;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de



  reply	other threads:[~2006-07-23  7:24 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2006-07-23  6:44 generic child package nblanpain
2006-07-23  7:24 ` Dmitry A. Kazakov [this message]
2006-07-23 17:57   ` nblanpain
2006-07-23 18:08     ` Ludovic Brenta
2006-07-24  7:26     ` Dmitry A. Kazakov
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox