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