Weiter: 19.3.3 Relais-Tasks Hinauf: 19.3 Die Realisierung Zurück: 19.3.1 Buffer-Tasks

 

19.3.2 Transporter-Tasks

 

Die Realisierung eines Transporter-Task's

 
Abbildung 19.8: Transporter-Task

ist noch einfacher als die des Buffer-Tasks:

generic$$
type item is private;$$
with procedure Producer (P: out item);$$
with procedure Consumer (C: in item);$$
$$
package Transporter is$$
end Transporter;$$
$$
package body Transporter is$$
task Transport_Item is$$
-ruftProducerundConsumer$$
end Transport_Item;$$
$$
task body Transport_Item is$$
x: item;$$
begin$$
loop$$
Producer(x);$$
Consumer(x);$$
end loop;$$
end Transport_Item;$$
end Transporter;$$