--::::::::::
--stptlpit.adb
--::::::::::
package body Stack_Pt_Lpt.Iterators is

procedure Top_Down (Stack  : in out Stack_Type;
                    Process:        Process_Type) is
   begin
      itr_PPS.Top_Down (Stack.Stack, Process);
   end Top_Down;
   ------------------------------------------------------
procedure Bottom_Up (Stack : in out Stack_Type;
                    Process:        Process_Type) is
   begin
      itr_PPS.Bottom_Up (Stack.Stack, Process);
   end Bottom_Up;
   ------------------------------------------------------

end Stack_Pt_Lpt.Iterators;