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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.66.165.39 with SMTP id yv7mr15402306pab.28.1451544004820;
        Wed, 30 Dec 2015 22:40:04 -0800 (PST)
X-Received: by 10.182.242.6 with SMTP id wm6mr433528obc.18.1451544004784; Wed,
 30 Dec 2015 22:40:04 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!news.glorb.com!mv3no16656289igc.0!news-out.google.com!f6ni38690igq.0!nntp.google.com!mv3no16656284igc.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 30 Dec 2015 22:40:04 -0800 (PST)
In-Reply-To: <n62a4f$2fdp$1@adenine.netfront.net>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=24.6.21.101;
 posting-account=Qh2kiQoAAADpCLlhT_KTYoGO8dU3n4I6
NNTP-Posting-Host: 24.6.21.101
References: <n62a4f$2fdp$1@adenine.netfront.net>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <de0ebff1-8925-4610-b52e-23822d1a6f06@googlegroups.com>
Subject: Re: Abortable Timed Action
From: Anh Vo <anhvofrcaus@gmail.com>
Injection-Date: Thu, 31 Dec 2015 06:40:04 +0000
Content-Type: text/plain; charset=ISO-8859-1
Xref: news.eternal-september.org comp.lang.ada:28946
Date: 2015-12-30T22:40:04-08:00
List-Id: <comp.lang.ada>

On Wednesday, December 30, 2015 at 8:15:15 PM UTC-8, T.G. wrote:
> Hello everyone. Is there a better way to implement a timed action?
> I've tried the following :
> 
>    task type Timed_Action_Task is
>      entry Exec_After (T : Duration);
>      entry Cancel;
>      entry Finish;
>    end Timed_Action_Task;
> 
>    task body Timed_Action_Task is
>       Timeout : Duration;
>    begin
>       loop
>          select
>             accept Exec_After (T : Duration) do
>                Timeout := T;
>             end Exec_After;
>             select
>                accept Cancel;
>             or
>                delay Timeout;
>                Do_Something;
>             end select;
>          or
>             accept Finish;
>             exit;
>          end select;
>       end loop;
>    end Timed_Action_Task;
> 
> and then later something like
> 
>   Timed_Action.Exec_After (5.0);
>   ...
>   if Something_Changed then
>      Timed_Action.Cancel;
>   end if;
> 
> it works, I've also tried,
> 
>    task body Timed_Action_Task is
>       Timeout  : Duration := Duration'Last;
>    begin
>       loop
>          select
>             accept Exec_After (T : Duration) do
>                Timeout := T;
>             end Exec_After;
>          or
>             accept Cancel;
>             Timeout := Duration'Last;
>          or
>             accept Finish;
>             exit;
>          or
>             delay Timeout;
>             Do_Something;
>             Timeout := Duration'Last;
>          end select;
>       end loop;
>    end Timed_Action_Task;
> 
> any other options?

Look like your code worked like a timer. Was it your intention to create a timer?

Anh Vo