--::::::::::
--qutalpit.adb
--::::::::::
package body Queue_Tag_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_Tag_Lpt.Iterators;