--::::::::::
--lpcncnit.adb
--::::::::::
package body List_Pos_Cntl_Cntl.Iterators is

procedure Current_To_Rear (List        : in out List_Type;
                           Process     : in     Process_Type;
                           Orig_Current: in     boolean := true) is
   begin -- Current_To_Rear
      it_zqklst.Current_To_Rear (List.Actual, Process, Orig_Current);
   end Current_To_Rear;
   ------------------------------------------------------
procedure Current_To_Front (List        : in out List_Type;
                           Process     : in     Process_Type;
                           Orig_Current: in     boolean := true) is
   begin -- Current_To_Front
      it_zqklst.Current_To_Front (List.Actual, Process, Orig_Current);
   end Current_To_Front;
   ------------------------------------------------------
procedure Front_To_Rear (List        : in out List_Type;
                         Process     : in     Process_Type;
                         Orig_Current: in     boolean := true) is
   begin -- Front_To_Rear
      it_zqklst.Front_To_Rear (List.Actual, Process, Orig_Current);
   end Front_To_Rear;
   ------------------------------------------------------
procedure Rear_To_Front (List        : in out List_Type;
                         Process     : in     Process_Type;
                         Orig_Current: in     boolean := true) is
   begin -- Rear_To_Front
      it_zqklst.Rear_To_Front (List.Actual, Process, Orig_Current);
   end Rear_To_Front;
   ------------------------------------------------------

end List_Pos_Cntl_Cntl.Iterators;