Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
Ocarina
Commits
90ab3209
Commit
90ab3209
authored
May 05, 2014
by
yoogx
Browse files
* Follow-up to Types to Ocarina.Types renaming
parent
e6bb90e7
Changes
132
Hide whitespace changes
Inline
Side-by-side
src/backends/ocarina-backends-ada_tree-nutils.adb
View file @
90ab3209
...
...
@@ -38,7 +38,7 @@ with Charset; use Charset;
with
Locations
;
use
Locations
;
with
Ocarina
.
Namet
;
use
Ocarina
.
Namet
;
with
Ocarina
.
Output
;
use
Ocarina
.
Output
;
with
Types
;
use
Types
;
with
Ocarina
.
Types
;
use
Ocarina
.
Types
;
with
Utils
;
use
Utils
;
with
Ocarina
.
Backends
.
Ada_Values
;
use
Ocarina
.
Backends
.
Ada_Values
;
...
...
src/backends/ocarina-backends-asn1_tree-nutils.adb
View file @
90ab3209
...
...
@@ -405,7 +405,7 @@ package body Ocarina.Backends.ASN1_Tree.Nutils is
Set_Str_To_Name_Buffer
(
Image
(
T
));
Name
:=
Name_Find
;
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
));
else
...
...
src/backends/ocarina-backends-c_tree-nutils.adb
View file @
90ab3209
...
...
@@ -1042,7 +1042,7 @@ package body Ocarina.Backends.C_Tree.Nutils is
Set_Str_To_Name_Buffer
(
Image
(
T
));
Name
:=
Name_Find
;
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
));
else
...
...
@@ -1154,7 +1154,7 @@ package body Ocarina.Backends.C_Tree.Nutils is
is
Name
:
Name_Id
;
Test_Name
:
Name_Id
;
V
:
Types
.
Byte
;
V
:
Ocarina
.
Types
.
Byte
;
begin
Get_Name_String
(
Normalize_Name
(
N
,
Ada_Style
));
Name
:=
Name_Find
;
...
...
src/backends/ocarina-backends-mast_tree-nutils.adb
View file @
90ab3209
...
...
@@ -387,7 +387,7 @@ package body Ocarina.Backends.MAST_Tree.Nutils is
Set_Str_To_Name_Buffer
(
Image
(
T
));
Name
:=
Name_Find
;
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
));
else
...
...
src/backends/ocarina-backends-pn-components.adb
View file @
90ab3209
...
...
@@ -70,19 +70,19 @@ package body Ocarina.Backends.PN.Components is
PN_Dup_Arc_Proc
:
PN_Dup_Arc
);
function
Process_Component_Instance
(
Instance
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
)
(
Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
)
return
Boolean
;
function
Process_Thread_Instance
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
)
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
)
return
Boolean
;
procedure
PN_Process_Thread_Pattern
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Thread
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Thread
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
PN_P_Init_Proc
:
PN_Init_Node
;
PN_P_New_Proc
:
PN_New_Node
;
PN_T_Init_Proc
:
PN_Init_Node
;
...
...
@@ -91,9 +91,9 @@ package body Ocarina.Backends.PN.Components is
PN_A_New_Proc
:
PN_New_Node
);
procedure
PN_Thread_Skeleton
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Thread
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Thread
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
PN_P_Init_Proc
:
PN_Init_Node
;
PN_P_New_Proc
:
PN_New_Node
;
PN_T_Init_Proc
:
PN_Init_Node
;
...
...
@@ -102,10 +102,10 @@ package body Ocarina.Backends.PN.Components is
PN_A_New_Proc
:
PN_New_Node
);
procedure
PN_Build_Spg_Par
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
Spg_Feat
:
Types
.
Node_Id
;
PN_Spg_Call
:
Types
.
Node_Id
;
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
Spg_Feat
:
Ocarina
.
Types
.
Node_Id
;
PN_Spg_Call
:
Ocarina
.
Types
.
Node_Id
;
In_Par
:
Boolean
:=
True
;
PN_P_Init_Proc
:
PN_Init_Node
;
PN_P_New_Proc
:
PN_New_Node
;
...
...
@@ -114,21 +114,21 @@ package body Ocarina.Backends.PN.Components is
PN_A_Init_Proc
:
PN_Init_Arc
;
PN_A_New_Proc
:
PN_New_Node
);
procedure
PN_Build_Port
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
PN_Thread
:
Types
.
Node_Id
;
F
:
Types
.
Value_Id
);
procedure
PN_Build_Port
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
PN_Thread
:
Ocarina
.
Types
.
Node_Id
;
F
:
Ocarina
.
Types
.
Value_Id
);
procedure
PN_Build_Tpn_Port
(
Aadl_Instance
:
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
Port_Instance
:
Node_Id
;
PN_Port
:
Node_Id
;
Is_Data
:
Boolean
:=
True
);
procedure
PN_Build_Cpn_Port
(
Aadl_Instance
:
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
Port_Instance
:
Node_Id
;
PN_Port
:
Node_Id
;
Is_Data
:
Boolean
:=
True
);
...
...
@@ -138,9 +138,9 @@ package body Ocarina.Backends.PN.Components is
-----------------------------------
function
Process_Architecture_Instance
(
Architecture_Instance
:
Types
.
Node_Id
;
(
Architecture_Instance
:
Ocarina
.
Types
.
Node_Id
;
F
:
Unsigned_Long_Long
)
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
ME_AADL
.
AADL_Instances
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Iutils
;
...
...
@@ -1097,7 +1097,7 @@ package body Ocarina.Backends.PN.Components is
-- to in ports
declare
Port_Iter
:
Node_Id
;
Interconnection_Node
:
Types
.
Node_Id
;
Interconnection_Node
:
Ocarina
.
Types
.
Node_Id
;
Pop_Node
:
Node_Id
;
begin
if
not
Is_Empty
(
Out_Ports
(
Thread_Iter
))
then
...
...
@@ -1512,8 +1512,8 @@ package body Ocarina.Backends.PN.Components is
--------------------------------
function
Process_Component_Instance
(
Instance
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
)
(
Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
)
return
Boolean
is
use
Ocarina
.
ME_AADL
.
AADL_Instances
.
Entities
;
...
...
@@ -1565,8 +1565,8 @@ package body Ocarina.Backends.PN.Components is
-----------------------------
function
Process_Thread_Instance
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
)
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
)
return
Boolean
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
...
...
@@ -1627,9 +1627,9 @@ package body Ocarina.Backends.PN.Components is
-------------------------------------
procedure
PN_Process_Thread_Pattern
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Thread
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Thread
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
PN_P_Init_Proc
:
PN_Init_Node
;
PN_P_New_Proc
:
PN_New_Node
;
PN_T_Init_Proc
:
PN_Init_Node
;
...
...
@@ -2223,7 +2223,7 @@ package body Ocarina.Backends.PN.Components is
Get_String_Name
(
"_Clock"
));
Clock_T_Pattern
:
constant
Clock_Pattern
:=
(
1
=>
Get_String_Name
(
"_Period_Event"
));
P
,
T
,
A
:
Types
.
Node_Id
;
P
,
T
,
A
:
Ocarina
.
Types
.
Node_Id
;
PN_Period
:
Time_Type
;
PN_Hyperperiod
:
Value_Type
;
B
:
Boolean
:=
True
;
...
...
@@ -2314,7 +2314,7 @@ package body Ocarina.Backends.PN.Components is
-- set place initial marking
declare
P
:
Types
.
Node_Id
;
P
:
Ocarina
.
Types
.
Node_Id
;
begin
P
:=
OPN
.
First_Node
(
Internal_Places
(
PN_Thread
));
-- Halted place
...
...
@@ -2460,10 +2460,10 @@ package body Ocarina.Backends.PN.Components is
------------------------
procedure
PN_Build_Spg_Par
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
Spg_Feat
:
Types
.
Node_Id
;
PN_Spg_Call
:
Types
.
Node_Id
;
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
Spg_Feat
:
Ocarina
.
Types
.
Node_Id
;
PN_Spg_Call
:
Ocarina
.
Types
.
Node_Id
;
In_Par
:
Boolean
:=
True
;
PN_P_Init_Proc
:
PN_Init_Node
;
PN_P_New_Proc
:
PN_New_Node
;
...
...
@@ -2588,10 +2588,10 @@ package body Ocarina.Backends.PN.Components is
-- PN_Build_Port --
---------------------
procedure
PN_Build_Port
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
PN_Thread
:
Types
.
Node_Id
;
F
:
Types
.
Value_Id
)
procedure
PN_Build_Port
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
PN_Thread
:
Ocarina
.
Types
.
Node_Id
;
F
:
Ocarina
.
Types
.
Value_Id
)
is
use
Ocarina
.
Namet
;
...
...
@@ -2686,7 +2686,7 @@ package body Ocarina.Backends.PN.Components is
procedure
PN_Build_Tpn_Port
(
Aadl_Instance
:
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
Port_Instance
:
Node_Id
;
PN_Port
:
Node_Id
;
Is_Data
:
Boolean
:=
True
)
...
...
@@ -2854,7 +2854,7 @@ package body Ocarina.Backends.PN.Components is
procedure
PN_Build_Cpn_Port
(
Aadl_Instance
:
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
Port_Instance
:
Node_Id
;
PN_Port
:
Node_Id
;
Is_Data
:
Boolean
:=
True
)
...
...
@@ -3171,9 +3171,9 @@ package body Ocarina.Backends.PN.Components is
--------------------------
procedure
PN_Thread_Skeleton
(
Aadl_Instance
:
Types
.
Node_Id
;
PN_Thread
:
Types
.
Node_Id
;
PN_Generated
:
Types
.
Node_Id
;
(
Aadl_Instance
:
Ocarina
.
Types
.
Node_Id
;
PN_Thread
:
Ocarina
.
Types
.
Node_Id
;
PN_Generated
:
Ocarina
.
Types
.
Node_Id
;
PN_P_Init_Proc
:
PN_Init_Node
;
PN_P_New_Proc
:
PN_New_Node
;
PN_T_Init_Proc
:
PN_Init_Node
;
...
...
@@ -3198,7 +3198,7 @@ package body Ocarina.Backends.PN.Components is
T_Local_Skeleton
:
constant
Thread_Pattern
:=
(
1
=>
Get_String_Name
(
"_Init_Dispatch"
));
P
,
T
,
A
:
Types
.
Node_Id
;
P
,
T
,
A
:
Ocarina
.
Types
.
Node_Id
;
begin
-- local places
for
PN
in
P_Skeleton
'
First
..
P_Skeleton
'
Last
loop
...
...
src/backends/ocarina-backends-pn-components.ads
View file @
90ab3209
...
...
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
2
ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-201
4
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 --
...
...
@@ -34,31 +34,31 @@
package
Ocarina
.
Backends
.
PN
.
Components
is
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
return
Types
.
Node_Id
;
return
Ocarina
.
Types
.
Node_Id
;
-- Transform the Ocarina tree of the distributed application nodes
-- into a Petri Net (pn) tree.
private
type
PN_Init_Node
is
access
procedure
(
N
:
Types
.
Node_Id
;
A
:
Types
.
Node_Id
;
Name
:
Types
.
Name_Id
;
PN_G
:
Types
.
Node_Id
;
type
PN_Init_Node
is
access
procedure
(
N
:
Ocarina
.
Types
.
Node_Id
;
A
:
Ocarina
.
Types
.
Node_Id
;
Name
:
Ocarina
.
Types
.
Name_Id
;
PN_G
:
Ocarina
.
Types
.
Node_Id
;
M
:
Unsigned_Long_Long
);
type
PN_Init_Arc
is
access
procedure
(
N
:
Types
.
Node_Id
;
A
:
Types
.
Node_Id
;
F
:
Types
.
Node_Id
;
T
:
Types
.
Node_Id
;
type
PN_Init_Arc
is
access
procedure
(
N
:
Ocarina
.
Types
.
Node_Id
;
A
:
Ocarina
.
Types
.
Node_Id
;
F
:
Ocarina
.
Types
.
Node_Id
;
T
:
Ocarina
.
Types
.
Node_Id
;
K
:
Unsigned_Long_Long
);
type
PN_Dup_Arc
is
access
procedure
(
A
:
Types
.
Node_Id
;
A_Inst
:
Types
.
Node_Id
;
Endpoint
:
Types
.
Node_Id
;
type
PN_Dup_Arc
is
access
procedure
(
A
:
Ocarina
.
Types
.
Node_Id
;
A_Inst
:
Ocarina
.
Types
.
Node_Id
;
Endpoint
:
Ocarina
.
Types
.
Node_Id
;
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
;
src/backends/ocarina-backends-pn-iutils.adb
View file @
90ab3209
...
...
@@ -56,8 +56,8 @@ package body Ocarina.Backends.PN.Iutils is
--------------------------
procedure
PN_Init_PN_Generated
(
G
:
Types
.
Node_Id
;
F
:
Types
.
Value_Id
)
(
G
:
Ocarina
.
Types
.
Node_Id
;
F
:
Ocarina
.
Types
.
Value_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -90,7 +90,7 @@ package body Ocarina.Backends.PN.Iutils is
-----------------------------
function
PN_Get_New_PN_Generated
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nutils
;
use
Ocarina
.
Backends
.
PN
.
Nodes
;
...
...
@@ -111,7 +111,7 @@ package body Ocarina.Backends.PN.Iutils is
---------------------------------
function
PN_Get_New_TPN_Informations
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nutils
;
use
Ocarina
.
Backends
.
PN
.
Nodes
;
...
...
@@ -131,7 +131,7 @@ package body Ocarina.Backends.PN.Iutils is
-----------------------------------
function
PN_Get_New_Processor_Priority
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nutils
;
use
Ocarina
.
Backends
.
PN
.
Nodes
;
...
...
@@ -146,8 +146,8 @@ package body Ocarina.Backends.PN.Iutils is
--------------------------------
procedure
PN_Init_Processor_Priority
(
PN_Proc
:
Types
.
Node_Id
;
Aadl_P
:
Types
.
Node_Id
)
(
PN_Proc
:
Ocarina
.
Types
.
Node_Id
;
Aadl_P
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nutils
;
use
Ocarina
.
Backends
.
PN
.
Nodes
;
...
...
@@ -161,8 +161,8 @@ package body Ocarina.Backends.PN.Iutils is
-------------------------------
procedure
Append_Trans_To_Processor
(
PN_T
:
Types
.
Node_Id
;
PN_Proc
:
Types
.
Node_Id
)
(
PN_T
:
Ocarina
.
Types
.
Node_Id
;
PN_Proc
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nutils
;
use
Ocarina
.
Backends
.
PN
.
Nodes
;
...
...
@@ -280,7 +280,7 @@ package body Ocarina.Backends.PN.Iutils is
----------------------------------
function
PN_Get_New_Processor_Pattern
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -295,8 +295,8 @@ package body Ocarina.Backends.PN.Iutils is
-------------------------------
procedure
PN_Init_Processor_Pattern
(
PN_Proc
:
Types
.
Node_Id
;
Aadl_P
:
Types
.
Node_Id
)
(
PN_Proc
:
Ocarina
.
Types
.
Node_Id
;
Aadl_P
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -317,7 +317,7 @@ package body Ocarina.Backends.PN.Iutils is
-------------------------------
function
PN_Get_New_Thread_Pattern
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -332,8 +332,8 @@ package body Ocarina.Backends.PN.Iutils is
----------------------------
procedure
PN_Init_Thread_Pattern
(
PN_T
:
Types
.
Node_Id
;
Aadl_T
:
Types
.
Node_Id
)
(
PN_T
:
Ocarina
.
Types
.
Node_Id
;
Aadl_T
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -358,7 +358,7 @@ package body Ocarina.Backends.PN.Iutils is
-----------------------------
function
PN_Get_New_Port_Pattern
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -373,8 +373,8 @@ package body Ocarina.Backends.PN.Iutils is
--------------------------
procedure
PN_Init_Port_Pattern
(
PN_P
:
Types
.
Node_Id
;
Aadl_P
:
Types
.
Node_Id
)
(
PN_P
:
Ocarina
.
Types
.
Node_Id
;
Aadl_P
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -397,7 +397,7 @@ package body Ocarina.Backends.PN.Iutils is
-------------------------------
function
PN_Get_New_D_Port_Pattern
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -412,8 +412,8 @@ package body Ocarina.Backends.PN.Iutils is
----------------------------
procedure
PN_Init_D_Port_Pattern
(
PN_DP
:
Types
.
Node_Id
;
Aadl_DP
:
Types
.
Node_Id
)
(
PN_DP
:
Ocarina
.
Types
.
Node_Id
;
Aadl_DP
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -431,7 +431,7 @@ package body Ocarina.Backends.PN.Iutils is
--------------------------------
function
PN_Get_New_ED_Port_Pattern
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -446,8 +446,8 @@ package body Ocarina.Backends.PN.Iutils is
-----------------------------
procedure
PN_Init_ED_Port_Pattern
(
PN_DEP
:
Types
.
Node_Id
;
Aadl_DEP
:
Types
.
Node_Id
)
(
PN_DEP
:
Ocarina
.
Types
.
Node_Id
;
Aadl_DEP
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -469,7 +469,7 @@ package body Ocarina.Backends.PN.Iutils is
---------------------------------
function
PN_Get_New_Call_Seq_Pattern
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -485,8 +485,8 @@ package body Ocarina.Backends.PN.Iutils is
------------------------------
procedure
PN_Init_Call_Seq_Pattern
(
PN_CS
:
Types
.
Node_Id
;
Aadl_T
:
Types
.
Node_Id
)
(
PN_CS
:
Ocarina
.
Types
.
Node_Id
;
Aadl_T
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -505,7 +505,7 @@ package body Ocarina.Backends.PN.Iutils is
----------------------------
function
PN_Get_New_Spg_Pattern
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -520,8 +520,8 @@ package body Ocarina.Backends.PN.Iutils is
-------------------------
procedure
PN_Init_Spg_Pattern
(
PN_Spg
:
Types
.
Node_Id
;
Aadl_Spg
:
Types
.
Node_Id
)
(
PN_Spg
:
Ocarina
.
Types
.
Node_Id
;
Aadl_Spg
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -539,7 +539,7 @@ package body Ocarina.Backends.PN.Iutils is
--------------------------------
function
PN_Get_New_Spg_Par_Pattern
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -554,8 +554,8 @@ package body Ocarina.Backends.PN.Iutils is
-----------------------------
procedure
PN_Init_Spg_Par_Pattern
(
PN_Spg_Par
:
Types
.
Node_Id
;
Aadl_Spg_Par
:
Types
.
Node_Id
)
(
PN_Spg_Par
:
Ocarina
.
Types
.
Node_Id
;
Aadl_Spg_Par
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -572,8 +572,8 @@ package body Ocarina.Backends.PN.Iutils is
--------------------------
procedure
PN_Init_PN_Component
(
PN_C
:
Types
.
Node_Id
;
Aadl_C
:
Types
.
Node_Id
)
(
PN_C
:
Ocarina
.
Types
.
Node_Id
;
Aadl_C
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -597,9 +597,9 @@ package body Ocarina.Backends.PN.Iutils is
---------------------
procedure
PN_Init_PN_Node
(
PN_N
:
Types
.
Node_Id
;
Aadl_N
:
Types
.
Node_Id
;
Name
:
Types
.
Name_id
)
(
PN_N
:
Ocarina
.
Types
.
Node_Id
;
Aadl_N
:
Ocarina
.
Types
.
Node_Id
;
Name
:
Ocarina
.
Types
.
Name_id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
...
...
@@ -632,7 +632,7 @@ package body Ocarina.Backends.PN.Iutils is
-- PN_Init_Node --
------------------
procedure
PN_Init_Node
(
N
:
Types
.
Node_Id
)
is
procedure
PN_Init_Node
(
N
:
Ocarina
.
Types
.
Node_Id
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
begin
...
...
@@ -646,10 +646,10 @@ package body Ocarina.Backends.PN.Iutils is
-------------------------
procedure
PN_TPN_Init_Place
(
P
:
Types
.
Node_Id
;
Aadl
:
Types
.
Node_Id
;
Name
:
Types
.
Name_Id
;
PN_G
:
Types
.
Node_Id
;
(
P
:
Ocarina
.
Types
.
Node_Id
;
Aadl
:
Ocarina
.
Types
.
Node_Id
;
Name
:
Ocarina
.
Types
.
Name_Id
;
PN_G
:
Ocarina
.
Types
.
Node_Id
;
M
:
Unsigned_Long_Long
)
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
...
...
@@ -672,9 +672,9 @@ package body Ocarina.Backends.PN.Iutils is
-------------------
procedure
PN_Init_Place
(
P
:
Types
.
Node_Id
;
Aadl
:
Types
.
Node_Id
;
Name
:
Types
.
Name_Id
)
(
P
:
Ocarina
.
Types
.
Node_Id
;
Aadl
:
Ocarina
.
Types
.
Node_Id
;
Name
:
Ocarina
.
Types
.
Name_Id
)
is
begin
if
P
/=
No_Node
then
...
...
@@ -687,12 +687,12 @@ package body Ocarina.Backends.PN.Iutils is
--------------------------
function
PN_TPN_Get_New_Place
return
Types
.
Node_Id
return
Ocarina
.
Types
.
Node_Id
is
use
Ocarina
.
Backends
.
PN
.
Nodes
;
use
Ocarina
.
Backends
.
PN
.
Nutils
;
P
:
constant
Types
.
Node_Id
:=
New_Node
(
K_TPN_Place
);
P
:
constant
O