InterfaceView.aadl 1.68 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
PACKAGE interfaceview::IV
PUBLIC
WITH DataView;
WITH interfaceview::FV;
WITH Taste;

---------------------------------------------------
-- TASTE Interface View 
---------------------------------------------------

  SYSTEM interfaceview
  END interfaceview;

  SYSTEM IMPLEMENTATION interfaceview.others
    SUBCOMPONENTS
      myAdaBlock: SYSTEM interfaceview::IV::myAdaBlock.others
        { Taste::Coordinates => "1030 301 1733 881"; };
  END interfaceview.others;

  ---------------------------------------------------
  -- TASTE Function: interfaceview::IV::myAdaBlock
  ---------------------------------------------------

  SYSTEM myAdaBlock
    FEATURES
      Pulse_obj166 : PROVIDES SUBPROGRAM ACCESS interfaceview::FV::Pulse_obj166.others
        { Taste::Coordinates => "1030 410";
          Taste::RCMoperationKind => cyclic;
          Taste::RCMperiod => 1000 ms;
          Taste::Deadline => 0 ms;
          Taste::Importance => MEDIUM ;};
    PROPERTIES
      Source_Language => Ada;
      Taste::Instance_Name => "Function0";
  END myAdaBlock;

  SYSTEM IMPLEMENTATION myAdaBlock.others
    SUBCOMPONENTS
      Pulse_obj166_impl : SUBPROGRAM interfaceview::FV::Pulse_obj166.others
        { Compute_Execution_Time => 0ms..0ms ;};
    CONNECTIONS
      SUBPROGRAM ACCESS Pulse_obj166_impl  -> Pulse_obj166;
  END myAdaBlock.others;



PROPERTIES
  Taste::Coordinates => "0 0 2970 2100";
  Taste::dataView => ("DataView");
  Taste::dataViewPath => ("DataView.aadl");

END interfaceview::IV;

PACKAGE interfaceview::FV
PUBLIC

WITH DataView;
WITH TASTE;

  SUBPROGRAM Pulse_obj166
  END Pulse_obj166;

  SUBPROGRAM IMPLEMENTATION Pulse_obj166.others
  END Pulse_obj166.others;

END interfaceview::FV;