Commit ff27696b authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Simu: Better interface to C code

parent 10ad52f7
...@@ -44,11 +44,13 @@ package body @_CAPITALIZE:Name_@_Events is ...@@ -44,11 +44,13 @@ package body @_CAPITALIZE:Name_@_Events is
@_CAPITALIZE:Name_@_PI.@_CAPITALIZE:List_Of_ASync_PIs_@ (Global_State => Global_State); @_CAPITALIZE:Name_@_PI.@_CAPITALIZE:List_Of_ASync_PIs_@ (Global_State => Global_State);
@@END_IF@@ @@END_IF@@
@@END_TABLE@@ @@END_TABLE@@
@@IF@@ @_Language_@ /= Timer_Manager
@@TABLE@@ @@TABLE@@
@@-- Do the timers too @@-- Timer expiration for blocks except for the timer manager block itself
when @_CAPITALIZE:Timers_@_PRESENT => when @_CAPITALIZE:Timers_@_PRESENT => -- Timer expiration
@_CAPITALIZE:Name_@_PI.@_CAPITALIZE:Timers_@ (Global_State => Global_State); @_CAPITALIZE:Name_@_PI.@_CAPITALIZE:Timers_@ (Global_State => Global_State);
@@END_TABLE@@ @@END_TABLE@@
@@END_IF@@
end case; end case;
@@END_IF@@ @@END_IF@@
@@IF@@ @_List_Of_ASync_RIs'Length_@ > 0 @@IF@@ @_List_Of_ASync_RIs'Length_@ > 0
...@@ -76,11 +78,12 @@ package body @_CAPITALIZE:Name_@_Events is ...@@ -76,11 +78,12 @@ package body @_CAPITALIZE:Name_@_Events is
Put_Line ("()"); Put_Line ("()");
@@END_IF@@ @@END_IF@@
@@END_TABLE@@ @@END_TABLE@@
@@IF@@ @_Language_@ /= Timer_Manager
@@TABLE@@ @@TABLE@@
@@-- Do the timers too when @_CAPITALIZE:Timers_@_PRESENT => -- Timer expiration
when @_CAPITALIZE:Timers_@_PRESENT =>
Put ("@_Name_@: TIMEOUT @_CAPITALIZE:Timers_@"); Put ("@_Name_@: TIMEOUT @_CAPITALIZE:Timers_@");
@@END_TABLE@@ @@END_TABLE@@
@@END_IF@@
end case; end case;
@@END_IF@@ @@END_IF@@
@@IF@@ @_List_Of_ASync_RIs'Length_@ > 0 @@IF@@ @_List_Of_ASync_RIs'Length_@ > 0
......
Supports Markdown
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