Re: Child packages question

[sk <noname@myob.com>]

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
-------------------------------------