|
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: 1088 (0x440)
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⟧
-- Test du package generique fifo
-- auteur : Sebastien BROCHET
-- date : 3 Novembre 1993
with Fifo, Text_Io;
procedure Testfifo is
Caractere : Character := 's';
package Fifochar is new Fifo (Element => Character);
Ma_Fifo : Fifochar.Object;
begin
Fifochar.Creer_Fifo (Ma_Fifo);
-- Ma_Fifo := Fifochar.Emptyfifo;
loop
Text_Io.Put_Line ("<1> Enfiler un caractere");
Text_Io.Put_Line ("<2> Defiler un caractere");
Text_Io.Put_Line ("<9> Quitter");
Text_Io.Put ("Votre choix : ");
Text_Io.Get (Caractere);
case Caractere is
when '1' =>
Text_Io.Put ("Entrer un caractere : ");
Text_Io.Get (Caractere);
Fifochar.Enqueue (Ma_Fifo, Caractere);
Text_Io.New_Line;
when '2' =>
Fifochar.Dequeue (Ma_Fifo, Caractere);
Text_Io.Put_Line ("Caractere extrait : " & Caractere);
when others =>
null;
end case;
exit when Caractere = '9';
end loop;
end Testfifo;