Commit 7c3529e6 authored by yoogx's avatar yoogx

* Minor reformatting

parent c79f1dd7
......@@ -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;
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