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
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 border2.nntp.dca1.giganews.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!newspeer1.nac.net!feeder.erje.net!eu.feeder.erje.net!eternal-september.org!feeder.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "J-P. Rosen" <rosen@adalog.fr>
Newsgroups: comp.lang.ada
Subject: Re: can someone help me with this code (explanation)
Date: Fri, 26 Sep 2014 09:58:44 +0200
Organization: A noiseless patient Spider
Message-ID: <m036bm$8h6$1@dont-email.me>
References: <a352821d-bdcc-4598-8843-3262382cadb9@googlegroups.com>
 <m01adf$7tp$1@dont-email.me>
 <6e1f86e6-c17a-428e-bb19-460c5ba26c8a@googlegroups.com>
 <c8j0lhFl112U1@mid.individual.net>
 <1ec7272d-de7f-43dd-be30-009c437011de@googlegroups.com>
 <c8jb5lFns5kU1@mid.individual.net> <m024t3$j1p$1@dont-email.me>
 <m0335c$mto$1@dont-email.me>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Injection-Date: Fri, 26 Sep 2014 07:58:46 +0000 (UTC)
Injection-Info: mx05.eternal-september.org;
 posting-host="23dab0694e4174fdc880833ec67fa650";
 logging-data="8742"; mail-complaints-to="abuse@eternal-september.org";
 posting-account="U2FsdGVkX1+J3ldZyEfLjBDjgoSc+/D9"
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64;
 rv:24.0) Gecko/20100101 Thunderbird/24.6.0
In-Reply-To: <m0335c$mto$1@dont-email.me>
Cancel-Lock: sha1:mJsrU4kgAszpo7XQF8R5dUXKVjI=
Xref: number.nntp.dca.giganews.com comp.lang.ada:189163
Date: 2014-09-26T09:58:44+02:00
List-Id: <comp.lang.ada>

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