--::::::::::
--quelpten.adb
--::::::::::
package body Queue_Lpt_En is

procedure Enqueue (Object: in out Object_Type) is
   begin
      lpq.Enqueue (Object, Queue);
   end Enqueue;
   ------------------------------------------------------
function Front return Object_Type is
   begin -- Front
      return lpq.Front (Queue);
   end Front;
   ------------------------------------------------------
procedure Dequeue is
   begin -- Dequeue
      lpq.Dequeue (Queue);
   end Dequeue;
   ------------------------------------------------------
procedure Dequeue (Object: in out Object_Type) is
   begin
      lpq.Dequeue (Queue, Object);
   end Dequeue;
   ------------------------------------------------------
function Empty return boolean is
   begin
      return lpq.Empty (Queue);
   end Empty;
   ------------------------------------------------------

end Queue_Lpt_En;