* Minor reformatting

examples/aadlv2/producer_consumer/software.aadl

@@ -4,72 +4,71 @@ package Software
 public
   with Data_Model;
 
-----------
--- Data --
-----------
+  ----------
+  -- Data --
+  ----------
 
-data Alpha_Type
-properties
-  Data_Model::Data_Representation => integer;
-end Alpha_Type;
+  data Alpha_Type
+  properties
+    Data_Model::Data_Representation => integer;
+  end Alpha_Type;
 
------------------
--- Subprograms --
------------------
+  -----------------
+  -- Subprograms --
+  -----------------
 
-subprogram Produce_Spg
-features
-  Data_Source : out parameter Alpha_Type;
-properties
-  source_language => Ada95;
-  source_name     => "Producer_Consumer.Produce_Spg";
-end Produce_Spg;
+  subprogram Produce_Spg
+  features
+    Data_Source : out parameter Alpha_Type;
+  properties
+    source_language => Ada95;
+    source_name     => "Producer_Consumer.Produce_Spg";
+  end Produce_Spg;
 
-subprogram Consume_Spg
-features
-  Data_Sink : in parameter Alpha_Type;
-properties
-  source_language => Ada95;
-  source_name     => "Producer_Consumer.Consume_Spg";
-end Consume_Spg;
+  subprogram Consume_Spg
+  features
+    Data_Sink : in parameter Alpha_Type;
+  properties
+    source_language => Ada95;
+    source_name     => "Producer_Consumer.Consume_Spg";
+  end Consume_Spg;
 
--------------
--- Threads --
--------------
+  -------------
+  -- Threads --
+  -------------
 
-thread P
-features
-  Data_Source : out data port Alpha_Type;
-end P;
+  thread P
+  features
+    Data_Source : out data port Alpha_Type;
+  end P;
 
-thread implementation P.Impl
-calls 
-Mycall : {
-  P_Spg : subprogram Produce_Spg;
-};
-connections
-  parameter P_Spg.Data_Source -> Data_Source;
-properties
-  Dispatch_Protocol => Periodic;
-  Period            => 200 Ms;
-end P.Impl;
+  thread implementation P.Impl
+  calls
+    Mycall : {
+    P_Spg : subprogram Produce_Spg;
+    };
+  connections
+    parameter P_Spg.Data_Source -> Data_Source;
+  properties
+    Dispatch_Protocol => Periodic;
+    Period            => 200 ms;
+  end P.Impl;
 
-thread Q
-features
-  Data_Sink : in data port Alpha_Type;
-end Q;
+  thread Q
+  features
+    Data_Sink : in data port Alpha_Type;
+  end Q;
 
-thread implementation Q.Impl
-calls 
-Mycall : {
-  Q_Spg : subprogram Consume_Spg;
-};
-connections
-  parameter Data_Sink -> Q_Spg.Data_Sink;
-properties
-  Dispatch_Protocol => Periodic;
-  Period            => 100 Ms;
-end Q.Impl;
+  thread implementation Q.Impl
+  calls
+    Mycall : {
+    Q_Spg : subprogram Consume_Spg;
+    };
+  connections
+    parameter Data_Sink -> Q_Spg.Data_Sink;
+  properties
+    Dispatch_Protocol => Periodic;
+    Period            => 100 ms;
+  end Q.Impl;
 
 end Software;
-