Re: passing messages between the tasks

[compguy45@gmail.com]

What i am trying to do is something like this....code from above...

3
  4 procedure SomeProcedure is
  5
  6 task type lamp is
  7    entry reset(id : Integer);
  8 end lamp;
  9
 10 lamps : array (1..6) of lamp;
 11
 12    task body lamp is
 13    begin
 14       Put_Line("Body of task lamp");
 15       accept reset(id : Integer) do
 16         put("inside reset");
 17         put(id);
 18         New_Line;
 19       end reset;
 20       delay 4.0;
 21    put("after accept");
 22    end lamp;
 23
 24 begin
 25    lamps(1).reset(id => 1);
 26    lamps(2).reset(id => 2);
 27 end SomeProcedure; 

I am trying to figure out how to do following....have say main tasks call reset on say lamps(3).reset....
Then lamp(3) would call reset on lamps(2) and lamps(1) and wait....then someone lamps(2) and lamps(1) when they done with reset would somehow let lamp(3) know about it....Is this possible to do...?