--::::::::::
--tntacnit.adb
--::::::::::
package body Tree_Nary_Tag_Cntl.Iterators is

-- procedure Null_Proc (Object  : in out Object_Type;
--                      Continue: in out Boolean) is
--    begin -- Null_Proc
--       null;
--    end Null_Proc;
   -----------------------------------------------------------
procedure Depth_First_L (Tree     : in     Tree_Type;
                         Pre_Proc,
                         In_Proc,
                         Post_Proc:        Process_Type) is
   begin -- Depth_First_L
      it_qzktre.Depth_First_L (Tree.Actual, Pre_Proc, In_Proc, Post_Proc);
   end Depth_First_L;
   -----------------------------------------------------------
procedure Breadth_First_LR (Tree: in     Tree_Type;
                            Proc: in     Process_Type) is
   begin -- Breadth_First_LR
      it_qzktre.Breadth_First_LR (Tree.Actual, Proc);
   end Breadth_First_LR;
   -----------------------------------------------------------

end Tree_Nary_Tag_Cntl.Iterators;