Skip to content
GitLab
Commit cf270c32 authored by yoogx's avatar yoogx
Browse files

* Remove mentions of PolyORB-QoS, no longer supported

parent 866a2e9f
Hide whitespace changes
Inline Side-by-side
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-2012 ESA & ISAE. --
-- Copyright (C) 2006-2009 Telecom ParisTech, 2010-2013 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-2012 ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2013 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-2012 ESA & ISAE. --
-- Copyright (C) 2009 Telecom ParisTech, 2010-2013 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-2012 ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2013 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,
......
Supports Markdown
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