Re: Freezing a task

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Thu, 17 Nov 2011 16:00:17 +0000, Simon Wright wrote:

> "Rego, P." <pvrego@gmail.com> writes:
> 
>> Is there a more elegant way to do this? Maybe some procedure
>> My_Task.FreezeNow in a unknown (by me) package? Thanks
> 
> Well, you could do it in the debugger :-)
> 
> Programmatically, no. Your choices for inter-task comms are (a) the
> rendezvous, (b) polling some shared resource (eg a protected object),
> (c) something using sockets.
> 
> Or you could unilaterally abort the task, which would be the end of it.
> 
> For (a), maybe something like
> 
> loop
>    select
>       accept Pause;
>       accept Continue;
>    else
>       null;
>    end select;
>    --  do stuff
> end loop;

If using select statement for accepting entry calls then:

   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;

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de