--::::::::::
--lplpcnad.adb
--::::::::::
package body List_Pos_Lpt_Cntl.Advanced is

function Equivalent (List_1, List_2: List_Type;
                     EQ: EQ_Type) return boolean is
   begin -- Equivalent
      return adv_zqklst.Equivalent (List_1.Actual, List_2.Actual, EQ);
   end      Equivalent;
   -------------------------------------------------------
function Size_Of (List: List_Type) return integer is
   begin -- Size_Of
      return adv_zqklst.Size_Of (List.Actual);
   end Size_Of;
   -------------------------------------------------------
procedure Insert (Object  : in out Object_Type;
                  Position: in     positive;
                  List    : in out List_Type) is
   begin -- Insert
      adv_zqklst.Insert (Object, Position, List.Actual);
   end Insert;
   --------------------------------------------------
procedure Remove (List    : in out List_Type;
                  Position: in     positive;
                  Object  : in out Object_Type) is
   begin -- Remove
      adv_zqklst.Remove (List.Actual, 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.Actual, Index, Object);
   end Poke;
   --------------------------------------------------
function Peek (List: List_Type;
               Index   : positive) return Object_Type is
   begin -- Peek
      return adv_zqklst.Peek (List.Actual, Index);
   end Peek;
   --------------------------------------------------
procedure Share (Source, Target: in out List_Type) is
   begin -- Share
      adv_zqklst.Share (Source.Actual, Target.Actual);
   end Share;
   --------------------------------------------------
function Is_Shared (Source: List_Type) return boolean is
   begin -- Is_Shared
      return adv_zqklst.Is_Shared (Source.Actual);
   end Is_Shared;
   --------------------------------------------------

end List_Pos_Lpt_Cntl.Advanced;