--::::::::::
--qulpbite.ads  -- queue_lpbase-Iterators
--::::::::::

generic
package Queue_LPBase.Iterators is

type Process_Type is access
   procedure (Object  : in out Object_Type;
              Continue: in out boolean);

procedure Front_To_Rear (Queue  : in out LPQueue_Type;
                         Process:        Process_Type);
  -------------------------------------------------
  -- Traverses the queue from the front to the rear passing
  -- the objects one at a time to Process until either
  -- the entire queue is traversed, or Continue = false
  -------------------------------------------------

procedure Rear_To_Front (Queue  : in out LPQueue_Type;
                         Process:        Process_Type);
  -------------------------------------------------
  -- Traverses the queue from the rear to the front passing
  -- the objects one at a time to Process until either
  -- the entire queue is traversed, or Continue = false
  -------------------------------------------------

end Queue_LPBase.Iterators;