Re: Termination of periodic tasks

[Natasha Kerensikova <lithiumcat@instinctive.eu>]

Hello,

On 2014-06-17, Dmitry A. Kazakov <mailbox@dmitry-kazakov.de> wrote:
> [...]
> -------------------------------------------------------
> with Ada.Text_IO;  use Ada.Text_IO;
> with Workers;      use Workers;
>
> procedure Test is
>    X : Manager;
> begin
>    delay 5.0;
>    Put_Line ("Good bye!");
> end Test;
> -----------------------------------------------------
>
> X is finalized before Workers (and Worker_Ptr), so it does not wait for all
> instances to terminate.

As far as I can tell from my experimentations, this only works because
Test here is a procedure. The code I linked on github a few posts ago
also works fine that situation, since procedure-wide Cron_Entry objects
are finalized, and when the last one is finalized the tasks terminates.

The problem I'm trying to work around is when your X here is declare in
a package rather than a procedure:

   with Workers;  use Workers;
   package Test_Library is
      procedure Hello;

      X : Manager;
   end Test_Library;


   with Ada.Text_IO;  use Ada.Text_IO;
   package body Test_Library is
      procedure Hello is
      begin
         Put_Line ("Library procedure called");
      end Hello;
   end Test_Library;


   with Ada.Text_IO;   use Ada.Text_IO;
   with Test_Library;  use Test_Library;
   procedure Test_Main is
   begin
      Hello;
      delay 5.0;
      Put_Line ("Good bye!");
  end Test_Main;

Now there you get the catch-22 situation I'm hoping to solve (or failing
that, document).


Thanks for your help,
Natasha