--::::::::::
--stlplpit.adb
--::::::::::
package body Stack_Lpt_Lpt.Iterators is

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

end Stack_Lpt_Lpt.Iterators;