--::::::::::
--licncnit.adb
--::::::::::

package body List_Cntl_Cntl.Iterators is

procedure Front_To_Rear (List   : in     List_Type;
                         Process:        Process_Type) is
   begin -- Front_To_Rear
      it_zqklst.Front_To_Rear (List.List, Process);
   end Front_To_Rear;
   ------------------------------------------------
procedure Rear_To_Front (List   : in     List_Type;
                         Process:        Process_Type) is
   begin -- Rear_To_Front
      it_zqklst.Rear_To_Front (List.List, Process);
   end Rear_To_Front;
   ------------------------------------------------
procedure Round_Trip (List     : in     List_Type;
                      Down_Proc,
                      Up_Proc  :        Process_Type) is
   begin -- Round_Trip
      it_zqklst.Round_Trip (List.List, Down_Proc, Up_Proc);
   end Round_Trip;
   ------------------------------------------------
end List_Cntl_Cntl.Iterators;