Re: premature use

[Jim Rogers <jimmaureenrogers@worldnet.att.net>]

Try putting File_List and Index_List in a child package

package Help_Lists.File_Lists is
    package File_List is
       new Double_Linked_List(Data_Type => Help_File_Type);
    pacakge Index_List is new
       Double_Linked_List(Data_Type => Help_Index_Type);
end Help_Lists.File_Lists;

Jim Rogers

Preben Randhol wrote:

> When I try to make the package as below I get from GNAT the error:
> 
>    premature use of private type
> 
> I understand this is correct, but is it possible to make this package in
> a way that makes the Help_File_Type and Help_Index_Type private while
> keeping File_List and Index_List public?
> 
> Thanks in advance.
> 
> Preben
> --------------------------------------------------------------------
> with Double_Linked_List;
> with Ada.Strings.UnBounded;   use Ada.Strings.UnBounded;
> 
> pragma Elaborate_All (Double_Linked_List);
> 
> package Help_Lists is
> 
>    type Help_File_Type is private;
>    type Help_Index_Type is private;
> 
>    package File_List is
>       new Double_Linked_List (Data_Type => Help_File_Type);
> 
>    package Index_List is
>       new Double_Linked_List (Data_Type => Help_Index_Type);
> 
> private
>    type Help_File_Type is
>       record
>          Topic : Unbounded_String;
>          Text  : Unbounded_String;
>       end record;
> 
>    type Help_Index_Type is
>       record
>          Section : Unbounded_String;
>          List    : File_List.List_Type;
>       end record;
> 
>    Help_List : Index_List.List_Type := Index_List.New_List;
> 
> end Help_Lists;
> ---------------------------------------------------------------------
>