Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
O
Ocarina
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
TASTE
Ocarina
Commits
cf270c32
Commit
cf270c32
authored
Aug 12, 2013
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Remove mentions of PolyORB-QoS, no longer supported
parent
866a2e9f
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
6 additions
and
68 deletions
+6
-68
src/backends/ocarina-backends-ada_tree-generator.adb
src/backends/ocarina-backends-ada_tree-generator.adb
+2
-58
src/backends/ocarina-backends-build_utils.adb
src/backends/ocarina-backends-build_utils.adb
+2
-3
src/backends/ocarina-backends-execution_utils.adb
src/backends/ocarina-backends-execution_utils.adb
+1
-5
src/backends/ocarina-backends.ads
src/backends/ocarina-backends.ads
+1
-2
No files found.
src/backends/ocarina-backends-ada_tree-generator.adb
View file @
cf270c32
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-201
3
ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
...
...
@@ -53,8 +53,6 @@ package body Ocarina.Backends.Ada_Tree.Generator is
procedure
Generate_Access_Type_Definition
(
N
:
Node_Id
);
procedure
Generate_Ada_Comment
(
N
:
Node_Id
);
procedure
Generate_QoS_Distributed_Application
(
N
:
Node_Id
);
procedure
Generate_QoS_Node
(
N
:
Node_Id
);
procedure
Generate_HI_Distributed_Application
(
N
:
Node_Id
);
procedure
Generate_HI_Node
(
N
:
Node_Id
);
procedure
Generate_Unit_Packages
(
N
:
Node_Id
);
...
...
@@ -210,19 +208,13 @@ package body Ocarina.Backends.Ada_Tree.Generator is
when
K_Ada_Comment
=>
Generate_Ada_Comment
(
N
);
when
K_QoS_Distributed_Application
=>
Generate_QoS_Distributed_Application
(
N
);
when
K_QoS_Node
=>
Generate_QoS_Node
(
N
);
when
K_HI_Distributed_Application
=>
Generate_HI_Distributed_Application
(
N
);
when
K_HI_Node
=>
Generate_HI_Node
(
N
);
when
K_
QoS_Unit
|
K_
HI_Unit
=>
when
K_HI_Unit
=>
Generate_Unit_Packages
(
N
);
when
K_Array_Aggregate
=>
...
...
@@ -594,54 +586,6 @@ package body Ocarina.Backends.Ada_Tree.Generator is
end
loop
;
end
Generate_Ada_Comment
;
------------------------------------------
-- Generate_QoS_Distributed_Application --
------------------------------------------
procedure
Generate_QoS_Distributed_Application
(
N
:
Node_Id
)
is
P
:
Node_Id
:=
First_Node
(
QoS_Nodes
(
N
));
Application_Directory
:
Name_Id
;
begin
-- Create the application directory (a lower case string)
Get_Name_String
(
Name
(
N
));
Application_Directory
:=
To_Lower
(
Name_Find
);
Create_Directory
(
Application_Directory
);
-- Process the application nodes
Enter_Directory
(
Application_Directory
);
while
Present
(
P
)
loop
Generate
(
P
);
P
:=
Next_Node
(
P
);
end
loop
;
Leave_Directory
;
end
Generate_QoS_Distributed_Application
;
-----------------------
-- Generate_QoS_Node --
-----------------------
procedure
Generate_QoS_Node
(
N
:
Node_Id
)
is
U
:
Node_Id
:=
First_Node
(
Units
(
N
));
Partition_Directory
:
constant
Name_Id
:=
To_Lower
(
Name
(
N
));
begin
-- Create the partition directory
Create_Directory
(
Partition_Directory
);
Enter_Directory
(
Partition_Directory
);
while
Present
(
U
)
loop
Generate
(
U
);
U
:=
Next_Node
(
U
);
end
loop
;
Leave_Directory
;
end
Generate_QoS_Node
;
----------------------------
-- Generate_Unit_Packages --
----------------------------
...
...
src/backends/ocarina-backends-build_utils.adb
View file @
cf270c32
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
3
ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
...
...
@@ -263,8 +263,7 @@ package body Ocarina.Backends.Build_Utils is
if
Language
=
Language_None
then
case
Get_Current_Backend_Kind
is
when
PolyORB_QoS_Ada
|
PolyORB_HI_Ada
=>
when
PolyORB_HI_Ada
=>
Language
:=
Language_Ada_95
;
when
PolyORB_HI_C
=>
...
...
src/backends/ocarina-backends-execution_utils.adb
View file @
cf270c32
...
...
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2009 Telecom ParisTech, 2010-201
3
ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
...
...
@@ -207,10 +207,6 @@ package body Ocarina.Backends.Execution_Utils is
Get_Name_String_And_Append
(
Node_Name
);
Add_Str_To_Name_buffer
(
Dir_Separator
&
""
);
Get_Name_String_And_Append
(
Node_Name
);
when
PolyORB_QoS_Ada
=>
Add_Str_To_Name_Buffer
(
"bin"
);
Add_Str_To_Name_Buffer
(
Dir_Separator
&
""
);
Get_Name_String_And_Append
(
Node_Name
);
when
PolyORB_Kernel_C
=>
Get_Name_String_And_Append
(
Node_Name
);
when
others
=>
...
...
src/backends/ocarina-backends.ads
View file @
cf270c32
...
...
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
3
ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the --
...
...
@@ -66,7 +66,6 @@ package Ocarina.Backends is
PolyORB_HI_C
,
PolyORB_HI_RTSJ
,
PolyORB_Kernel_C
,
PolyORB_QoS_Ada
,
Statistics
,
Subprograms_Generator
,
Xtratum_Configuration
,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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