From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.182.92.234 with SMTP id cp10mr2908644obb.49.1413320889161;
        Tue, 14 Oct 2014 14:08:09 -0700 (PDT)
X-Received: by 10.182.45.233 with SMTP id q9mr36170obm.25.1413320889074; Tue,
 14 Oct 2014 14:08:09 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!h18no5909968igc.0!news-out.google.com!rp1ni29760igb.0!nntp.google.com!h18no5909963igc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Tue, 14 Oct 2014 14:08:08 -0700 (PDT)
In-Reply-To: <m1k1sc$v8k$1@dont-email.me>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=24.36.114.177;
 posting-account=39pqWgoAAADkep0zRfYwywOXjRBV2-ic
NNTP-Posting-Host: 24.36.114.177
References: <b7a2745e-a0df-400b-a057-828473919fee@googlegroups.com>
 <41154c4b-6158-4701-ab25-85afa3b24ed2@googlegroups.com>
 <X1f%v.438333$1s.413373@fx05.iad>
 <m1k1sc$v8k$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9fa74920-0bb1-49d4-93ac-f781529f0c98@googlegroups.com>
Subject: Re: passing messages between the tasks
From: compguy45@gmail.com
Injection-Date: Tue, 14 Oct 2014 21:08:09 +0000
Content-Type: text/plain; charset=ISO-8859-1
X-Received-Bytes: 2138
X-Received-Body-CRC: 3577542889
Xref: news.eternal-september.org comp.lang.ada:22477
Date: 2014-10-14T14:08:08-07:00
List-Id: <comp.lang.ada>

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...?