-- ===========================================================================
-- Copyright 1996 by WPL Laboratories, Inc.  All Rights Reserved
--
--                        WPL Laboratories, Inc.
--                        Whitehall Offices, Suite 6
--                        410 Lancaster Avenue
--                        Haverford, PA 19041
--
--
-- For Support call 610-658-2362
--
-- $Revision: 1.1 $ $Date: 1995/01/15 19:48:46 $
--
-- ===========================================================================
 
generic

  type Element_Type is abstract tagged private;

package Generic_Lists_Pkg is

  type List_Type;
  type List_Ptr_Type is access all List_Type;
  type Element_Ptr_Type is access all Element_Type'Class;
  type List_Type is
    record
       This : Element_Ptr_Type;
       Next : List_Ptr_Type;
    end record;

  End_of_List : exception;

  procedure Add_to_End (List    : in out List_Ptr_Type;
                        Element : in     Element_Type'Class);


  procedure Next (List    : in out List_Ptr_Type;
                  Element :    out Element_Ptr_Type);
    -- removes access to previous list elements
    -- raises End_of_list if there are no more

end Generic_Lists_Pkg;