Commit c93329d7 authored by Julien's avatar Julien

Update naming conventions

parent e28e0618
......@@ -226,6 +226,8 @@ package body Ocarina.Backends.Vxworks653_Conf.Naming is
Feature : Node_Id;
Size : Unsigned_Long_Long;
Queue_Size : Long_Long;
Refresh_Period : Time_Type;
Refresh_Period_Second : Float;
begin
-- Application Node that is the child of Applications
......@@ -333,14 +335,23 @@ package body Ocarina.Backends.Vxworks653_Conf.Naming is
(Size), Left),
Port_Node);
XTU.Add_Attribute ("Name", "1", Port_Node);
XTU.Add_Attribute ("RefreshRate", "1", Port_Node);
if Is_In (Feature) and then
not Is_Out (Feature)
then
Refresh_Period := Get_POK_Refresh_Time (Feature);
Refresh_Period_Second := 1000.0 /
(Float (To_Milliseconds (Refresh_Period)) *
Float (100.0));
XTU.Add_Attribute ("Direction",
"DESTINATION",
Port_Node);
XTU.Add_Attribute ("RefreshRate",
Trim (Float'Image
(Refresh_Period_Second), Left),
Port_Node);
end if;
if not Is_In (Feature) and then
......@@ -349,6 +360,10 @@ package body Ocarina.Backends.Vxworks653_Conf.Naming is
XTU.Add_Attribute ("Direction",
"SOURCE",
Port_Node);
XTU.Add_Attribute ("RefreshRate",
"INFINITE_TIME",
Port_Node);
end if;
Append_Node_To_List (Port_Node,
......
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