--::::::::::
--lipolpcn.adb
--::::::::::
package body List_Pos_Lpt_Cntl is

function Empty (List: List_Type) return boolean is
   begin
      return zqklst.Empty (List.Actual);
   end Empty;
   -------------------------------------------------------
procedure Initialize (List: in out List_Type) is
   begin -- Initialize
      zqklst.Initialize (List.Actual);
   end Initialize;
   -------------------------------------------------------
procedure Finalize (List: in out List_Type) is
   begin
      zqklst.Finalize (List.Actual);
   end Finalize;
   -------------------------------------------------------------------
procedure Adjust (List: in out List_Type) is
   Clone: zqklst.LPList_Type;
   begin -- Adjust
      zqklst.Copy (List.Actual, Clone);
      zqklst.Swap (List.Actual, Clone);
   end Adjust;
   -------------------------------------------------------------------
procedure Append (List    : in out List_Type;
                  New_Tail: in out List_Type) is
   begin
      zqklst.Append (List.Actual, New_Tail.Actual);
   end Append;
   -------------------------------------------------------------------
procedure Append (List    : in out List_Type;
                  New_Tail: in out Object_Type) is
   begin -- Append
      zqklst.Append (List.Actual, New_Tail);
   end Append;
   -------------------------------------------------------------------
function Current_Defined (List: List_Type) return boolean is
   begin -- Current_Defined
      return zqklst.Current_Defined (List.Actual);
   end Current_Defined;
   -------------------------------------------------------------------
function At_Rear (List: List_Type) return boolean is
   begin
      return zqklst.At_Rear (List.Actual);
   end At_Rear;
   -------------------------------------------------------------------
function At_Front (List: List_Type) return boolean is
   begin
      return zqklst.At_Front (List.Actual);
   end At_Front;
   -------------------------------------------------------------------
procedure Insert_Before (Object: in out Object_Type;
                         List  : in out List_Type) is
   begin
      zqklst.Insert_Before (Object, List.Actual);
   end Insert_Before;
   -------------------------------------------------------------------
procedure Insert_Before (Objects: in out List_Type;
                         List   : in out List_Type) is
   begin
      zqklst.Insert_Before (Objects.Actual, List.Actual);
   end Insert_Before;
   -------------------------------------------------------------------
procedure Insert_After (Object: in out Object_Type;
                        List  : in out List_Type ) is
   begin
      zqklst.Insert_After (Object, List.Actual);
   end Insert_After;
   -------------------------------------------------------------------
procedure Insert_After (Objects: in out List_Type;
                        List   : in out List_Type) is
   begin
      zqklst.Insert_After (Objects.Actual, List.Actual);
   end Insert_After;
   -------------------------------------------------------------------
function Current_Object (List: List_Type) return Object_Type is
   begin
      return zqklst.Current_Object (List.Actual);
   end Current_Object;
   -------------------------------------------------------------------
procedure Process_Current (List   : in     List_Type;
                           Process:        In_Place_Process_Type) is
   begin
      zqklst.Process_Current (List.Actual, Process);
   end Process_Current;
   -------------------------------------------------------------------
procedure Update_Current (List  : in     List_Type;
                          Object: in out Object_Type) is
   begin
      zqklst.Update_Current (List.Actual, Object);
   end Update_Current;
   ---------------------------------------------------------------------
procedure Move_To_Front (List: in out List_Type) is
   begin
      zqklst.Move_To_Front (List.Actual);
   end Move_To_Front;
   ---------------------------------------------------------------------
procedure Move_To_Rear (List: in out List_Type) is
   begin
      zqklst.Move_To_Rear (List.Actual);
   end Move_To_Rear;
   ---------------------------------------------------------------------
procedure Move_Towards_Front (List: in out List_Type) is
   begin
      zqklst.Move_Towards_Front (List.Actual);
   end Move_Towards_Front;
   ---------------------------------------------------------------------
procedure Move_Towards_Rear (List: in out List_Type) is
   begin
      zqklst.Move_Towards_Rear (List.Actual);
   end Move_Towards_Rear;
   -------------------------------------------------------------------
procedure Swap (Source: in out List_Type;
                Target: in out List_Type) is
   begin -- Swap
      zqklst.Swap (Source.Actual, Target.Actual);
   end Swap;
   -------------------------------------------------------------------
procedure Remove_Current (List  : in out List_Type;
                          Object: in out Object_Type) is
   begin
      zqklst.Remove_Current (List.Actual, Object);
   end Remove_Current;
   -------------------------------------------------------------------
procedure Slice_Tail (Source: in out List_Type;
                      Target: in out List_Type) is
   begin -- Slice_Tail
      zqklst.Slice_Tail (Source.Actual, Target.Actual);
   end Slice_Tail;
   ----------------------------------------------------------------

end List_Pos_Lpt_Cntl;