Skip to content

O
Ocarina
Commit 90ab3209 authored by yoogx's avatar yoogx
Browse files
Options

* Follow-up to Types to Ocarina.Types renaming

parent e6bb90e7
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 1161 additions and 1163 deletions
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-2012 ESA & ISAE. --
-- Copyright (C) 2008-2009 Telecom ParisTech, 2010-2014 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
This diff is collapsed.
src/backends/ocarina-backends-pn-iutils.ads
View file @ 90ab3209
......@@ -6,7 +6,7 @@
-- --
-- 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 --
-- it under terms of the GNU General Public License as published by the --
......@@ -31,197 +31,197 @@
-- --
------------------------------------------------------------------------------
with Types;
with Ocarina.Types;
package Ocarina.Backends.PN.Iutils is
function PN_Get_New_PN_Generated
return Types.Node_Id;
return Ocarina.Types.Node_Id;
procedure PN_Init_PN_Generated
(G : Types.Node_Id;
F : Types.Value_Id);
(G : Ocarina.Types.Node_Id;
F : Ocarina.Types.Value_Id);
function PN_Get_New_TPN_Informations
return Types.Node_Id;
return Ocarina.Types.Node_Id;
function PN_Get_New_Processor_Priority
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
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);
function PN_Get_New_Processor_Pattern
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
function PN_Get_New_Thread_Pattern
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
function PN_Get_New_Port_Pattern
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
function PN_Get_New_D_Port_Pattern
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
function PN_Get_New_ED_Port_Pattern
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
function PN_Get_New_Call_Seq_Pattern
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
function PN_Get_New_Spg_Pattern
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
function PN_Get_New_Spg_Par_Pattern
return Types.Node_Id;
return Ocarina.Types.Node_Id;
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);
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);
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);
procedure PN_Init_Node
(N : Types.Node_Id);
(N : Ocarina.Types.Node_Id);
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);
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);
function PN_TPN_Get_New_Place
return Types.Node_Id;
return Ocarina.Types.Node_Id;
procedure PN_TPN_Init_Transition
(T : Types.Node_Id;
Aadl : Types.Node_Id;
Name : Types.Name_Id;
PN_G : Types.Node_Id;
(T : Ocarina.Types.Node_Id;
Aadl : Ocarina.Types.Node_Id;
Name : Ocarina.Types.Name_Id;
PN_G : Ocarina.Types.Node_Id;
M : Unsigned_Long_Long);
procedure PN_Init_Transition
(T : Types.Node_Id;
Aadl : Types.Node_Id;
Name : Types.Name_Id);
(T : Ocarina.Types.Node_Id;
Aadl : Ocarina.Types.Node_Id;
Name : Ocarina.Types.Name_Id);
function PN_TPN_Get_New_Transition
return Types.Node_Id;
return Ocarina.Types.Node_Id;
procedure PN_TPN_Set_Guard
(T : Types.Node_Id;
Low, Up : Types.Value_Id;
Braces_Mode : Types.Value_Id;
Priority : Types.Value_Id);
(T : Ocarina.Types.Node_Id;
Low, Up : Ocarina.Types.Value_Id;
Braces_Mode : Ocarina.Types.Value_Id;
Priority : Ocarina.Types.Value_Id);
function PN_TPN_Get_New_Arc
return Types.Node_Id;
return Ocarina.Types.Node_Id;
procedure PN_TPN_Init_Arc
(A : Types.Node_Id;
Aadl : Types.Node_Id;
From : Types.Node_Id := No_Node;
To : Types.Node_Id := No_Node;
(A : Ocarina.Types.Node_Id;
Aadl : Ocarina.Types.Node_Id;
From : Ocarina.Types.Node_Id := No_Node;
To : Ocarina.Types.Node_Id := No_Node;
K : Unsigned_Long_Long := 0);
procedure PN_TPN_Duplicate_Arc
(A : Types.Node_Id;
A_Inst : Types.Node_Id;
Endpoint : Types.Node_Id;
(A : Ocarina.Types.Node_Id;
A_Inst : Ocarina.Types.Node_Id;
Endpoint : Ocarina.Types.Node_Id;
From : Boolean := False);
procedure PN_Init_Arc
(A : Types.Node_Id;
Aadl : Types.Node_Id;
From : Types.Node_Id;
To : Types.Node_Id;
Name : Types.Name_Id);
(A : Ocarina.Types.Node_Id;
Aadl : Ocarina.Types.Node_Id;
From : Ocarina.Types.Node_Id;
To : Ocarina.Types.Node_Id;
Name : Ocarina.Types.Name_Id);
----------------------
function PN_Get_New_CPN_Informations
return Types.Node_Id;
return Ocarina.Types.Node_Id;
function PN_CPN_Get_New_Place
return Types.Node_Id;
return Ocarina.Types.Node_Id;
procedure PN_CPN_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);
function PN_CPN_Get_New_Transition
return Types.Node_Id;
return Ocarina.Types.Node_Id;
procedure PN_CPN_Init_Transition
(T : Types.Node_Id;
Aadl : Types.Node_Id;
Name : Types.Name_Id;
PN_G : Types.Node_Id;
(T : Ocarina.Types.Node_Id;
Aadl : Ocarina.Types.Node_Id;
Name : Ocarina.Types.Name_Id;
PN_G : Ocarina.Types.Node_Id;
M : Unsigned_Long_Long);
function PN_CPN_Get_New_Arc
return Types.Node_Id;
return Ocarina.Types.Node_Id;
procedure PN_CPN_Init_Arc
(A : Types.Node_Id;
Aadl : Types.Node_Id;
From : Types.Node_Id := No_Node;
To : Types.Node_Id := No_Node;
(A : Ocarina.Types.Node_Id;
Aadl : Ocarina.Types.Node_Id;
From : Ocarina.Types.Node_Id := No_Node;
To : Ocarina.Types.Node_Id := No_Node;
K : Unsigned_Long_Long);
procedure PN_CPN_Duplicate_Arc
(A : Types.Node_Id;
A_Inst : Types.Node_Id;
Endpoint : Types.Node_Id;
(A : Ocarina.Types.Node_Id;
A_Inst : Ocarina.Types.Node_Id;
Endpoint : Ocarina.Types.Node_Id;
From : Boolean := False);
end Ocarina.Backends.PN.Iutils;
src/backends/ocarina-backends-pn-nutils.adb
View file @ 90ab3209
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- 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 --
-- it under terms of the GNU General Public License as published by the --
......@@ -37,7 +37,7 @@ package body Ocarina.Backends.PN.Nutils is
-- Append_Node_To_List --
-------------------------
procedure Append_Node_To_List (E : Types.Node_Id; L : Types.List_Id) is
procedure Append_Node_To_List (E : Ocarina.Types.Node_Id; L : Ocarina.Types.List_Id) is
use OPN;