Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/VDM/VDMPP/HomeAutomationConcPP/ (Beweissystem der NASA Version 6.0.9^©) Datei vom 13.4.2020 mit Größe 1 kB

SSL Environment.vdmpp Sprache: VDM

class Environment is subclass of BaseThread

instance variables

--private ha       : HA;
private io       : IO := new IO();
private inlines  : seq of inline := [];
private simtime  : nat := 1E9;

private finished : bool := false;

types

-- Input file: Temp, Humid, Time
public inline = nat * nat * nat;

operations

public Environment: seq of char * nat1 * bool ==> Environment
Environment(fname, p, isP) ==
(period := p;
  isPeriodic := isP;

  def mk_ (-,mk_(t,input)) = io.freadval[nat * seq of inline](fname)
  in
   (inlines := input;
    simtime := t;
   );
);

private CreateSignal: () ==> ()
CreateSignal() ==
(if len inlines > 0
  then (dcl curtime : nat := World`timerRef.GetTime();
  def mk_ (temp, humid, time) = hd inlines
  in
   (if time = curtime
    then (HA`Sur.SetTemp(temp);
          HA`Sur.SetHumid(humid);
          IO`print([time] ^ ["New env values set!"]);
          IO`print(" \n");
          inlines := tl inlines;
          return
         );
   );
  )
  else (finished := true;
        return
       );
);

public IsFinished: () ==> ()
IsFinished() ==
  skip;

public Finish: () ==> ()
Finish() ==
  finished := true;

protected Step: () ==> ()
Step() ==
(if World`timerRef.GetTime() < simtime
  then CreateSignal()
  else finished := true;
);

sync

  per IsFinished => finished;

--thread
-- (--World`timerRef.RegisterThread();
--  --start(new ClockTick(threadid));
--  while World`timerRef.GetTime() < simtime
--  do
--   (--if(World`timerRef.GetTime() = 100)
--    --then (testT := new TestThread(77, true);
--    --     );
--    if not finished
--    then CreateSignal();

--    World`timerRef.WaitRelative(1);
--   );
--  finished := true;
-- )

end Environment

quality100%

¤ Dauer der Verarbeitung: 0.2 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.