Re: child class of limited_controlled not inheriting data

[Simon Wright <simon@pushface.org>]

b.mcguinness747@gmail.com writes:

> Then I defined a child class as
>
> with sofa.time.two_part_date;
>
> package sofa.time.Julian_Day_Numbers is
>   type Julian_Day_Number is new sofa.time.two_part_date.Date with null record;
>
>   function To_Julian_Day_Number (time : Instant) return Julian_Day_Number;
>   function To_Calendar_Date (this : Julian_Day_Number; calendar : Calendar_Type := GREGORIAN; zone : Time_Zone_Number := 0) return Instant;
>   function To_Milliseconds (this : Julian_Day_Number) return Integer;
>
> end sofa.time.Julian_Day_Numbers;
>
>
> When I try to compile the child class, I get error messages such as
>
> sofa-time-julian_day_numbers.adb:77:79: "day_count" is not a component
> of type "Julian_Day_Number" defined at sofa-time-julian_day_numbers.ads:4
>
> indicating that the child class is not inheriting the data from the
> parent class.

You would need to put the julian day stuff in a child package:

   package sofa.time.two_part_date.Julian_Day_Numbers ...

Otherwise there's no visibility of the private part of two_part_date.