--::::::::::
--tnptlpit.ads
--::::::::::
with rtree_LPBase.Iterators;
generic
package Tree_Nary_Pt_Lpt.Iterators is
   ---------------------------------------------------
   -- DO NOT USE it_qzktre
      package it_qzktre is new qzktre.Iterators;
   ---------------------------------------------------

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

procedure Null_Proc (Object  : in out Object_Type;
                     Continue: in out Boolean)
   renames it_qzktre.Null_Proc;
   ---------------------------------------------------
   -- Empty procedure:  For use in Depth_First_L and
   --     Depth_First_R
   ---------------------------------------------------

procedure Depth_First_L (Tree     : in     Tree_Type;
                         Pre_Proc,
                         In_Proc,
                         Post_Proc:        Process_Type);
   ---------------------------------------------------
   -- Depth first tree travesal, does left before right
   ---------------------------------------------------

procedure Breadth_First_LR (Tree: in     Tree_Type;
                            Proc: in     Process_Type);
   ---------------------------------------------------
   -- Breadth first tree travesal, left to right at each level
   ---------------------------------------------------

end Tree_Nary_Pt_Lpt.Iterators;