gistfile1.txt

with System;
limited with DoXMLAda.Docs.Lists;

package DoXMLAda.Docs is
   --  IDoc
   type Base_Doc is abstract new Wrapper with private;

   --  IDocPara - paragraphs?
   type Doc_Para is new Base_Doc with private;

   type List_access is access Lists.List'Class;

   function Get_Contents_List (Self : in Doc_Para) return List_access;
private
   type Base_Doc is abstract new Wrapper with null record;

   type Doc_Para is new Base_Doc with null record;
end DoXMLAda.Docs;




with DoXMLAda.Docs.Lists;

package body DoXMLAda.Docs is
   function Get_Contents_List (Self : in Doc_Para) return List_access is
   begin
      return L : List_access := new Lists.List
      do
         Set_Internal (L.all, Contents (Self.Internal));
      end return;
    end Get_Contents_List;
end DoXMLAda.Docs;