Linked Stack Package Body

Download

Reversable Stack Child Package

--
-- A simple client of the Int_Stack package.
--

with Gnat.Io; use Gnat.Io;
with L_Stack; use L_Stack;

procedure L_Stack_User is
   -- Here is a stack.  We can use the name of the private type,
   S, T: Int_Stack;

   -- Here's an exciting integer.
   Exciting: Integer;
begin
   -- Read in some integers, and push 'em
   loop
      Put("> ");
      Get(Exciting);
      exit when Exciting = -1;
      Push(S, Exciting);
      Push(T, Exciting);
   end loop;

   if S = T then
      Put_Line("Gee, they're equal.");
   end if;

   Push(T, 34);
   if S = T then
      Put_Line("Ha ha!  Found a bug!");
   end if;

   -- Pop 'em and print 'em
   while not Empty(S) loop
      Pop(S, Exciting);
      Put(Exciting);
      exit when Empty(S);
      Put(" ");
   end loop;
   New_Line;

   if S /= T then
      Put_Line("Gosh, they're not equal anymore.");
   end if;
end L_Stack_User;

Linked Stack Package Body

Reversable Stack Child Package