Re: Tasks reinitializing

[Adam Beneschan <adam@irvine.com>]

On Sep 17, 11:21 am, Pablo <pablit...@gmail.com> wrote:
> How can I reinitialize a task?
> Say us, I have two cases:
> A task defined as
>    task type Task_type is
>       entry Start;
>    end Task_type;
> so the object defined as
> Init : Init_type;

You mean Init : Task_Type, I presume??

> and inside a procedure, the task is initialized with
> accept Start;
>
> and now:
> 1) In run time, the task is terminated by aborting process (abort
> Init) before its end, and in the same session, I need to turn it on
> again, but now from the beginning.
> 2) In run time, the task is finished by very end, and in the same
> session, I need to start it again from beginning.
>
> Please help me!

You'll need to create a new task object.  If you declare an object

   Init : Task_Type;

and it's declared as a local variable inside a procedure Proc1, the
only way it's going to get reinitialized is if Proc1 exits and starts
up again.  If Init is declared in a library package, then it's never
going to happen.

You may want to try using an access:

   type Task_Type_Acc is access Task_Type;

   Init : Task_Type_Acc := new Task_Type;

When you allocate a new Task_Type with "new", that will start a task
up.  If, after the task finishes, you want to start a new one, you can
assign

   Init := new Task_Type;

at any point, and it will start a new task.  I think that's probably
what you want.

                                       -- Adam