* Add support for Activate_Entrypoint, correct semantics of

          Initialize_Entrypoint



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@2205 129961e7-ef38-4bb5-a8f7-c9a525a55882

examples/aadlv2/ping/software.aadl

@@ -93,6 +93,7 @@ connections
   parameter P_Spg.Data_Source -> Data_Source;
 properties
   Initialize_Entrypoint_Source_Text  => "Msgs.Welcome_Pinger";
+  Activate_Entrypoint_Source_Text    => "Msgs.Welcome_Pinger";
   Recover_Entrypoint_Source_Text     => "Msgs.Recover";
   Dispatch_Protocol                  => Periodic;
   Period                             => 1000 Ms;

src/polyorb_hi-aperiodic_task.adb

@@ -55,7 +55,7 @@ package body PolyORB_HI.Aperiodic_Task is
    begin
       --  Run the initialize entrypoint (if any)
 
-      Initialize_Entrypoint;
+      Activate_Entrypoint;
 
       --  Wait for the network initialization to be finished
 

src/polyorb_hi-aperiodic_task.ads

@@ -64,8 +64,8 @@ generic
    with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind;
    --  Procedure to call at each dispatch of the sporadic thread
 
-   with procedure Initialize_Entrypoint is null;
-   --  If given, the task run Initialize_Entrypoint after the global
+   with procedure Activate_Entrypoint is null;
+   --  If given, the task run Activate_Entrypoint after the global
    --  initialization and before the task main loop.
 
    with procedure Recover_Entrypoint is null;

src/polyorb_hi-background_task.adb

@@ -54,7 +54,7 @@ package body PolyORB_HI.Background_Task is
    begin
       --  Run the initialize entrypoint (if any)
 
-      Initialize_Entrypoint;
+      Activate_Entrypoint;
 
       --  Wait for the network initialization to be finished
 

src/polyorb_hi-background_task.ads

@@ -49,8 +49,8 @@ generic
    with function Job return PolyORB_HI.Errors.Error_Kind;
    --  Procedure to call at each dispatch of the sporadic thread
 
-   with procedure Initialize_Entrypoint is null;
-   --  If given, the task run Initialize_Entrypoint after the global
+   with procedure Activate_Entrypoint is null;
+   --  If given, the task run Activate_Entrypoint after the global
    --  initialization and before the task main loop.
 
    with procedure Recover_Entrypoint is null;

src/polyorb_hi-hybrid_task.adb

@@ -77,7 +77,7 @@ package body PolyORB_HI.Hybrid_Task is
 
       --  Run the initialize entrypoint (if any)
 
-      Initialize_Entrypoint;
+      Activate_Entrypoint;
 
       --  Main task loop
 

src/polyorb_hi-hybrid_task.ads

@@ -81,8 +81,8 @@ generic
    with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind;
    --  Procedure to call at each dispatch of the hybrid thread
 
-   with procedure Initialize_Entrypoint is null;
-   --  If given, the task run Initialize_Entrypoint after the global
+   with procedure Activate_Entrypoint is null;
+   --  If given, the task run Activate_Entrypoint after the global
    --  initialization and before the task main loop.
 
    with procedure Recover_Entrypoint is null;

src/polyorb_hi-periodic_task.adb

@@ -54,7 +54,7 @@ package body PolyORB_HI.Periodic_Task is
    begin
       --  Run the initialize entrypoint (if any)
 
-      Initialize_Entrypoint;
+      Activate_Entrypoint;
 
       --  Wait for the network initialization to be finished
 

src/polyorb_hi-periodic_task.ads

@@ -60,8 +60,8 @@ generic
    with function Job return PolyORB_HI.Errors.Error_Kind;
    --  Parameterless procedure executed by the periodic task
 
-   with procedure Initialize_Entrypoint is null;
-   --  If given, the task runs Initialize_Entrypoint after the global
+   with procedure Activate_Entrypoint is null;
+   --  If given, the task runs Activate_Entrypoint after the global
    --  initialization and before the task main loop.
 
    with procedure Recover_Entrypoint is null;

src/polyorb_hi-sporadic_task.adb

@@ -58,7 +58,7 @@ package body PolyORB_HI.Sporadic_Task is
    begin
       --  Run the initialize entrypoint (if any)
 
-      Initialize_Entrypoint;
+      Activate_Entrypoint;
 
       --  Wait for the network initialization to be finished
 

src/polyorb_hi-sporadic_task.ads

@@ -75,8 +75,8 @@ generic
    with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind;
    --  Procedure to call at each dispatch of the sporadic thread
 
-   with procedure Initialize_Entrypoint is null;
-   --  If given, the task run Initialize_Entrypoint after the global
+   with procedure Activate_Entrypoint is null;
+   --  If given, the task run Activate_Entrypoint after the global
    --  initialization and before the task main loop.
 
    with procedure Recover_Entrypoint is null;