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