--::::::::::
--liptcnit.adb
--::::::::::
package body List_Pt_Cntl.Iterators is

procedure Null_Proc (Object  : in out Object_Type;
                     Continue: in out boolean) is
   begin -- Null_Proc
      null;
   end Null_Proc;
   ------------------------------------------------
procedure Front_To_Rear (List   : in     List_Type;
                         Process:        Process_Type) is
   begin -- Front_To_Rear
      itrzqklst.Round_Trip (List.List, Process, Null_Proc'Access);
   end Front_To_Rear;
   ------------------------------------------------
procedure Rear_To_Front (List   : in     List_Type;
                         Process:        Process_Type) is
   begin -- Rear_To_Front
      itrzqklst.Round_Trip (List.List, Null_Proc'Access, Process);
   end Rear_To_Front;
   ------------------------------------------------
procedure Round_Trip (List     : in     List_Type;
                      Down_Proc,
                      Up_Proc  :        Process_Type) is
   begin -- Round_Trip
      itrzqklst.Round_Trip (List.List, Down_Proc, Up_Proc);
   end Round_Trip;
   ------------------------------------------------
end List_Pt_Cntl.Iterators;