Discussion :

[semaj_james]

Bonjour,

J'ai trouve un exemple et je ne le comprends pas bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
declare
Timeout : Duration:= 10.0;
-- durée attendue 10s
begin
   select
      delay Timeout;
   then abort
       Compute;
       -- calcul dont on veut
       -- limiter le temps
       -- d‘exécution
   end select;
end;

Que fait ce code ?
si Compute prend plus de 10s son execution est arrete ?
comment dois je faire si je veux qu'au lieu de quitter le programme si Compute depasse 10s il m'execute autre chose ?
(en fait je voudrais temporiser une simulation et si j'accelere trop la vitesse de simulation (la simulation n'arrive plus a suivre) j'aimerais la ralentir.)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
declare 
  Mode : Mode_Type := Normal;
-- le mode est
-- normal ou critique
begin
   select
       Alarm.Panic;
       -- la tâche Alarm diffuse
       -- les événements recus
       Mode := Critical;
   then abort
       Compute;
       -- calcul que l‘on veut
       -- interrompre en cas
       -- d‘événement critique
   end select;
end;

Je comprends pas ce que fait Alarm.Panic. C'est un programme qui tourne en boucle ? s'il s'arrete alors on interromp Compute ?

[jc-miranda]

Bonjour,

J'ai trouve un exemple et je ne le comprends pas bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
declare
Timeout : Duration:= 10.0;
-- durée attendue 10s
begin
   select
      delay Timeout;
   then abort
       Compute;
       -- calcul dont on veut
       -- limiter le temps
       -- d‘exécution
   end select;
end;

Que fait ce code ?
si Compute prend plus de 10s son execution est arrete ?
comment dois je faire si je veux qu'au lieu de quitter le programme si Compute depasse 10s il m'execute autre chose ?
(en fait je voudrais temporiser une simulation et si j'accelere trop la vitesse de simulation (la simulation n'arrive plus a suivre) j'aimerais la ralentir.)

Oui, si Compute atteint la limite des 10 secondes, c'est le bloc entre le delay et le then abort qui est execute s'il y en a un.

J'avoue que j'ai du mal a voir ce que tu appelles temporiser.
Donc je ne sais pas t'en dire plus.

Maintenant, si tu te bases sur une gestion de timeout comme celle-ci je ferai gaffe a l'etat des donnees manipulees vu qu'il est probable que tu interrompes Compute en plein milieu d'un calcul.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
declare 
  Mode : Mode_Type := Normal;
-- le mode est
-- normal ou critique
begin
   select
       Alarm.Panic;
       -- la tâche Alarm diffuse
       -- les événements recus
       Mode := Critical;
   then abort
       Compute;
       -- calcul que l‘on veut
       -- interrompre en cas
       -- d‘événement critique
   end select;
end;

Je comprends pas ce que fait Alarm.Panic. C'est un programme qui tourne en boucle ? s'il s'arrete alors on interromp Compute ?

Je ne me souviens pas d'un package Alarm dans le standard Ada. :-(
Ca existe peut-etre, mais ca ne me rappelle rien.

*EDIT ... Heu rien, j'ai pas les yeux en face des trous. ^^
A+

Juan

[semaj_james]

ok je te remercie