comp.lang.ada
 help / color / mirror / Atom feed
From: AdaMagica <christ-usch.grein@t-online.de>
Subject: Re: Nested Task Entry Question
Date: Tue, 24 Apr 2018 13:47:56 -0700 (PDT)
Date: 2018-04-24T13:47:56-07:00	[thread overview]
Message-ID: <ce8e76d1-fa0e-48b0-8639-f43283c15639@googlegroups.com> (raw)
In-Reply-To: <3f521db0-5ee2-40ae-95af-26ef6b843722@googlegroups.com>

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;


  parent reply	other threads:[~2018-04-24 20:47 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 [this message]
2018-04-24 20:54   ` AdaMagica
2018-04-24 22:03   ` NiGHTS
replies disabled

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