--::::::::::
--lpcnenit.adb
--::::::::::
package body List_Pos_Cntl_En.Iterators is

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

end List_Pos_Cntl_En.Iterators;