|
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 - metrics - downloadIndex: B T
Length: 1714 (0x6b2)
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
Fifo1 : Fifo.Object (10);
Val : Integer;
begin
Text_Io.Put_Line ("debut");
Fifo.Enfiler (F => Fifo1, E => 1);
Fifo.Enfiler (F => Fifo1, E => 2);
Fifo.Enfiler (F => Fifo1, E => 3);
Fifo.Enfiler (F => Fifo1, E => 4);
Fifo.Enfiler (F => Fifo1, E => 5);
Fifo.Enfiler (F => Fifo1, E => 6);
Fifo.Enfiler (F => Fifo1, E => 7);
Fifo.Enfiler (F => Fifo1, E => 8);
Fifo.Enfiler (F => Fifo1, E => 9);
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
Fifo.Defiler (F => Fifo1, E => Val);
Text_Io.Put_Line ("val:=" & Integer'Image (Val));
exception
when Fifo.Empty =>
Text_Io.Put_Line ("attention pile vide");
when Fifo.Full =>
Text_Io.Put_Line ("attention pile pleine");
end Test_Fifo;