Commit dd7f358e authored by yoogx's avatar yoogx
Browse files

* Minor reformatting

parent 9dd73496
......@@ -106,7 +106,9 @@ package body Ocarina.Backends.Xtratum_Conf is
procedure Init is
begin
Register_Backend
("Xtratum_Configuration", Generate'Access, Xtratum_Configuration);
("Xtratum_Configuration",
Generate'Access,
Xtratum_Configuration);
end Init;
-----------
......
......@@ -74,6 +74,7 @@ with Ocarina.Backends.ASN1_Tree.Nutils;
with Ocarina.Backends.ASN1_Values;
with Ocarina.Backends.AADL_XML;
with Ocarina.Backends.Alloy;
with Ocarina.Backends.AADL_spacestudio;
with Ocarina.Options; use Ocarina.Options;
......@@ -176,8 +177,10 @@ package body Ocarina.Backends is
Generated_Sources_Directory := Get_String_Name (".");
end if;
Compile_Generated_Sources := Compile_Generated_Sources or else
Do_Regression_Test or else Do_Coverage_Test;
Compile_Generated_Sources :=
Compile_Generated_Sources
or else Do_Regression_Test
or else Do_Coverage_Test;
-- Register the code generators
......@@ -198,6 +201,7 @@ package body Ocarina.Backends is
Cheddar.Init;
Connection_Matrix.Init;
Functions_Matrix.Init;
AADL_spacestudio.Init;
AADL_XML.Init;
Alloy.Init;
end Init;
......
......@@ -50,6 +50,7 @@ package Ocarina.Backends is
AADL,
AADL_Min,
AADL_Annex,
SpaceStudio,
AADLXML,
ASN1_Deployment,
Behavior_PP,
......
......@@ -162,6 +162,7 @@ package body Ocarina.BE_AADL.Namespaces is
procedure Internal_Print_Property_Set is
new Print_Constrained_Property_Set
(Always_Printable);
begin
Internal_Print_Property_Set (Node, No_Node);
end Print_Property_Set;
......@@ -424,6 +425,7 @@ package body Ocarina.BE_AADL.Namespaces is
procedure Internal_Print_Package is new Print_Constrained_Package
(Is_Printable);
procedure Internal_Print_Property_Set is
new Print_Constrained_Property_Set
(Is_Printable);
......@@ -474,6 +476,7 @@ package body Ocarina.BE_AADL.Namespaces is
procedure Internal_Print_AADL_Specification is
new Print_Constrained_AADL_Specification
(Always_Printable);
begin
Internal_Print_AADL_Specification (Node, No_Node);
end Print_AADL_Specification;
......
......@@ -154,7 +154,8 @@ package body Ocarina.BE_AADL is
procedure Internal_Print_Package is new Print_Constrained_Package
(Is_Printable);
procedure Internal_Print_Property_Set is
new Print_Constrained_Property_Set (Is_Printable);
new Print_Constrained_Property_Set
(Is_Printable);
begin
case Kind (Node) is
......
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