|
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: 757 (0x2f5)
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 Fifo;
with Text_Io;
procedure Test_Fifo is
package Int_Fifo is new Fifo (Item => Integer);
F : Int_Fifo.Object;
I : Integer := 0;
begin
if Int_Fifo.Is_Empty (F) then
Text_Io.Put_Line ("La fifo est vide");
else
Text_Io.Put_Line ("La fifo n'est pas vide... => probleme");
end if;
Int_Fifo.Enqueue (10, To => F);
Int_Fifo.Enqueue (20, To => F);
Int_Fifo.Enqueue (30, To => F);
while not Int_Fifo.Is_Empty (F) loop
Int_Fifo.Dequeue (I, From => F);
Text_Io.Put_Line (Integer'Image (I));
end loop;
if Int_Fifo.Is_Empty (F) then
Text_Io.Put_Line ("La fifo est vide");
else
Text_Io.Put_Line ("La fifo n'est pas vide... => probleme");
end if;
end Test_Fifo;