--::::::::::
--qucncnit.ads   --       -Iterators
--::::::::::
with Queue_LPBase.Iterators;
generic
package Queue_Cntl_Cntl.Iterators is
  -------------------------------------------------
  -- DO NOT USE it_lpq
     package it_lpq is new lpq.Iterators;
  -------------------------------------------------

subtype Process_Type is it_lpq.Process_Type;
-- access procedure (Object  : in out Object_Type;
--                   Continue: in out boolean);

procedure Front_To_Rear (Queue  : in out Queue_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 Queue_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_Cntl_Cntl.Iterators;