Sémantique des tâches en ADA

Marsh Posté le 09-07-2004 à 21:04:05

Bonjour,

Je me suis remis récemment à Ada et je bute sur un problème sans doute
tout bête...

Soit un programme qui lance deux taches dans une boucle sans fin :
l'une affichant "Ping", l'autre "Pong". Le "Pong" ne peut s'afficher
qu'après un "Ping" et réciproquement. La première tâche à s'exécuter
doit être le "Ping".

En C, ça se règle à coup de sémaphores, mais je n'arrive pas à
retranscrire ça avec la sémantique des tâches Ada.

En gros, je ne sais pas s'il faut une seule tâche qui aurait deux
entrées (Ping et Pong) avec une synchro adéquate, ou s'il faut deux
tâches...

Quelqu'un peut me mettre sur la voie ?

---------------
Musee departemental de prehistoire du Pas-de-Calais : http://paleolithique.free.fr/dossi [...] e=p3.1.htm

Reply

Marsh Posté le 09-07-2004 à 21:04:05

Reply

Marsh Posté le 10-07-2004 à 01:15:03

Alors, on s'intéresse aux églises romanes du Bas-Berry ? [:cupra]

---------------
Everyone thinks of changing the world, but no one thinks of changing himself | It is the peculiar quality of a fool to perceive the faults of others and to forget his own | Early clumsiness is not a verdict, it’s an essential ingredient.

Reply

Marsh Posté le 10-07-2004 à 01:43:36

Taiche a écrit :

Alors, on s'intéresse aux églises romanes du Bas-Berry ? [:cupra]

eh oh !
c'est quoi ta sémantique à toi d'abord ?

Reply

Marsh Posté le 15-07-2004 à 15:11:41

Salut,
je me souviens plus tres bien
mais je pense plutot à 2 tachesavec un point de rendez-vous pour chacune, apres le ping pour la première, avant le pong pour la seconde.

Reply

Marsh Posté le 16-07-2004 à 11:59:44

Code :

with text_io; use text_io;
procedure ping_pong is
task Ping is
entry Rendez_Vous;
end Ping;
task Pong is
entry Rendez_Vous;
end Pong;
task body Ping is
begin
loop
accept Rendez_Vous;
Text_Io.Put ( "ping " );
Pong.Rendez_Vous;
end loop;
end Ping;
task body Pong is
begin
loop
accept Rendez_Vous;
Text_Io.Put ( "pong " );
Ping.Rendez_Vous;
end loop;
end Pong;
begin
Ping.Rendez_Vous;
end ping_pong;

sinon il y a

Code :

with text_io; use text_io;
procedure ping_pong is
begin
loop
put ( "ping" );
put ( "pong" );
end loop;
end ping_pog;

ok je sort...

Message édité par - MoKsA - le 09-08-2004 à 20:10:38

Reply

Sémantique des tâches en ADA

Sujets relatifs:

Leave a Replay