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: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "J-P. Rosen" <rosen@adalog.fr>
Newsgroups: comp.lang.ada
Subject: Re: Rendezvous with select ... else and "or terminate" not possible -
 but how do I quit this task?
Date: Thu, 1 Sep 2016 18:05:37 +0200
Organization: A noiseless patient Spider
Message-ID: <nq9jkl$df7$1@dont-email.me>
References: <6e4d6fc1-dcb9-454a-8c1e-df090224438e@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Injection-Date: Thu, 1 Sep 2016 16:05:41 -0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="45bffd6a911624777cad79aac3181090";
	logging-data="13799"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+cQ5VmND+HSRxEXwbE4/jp"
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:45.0) Gecko/20100101
 Thunderbird/45.2.0
In-Reply-To: <6e4d6fc1-dcb9-454a-8c1e-df090224438e@googlegroups.com>
Cancel-Lock: sha1:TPkAkfPNyoSwSeF27K/iu6juGCU=
Xref: news.eternal-september.org comp.lang.ada:31677
Date: 2016-09-01T18:05:37+02:00
List-Id: <comp.lang.ada>

Le 01/09/2016 à 17:43, Some Dude a écrit :

Small remark: you can get rid of "Done":

task body Connection_Handler is
begin
      accept Start (Socket : Socket_Type) do
        -- do this first
      end Start;
      loop
         select
            accept Stop;
            exit;
         or
            accept Send (Socket : Socket_Type; Command : Command_Type) do
               -- do something
            end Send;
         or
            accept Close (Socket : Socket_Type) do
               -- do something
             end Close;
         else
             -- receive data if necessary using GNAT.sockets.Check_Selector
             -- while no data is sent
         end select;
      end loop;
end Connection_Handler;

> However, when Stop is called and Done set to True, I get 
> 
>   raised TASKING_ERROR : s-tasren.adb:445
Presumably, this is due to some other task trying to rendezvous with
Connection_Handler after it has completed.

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