|
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: 691 (0x2b3)
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 Stack_Generic, Text_Io;
procedure Test_Stack is
package Pile_D_Entiers is new Stack_Generic (Item => Integer);
Ma_Pile : Pile_D_Entiers.Object (10);
Element : Integer;
begin
begin
for I in 1 .. 10 loop
Pile_D_Entiers.Push (I, Ma_Pile);
end loop;
exception
when Pile_D_Entiers.Full =>
Text_Io.Put_Line ("Pile Pleine");
end;
begin
for I in 1 .. 11 loop
Pile_D_Entiers.Pop (Element, Ma_Pile);
Text_Io.Put_Line (Integer'Image (Element));
end loop;
exception
when Pile_D_Entiers.Empty =>
Text_Io.Put_Line ("Pile Vide");
end;
end Test_Stack;