From: "J-P. Rosen" <rosen@adalog.fr>
Subject: Re: can someone help me with this code (explanation)
Date: Fri, 26 Sep 2014 09:58:44 +0200
Date: 2014-09-26T09:58:44+02:00 [thread overview]
Message-ID: <m036bm$8h6$1@dont-email.me> (raw)
In-Reply-To: <m0335c$mto$1@dont-email.me>
Le 26/09/2014 09:04, Björn Lundin a écrit :
> Or by using a protected object as a semaphore
>
But why? It's so simpler with a task:
task Printer is
entry Print (Mess : String);
end Printer;
task body Printer is
use Text_IO;
begin
loop
select
accept Print (Mess : String) do
Put_Line (Mess);
end Print;
or terminate;
end select;
end loop;
end Printer;
--
J-P. Rosen
Adalog
2 rue du Docteur Lombard, 92441 Issy-les-Moulineaux CEDEX
Tel: +33 1 45 29 21 52, Fax: +33 1 45 29 25 00
http://www.adalog.fr
next prev parent reply other threads:[~2014-09-26 7:58 UTC|newest]
Thread overview: 30+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-09-25 13:44 can someone help me with this code (explanation) Stribor40
2014-09-25 14:56 ` Björn Lundin
2014-09-25 15:01 ` Björn Lundin
2014-09-25 15:54 ` Stribor40
2014-09-25 17:11 ` Niklas Holsti
2014-09-25 19:41 ` Stribor40
2014-09-25 19:53 ` Jeffrey Carter
2014-09-25 20:10 ` Niklas Holsti
2014-09-25 22:27 ` Jeffrey Carter
2014-09-26 7:04 ` Björn Lundin
2014-09-26 7:58 ` J-P. Rosen [this message]
2014-09-26 10:24 ` G.B.
2014-09-26 11:48 ` Björn Lundin
2014-09-26 12:49 ` J-P. Rosen
2014-09-26 14:15 ` Björn Lundin
2014-09-26 14:49 ` J-P. Rosen
2014-09-26 15:31 ` Björn Lundin
2014-09-26 16:08 ` G.B.
2014-09-30 4:22 ` Brad Moore
2014-09-30 21:59 ` Georg Bauhaus
2014-10-01 15:38 ` Brad Moore
2014-09-26 16:23 ` Dmitry A. Kazakov
2014-09-26 20:38 ` J-P. Rosen
2014-09-27 18:16 ` Björn Lundin
2014-09-26 16:43 ` Niklas Holsti
2014-09-26 16:45 ` Niklas Holsti
2014-10-09 2:45 ` Randy Brukardt
2014-09-26 16:44 ` Niklas Holsti
2014-09-26 5:06 ` J-P. Rosen
2014-09-25 16:53 ` Jeffrey Carter
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox