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-Google-Thread: a07f3367d7,efde8669839c1c0a
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,UTF8
Path: 
 g2news2.google.com!postnews.google.com!m11g2000yqf.googlegroups.com!not-for-mail
From: Maciej Sobczak <see.my.homepage@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Proper program structure
Date: Thu, 1 Oct 2009 00:44:23 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: 
 <95701c21-20be-44d4-bfd8-a9b42a2535bc@m11g2000yqf.googlegroups.com>
References: 
 <638d582c-f275-48a9-aa2a-237f2edd123c@c37g2000yqi.googlegroups.com>
	<Q3Ywm.24476$lR3.1736@newsfe25.iad>
NNTP-Posting-Host: 137.138.182.236
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1254383063 20885 127.0.0.1 (1 Oct 2009 07:44:23
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 1 Oct 2009 07:44:23 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: m11g2000yqf.googlegroups.com; posting-host=137.138.182.236;
	posting-account=bMuEOQoAAACUUr_ghL3RBIi5neBZ5w_S
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US;
	rv:1.9.1.3) Gecko/20090824 Firefox/3.5.3,gzip(gfe),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:8555
Date: 2009-10-01T00:44:23-07:00
List-Id: <comp.lang.ada>

On 1 Pa=C5=BA, 08:34, Brad Moore <brad.mo...@shaw.ca> wrote:

> See my example below. I have each component as a private child of Cars.
> I get around the issue you describe by having Cars.Vehicle as a sibling
> of the other components, and by using private with. Cars is just a root
> package that only contains some minimal type declarations that are
> shared between the various packages.

Very nice. Yes, I have missed this option.
In my system the packages would have a different structure - Cars is
not a root anyway, but everything is in the hierarchy rooted in (let's
say) Transport. This allows me to have Cars without any artificial
child Vehicle package, and all components are in private package
Transport.Components.

Thank you for this suggestion.

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

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