Commit a5008c31 authored by hugues.jerome's avatar hugues.jerome

* 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
parent 298e1d1f
...@@ -93,6 +93,7 @@ connections ...@@ -93,6 +93,7 @@ connections
parameter P_Spg.Data_Source -> Data_Source; parameter P_Spg.Data_Source -> Data_Source;
properties properties
Initialize_Entrypoint_Source_Text => "Msgs.Welcome_Pinger"; Initialize_Entrypoint_Source_Text => "Msgs.Welcome_Pinger";
Activate_Entrypoint_Source_Text => "Msgs.Welcome_Pinger";
Recover_Entrypoint_Source_Text => "Msgs.Recover"; Recover_Entrypoint_Source_Text => "Msgs.Recover";
Dispatch_Protocol => Periodic; Dispatch_Protocol => Periodic;
Period => 1000 Ms; Period => 1000 Ms;
......
...@@ -55,7 +55,7 @@ package body PolyORB_HI.Aperiodic_Task is ...@@ -55,7 +55,7 @@ package body PolyORB_HI.Aperiodic_Task is
begin begin
-- Run the initialize entrypoint (if any) -- Run the initialize entrypoint (if any)
Initialize_Entrypoint; Activate_Entrypoint;
-- Wait for the network initialization to be finished -- Wait for the network initialization to be finished
......
...@@ -64,8 +64,8 @@ generic ...@@ -64,8 +64,8 @@ generic
with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind; with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind;
-- Procedure to call at each dispatch of the sporadic thread -- Procedure to call at each dispatch of the sporadic thread
with procedure Initialize_Entrypoint is null; with procedure Activate_Entrypoint is null;
-- If given, the task run Initialize_Entrypoint after the global -- If given, the task run Activate_Entrypoint after the global
-- initialization and before the task main loop. -- initialization and before the task main loop.
with procedure Recover_Entrypoint is null; with procedure Recover_Entrypoint is null;
......
...@@ -54,7 +54,7 @@ package body PolyORB_HI.Background_Task is ...@@ -54,7 +54,7 @@ package body PolyORB_HI.Background_Task is
begin begin
-- Run the initialize entrypoint (if any) -- Run the initialize entrypoint (if any)
Initialize_Entrypoint; Activate_Entrypoint;
-- Wait for the network initialization to be finished -- Wait for the network initialization to be finished
......
...@@ -49,8 +49,8 @@ generic ...@@ -49,8 +49,8 @@ generic
with function Job return PolyORB_HI.Errors.Error_Kind; with function Job return PolyORB_HI.Errors.Error_Kind;
-- Procedure to call at each dispatch of the sporadic thread -- Procedure to call at each dispatch of the sporadic thread
with procedure Initialize_Entrypoint is null; with procedure Activate_Entrypoint is null;
-- If given, the task run Initialize_Entrypoint after the global -- If given, the task run Activate_Entrypoint after the global
-- initialization and before the task main loop. -- initialization and before the task main loop.
with procedure Recover_Entrypoint is null; with procedure Recover_Entrypoint is null;
......
...@@ -77,7 +77,7 @@ package body PolyORB_HI.Hybrid_Task is ...@@ -77,7 +77,7 @@ package body PolyORB_HI.Hybrid_Task is
-- Run the initialize entrypoint (if any) -- Run the initialize entrypoint (if any)
Initialize_Entrypoint; Activate_Entrypoint;
-- Main task loop -- Main task loop
......
...@@ -81,8 +81,8 @@ generic ...@@ -81,8 +81,8 @@ generic
with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind; with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind;
-- Procedure to call at each dispatch of the hybrid thread -- Procedure to call at each dispatch of the hybrid thread
with procedure Initialize_Entrypoint is null; with procedure Activate_Entrypoint is null;
-- If given, the task run Initialize_Entrypoint after the global -- If given, the task run Activate_Entrypoint after the global
-- initialization and before the task main loop. -- initialization and before the task main loop.
with procedure Recover_Entrypoint is null; with procedure Recover_Entrypoint is null;
......
...@@ -54,7 +54,7 @@ package body PolyORB_HI.Periodic_Task is ...@@ -54,7 +54,7 @@ package body PolyORB_HI.Periodic_Task is
begin begin
-- Run the initialize entrypoint (if any) -- Run the initialize entrypoint (if any)
Initialize_Entrypoint; Activate_Entrypoint;
-- Wait for the network initialization to be finished -- Wait for the network initialization to be finished
......
...@@ -60,8 +60,8 @@ generic ...@@ -60,8 +60,8 @@ generic
with function Job return PolyORB_HI.Errors.Error_Kind; with function Job return PolyORB_HI.Errors.Error_Kind;
-- Parameterless procedure executed by the periodic task -- Parameterless procedure executed by the periodic task
with procedure Initialize_Entrypoint is null; with procedure Activate_Entrypoint is null;
-- If given, the task runs Initialize_Entrypoint after the global -- If given, the task runs Activate_Entrypoint after the global
-- initialization and before the task main loop. -- initialization and before the task main loop.
with procedure Recover_Entrypoint is null; with procedure Recover_Entrypoint is null;
......
...@@ -58,7 +58,7 @@ package body PolyORB_HI.Sporadic_Task is ...@@ -58,7 +58,7 @@ package body PolyORB_HI.Sporadic_Task is
begin begin
-- Run the initialize entrypoint (if any) -- Run the initialize entrypoint (if any)
Initialize_Entrypoint; Activate_Entrypoint;
-- Wait for the network initialization to be finished -- Wait for the network initialization to be finished
......
...@@ -75,8 +75,8 @@ generic ...@@ -75,8 +75,8 @@ generic
with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind; with function Job (Port : Port_Type) return PolyORB_HI.Errors.Error_Kind;
-- Procedure to call at each dispatch of the sporadic thread -- Procedure to call at each dispatch of the sporadic thread
with procedure Initialize_Entrypoint is null; with procedure Activate_Entrypoint is null;
-- If given, the task run Initialize_Entrypoint after the global -- If given, the task run Activate_Entrypoint after the global
-- initialization and before the task main loop. -- initialization and before the task main loop.
with procedure Recover_Entrypoint is null; with procedure Recover_Entrypoint is null;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment