PRV Zadaci - Programiranje u Realnom Vremenu

end Agent;
protected body Agent is
procedure putItems () is
begin
... -– Randomly select two items and put them on the table
-- by setting two Boolean variables to True
end putItems;
entry takeTobaccoAndPaper () when tobaccoAvailable and paperAvailable is
begin
tobaccoAvailable := False;
paperAvailable := False;
end;
entry takePaperAndMatch () when paperAvailable and matchAvailable is
begin
paperAvailable := False;
matchAvailable := False;
end;
entry takeTobaccoAndMatch () when tobaccoAvailable and matchAvailable is
begin
tobaccoAvailable := False;
matchAvailable := False;
end;
procedure finishedSmoking () is
begin
putItems();
end;
begin
putItems();
end Agent;
task SmokerWithPaper;
task body SmokerWithPaper is
begin
loop
Agent.takeTobaccoAndMatch();
-- Smoke
Agent.finishedSmoking();
end loop;
end SmokerWithPaper;
3. Randevu na jeziku Ada
Posmatra se sistem od tri procesa koji predstavljaju pušače i jednog procesa koji predstavlja agenta.
Svaki pušač ciklično zavija cigaretu i puši je. Za zavijanje cigarete potrebna su tri sastojka: duvan,
papir i šibica. Jedan pušač ima samo duvan, drugi papir, a treći šibice. Agent ima neograničene zalihe
sva tri sastojka. Agent postavlja na sto dva sastojka izabrana slučajno. Pušač koji poseduje treći
potreban sastojak može tada da uzme ova dva, zavije cigaretu i puši. Kada je taj pušač popušio svoju
cigaretu, on javlja agentu da može da postavi nova dva sastojka, a ciklus se potom ponavlja.
Realizovati procese pušača i agenta korišćenjem koncepata procesa i randevua u jeziku Ada.
40