Re: Declaration of private type Containers

[Adam Beneschan <adam@irvine.com>]

On May 30, 6:59 am, alexander.kle...@web.de wrote:
> Thanks so far.
> So if I understand you right, there is no way to declare the list
> package within the spec file of My_Type beside declaring My_Type
> public?

You could use a nested package, although I'm not sure if this would
give you what you want:

   package A is

       package Nested is
          type My_Type is private;
       private
          type My_Type is ...
       end Nested;

       subtype My_Type is Nested.My_Type;
       package My_Type_Lists is new Ada.Containers.Doubly_Linked_List
          (Element_Type      => My_Type);

   end A;

This is legal, and My_Type_Lists is now inside A as you want, but now
only the body of A.Nested will have access to the full definition of
Nested.  Maybe it could be made to work, though.

                             -- Adam