; --------------------------------------------------------------------------------
; @Title: AUTOSAR Runtime Environment for Adaptive Applications specific menu
; @Description: -
; @Author: MFA
; @Copyright: (c) 1989-2022 Lauterbach GmbH, licensed for use with TRACE32(R) only
; --------------------------------------------------------------------------------
; $Id: ara.m 7922 2022-08-18 11:50:45Z myang $

NAME "TASK.ARA"

IF !MENU.EXIST("TASK.ARA")
(

ADD
MENU
(
  POPUP "ARA"
  (
    POPUP "&Execution Manager"
    (
      DEFAULT
      MENUITEM "Display All Applications"
      (
        EXTension.EM.APP
      )
    )
  )
)

MENU "ext.em.da"
(
  DEFAULT
  MENUITEM "[:objects]Display detailed"
  (
    LOCAL &nAddress
    &nAddress=ADDRESS.OFFSET(TRACK.ADDRESS())
    EXTension.EM.DApp &nAddress
  )
  MENUITEM "[:var]Display StartupConfiguration struct"
  (
    LOCAL &pAddress
    &pAddress=TRACK.ADDRESS()
    IF Var.EXIST(ara::exec::internal::Application) //1903
        Var.View %Open %String (struct ara::exec::internal::StartupConfiguration *)(&pAddress)
    ELSE
        Var.View %Open %String (ara::exec::internal::StartupConfiguration)(&pAddress)
  )
  MENUITEM "[:var]Display Application struct"
  (
    PRIVATE &pAddress
    &pAddress=TRACK.ADDRESS()
    IF Var.EXIST(ara::exec::internal::Application)
        Var.View %Open %String (struct ara::exec::internal::Application *)(&pAddress)
    ELSE IF Var.EXIST( ara::exec::internal::Executable)
        Var.View %Open %String (ara::exec::internal::Executable)(&pAddress)
  )
)

)