1-- package body Mes_Tasches_P is
2package body Input_1 is
3   ---------------------------------------------------------------------------
4   task body Ma_Tasche is
5      Var_Continuer : Boolean := False;
6   begin
7      Boucle_Principale :
8      loop
9         accept Accepter
10            (Continuer : Boolean)
11         do
12            Var_Continuer := Continuer;
13         end Accepter;
14      end loop Boucle_Principale;
15   end Ma_Tasche;
16   ---------------------------------------------------------------------------
17
18   ---------------------------------------------------------------------------
19   task body Mon_Autre_Tasche is
20   begin
21      null;
22   end Mon_Autre_Tasche;
23   ---------------------------------------------------------------------------
24
25   Une_Autre_Tasche_1 : Tasche_Type_1_T;
26
27   ---------------------------------------------------------------------------
28   task body Tasche_Type_1_T is
29   begin
30      null;
31   end Tasche_Type_1_T;
32   ---------------------------------------------------------------------------
33
34   ---------------------------------------------------------------------------
35   task body Tasche_Type_2_T is
36   begin
37      null;
38   end Tasche_Type_2_T;
39   ---------------------------------------------------------------------------
40
41   ---------------------------------------------------------------------------
42   task body Tasche_Type_3_T is
43   begin
44      null;
45   end Tasche_Type_3_T;
46   ---------------------------------------------------------------------------
47
48   Une_Autre_Tasche_2 : Tasche_Type_2_T;
49   Une_Autre_Tasche_3 : Tasche_Type_3_T (Taille => 5);
50
51   ---------------------------------------------------------------------------
52   protected body Objet_Protege is
53      entry Demarrer
54         when Variable
55      is
56      begin
57         null;
58      end Demarrer;
59
60      procedure Faire is
61      begin
62         null;
63      end Faire;
64
65      function Tester
66         return Boolean
67      is
68      begin
69         return Variable;
70      end Tester;
71   end Objet_Protege;
72   ---------------------------------------------------------------------------
73
74   ---------------------------------------------------------------------------
75   protected body Type_Protege is
76      entry Demarrer
77         when Variable
78      is
79      begin
80         null;
81      end Demarrer;
82
83      procedure Faire is
84      begin
85         null;
86      end Faire;
87
88      function Tester
89         return Boolean
90      is
91      begin
92         return Variable;
93      end Tester;
94   end Type_Protege;
95   ---------------------------------------------------------------------------
96
97   ---------------------------------------------------------------------------
98   protected body Discriminant_Protege is
99      entry Demarrer
100         when Variable
101      is
102      begin
103         null;
104      end Demarrer;
105
106      procedure Faire is
107      begin
108         null;
109      end Faire;
110
111      function Tester
112         return Boolean
113      is
114      begin
115         return Variable;
116      end Tester;
117   end Discriminant_Protege;
118   ---------------------------------------------------------------------------
119
120end Input_1;
121-- end Mes_Tasches_P;
122