--::::::::::
--lipocnen.adb
--::::::::::
package body List_Pos_Cntl_En is

function Empty return boolean is
   begin
      return zqklst.Empty (List);
   end Empty;
   -------------------------------------------------------
procedure Append (New_Tail: in out Object_Type) is
   begin -- Append
      zqklst.Append (List, New_Tail);
   end Append;
   -------------------------------------------------------------------
function Current_Defined return boolean is
   begin -- Current_Defined
      return zqklst.Current_Defined (List);
   end Current_Defined;
   -------------------------------------------------------------------
function At_Rear return boolean is
   begin
      return zqklst.At_Rear (List);
   end At_Rear;
   -------------------------------------------------------------------
function At_Front return boolean is
   begin
      return zqklst.At_Front (List);
   end At_Front;
   -------------------------------------------------------------------
procedure Insert_Before (Object: in out Object_Type) is
   begin
      zqklst.Insert_Before (Object, List);
   end Insert_Before;
   -------------------------------------------------------------------
procedure Insert_After (Object: in out Object_Type) is
   begin
      zqklst.Insert_After (Object, List);
   end Insert_After;
   -------------------------------------------------------------------
function Current_Object return Object_Type is
   begin
      return zqklst.Current_Object (List);
   end Current_Object;
   -------------------------------------------------------------------
procedure Process_Current (Process:        In_Place_Process_Type) is
   begin
      zqklst.Process_Current (List, Process);
   end Process_Current;
   -------------------------------------------------------------------
procedure Update_Current (Object: in out Object_Type) is
   begin
      zqklst.Update_Current (List, Object);
   end Update_Current;
   ---------------------------------------------------------------------
procedure Move_To_Front is
   begin
      zqklst.Move_To_Front (List);
   end Move_To_Front;
   ---------------------------------------------------------------------
procedure Move_To_Rear is
   begin
      zqklst.Move_To_Rear (List);
   end Move_To_Rear;
   ---------------------------------------------------------------------
procedure Move_Towards_Front is
   begin
      zqklst.Move_Towards_Front (List);
   end Move_Towards_Front;
   ---------------------------------------------------------------------
procedure Move_Towards_Rear is
   begin
      zqklst.Move_Towards_Rear (List);
   end Move_Towards_Rear;
   -------------------------------------------------------------------
procedure Remove_Current (Object: in out Object_Type) is
   begin
      zqklst.Remove_Current (List, Object);
   end Remove_Current;
   -------------------------------------------------------------------

end List_Pos_Cntl_En;