---------------------------------
-- D. Mathieu                  --
--                             --
-- fichier Essai05.adb         --
--                             --
-- créé le 13/12/98            --
--                             --
---------------------------------
--
-- Programme de test de discriminant de tâche.
-- Le résultat de l'exécution est le suivant :
--
-- La tache  1 vous dit Coucou
-- La tache  2 vous dit Coucou
-- La tache  3 vous dit Coucou
-- La tache  3 vous dit Coucou
-- La tache  2 vous dit Coucou
-- La tache  3 vous dit Coucou
-- La tache  3 vous dit Coucou
-- La tache  3 vous dit Coucou
-- La tache  3 vous dit Coucou
--
-- Remarques :
--   1) - noter l'utilisation d'une valeur par défaut pour le discriminant.
--   2) - il est impossible de créer un vecteur de tâches de discriminants
--        différents.
--   3) - noter l'utilisation de delay suivi d'un flottant fixe de type Duration.

with Ada.Text_Io;
use  Ada.Text_Io;

procedure Essai05 is

    MaxTaches : constant := 2;
    task type T_TskCoucou (Nbre : Positive := 1);
 
    TskCoucou_1   : T_TskCoucou;
    TskCoucou_2   : T_TskCoucou (2);
    TskLesCoucous : array (1..MaxTaches) of T_TskCoucou (3);

    package P_ENTIER is new ADA.TEXT_IO.INTEGER_IO (Positive);
    use     P_ENTIER;
 
    task body T_TskCoucou is
 
    begin -- T_TskCoucou
 
        for I in 1..Nbre loop
            Put      (" La tache ");
            Put      (Nbre, 2);
            Put_Line (" vous dit Coucou");
            delay 1.0;
        end loop;
 
    end T_TskCoucou;

begin -- Essai05

    null;

end Essai05;