Commit 05d5cc7e authored by yoogx's avatar yoogx
Browse files

* Minor reformatting

parent 3d106798
...@@ -2,73 +2,73 @@ package Software ...@@ -2,73 +2,73 @@ package Software
public public
with Data_Model; with Data_Model;
---------- ----------
-- Data -- -- Data --
---------- ----------
data Alpha_Type data Alpha_Type
properties properties
Data_Model::Data_Representation => integer; Data_Model::Data_Representation => integer;
end Alpha_Type; end Alpha_Type;
----------------- -----------------
-- Subprograms -- -- Subprograms --
----------------- -----------------
subprogram Produce_Spg subprogram Produce_Spg
features features
Data_Source : out parameter Alpha_Type; Data_Source : out parameter Alpha_Type;
properties properties
source_language => C; Source_Language => C;
source_name => "user_produce_spg"; Source_Name => "user_produce_spg";
source_text => ("producer-consumer.c"); Source_Text => ("producer-consumer.c");
end Produce_Spg; end Produce_Spg;
subprogram Consume_Spg subprogram Consume_Spg
features features
Data_Sink : in parameter Alpha_Type; Data_Sink : in parameter Alpha_Type;
properties properties
source_language => C; Source_Language => C;
source_name => "user_consume_spg"; Source_Name => "user_consume_spg";
source_text => ("producer-consumer.c"); Source_Text => ("producer-consumer.c");
end Consume_Spg; end Consume_Spg;
------------- -------------
-- Threads -- -- Threads --
------------- -------------
thread P thread P
features features
Data_Source : out data port Alpha_Type; Data_Source : out data port Alpha_Type;
end P; end P;
thread implementation P.Impl thread implementation P.Impl
calls calls
Mycalls: { Mycalls: {
P_Spg : subprogram Produce_Spg; P_Spg : subprogram Produce_Spg;
}; };
connections connections
parameter P_Spg.Data_Source -> Data_Source; parameter P_Spg.Data_Source -> Data_Source;
properties properties
Dispatch_Protocol => Periodic; Dispatch_Protocol => Periodic;
Period => 200 Ms; Period => 200 ms;
end P.Impl; end P.Impl;
thread Q thread Q
features features
Data_Sink : in data port Alpha_Type; Data_Sink : in data port Alpha_Type;
end Q; end Q;
thread implementation Q.Impl thread implementation Q.Impl
calls calls
Mycalls: { Mycalls: {
Q_Spg : subprogram Consume_Spg; Q_Spg : subprogram Consume_Spg;
}; };
connections connections
parameter Data_Sink -> Q_Spg.Data_Sink; parameter Data_Sink -> Q_Spg.Data_Sink;
properties properties
Dispatch_Protocol => Periodic; Dispatch_Protocol => Periodic;
Period => 100 Ms; Period => 100 ms;
end Q.Impl; end Q.Impl;
end Software; end Software;
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