Commit 6b17f690 authored by julien.delange's avatar julien.delange

add new functions required by buildsupport



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1018 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent e792f502
......@@ -215,4 +215,6 @@ Ada_Package_Name : aadlstring applies to (data);
interfaceView : aadlstring applies to (package);
WCET : Time applies to (subprogram access);
end Taste;
......@@ -700,6 +700,16 @@ package body Ocarina.ME_AADL.AADL_Instances.Nutils is
Get_Category_Of_Component (C) = CC_Processor;
end Is_Processor;
--------------------------
-- Is_Subprogram_Access --
--------------------------
function Is_Subprogram_Access (C : Node_Id) return Boolean is
begin
return Kind (C) = K_Subcomponent_Access_Instance and then
Get_Category_Of_Component (Corresponding_Instance (C)) = CC_Subprogram;
end Is_Subprogram_Access;
------------
-- Is_Bus --
------------
......@@ -720,4 +730,13 @@ package body Ocarina.ME_AADL.AADL_Instances.Nutils is
Get_Category_Of_Component (C) = CC_Virtual_Bus;
end Is_Virtual_Bus;
-------------
-- Is_Port --
-------------
function Is_Port (C : Node_Id) return Boolean is
begin
return Kind (C) = K_Port_Spec_Instance;
end Is_Port;
end Ocarina.ME_AADL.AADL_Instances.Nutils;
......@@ -151,5 +151,7 @@ package Ocarina.Me_AADL.AADL_Instances.Nutils is
function Is_Processor (C : Node_Id) return Boolean;
function Is_Bus (C : Node_Id) return Boolean;
function Is_Virtual_Bus (C : Node_Id) return Boolean;
function Is_Subprogram_Access (C : Node_Id) return Boolean;
function Is_Port (C : Node_Id) return Boolean;
end Ocarina.ME_AADL.AADL_Instances.Nutils;
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