|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 946 (0x3b2)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Generic_Stack, Text_Io;
procedure Test_Gen_Stack is
package Norm_Stack is new Generic_Stack (Max => 20, Element => Integer);
use Norm_Stack;
My_Stack : Norm_Stack.Object (Size => 2);
Element : Integer;
procedure Put_Integer (What : in Integer) is
begin
Text_Io.Put (Integer'Image (What));
end Put_Integer;
begin
for I in 3 .. 8 loop
if not Is_Full (My_Stack) then
Push (My_Stack, I);
Put_Integer (I);
Text_Io.Put_Line (" was pushed on Stack.");
else
Text_Io.Put_Line ("Stack is Full !");
end if;
end loop;
for I in 1 .. 6 loop
if not Is_Empty (My_Stack) then
Pop (My_Stack, Element);
Put_Integer (Element);
Text_Io.Put_Line (" was poped from Stack.");
else
Text_Io.Put_Line ("Stack is Empty !");
end if;
end loop;
end Test_Gen_Stack;