Commit 6b8cffce authored by Thanassis Tsiodras's avatar Thanassis Tsiodras

Maxime says these are not necessary

parent d79ea435
-- This file was generated automatically: DO NOT MODIFY IT !
with System.IO;
use System.IO;
with Ada.Unchecked_Conversion;
with Ada.Numerics.Generic_Elementary_Functions;
with TASTE_Dataview;
use TASTE_Dataview;
with TASTE_BasicTypes;
use TASTE_BasicTypes;
with adaasn1rtl;
use adaasn1rtl;
with Interfaces;
use Interfaces;
package body memoryscrub is
type States is (disabled, enabled);
type ctxt_Ty is
record
state : States;
initDone : Boolean := False;
par : aliased asn1SccEnableDisable;
end record;
ctxt: ctxt_Ty;
CS_Only : constant Integer := 3;
procedure runTransition(Id: Integer);
procedure EnableOrDisable(action: access asn1SccEnableDisable) is
begin
case ctxt.state is
when disabled =>
ctxt.par := action.all;
runTransition(2);
when enabled =>
ctxt.par := action.all;
runTransition(2);
when others =>
runTransition(CS_Only);
end case;
end EnableOrDisable;
procedure runTransition(Id: Integer) is
trId : Integer := Id;
msgPending : aliased Asn1Boolean := True;
begin
while (trId /= -1) loop
case trId is
when 0 =>
-- NEXT_STATE Disabled (11,18) at 351, 64
trId := -1;
ctxt.state := Disabled;
goto next_transition;
when 1 =>
-- writeln('scrubbing') (17,17)
Put("scrubbing");
New_Line;
-- NEXT_STATE - (19,22) at 354, 322
trId := -1;
goto next_transition;
when 2 =>
-- DECISION par (-1,-1)
-- ANSWER scrubon (29,21)
if (ctxt.par) = asn1Sccscrubon then
-- NEXT_STATE Enabled (31,34) at 457, 234
trId := -1;
ctxt.state := Enabled;
goto next_transition;
-- ANSWER scruboff (33,21)
elsif (ctxt.par) = asn1Sccscruboff then
-- NEXT_STATE Disabled (35,34) at 563, 234
trId := -1;
ctxt.state := Disabled;
goto next_transition;
end if;
when CS_Only =>
trId := -1;
goto next_transition;
when others =>
null;
end case;
<<next_transition>>
-- Process continuous signals
if ctxt.initDone then
Check_Queue(msgPending'access);
end if;
if not msgPending and trId = -1 and ctxt.state = enabled then
-- Priority 1
-- DECISION true (-1,-1)
-- ANSWER true (None,None)
if (true) = true then
trId := 1;
end if;
end if;
end loop;
end runTransition;
begin
runTransition(0);
ctxt.initDone := True;
end memoryscrub;
\ No newline at end of file
-- This file was generated automatically: DO NOT MODIFY IT !
with TASTE_Dataview;
use TASTE_Dataview;
with TASTE_BasicTypes;
use TASTE_BasicTypes;
with adaasn1rtl;
use adaasn1rtl;
package memoryscrub is
-- Provided interface "EnableOrDisable"
procedure EnableOrDisable(action: access asn1SccEnableDisable);
pragma Export(C, EnableOrDisable, "memoryscrub_EnableOrDisable");
procedure Check_Queue(res: access Asn1Boolean);
pragma import(C, Check_Queue, "memoryscrub_check_queue");
end memoryscrub;
\ No newline at end of file
This diff is collapsed.
-- This file was generated automatically: DO NOT MODIFY IT !
with TASTE_Dataview;
use TASTE_Dataview;
with TASTE_BasicTypes;
use TASTE_BasicTypes;
with adaasn1rtl;
use adaasn1rtl;
package orchestrator is
-- Provided interface "pulse"
procedure pulse;
pragma Export(C, pulse, "orchestrator_pulse");
-- Provided interface "run"
procedure run(cmd: access asn1SccMyInteger);
pragma Export(C, run, "orchestrator_run");
-- Required interface "housekeeping"
procedure RIhousekeeping(hk: access asn1SccMyInteger);
pragma import(C, RIhousekeeping, "orchestrator_RI_housekeeping");
-- Sync required interface "computeGNC"
procedure RIcomputeGNC(inP: access asn1SccMyInteger; outP: access asn1SccMyInteger);
pragma import(C, RIcomputeGNC, "orchestrator_RI_computeGNC");
end orchestrator;
\ No newline at end of file
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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