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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,7897733b1978b6a4
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.15.41 with SMTP id u9mr2392026pbc.3.1321579438781;
        Thu, 17 Nov 2011 17:23:58 -0800 (PST)
Path: 
 h5ni3491pba.0!nntp.google.com!news2.google.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
From: "Rego, P." <pvrego@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Freezing a task
Date: Thu, 17 Nov 2011 17:23:55 -0800 (PST)
Organization: http://groups.google.com
Message-ID: <32201299.75.1321579435782.JavaMail.geo-discussion-forums@yqbl36>
References: <32992849.648.1321544004241.JavaMail.geo-discussion-forums@vbmh5>
 <m2k46yagdq.fsf@pushface.org> <mzm6z5dir1ee$.1b36kl4upye4x$.dlg@40tude.net>
Reply-To: comp.lang.ada@googlegroups.com
NNTP-Posting-Host: 187.56.103.84
Mime-Version: 1.0
X-Trace: posting.google.com 1321579438 27668 127.0.0.1 (18 Nov 2011 01:23:58
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 18 Nov 2011 01:23:58 +0000 (UTC)
Cc: mailbox@dmitry-kazakov.de
In-Reply-To: <mzm6z5dir1ee$.1b36kl4upye4x$.dlg@40tude.net>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=187.56.103.84;
 posting-account=TRgI1QoAAABSsYi-ox3Pi6N-JEKKU0cu
User-Agent: G2/1.0
X-Google-Web-Client: true
Xref: news2.google.com comp.lang.ada:14445
Content-Type: text/plain; charset=ISO-8859-1
Date: 2011-11-17T17:23:55-08:00
List-Id: <comp.lang.ada>

>    Paused : Boolean := False;
> begin
>    loop
>       if Paused then
>          accept Release;
>          Paused := False;
>       else
>          select
>             accept Pause;
>             Paused := True;
>          else
>             ... -- Do stuff
>          end select;
>       end if;
>    end loop;

So I can use

Paused : Boolean := False;
begin
    accept Start;
    loop
       if Paused then
          accept Release;
          Paused := False;
       else
          select
             accept Pause;
             Paused := True;
          else
             ... -- Do stuff
          end select;
       end if;
    end loop;

and if I would want to add an abort entry? What should I do?