---------------------------------
-- D. Mathieu
--
--
--
-- fichier Essai15.adb
--
--
--
-- créé le 29/12/98
--
--
--
---------------------------------
--
-- Exemple d'utilisation du point d'entrée d'une tâche
comme paramètre
-- de généricité d'un paquetage générique
: le paquetage générique
-- P_Tsk_Text_IO exporte la procédure Put_Line qui affiche
une chaîne
-- en la faisant précéder de l'identificateur de
la tâche qui demande
-- l'affichage. Pour réaliser cet affichage, elle utilise
la procédure
-- d'affichage qui lui est passée en paramètre effectif
de généricité.
--
-- Dans cet exemple, le premier affichage est réalisé
par une tâche
-- chargée de l'affichage
--
-- Le résultat de l'exécution de ce programme est
le suivant :
--
-- main_task_024549E0 : P_Tsk_Text_IO_New.Put_Line ("Coucou")
-- main_task_024549E0 : P_Ada_Text_IO_New.Put_Line ("Coucou")
with P_Tsk_BAO, P_Tsk_Text_IO, Ada.Text_IO;
procedure Essai15 is
use P_Tsk_BAO;
TskAffiche : T_TskAffiche;
package P_Tsk_Text_IO_New is new P_Tsk_Text_IO
(TskAffiche.JAffiche);
package P_Ada_Text_IO_New is new P_Tsk_Text_IO
(Ada.Text_IO.Put_Line);
begin -- Essai15
P_Tsk_Text_IO_New.Put_Line ("P_Tsk_Text_IO_New.Put_Line
(""Coucou"")");
P_Ada_Text_IO_New.Put_Line ("P_Ada_Text_IO_New.Put_Line
(""Coucou"")");
end Essai15;