comp.lang.ada
 help / color / mirror / Atom feed
From: NiGHTS <nights@unku.us>
Subject: Re: Nested Task Entry Question
Date: Tue, 24 Apr 2018 15:03:08 -0700 (PDT)
Date: 2018-04-24T15:03:08-07:00	[thread overview]
Message-ID: <b8f7021d-2858-43b0-bbb8-260f6f740d56@googlegroups.com> (raw)
In-Reply-To: <ce8e76d1-fa0e-48b0-8639-f43283c15639@googlegroups.com>

On Tuesday, April 24, 2018 at 4:47:58 PM UTC-4, AdaMagica wrote:
> Am Dienstag, 24. April 2018 18:57:29 UTC+2 schrieb NiGHTS:
> > I have two tasks: Task P and Task C. Task P creates Task C, but Task C must call entries into Task P. 
> > 
> > I can't seem to figure out how to make an entry on a parent task executable by a child task.
> 
>   declare
>     task P is
>       entry E;
>     end P;
>     task body P is
>       task C;
>       task body C is
>       begin
>         Put_Line ("calling P");
>         P.E;
>       end C;
>     begin
>       accept E;
>       Put_Line ("accepted C");
>    end P;
>   begin
>     --delay 1.0;
>     Put_Line ("completing");
>   end;

This is an elegant solution. I am very happy that you took the time to write this. Its exactly what I needed! Thank you again.

      parent reply	other threads:[~2018-04-24 22:03 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2018-04-24 16:57 Nested Task Entry Question NiGHTS
2018-04-24 18:45 ` Shark8
2018-04-24 22:00   ` NiGHTS
2018-04-24 20:47 ` AdaMagica
2018-04-24 20:54   ` AdaMagica
2018-04-24 22:03   ` NiGHTS [this message]
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox