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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,23cf9f1e93744eed
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-07-27 19:53:15 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!nntp-server.caltech.edu!attla2!ip.att.net!attbi_feed3!attbi.com!sccrnsc02.POSTED!not-for-mail
Message-ID: <3F24900B.8020002@attbi.com>
From: "Robert I. Eachus" <rieachus@attbi.com>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US;
 rv:1.0.2) Gecko/20021120 Netscape/7.01
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Need advice re package organization.
References: <pan.2003.07.26.13.08.25.810488@mail.utexas.edu>
 <3F228F3B.9020203@attbi.com> <yaxUa.374$XK4.16279@read1.cgocable.net>
 <3F22F9E9.3040307@attbi.com>
 <YPYUa.2260$2o3.28846@newsfep4-glfd.server.ntli.net>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 66.31.71.243
X-Complaints-To: abuse@comcast.net
X-Trace: sccrnsc02 1059360791 66.31.71.243 (Mon, 28 Jul 2003 02:53:11 GMT)
NNTP-Posting-Date: Mon, 28 Jul 2003 02:53:11 GMT
Organization: Comcast Online
Date: Mon, 28 Jul 2003 02:53:11 GMT
Xref: archiver1.google.com comp.lang.ada:40887
Date: 2003-07-28T02:53:11+00:00
List-Id: <comp.lang.ada>

chris wrote:
> What is a private child package?

private package Parent.Private_Child is... end Parent.Private_Child;

See RM 10.1.1(12), and 10.1.2(8). Probably one of the best kept secrets 
in Ada 95.  A private child package can have a with clause for another 
private child of the same parent (or ancestor package), but the real use 
is that the body of the parent package or any sibling can with the 
private package.

So if you have common utility routines that you don't want to make part 
of the parent's package spec, put them in a private child.  For example, 
the parent package might export a private type, and the private child 
could include the inquiry functions and other operations that needed to 
see into the private part of the parent.

-- 
"As far as I'm concerned, war always means failure." -- Jacques Chirac, 
President of France
"As far as France is concerned, you're right." -- Rush Limbaugh