Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
c93329d7
Commit
c93329d7
authored
Apr 02, 2015
by
Julien
Browse files
Update naming conventions
parent
e28e0618
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-vxworks653_conf-naming.adb
View file @
c93329d7
...
...
@@ -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
,
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment