--::::::::::
--lilpcnad.adb
--::::::::::

package body List_Lpt_Cntl.Advanced is

function Identical (List_1, List_2: List_Type;
                    Equal:          EQ_Type) return boolean is
   begin -- Identical
      return adv_zqklst.Identical (List_1.List, List_2.List, Equal);
   end      Identical;
   -------------------------------------------------------
function Size (List: List_Type) return integer is
   begin -- Size
      return adv_zqklst.Size (List.List);
   end Size;
   -------------------------------------------------------
procedure Insert (Object  : in out Object_Type;
                  Position: in     positive;
                  List    : in     List_Type) is
   begin -- Insert
      adv_zqklst.Insert (Object, Position, List.List);
   end Insert;
   --------------------------------------------------
procedure Remove (List    : in     List_Type;
                  Position: in     positive;
                  Object  : in out Object_Type) is
   begin -- Remove
      adv_zqklst.Remove (List.List, Position, Object);
   end Remove;
   ---------------------------------------------------
procedure Poke (List  : in out List_Type;
                Index : in     positive;
                Object: in out Object_Type) is
   begin -- Poke
      adv_zqklst.Poke (List.List, Index, Object);
   end Poke;
   --------------------------------------------------
function Peek (List: List_Type;
               Index   : positive) return Object_Type is
   begin -- Peek
      return adv_zqklst.Peek (List.List, Index);
   end Peek;
   --------------------------------------------------

end List_Lpt_Cntl.Advanced;