Skip to content

GitLab

O
Ocarina
Commit 51988726 authored by Arnaud Schach's avatar Arnaud Schach
Browse files
Options

Merge remote-tracking branch 'remotes/openaadl/master'

parents a40b450b fe56d1cc
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 2053 additions and 1392 deletions
src/backends/ocarina-backends-c_common-mapping.adb
View file @ 51988726
......@@ -1365,10 +1365,22 @@ package body Ocarina.Backends.C_Common.Mapping is
-------------------------
function Map_Scade_Parameter (Parameter : Node_Id) return Node_Id is
Scade_Name : Name_Id;
begin
Get_Name_String (Get_Scade_Signal (Parameter));
Scade_Name := Get_Scade_Signal (Parameter);
return CTU.Make_Defining_Identifier (Name_Find, C_Conversion => False);
if Scade_Name = No_Name then
Scade_Name := Get_Source_Name (Parameter);
end if;
if Scade_Name = No_Name then
Display_Located_Error
(AIN.Loc (Parameter),
"The Parameter does not specify a SCADE mapping",
Fatal => True);
end if;
return CTU.Make_Defining_Identifier (Scade_Name, C_Conversion => False);
end Map_Scade_Parameter;
----------------------
......@@ -2445,8 +2457,8 @@ package body Ocarina.Backends.C_Common.Mapping is
when Subprogram_Simulink =>
Add_Include
(Make_Include_Clause
(Make_Defining_Identifier (Get_Source_Name (S), False),
False),
(Make_Defining_Identifier (Get_Source_Name (S), True),
True),
True);
if not AINU.Is_Empty (Features (S)) then
......@@ -2528,7 +2540,7 @@ package body Ocarina.Backends.C_Common.Mapping is
when Subprogram_Scade =>
Add_Include
(Make_Include_Clause (Map_Scade_Function_Name (S)),
(Make_Include_Clause (Map_Scade_Function_Name (S), True),
Preserve_Case => True);
-- At first, we declare structures used as parameters
-- for SCADE functions. So, if the subprograms has IN
......
src/backends/ocarina-backends-cheddar.adb
View file @ 51988726
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2010-2014 ESA & ISAE. --
-- Copyright (C) 2010-2015 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 --
......@@ -41,7 +41,6 @@ with Ocarina.Backends.XML_Tree.Nutils;
with Ocarina.Backends.XML_Tree.Generator;
with GNAT.Command_Line; use GNAT.Command_Line;
with GNAT.OS_Lib; use GNAT.OS_Lib;
with Ocarina.Namet; use Ocarina.Namet;
......@@ -56,8 +55,6 @@ package body Ocarina.Backends.Cheddar is
package XTU renames Ocarina.Backends.XML_Tree.Nutils;
Generated_Sources_Directory : Name_Id := No_Name;
Invoke_Cheddar : Boolean := False;
Cheddarlite_Path : String_Access;
procedure Visit_Architecture_Instance (E : Node_Id);
-- Most top level visitor routine. E is the root of the AADL
......@@ -90,33 +87,14 @@ package body Ocarina.Backends.Cheddar is
Display_Error ("XML generation failed", Fatal => True);
end if;
Create_Directory (Generated_Sources_Directory);
Enter_Directory (Generated_Sources_Directory);
-- Create the XML file
XML_Tree.Generator.Generate (XML_Root);
if Invoke_Cheddar then
if Cheddarlite_Path = null then
Cheddarlite_Path := Locate_Exec_On_Path ("cheddarlite");
end if;
declare
Args : GNAT.OS_Lib.Argument_List (1 .. 4);
Success : Boolean;
begin
Args (1) := new String'("-file");
Args (2) := new String'("rma_impl_cheddar.xml");
Args (3) := new String'("-request");
Args (4) := new String'("all");
Spawn (Cheddarlite_Path.all, Args, Success);
if not Success then
raise Program_Error;
end if;
end;
end if;
Leave_Directory;
end Generate;
......@@ -133,9 +111,6 @@ package body Ocarina.Backends.Cheddar is
when ASCII.NUL =>
exit;
when 'b' =>
Invoke_Cheddar := True;
when 'o' =>
declare
D : constant String := Parameter;
......
src/backends/ocarina-backends-deos_conf-schedule.adb
View file @ 51988726
-- with Locations;
with Ada.Strings; use Ada.Strings;
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
with Ocarina.Namet; use Ocarina.Namet;
with Ocarina.ME_AADL;
with Ocarina.ME_AADL.AADL_Tree.Nodes;
with Ocarina.ME_AADL.AADL_Instances.Nodes;
with Ocarina.ME_AADL.AADL_Instances.Nutils;
with Ocarina.ME_AADL.AADL_Instances.Entities;
......@@ -32,6 +31,7 @@ package body Ocarina.Backends.Deos_Conf.Schedule is
-- use Ocarina.Backends.Properties;
-- use Ocarina.Backends.Deos_Conf.Mapping;
package ATN renames Ocarina.ME_AADL.AADL_Tree.Nodes;
package AINU renames Ocarina.ME_AADL.AADL_Instances.Nutils;
package XTN renames Ocarina.Backends.XML_Tree.Nodes;
package XTU renames Ocarina.Backends.XML_Tree.Nutils;
......@@ -165,7 +165,6 @@ package body Ocarina.Backends.Deos_Conf.Schedule is
begin
Offset := 0;
for J in Module_Schedule'Range loop
Time_Window_Node := Make_XML_Node ("PartitionTimeWindow");
Append_Node_To_List
......@@ -177,8 +176,8 @@ package body Ocarina.Backends.Deos_Conf.Schedule is
-- For now, we assume the partition duration
-- is in milliseconds.
--
Slot_Duration := To_Milliseconds
(Module_Schedule (J).Duration) * 1_000_000;
Slot_Duration := To_Nanoseconds
(Module_Schedule (J).Duration);
XTU.Add_Attribute ("Duration",
Trim (Unsigned_Long_Long'Image
(Slot_Duration), Left),
......@@ -195,7 +194,9 @@ package body Ocarina.Backends.Deos_Conf.Schedule is
"false", Time_Window_Node);
XTU.Add_Attribute ("PartitionNameRef",
Get_Name_String
(Module_Schedule (J).Partition),
(ATN.Display_Name
(ATN.Identifier
(Module_Schedule (J).Partition))),
Time_Window_Node);
Offset := Offset + Slot_Duration;
end loop;
......
src/backends/ocarina-backends-properties-arinc653.adb
View file @ 51988726
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2014 ESA & ISAE. --
-- Copyright (C) 2014-2015 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 --
......@@ -121,17 +121,11 @@ package body Ocarina.Backends.Properties.ARINC653 is
begin
while Present (L) loop
if Name (Identifier (L)) = Partition_Name then
-- Partition is a component reference. XXX For
-- now, we do not fully resolve this part during
-- analysis or instance, we thus resort to a
-- work-around, that is to simply return the
-- name of the referenced component.
-- Partition is a component reference
Result (J).Partition :=
Display_Name
(First_Node
(List_Items
(Reference_Term (Property_Expression (L)))));
Entity
(Reference_Term (Property_Expression (L)));
elsif Name (Identifier (L)) = Duration_Name then
Result (J).Duration := Convert_Value_To_Time_Type
......
src/backends/ocarina-backends-properties-arinc653.ads
View file @ 51988726
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2014 ESA & ISAE. --
-- Copyright (C) 2014-2015 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 --
......@@ -37,7 +37,7 @@
package Ocarina.Backends.Properties.ARINC653 is
type Schedule_Window_Record_Term is record
Partition : Name_Id;
Partition : Node_Id;
Duration : Time_Type;
Periodic_Processing_Start : Boolean;
end record;
......@@ -47,7 +47,7 @@ package Ocarina.Backends.Properties.ARINC653 is
Empty_Schedule_Window_Record_Term_Array :
constant Schedule_Window_Record_Term_Array (1 .. 0)
:= (others => (No_Name, (0, Picosecond), False));
:= (others => (No_Node, (0, Picosecond), False));
function Get_Module_Schedule_Property
(E : Node_Id)
......
src/backends/ocarina-backends-vxworks653_conf-schedule.adb
View file @ 51988726
-- with Locations;
with Ocarina.Namet; use Ocarina.Namet;
with Ocarina.ME_AADL;
with Ocarina.ME_AADL.AADL_Instances.Nodes;
......@@ -14,6 +13,7 @@ with Ocarina.Backends.Utils;
with Ocarina.Backends.XML_Tree.Nodes;
with Ocarina.Backends.XML_Tree.Nutils;
-- with Ocarina.Backends.Vxworks653_Conf.Mapping;
with Ocarina.ME_AADL.AADL_Tree.Nodes;
package body Ocarina.Backends.Vxworks653_Conf.Schedule is
......@@ -31,6 +31,7 @@ package body Ocarina.Backends.Vxworks653_Conf.Schedule is
-- use Ocarina.Backends.Properties;
-- use Ocarina.Backends.Vxworks653_Conf.Mapping;
package ATN renames Ocarina.ME_AADL.AADL_Tree.Nodes;
package AINU renames Ocarina.ME_AADL.AADL_Instances.Nutils;
package XTN renames Ocarina.Backends.XML_Tree.Nodes;
package XTU renames Ocarina.Backends.XML_Tree.Nutils;
......@@ -181,8 +182,9 @@ package body Ocarina.Backends.Vxworks653_Conf.Schedule is
--
Partition_Duration :=
(Long_Double
(To_Milliseconds
(Module_Schedule (J).Duration)) / Long_Double (1000.0));
(To_Nanoseconds
(Module_Schedule (J).Duration))
/ Long_Double (1_000_000_000.0));
XTU.Add_Attribute ("Duration",
XV.New_Floating_Point_Value (Partition_Duration),
Partition_Window_Node);
......@@ -190,7 +192,9 @@ package body Ocarina.Backends.Vxworks653_Conf.Schedule is
"1", Partition_Window_Node);
XTU.Add_Attribute ("PartitionNameRef",
Get_Name_String
(Module_Schedule (J).Partition),
(ATN.Display_Name
(ATN.Identifier
(Module_Schedule (J).Partition))),
Partition_Window_Node);
end loop;
end Fill_Scheduling_Slots;
......
src/core/instance/ocarina-instances.adb
View file @ 51988726
......@@ -173,8 +173,12 @@ package body Ocarina.Instances is
if Root_System_Name /= No_Name then
List_Node := Root_Systems.First;
while Present (List_Node) loop
exit when ATE.Get_Name_Of_Entity (List_Node, False) =
Root_System_Name;
exit when
(ATE.Get_Name_Of_Entity (List_Node, False) = Root_System_Name
or else
ATE.Get_Name_Of_Entity (List_Node, False, True)
= Root_System_Name);
List_Node := ATN.Next_Entity (List_Node);
end loop;
......@@ -188,7 +192,8 @@ package body Ocarina.Instances is
List_Node := Root_Systems.First;
while Present (List_Node) loop
Error_Loc (1) := ATN.Loc (List_Node);
Error_Name (1) := ATE.Get_Name_Of_Entity (List_Node);
Error_Name (1) := ATE.Get_Name_Of_Entity
(List_Node, False, True);
DE ("%");
List_Node := ATN.Next_Entity (List_Node);
end loop;
......
src/core/mgmt/ocarina-options.ads
View file @ 51988726
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2014 ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 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 --
......@@ -47,7 +47,6 @@ package Ocarina.Options is
Show_Libraries,
Show_Usage,
Parse_Scenario_Files_First,
Analyze_With_Cheddar,
Shell,
Python_Shell);
......
src/core/model/ocarina-analyzer-aadl-finder.adb
View file @ 51988726
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2009 Telecom ParisTech, 2010-2014 ESA & ISAE. --
-- Copyright (C) 2009 Telecom ParisTech, 2010-2015 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 --
......@@ -69,12 +69,13 @@ package body Ocarina.Analyzer.AADL.Finder is
function Filter_Declarations_According_To_Modes
(Declaration_Node : Node_Id;
In_Modes : Node_Id) return Node_Id;
-- Given a chained list of homonyms 'Declaration_Node', if
-- In_Modes is not nul, return the node coprresponding to the
-- declaration that matches these modes or else the declaration
-- that has no "in modes" clause or else No_Node. If In_Modes is
-- nul, return the node coprresponding to the declaration with no
-- "in modes" clause or else No_Node.
-- Given a chained list of homonyms 'Declaration_Node',
--
-- * if In_Modes is not null, return the node coprresponding to
-- the declaration that matches these modes or else the
-- declaration that has no "in modes" clause or else No_Node.
-- * if In_Modes is nul, return the node coprresponding to the
-- declaration with no "in modes" clause or else No_Node.
--------------------------------------------
-- Filter_Declarations_According_To_Modes --
......@@ -449,7 +450,8 @@ package body Ocarina.Analyzer.AADL.Finder is
or else Kind (Property_Container) = K_Constant_Property_Declaration
or else Kind (Property_Container) = K_Property_Type
or else Kind (Property_Container) = K_Property_Definition_Declaration
or else Kind (Property_Container) = K_Property_Type_Declaration);
or else Kind (Property_Container) = K_Property_Type_Declaration
or else Kind (Property_Container) = K_Record_Term_Element);
List_Node : Node_Id := No_Node;
Property_Type : Node_Id;
......@@ -475,25 +477,58 @@ package body Ocarina.Analyzer.AADL.Finder is
Property_Type := Property_Name_Type (Pointed_Node);
end if;
if Kind (Property_Type) /= K_Enumeration_Type then
if Kind (Property_Type) /= K_Enumeration_Type
and then Kind (Property_Type) /= K_Record_Type
then
return No_Node;
elsif not Is_Empty (Identifiers (Property_Type)) then
List_Node := First_Node (Identifiers (Property_Type));
end if;
while Present (List_Node) loop
if Ocarina.ME_AADL.AADL_Tree.Nodes.Name (List_Node) =
Name (Identifier (Default_Value))
then
Resolve_Term_In_Property
(Property_Container,
Default_Value,
K_Enumeration_Term);
return Pointed_Node;
end if;
if Kind (Property_Type) = K_Enumeration_Type
and then not Is_Empty (Identifiers (Property_Type))
then
List_Node := First_Node (Identifiers (Property_Type));
List_Node := Next_Node (List_Node);
end loop;
while Present (List_Node) loop
if Ocarina.ME_AADL.AADL_Tree.Nodes.Name (List_Node) =
Name (Identifier (Default_Value))
then
Resolve_Term_In_Property
(Property_Container,
Default_Value,
K_Enumeration_Term);
return Pointed_Node;
end if;
List_Node := Next_Node (List_Node);
end loop;
elsif Kind (Property_Type) = K_Record_Type then
-- When processing a Record_Type, we iterate over
-- the property container that holds the record
-- term element (i.e. foo => bar) and check that
--
List_Node := First_Node (List_Items (Property_Type));
while Present (List_Node) loop
-- A property type is a list of record_type element
-- XXX should use case insensitive match ?
if Ocarina.ME_AADL.AADL_Tree.Nodes.Display_Name
(Identifier (List_Node)) =
Display_Name (Identifier (Property_Container))
then
Resolve_Term_In_Property
(List_Node, -- Property_Container,
Default_Value,
K_Enumeration_Term);
return Pointed_Node;
end if;
List_Node := Next_Node (List_Node);
end loop;
end if;
end if;
when K_Enumeration_Type =>
......@@ -521,7 +556,6 @@ package body Ocarina.Analyzer.AADL.Finder is
end case;
return No_Node;
end Find_Property_Enumeration;
-------------------------------------------------------
......
src/core/model/ocarina-analyzer-aadl-queries.adb
View file @ 51988726
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2009 Telecom ParisTech, 2010-2014 ESA & ISAE. --
-- Copyright (C) 2009 Telecom ParisTech, 2010-2015 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 --
......@@ -966,7 +966,10 @@ package body Ocarina.Analyzer.AADL.Queries is
PO_Component_Category
or else
Named_Element'Val (Category (List_Node)) =
PO_Component_Access)
PO_Component_Access
or else
Named_Element'Val (Category (List_Node)) =
PO_Component_Implementation)
and then
(Category_Of_Component =
Component_Category'Val (Component_Cat (List_Node))))
......
src/core/model/ocarina-processor-properties.adb
View file @ 51988726
------------------------------------------------------------------------------
-- --
-- OCARINA COMPONENTS --
-- --
-- O C A R I N A . P R O C E S S O R . P R O P E R T I E S --
-- --
-- B o d y --
-- --
-- Copyright (C) 2015 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 --
-- Free Software Foundation; either version 2, or (at your option) any --
-- later version. Ocarina is distributed in the hope that it will be --
-- useful, but WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General --
-- Public License for more details. You should have received a copy of the --
-- GNU General Public License distributed with Ocarina; see file COPYING. --
-- If not, write to the Free Software Foundation, 51 Franklin Street, Fifth --
-- Floor, Boston, MA 02111-1301, USA. --
-- --
-- As a special exception, if other files instantiate generics from this --
-- unit, or you link this unit with other files to produce an executable, --
-- this unit does not by itself cause the resulting executable to be --
-- covered by the GNU General Public License. This exception does not --
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
-- Ocarina is maintained by the TASTE project --
-- (taste-users@lists.tuxfamily.org) --
-- --
------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- --
-- OCARINA COMPONENTS --
......@@ -431,21 +464,23 @@ package body Ocarina.Processor.Properties is
use Ocarina.Analyzer.Messages;
use Ocarina.ME_AADL.AADL_Tree.Nutils;
pragma Assert (Reference_Property /= No_Node);
pragma Assert
(Property = No_Node
or else Kind (Property) = K_Property_Association
or else Kind (Property) = K_Constant_Property_Declaration
or else Kind (Property) = K_Property_Definition_Declaration
or else Kind (Property) = K_Property_Type_Declaration
or else Kind (Property) = K_Record_Term_Element
or else DNKE (Property));
pragma Assert (Reference_Property /= No_Node);
Value, List_Node, Expanded_List_Node, Computed_Value : Node_Id;
Expanded_List : List_Id;
Undefined_Values : Boolean;
begin
if Property = No_Node then
if Property = No_Node
or else Kind (Property) = K_Record_Term_Element
then
return No_Node;
end if;
......@@ -557,7 +592,6 @@ package body Ocarina.Processor.Properties is
or else Kind (Property_Value) = K_Number_Range_Term
or else Kind (Property_Value) = K_Reference_Term
or else Kind (Property_Value) = K_Enumeration_Term
or else Kind (Property_Value) = K_Property_Term
or else Kind (Property_Value) = K_Minus_Numeric_Term
or else Kind (Property_Value) = K_Signed_AADLNumber
or else Kind (Property_Value) = K_Not_Boolean_Term
......@@ -1074,7 +1108,34 @@ package body Ocarina.Processor.Properties is
Component_Cat (Property_Value));
when K_Record_Term =>
null; -- XXX
Evaluated_Value :=
New_Node (Kind (Property_Value), Loc (Property_Value));
declare
Record_Terms_List : constant List_Id :=
New_List (K_List_Id, Loc (Property_Value));
J : Node_Id := First_Node (List_Items (Property_Value));
List_Node : Node_Id;
Record_Term_Element_Node : Node_Id;
begin
while Present (J) loop
Record_Term_Element_Node := New_Node
(K_Record_Term_Element, Loc (Property_Value));
List_Node := Evaluate_Property_Value
(Property_Expression (J), Reference_Property);
-- Put_Line (Kind (List_Node)'Img);
Set_Identifier (Record_Term_Element_Node, Identifier (J));
Set_Property_Expression
(Record_Term_Element_Node, List_Node);
Append_Node_To_List
(Record_Term_Element_Node, Record_Terms_List);
J := Next_Node (J);
end loop;
Set_List_Items (Evaluated_Value, Record_Terms_List);
end;
when others =>
raise Program_Error;
......
src/core/tree/ocarina-me_aadl-aadl_tree-entities-properties.adb
View file @ 51988726
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2014 ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 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 --
......@@ -272,6 +272,7 @@ package body Ocarina.ME_AADL.AADL_Tree.Entities.Properties is
or else Kind (Property_Value) = K_Or_Boolean_Term
or else Kind (Property_Value) = K_Parenthesis_Boolean_Term
or else Kind (Property_Value) = K_Reference_Term
or else Kind (Property_Value) = K_Record_Term
or else Kind (Property_Value) = K_Property_Term
or else Kind (Property_Value) = K_Enumeration_Term
or else Kind (Property_Value) = K_Component_Classifier_Term);
......@@ -662,7 +663,9 @@ package body Ocarina.ME_AADL.AADL_Tree.Entities.Properties is
pragma Assert
(Kind (Property) = K_Property_Association
or else Kind (Property) = K_Constant_Property_Declaration
or else Kind (Property) = K_Property_Definition_Declaration);
or else Kind (Property) = K_Property_Definition_Declaration
or else Kind (Property) = K_Record_Term_Element
or else Kind (Property) = K_Record_Type_Element);
pragma Assert
(Kind_Node = K_Enumeration_Term or else Kind_Node = K_Unit_Term);
......
src/core/tree/ocarina-me_aadl-aadl_tree-entities-properties.ads
View file @ 51988726
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2014 ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2015 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 --
......@@ -59,7 +59,7 @@ package Ocarina.ME_AADL.AADL_Tree.Entities.Properties is
type Named_Element is
(PO_Error,
-- This following elements are used only for AADL_V1
-- The following elements are used only for AADL_V1
PO_Port_Group,
PO_Server_Subprogram,
PO_Parameter,
......@@ -71,7 +71,7 @@ package Ocarina.ME_AADL.AADL_Tree.Entities.Properties is
PO_Event_Data_Port_Connections,
PO_Parameter_Connections,
-- This following elements are used for AADL_V1 and AADL_V2
-- The following elements are used for AADL_V1 and AADL_V2
PO_Component_Category,
PO_Mode,
PO_Flow,
......@@ -82,7 +82,7 @@ package Ocarina.ME_AADL.AADL_Tree.Entities.Properties is
PO_Access_Connection, -- POC_Access_Connections
-- This following elements are use only for AADL_V2
-- The following elements are used only for AADL_V2
PO_Identifier,
PO_Named_Element,
......
src/core/tree/ocarina-me_aadl-aadl_tree-entities.adb
View file @ 51988726
......@@ -120,9 +120,11 @@ package body Ocarina.ME_AADL.AADL_Tree.Entities is
function Get_Name_Of_Entity
(Entity : Ocarina.Types.Node_Id;
Get_Display_Name : Boolean := True) return Ocarina.Types.Name_Id
Get_Display_Name : Boolean := True;
Fully_Qualified : Boolean := False) return Ocarina.Types.Name_Id
is
use Ocarina.ME_AADL.AADL_Tree.Nodes;
use Ocarina.Namet;
use Ocarina.Types;
pragma Assert
......@@ -153,32 +155,52 @@ package body Ocarina.ME_AADL.AADL_Tree.Entities is
or else Kind (Entity) = K_Annex_Subclause
or else Kind (Entity) = K_Annex_Library
or else DNKE (Entity));
use Ocarina.ME_AADL.AADL_Tree.Debug;
Entity_Name : Name_Id := No_Name;
Package_Name : Name_Id;
Name_Of_Entity : Name_Id := No_Name;
begin
if Kind (Entity) /= K_AADL_Specification
and then Identifier (Entity) /= No_Node
then
if Get_Display_Name then
return Display_Name (Identifier (Entity));
Entity_Name := Display_Name (Identifier (Entity));
else
return Name (Identifier (Entity));
Entity_Name := Name (Identifier (Entity));
end if;
else
return No_Name;
end if;
end Get_Name_Of_Entity;
------------------------
-- Get_Name_Of_Entity --
------------------------
if Fully_Qualified then
Package_Name :=
Display_Name (Identifier (Namespace (Entity)));
Set_Str_To_Name_Buffer ("");