RE: Child packages question

From: "Steven Deller" <deller@smsail.com>
Subject: RE: Child packages question
Date: Mon, 8 Apr 2002 22:54:50 -0400
Date: 2002-04-08T22:54:50-04:00	[thread overview]
Message-ID: <mailman.1018324623.16405.comp.lang.ada@ada.eu.org> (raw)
In-Reply-To: <3CB24F38.2D03C71A@myob.com>

Nice example.

The second commented item (that you want to uncomment and see a
complaint) should read:
--    Car.Engine.Pump_More_Gas ;
not 
--    Car.Engine.Accelerate;

Of course a compiler will complain about either, but I believe the
germane complaint (regarding private package) would occur for the first.

Regards,
Steve

> -----Original Message-----
> From: comp.lang.ada-admin@ada.eu.org 
> [mailto:comp.lang.ada-admin@ada.eu.org] On Behalf Of sk
> Sent: Monday, April 08, 2002 10:17 PM
> To: comp.lang.ada@ada.eu.org
> Subject: Re: Child packages question
> 
> 
> Hi,
> 
> -----------------------------------------------------
> -- file1 : car.ads
> package Car is
> 
>     procedure Accelerate;
> 
> end Car;
> 
> -----------------------------------------------------
> -- file2 : car.ads
> with Car.Engine;
> 
> package body Car is 
> 
>     procedure Accelerate is
>     begin
>         Car.Engine.Pump_More_Gas;
>     end Accelerate;
> 
> end Car;  
> 
> -----------------------------------------------------
> -- file2 : car-engine.ads
> private package Car.Engine is
> 
>     procedure Pump_More_Gas;
> 
> end Car.Engine;
> 
> -----------------------------------------------------
> -- file2 : car-engine.adb
> package body Car.Engine is
> 
>     procedure Pump_More_Gas is
>     begin
>         null;
>     end Pump_More_Gas;
> 
> end Car.Engine;
> 
> -----------------------------------------------------
> -- file2 : Mario_Andretti.adb
> with Car;
> --with Car.Engine;
> 
> procedure Mario_Andretti is
> 
> begin
>     Car.Accelerate;
>     
> --    Car.Engine.Accelerate;
> 
> end Mario_Andretti;
> -----------------------------------------------------
> 
> Try uncommenting :
> "with Car.Engine" 
> "Car.Engine.Accelerate"
> 
> Compiler should complain :-)
> 
> -- 
> -------------------------------------
> -- Merge vertically for real address
> -------------------------------------
> s n p @ t . o
>  k i e k c c m
> -------------------------------------
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada.eu.org 
> http://ada.eu.org/mailman/listinfo/comp.lang.ad> a
> 