Commit 90ab3209 authored by yoogx's avatar yoogx

* Follow-up to Types to Ocarina.Types renaming

parent e6bb90e7
...@@ -38,7 +38,7 @@ with Charset; use Charset; ...@@ -38,7 +38,7 @@ with Charset; use Charset;
with Locations; use Locations; with Locations; use Locations;
with Ocarina.Namet; use Ocarina.Namet; with Ocarina.Namet; use Ocarina.Namet;
with Ocarina.Output; use Ocarina.Output; with Ocarina.Output; use Ocarina.Output;
with Types; use Types; with Ocarina.Types; use Ocarina.Types;
with Utils; use Utils; with Utils; use Utils;
with Ocarina.Backends.Ada_Values; use Ocarina.Backends.Ada_Values; with Ocarina.Backends.Ada_Values; use Ocarina.Backends.Ada_Values;
......
...@@ -405,7 +405,7 @@ package body Ocarina.Backends.ASN1_Tree.Nutils is ...@@ -405,7 +405,7 @@ package body Ocarina.Backends.ASN1_Tree.Nutils is
Set_Str_To_Name_Buffer (Image (T)); Set_Str_To_Name_Buffer (Image (T));
Name := Name_Find; Name := Name_Find;
Name := Add_Suffix_To_Name (Keyword_Suffix, Name); Name := Add_Suffix_To_Name (Keyword_Suffix, Name);
Set_Name_Table_Byte (Name, Types.Byte (Token_Type'Pos (T) + 1)); Set_Name_Table_Byte (Name, Ocarina.Types.Byte (Token_Type'Pos (T) + 1));
Set_Str_To_Name_Buffer (Image (T)); Set_Str_To_Name_Buffer (Image (T));
else else
......
...@@ -1042,7 +1042,7 @@ package body Ocarina.Backends.C_Tree.Nutils is ...@@ -1042,7 +1042,7 @@ package body Ocarina.Backends.C_Tree.Nutils is
Set_Str_To_Name_Buffer (Image (T)); Set_Str_To_Name_Buffer (Image (T));
Name := Name_Find; Name := Name_Find;
Name := Add_Suffix_To_Name (Keyword_Suffix, Name); Name := Add_Suffix_To_Name (Keyword_Suffix, Name);
Set_Name_Table_Byte (Name, Types.Byte (Token_Type'Pos (T) + 1)); Set_Name_Table_Byte (Name, Ocarina.Types.Byte (Token_Type'Pos (T) + 1));
Set_Str_To_Name_Buffer (Image (T)); Set_Str_To_Name_Buffer (Image (T));
else else
...@@ -1154,7 +1154,7 @@ package body Ocarina.Backends.C_Tree.Nutils is ...@@ -1154,7 +1154,7 @@ package body Ocarina.Backends.C_Tree.Nutils is
is is
Name : Name_Id; Name : Name_Id;
Test_Name : Name_Id; Test_Name : Name_Id;
V : Types.Byte; V : Ocarina.Types.Byte;
begin begin
Get_Name_String (Normalize_Name (N, Ada_Style)); Get_Name_String (Normalize_Name (N, Ada_Style));
Name := Name_Find; Name := Name_Find;
......
...@@ -387,7 +387,7 @@ package body Ocarina.Backends.MAST_Tree.Nutils is ...@@ -387,7 +387,7 @@ package body Ocarina.Backends.MAST_Tree.Nutils is
Set_Str_To_Name_Buffer (Image (T)); Set_Str_To_Name_Buffer (Image (T));
Name := Name_Find; Name := Name_Find;
Name := Add_Suffix_To_Name (Keyword_Suffix, Name); Name := Add_Suffix_To_Name (Keyword_Suffix, Name);
Set_Name_Table_Byte (Name, Types.Byte (Token_Type'Pos (T) + 1)); Set_Name_Table_Byte (Name, Ocarina.Types.Byte (Token_Type'Pos (T) + 1));
Set_Str_To_Name_Buffer (Image (T)); Set_Str_To_Name_Buffer (Image (T));
else else
......
...@@ -70,19 +70,19 @@ package body Ocarina.Backends.PN.Components is ...@@ -70,19 +70,19 @@ package body Ocarina.Backends.PN.Components is
PN_Dup_Arc_Proc : PN_Dup_Arc); PN_Dup_Arc_Proc : PN_Dup_Arc);
function Process_Component_Instance function Process_Component_Instance
(Instance : Types.Node_Id; (Instance : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id) PN_Generated : Ocarina.Types.Node_Id)
return Boolean; return Boolean;
function Process_Thread_Instance function Process_Thread_Instance
(Aadl_Instance : Types.Node_Id; (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id) PN_Generated : Ocarina.Types.Node_Id)
return Boolean; return Boolean;
procedure PN_Process_Thread_Pattern procedure PN_Process_Thread_Pattern
(Aadl_Instance : Types.Node_Id; (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Thread : Types.Node_Id; PN_Thread : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
PN_P_Init_Proc : PN_Init_Node; PN_P_Init_Proc : PN_Init_Node;
PN_P_New_Proc : PN_New_Node; PN_P_New_Proc : PN_New_Node;
PN_T_Init_Proc : PN_Init_Node; PN_T_Init_Proc : PN_Init_Node;
...@@ -91,9 +91,9 @@ package body Ocarina.Backends.PN.Components is ...@@ -91,9 +91,9 @@ package body Ocarina.Backends.PN.Components is
PN_A_New_Proc : PN_New_Node); PN_A_New_Proc : PN_New_Node);
procedure PN_Thread_Skeleton procedure PN_Thread_Skeleton
(Aadl_Instance : Types.Node_Id; (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Thread : Types.Node_Id; PN_Thread : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
PN_P_Init_Proc : PN_Init_Node; PN_P_Init_Proc : PN_Init_Node;
PN_P_New_Proc : PN_New_Node; PN_P_New_Proc : PN_New_Node;
PN_T_Init_Proc : PN_Init_Node; PN_T_Init_Proc : PN_Init_Node;
...@@ -102,10 +102,10 @@ package body Ocarina.Backends.PN.Components is ...@@ -102,10 +102,10 @@ package body Ocarina.Backends.PN.Components is
PN_A_New_Proc : PN_New_Node); PN_A_New_Proc : PN_New_Node);
procedure PN_Build_Spg_Par procedure PN_Build_Spg_Par
(Aadl_Instance : Types.Node_Id; (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
Spg_Feat : Types.Node_Id; Spg_Feat : Ocarina.Types.Node_Id;
PN_Spg_Call : Types.Node_Id; PN_Spg_Call : Ocarina.Types.Node_Id;
In_Par : Boolean := True; In_Par : Boolean := True;
PN_P_Init_Proc : PN_Init_Node; PN_P_Init_Proc : PN_Init_Node;
PN_P_New_Proc : PN_New_Node; PN_P_New_Proc : PN_New_Node;
...@@ -114,21 +114,21 @@ package body Ocarina.Backends.PN.Components is ...@@ -114,21 +114,21 @@ package body Ocarina.Backends.PN.Components is
PN_A_Init_Proc : PN_Init_Arc; PN_A_Init_Proc : PN_Init_Arc;
PN_A_New_Proc : PN_New_Node); PN_A_New_Proc : PN_New_Node);
procedure PN_Build_Port (Aadl_Instance : Types.Node_Id; procedure PN_Build_Port (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
PN_Thread : Types.Node_Id; PN_Thread : Ocarina.Types.Node_Id;
F : Types.Value_Id); F : Ocarina.Types.Value_Id);
procedure PN_Build_Tpn_Port procedure PN_Build_Tpn_Port
(Aadl_Instance : Node_Id; (Aadl_Instance : Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
Port_Instance : Node_Id; Port_Instance : Node_Id;
PN_Port : Node_Id; PN_Port : Node_Id;
Is_Data : Boolean := True); Is_Data : Boolean := True);
procedure PN_Build_Cpn_Port procedure PN_Build_Cpn_Port
(Aadl_Instance : Node_Id; (Aadl_Instance : Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
Port_Instance : Node_Id; Port_Instance : Node_Id;
PN_Port : Node_Id; PN_Port : Node_Id;
Is_Data : Boolean := True); Is_Data : Boolean := True);
...@@ -138,9 +138,9 @@ package body Ocarina.Backends.PN.Components is ...@@ -138,9 +138,9 @@ package body Ocarina.Backends.PN.Components is
----------------------------------- -----------------------------------
function Process_Architecture_Instance function Process_Architecture_Instance
(Architecture_Instance : Types.Node_Id; (Architecture_Instance : Ocarina.Types.Node_Id;
F : Unsigned_Long_Long) F : Unsigned_Long_Long)
return Types.Node_Id return Ocarina.Types.Node_Id
is is
use Ocarina.ME_AADL.AADL_Instances.Nodes; use Ocarina.ME_AADL.AADL_Instances.Nodes;
use Ocarina.Backends.PN.Iutils; use Ocarina.Backends.PN.Iutils;
...@@ -1097,7 +1097,7 @@ package body Ocarina.Backends.PN.Components is ...@@ -1097,7 +1097,7 @@ package body Ocarina.Backends.PN.Components is
-- to in ports -- to in ports
declare declare
Port_Iter : Node_Id; Port_Iter : Node_Id;
Interconnection_Node : Types.Node_Id; Interconnection_Node : Ocarina.Types.Node_Id;
Pop_Node : Node_Id; Pop_Node : Node_Id;
begin begin
if not Is_Empty (Out_Ports (Thread_Iter)) then if not Is_Empty (Out_Ports (Thread_Iter)) then
...@@ -1512,8 +1512,8 @@ package body Ocarina.Backends.PN.Components is ...@@ -1512,8 +1512,8 @@ package body Ocarina.Backends.PN.Components is
-------------------------------- --------------------------------
function Process_Component_Instance function Process_Component_Instance
(Instance : Types.Node_Id; (Instance : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id) PN_Generated : Ocarina.Types.Node_Id)
return Boolean return Boolean
is is
use Ocarina.ME_AADL.AADL_Instances.Entities; use Ocarina.ME_AADL.AADL_Instances.Entities;
...@@ -1565,8 +1565,8 @@ package body Ocarina.Backends.PN.Components is ...@@ -1565,8 +1565,8 @@ package body Ocarina.Backends.PN.Components is
----------------------------- -----------------------------
function Process_Thread_Instance function Process_Thread_Instance
(Aadl_Instance : Types.Node_Id; (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id) PN_Generated : Ocarina.Types.Node_Id)
return Boolean return Boolean
is is
use Ocarina.Backends.PN.Nodes; use Ocarina.Backends.PN.Nodes;
...@@ -1627,9 +1627,9 @@ package body Ocarina.Backends.PN.Components is ...@@ -1627,9 +1627,9 @@ package body Ocarina.Backends.PN.Components is
------------------------------------- -------------------------------------
procedure PN_Process_Thread_Pattern procedure PN_Process_Thread_Pattern
(Aadl_Instance : Types.Node_Id; (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Thread : Types.Node_Id; PN_Thread : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
PN_P_Init_Proc : PN_Init_Node; PN_P_Init_Proc : PN_Init_Node;
PN_P_New_Proc : PN_New_Node; PN_P_New_Proc : PN_New_Node;
PN_T_Init_Proc : PN_Init_Node; PN_T_Init_Proc : PN_Init_Node;
...@@ -2223,7 +2223,7 @@ package body Ocarina.Backends.PN.Components is ...@@ -2223,7 +2223,7 @@ package body Ocarina.Backends.PN.Components is
Get_String_Name ("_Clock")); Get_String_Name ("_Clock"));
Clock_T_Pattern : constant Clock_Pattern := Clock_T_Pattern : constant Clock_Pattern :=
(1 => Get_String_Name ("_Period_Event")); (1 => Get_String_Name ("_Period_Event"));
P, T, A : Types.Node_Id; P, T, A : Ocarina.Types.Node_Id;
PN_Period : Time_Type; PN_Period : Time_Type;
PN_Hyperperiod : Value_Type; PN_Hyperperiod : Value_Type;
B : Boolean := True; B : Boolean := True;
...@@ -2314,7 +2314,7 @@ package body Ocarina.Backends.PN.Components is ...@@ -2314,7 +2314,7 @@ package body Ocarina.Backends.PN.Components is
-- set place initial marking -- set place initial marking
declare declare
P : Types.Node_Id; P : Ocarina.Types.Node_Id;
begin begin
P := OPN.First_Node (Internal_Places (PN_Thread)); P := OPN.First_Node (Internal_Places (PN_Thread));
-- Halted place -- Halted place
...@@ -2460,10 +2460,10 @@ package body Ocarina.Backends.PN.Components is ...@@ -2460,10 +2460,10 @@ package body Ocarina.Backends.PN.Components is
------------------------ ------------------------
procedure PN_Build_Spg_Par procedure PN_Build_Spg_Par
(Aadl_Instance : Types.Node_Id; (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
Spg_Feat : Types.Node_Id; Spg_Feat : Ocarina.Types.Node_Id;
PN_Spg_Call : Types.Node_Id; PN_Spg_Call : Ocarina.Types.Node_Id;
In_Par : Boolean := True; In_Par : Boolean := True;
PN_P_Init_Proc : PN_Init_Node; PN_P_Init_Proc : PN_Init_Node;
PN_P_New_Proc : PN_New_Node; PN_P_New_Proc : PN_New_Node;
...@@ -2588,10 +2588,10 @@ package body Ocarina.Backends.PN.Components is ...@@ -2588,10 +2588,10 @@ package body Ocarina.Backends.PN.Components is
-- PN_Build_Port -- -- PN_Build_Port --
--------------------- ---------------------
procedure PN_Build_Port (Aadl_Instance : Types.Node_Id; procedure PN_Build_Port (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
PN_Thread : Types.Node_Id; PN_Thread : Ocarina.Types.Node_Id;
F : Types.Value_Id) F : Ocarina.Types.Value_Id)
is is
use Ocarina.Namet; use Ocarina.Namet;
...@@ -2686,7 +2686,7 @@ package body Ocarina.Backends.PN.Components is ...@@ -2686,7 +2686,7 @@ package body Ocarina.Backends.PN.Components is
procedure PN_Build_Tpn_Port procedure PN_Build_Tpn_Port
(Aadl_Instance : Node_Id; (Aadl_Instance : Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
Port_Instance : Node_Id; Port_Instance : Node_Id;
PN_Port : Node_Id; PN_Port : Node_Id;
Is_Data : Boolean := True) Is_Data : Boolean := True)
...@@ -2854,7 +2854,7 @@ package body Ocarina.Backends.PN.Components is ...@@ -2854,7 +2854,7 @@ package body Ocarina.Backends.PN.Components is
procedure PN_Build_Cpn_Port procedure PN_Build_Cpn_Port
(Aadl_Instance : Node_Id; (Aadl_Instance : Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
Port_Instance : Node_Id; Port_Instance : Node_Id;
PN_Port : Node_Id; PN_Port : Node_Id;
Is_Data : Boolean := True) Is_Data : Boolean := True)
...@@ -3171,9 +3171,9 @@ package body Ocarina.Backends.PN.Components is ...@@ -3171,9 +3171,9 @@ package body Ocarina.Backends.PN.Components is
-------------------------- --------------------------
procedure PN_Thread_Skeleton procedure PN_Thread_Skeleton
(Aadl_Instance : Types.Node_Id; (Aadl_Instance : Ocarina.Types.Node_Id;
PN_Thread : Types.Node_Id; PN_Thread : Ocarina.Types.Node_Id;
PN_Generated : Types.Node_Id; PN_Generated : Ocarina.Types.Node_Id;
PN_P_Init_Proc : PN_Init_Node; PN_P_Init_Proc : PN_Init_Node;
PN_P_New_Proc : PN_New_Node; PN_P_New_Proc : PN_New_Node;
PN_T_Init_Proc : PN_Init_Node; PN_T_Init_Proc : PN_Init_Node;
...@@ -3198,7 +3198,7 @@ package body Ocarina.Backends.PN.Components is ...@@ -3198,7 +3198,7 @@ package body Ocarina.Backends.PN.Components is
T_Local_Skeleton : constant Thread_Pattern := T_Local_Skeleton : constant Thread_Pattern :=
(1 => Get_String_Name ("_Init_Dispatch")); (1 => Get_String_Name ("_Init_Dispatch"));
P, T, A : Types.Node_Id; P, T, A : Ocarina.Types.Node_Id;
begin begin
-- local places -- local places
for PN in P_Skeleton'First .. P_Skeleton'Last loop for PN in P_Skeleton'First .. P_Skeleton'Last loop
......
...@@ -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-2014 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 --
...@@ -34,31 +34,31 @@ ...@@ -34,31 +34,31 @@
package Ocarina.Backends.PN.Components is package Ocarina.Backends.PN.Components is
function Process_Architecture_Instance function Process_Architecture_Instance
(Architecture_Instance : Types.Node_Id; (Architecture_Instance : Ocarina.Types.Node_Id;
F : Unsigned_Long_Long) -- 0 for CPN, 1 for TPN F : Unsigned_Long_Long) -- 0 for CPN, 1 for TPN
return Types.Node_Id; return Ocarina.Types.Node_Id;
-- Transform the Ocarina tree of the distributed application nodes -- Transform the Ocarina tree of the distributed application nodes
-- into a Petri Net (pn) tree. -- into a Petri Net (pn) tree.
private private
type PN_Init_Node is access procedure (N : Types.Node_Id; type PN_Init_Node is access procedure (N : Ocarina.Types.Node_Id;
A : Types.Node_Id; A : Ocarina.Types.Node_Id;
Name : Types.Name_Id; Name : Ocarina.Types.Name_Id;
PN_G : Types.Node_Id; PN_G : Ocarina.Types.Node_Id;
M : Unsigned_Long_Long); M : Unsigned_Long_Long);
type PN_Init_Arc is access procedure (N : Types.Node_Id; type PN_Init_Arc is access procedure (N : Ocarina.Types.Node_Id;
A : Types.Node_Id; A : Ocarina.Types.Node_Id;
F : Types.Node_Id; F : Ocarina.Types.Node_Id;
T : Types.Node_Id; T : Ocarina.Types.Node_Id;
K : Unsigned_Long_Long); K : Unsigned_Long_Long);
type PN_Dup_Arc is access procedure (A : Types.Node_Id; type PN_Dup_Arc is access procedure (A : Ocarina.Types.Node_Id;
A_Inst : Types.Node_Id; A_Inst : Ocarina.Types.Node_Id;
Endpoint : Types.Node_Id; Endpoint : Ocarina.Types.Node_Id;
From : Boolean); From : Boolean);
type PN_New_Node is access function return Types.Node_Id; type PN_New_Node is access function return Ocarina.Types.Node_Id;
end Ocarina.Backends.PN.Components; end Ocarina.Backends.PN.Components;
This diff is collapsed.
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2009 Telecom ParisTech, 2010-2012 ESA & ISAE. -- -- Copyright (C) 2009 Telecom ParisTech, 2010-2014 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 --
...@@ -31,197 +31,197 @@ ...@@ -31,197 +31,197 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
with Types; with Ocarina.Types;
package Ocarina.Backends.PN.Iutils is package Ocarina.Backends.PN.Iutils is
function PN_Get_New_PN_Generated function PN_Get_New_PN_Generated
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_PN_Generated procedure PN_Init_PN_Generated
(G : Types.Node_Id; (G : Ocarina.Types.Node_Id;
F : Types.Value_Id); F : Ocarina.Types.Value_Id);
function PN_Get_New_TPN_Informations function PN_Get_New_TPN_Informations
return Types.Node_Id; return Ocarina.Types.Node_Id;
function PN_Get_New_Processor_Priority function PN_Get_New_Processor_Priority
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_Processor_Priority procedure PN_Init_Processor_Priority
(PN_Proc : Types.Node_Id; (PN_Proc : Ocarina.Types.Node_Id;
Aadl_P : Types.Node_Id); Aadl_P : Ocarina.Types.Node_Id);
procedure Append_Trans_To_Processor procedure Append_Trans_To_Processor
(PN_T : Types.Node_Id; (PN_T : Ocarina.Types.Node_Id;
PN_Proc : Types.Node_Id); PN_Proc : Ocarina.Types.Node_Id);
function PN_Get_New_Processor_Pattern function PN_Get_New_Processor_Pattern
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_Processor_Pattern procedure PN_Init_Processor_Pattern
(PN_Proc : Types.Node_Id; (PN_Proc : Ocarina.Types.Node_Id;
Aadl_P : Types.Node_Id); Aadl_P : Ocarina.Types.Node_Id);
function PN_Get_New_Thread_Pattern function PN_Get_New_Thread_Pattern
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_Thread_Pattern procedure PN_Init_Thread_Pattern
(PN_T : Types.Node_Id; (PN_T : Ocarina.Types.Node_Id;
Aadl_T : Types.Node_Id); Aadl_T : Ocarina.Types.Node_Id);
function PN_Get_New_Port_Pattern function PN_Get_New_Port_Pattern
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_Port_Pattern procedure PN_Init_Port_Pattern
(PN_P : Types.Node_Id; (PN_P : Ocarina.Types.Node_Id;
Aadl_P : Types.Node_Id); Aadl_P : Ocarina.Types.Node_Id);
function PN_Get_New_D_Port_Pattern function PN_Get_New_D_Port_Pattern
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_D_Port_Pattern procedure PN_Init_D_Port_Pattern
(PN_DP : Types.Node_Id; (PN_DP : Ocarina.Types.Node_Id;
Aadl_DP : Types.Node_Id); Aadl_DP : Ocarina.Types.Node_Id);
function PN_Get_New_ED_Port_Pattern function PN_Get_New_ED_Port_Pattern
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_ED_Port_Pattern procedure PN_Init_ED_Port_Pattern
(PN_DEP : Types.Node_Id; (PN_DEP : Ocarina.Types.Node_Id;
Aadl_DEP : Types.Node_Id); Aadl_DEP : Ocarina.Types.Node_Id);
function PN_Get_New_Call_Seq_Pattern function PN_Get_New_Call_Seq_Pattern
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_Call_Seq_Pattern procedure PN_Init_Call_Seq_Pattern
(PN_CS : Types.Node_Id; (PN_CS : Ocarina.Types.Node_Id;
Aadl_T : Types.Node_Id); Aadl_T : Ocarina.Types.Node_Id);
function PN_Get_New_Spg_Pattern function PN_Get_New_Spg_Pattern
return Types.Node_Id; return Ocarina.Types.Node_Id;
procedure PN_Init_Spg_Pattern procedure PN_Init_Spg_Pattern
(PN_Spg : Types.Node_Id; (PN_Spg : Ocarina.Types.Node_Id;
Aadl_Spg : Types.Node_Id); Aadl_Spg : Ocarina.Types.Node_Id);
function PN_Get_New_Spg_Par_Pattern function PN_Get_New_Spg_Par_Pattern
return Types.Node_Id;