From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Received: by 2002:a6b:4e0b:: with SMTP id
 c11-v6mr5304774iob.22.1530945443565;
        Fri, 06 Jul 2018 23:37:23 -0700 (PDT)
X-Received: by 2002:aca:c744:: with SMTP id
 x65-v6mr2864387oif.2.1530945443371;
 Fri, 06 Jul 2018 23:37:23 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!feeder4.usenet.farm!feed.usenet.farm!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!d7-v6no4291770itj.0!news-out.google.com!l67-v6ni4562itl.0!nntp.google.com!d7-v6no4291764itj.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Fri, 6 Jul 2018 23:37:23 -0700 (PDT)
In-Reply-To: <phplt1$m82$1@gioia.aioe.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=69.167.31.9;
 posting-account=tXrPSAkAAAAFR3M1xqoK7TQdrNxOfPT0
NNTP-Posting-Host: 69.167.31.9
References: <856189aa-fa00-4960-929e-174f352310ad@googlegroups.com>
 <3701bf07-89a5-4cb0-a704-5aebb589ca79@googlegroups.com>
 <2f5e4ce0-94e8-4b94-9da7-045ec90a9b22@googlegroups.com>
 <18554067-1382-4b43-a832-2d27aa5117d7@googlegroups.com>
 <8dc19505-b68a-403c-a164-f1de1864f3f1@googlegroups.com>
 <f7878185-925d-4752-9b3f-75506cce7deb@googlegroups.com>
 <da7000f7-7583-4119-b21e-87117b67b048@googlegroups.com>
 <d8ed2a68-b8f2-4d22-971c-1ddf8e387768@googlegroups.com>
 <559657f8-bbf4-4a70-9449-f85bc98d6c6b@googlegroups.com>
 <lyva9v84yb.fsf@pushface.org>
 <590d4672-4aef-42a5-823c-57ccd291115a@googlegroups.com>
 <phiqfe$1mte$1@gioia.aioe.org>
 <8de6b5ba-25ab-4d46-b80c-1544f43a9b05@googlegroups.com>
 <phjd1e$ofn$1@gioia.aioe.org>
 <c91c4183-a8fe-4b7a-858e-616728fbe844@googlegroups.com>
 <phlpfa$nkd$1@franka.jacob-sparre.dk>
 <670baa25-a987-45a0-991f-ec3aa2878233@googlegroups.com>
 <phodnf$tf1$1@franka.jacob-sparre.dk>
 <6acaa855-2508-49cc-a03f-16c6e00c91da@googlegroups.com>
 <87h8lcuesk.fsf@nightsong.com> <phplt1$m82$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ab47c8a8-2f43-48b5-8643-4ea2b9d18a49@googlegroups.com>
Subject: Re: Teaching C/C++ from Ada perspective?
From: Micronian Coder <micronian2@gmail.com>
Injection-Date: Sat, 07 Jul 2018 06:37:23 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Xref: reader02.eternal-september.org comp.lang.ada:53714
Date: 2018-07-06T23:37:23-07:00
List-Id: <comp.lang.ada>

Hi,

Jean-Pierre beat me to it, but I concur that child packages is Ada's answer=
 to C++ friend. I find child packages much better than C++ friend because y=
ou can keep adding additional subprograms, say for testing purposes, withou=
t ever touching the original package.

On Friday, July 6, 2018 at 11:17:06 PM UTC-7, J-P. Rosen wrote:
> Le 07/07/2018 =C3=A0 01:26, Paul Rubin a =C3=A9crit=C2=A0:
> > C++ can mitigate that somewhat with friend declarations: does Ada have
> > anything like that?  It means exporting a symbol from one package to a
> > specific other package, rather than choosing between keeping it private
> > or exporting it to the whole world.
> Make the other package a child.
>=20
> I often have packages with procedures declared in the private part for
> the benefit of children (only).
>=20
> --=20
> J-P. Rosen
> Adalog
> 2 rue du Docteur Lombard, 92441 Issy-les-Moulineaux CEDEX
> Tel: +33 1 45 29 21 52, Fax: +33 1 45 29 25 00
> http://www.adalog.fr