Commit cf270c32 authored by yoogx's avatar yoogx
Browse files

* Remove mentions of PolyORB-QoS, no longer supported

parent 866a2e9f
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- 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 ...@@ -53,8 +53,6 @@ package body Ocarina.Backends.Ada_Tree.Generator is
procedure Generate_Access_Type_Definition (N : Node_Id); procedure Generate_Access_Type_Definition (N : Node_Id);
procedure Generate_Ada_Comment (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_Distributed_Application (N : Node_Id);
procedure Generate_HI_Node (N : Node_Id); procedure Generate_HI_Node (N : Node_Id);
procedure Generate_Unit_Packages (N : Node_Id); procedure Generate_Unit_Packages (N : Node_Id);
...@@ -210,19 +208,13 @@ package body Ocarina.Backends.Ada_Tree.Generator is ...@@ -210,19 +208,13 @@ package body Ocarina.Backends.Ada_Tree.Generator is
when K_Ada_Comment => when K_Ada_Comment =>
Generate_Ada_Comment (N); 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 => when K_HI_Distributed_Application =>
Generate_HI_Distributed_Application (N); Generate_HI_Distributed_Application (N);
when K_HI_Node => when K_HI_Node =>
Generate_HI_Node (N); Generate_HI_Node (N);
when K_QoS_Unit | K_HI_Unit => when K_HI_Unit =>
Generate_Unit_Packages (N); Generate_Unit_Packages (N);
when K_Array_Aggregate => when K_Array_Aggregate =>
...@@ -594,54 +586,6 @@ package body Ocarina.Backends.Ada_Tree.Generator is ...@@ -594,54 +586,6 @@ package body Ocarina.Backends.Ada_Tree.Generator is
end loop; end loop;
end Generate_Ada_Comment; 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 -- -- Generate_Unit_Packages --
---------------------------- ----------------------------
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -263,8 +263,7 @@ package body Ocarina.Backends.Build_Utils is ...@@ -263,8 +263,7 @@ package body Ocarina.Backends.Build_Utils is
if Language = Language_None then if Language = Language_None then
case Get_Current_Backend_Kind is case Get_Current_Backend_Kind is
when PolyORB_QoS_Ada | when PolyORB_HI_Ada =>
PolyORB_HI_Ada =>
Language := Language_Ada_95; Language := Language_Ada_95;
when PolyORB_HI_C => when PolyORB_HI_C =>
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -207,10 +207,6 @@ package body Ocarina.Backends.Execution_Utils is ...@@ -207,10 +207,6 @@ package body Ocarina.Backends.Execution_Utils is
Get_Name_String_And_Append (Node_Name); Get_Name_String_And_Append (Node_Name);
Add_Str_To_Name_buffer (Dir_Separator & ""); Add_Str_To_Name_buffer (Dir_Separator & "");
Get_Name_String_And_Append (Node_Name); 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 => when PolyORB_Kernel_C =>
Get_Name_String_And_Append (Node_Name); Get_Name_String_And_Append (Node_Name);
when others => when others =>
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- Ocarina is free software; you can redistribute it and/or modify --
-- it under terms of the GNU General Public License as published by the -- -- it under terms of the GNU General Public License as published by the --
...@@ -66,7 +66,6 @@ package Ocarina.Backends is ...@@ -66,7 +66,6 @@ package Ocarina.Backends is
PolyORB_HI_C, PolyORB_HI_C,
PolyORB_HI_RTSJ, PolyORB_HI_RTSJ,
PolyORB_Kernel_C, PolyORB_Kernel_C,
PolyORB_QoS_Ada,
Statistics, Statistics,
Subprograms_Generator, Subprograms_Generator,
Xtratum_Configuration, Xtratum_Configuration,
......
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