--::::::::::
--qulplpit.adb
--::::::::::
package body Queue_Lpt_Lpt.Iterators is

procedure Front_To_Rear (Queue  : in out Queue_Type;
                         Process:        Process_Type) is
   begin
      it_lpq.Front_To_Rear (Queue.Actual, Process);
   end Front_To_Rear;
   ------------------------------------------------------

procedure Rear_To_Front (Queue  : in out Queue_Type;
                         Process:        Process_Type) is
   begin
      it_lpq.Rear_To_Front (Queue.Actual, Process);
   end Rear_To_Front;
   ------------------------------------------------------

end Queue_Lpt_Lpt.Iterators;