t32.men

trace32调试器附带Powerpc系列GDB调试工具

         else
         (
             Analyzer.ReProgram
             (
               ADDR AlphaBreak v.range(&varname)
               Sample.Enable if AlphaBreak&&Read
             )
         )
             print "Analyzer programmed to trace &varname ..."
             wclear tracevar
             enddo
           )

           menuitem "&Trace on Access..."
           (
             winpos ,,,,,, tracevar
             sYmbol.b.v * /Click "gosub tracevar *"
             stop
tracevar:
             local &varname
             entry &varname
             Analyzer.ReProgram
             (
               ADDR AlphaBreak v.range(&varname)
               Sample.Enable if AlphaBreak
             )
             print "Analyzer programmed to trace &varname ..."
             wclear tracevar
             enddo
           )
    )


;     -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    popup "[:alist]&List"
    (
      default
      menuitem "&Default"                   "Trace.List"
      menuitem "&All"                       "Trace.List ALL"
      menuitem "HLL Source &Only"           "Trace.List List.HllOnly List.TIme ti.ref"
      menuitem "MIX Source Only"            "Trace.List List.Mix List.ADDRESS List.Label List.Comment List.NoFetch List.TIme ti.ref"
      menuitem "&HLL Source and Data"       "Trace.List run address cycle data symbol ti.ref l.hll l.nf l.ti"
      menuitem "&MIX Source and Data"       "Trace.List run address cycle data symbol ti.ref l.mix List.Label List.ADDRESS List.Comment List.NoFetch List.TIme"
      menuitem "HLL Source Data and &Vars"  "Trace.List run address cycle data var ti.ref l.hll l.nf l.ti"
      menuitem "[:correlate]&Tracking with Source"
      (
         Data.List E: /Track
         Trace.List
      )
      menuitem "[:alistcts]List &Context Tracking System" "CTS.List"
    )
;     -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    popup "[:atiming]&Timing"
    (
      default
      menuitem "&Default"                   "Trace.Timing"
      menuitem "&All"                       "Trace.Timing ALL"
      menuitem "[:correlate]&Tracking with List and Source"
      (
         Data.List E: /Track
         Trace.List /Track
         Trace.Timing ALL /Track
      )
    )
    popup "[:achart]&Chart"
    (
      default
      menuitem "&Symbols"                   "Trace.Chart.sYmbol"
      menuitem "[:correlate]&Tracking with List and Source"
      (
         Data.List E: /Track
         Trace.List /Track
         Trace.Chart.sYmbol /Track
      )
    )
    addhere
    separator
    menuitem "[:save]Save trace data ..."         "Trace.SAVE"
    menuitem "[:load]Load reference data ..."     "Trace.LOAD *"
    separator
;     -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
    menuitem "&Reset"                       "Trace.RESet"
  )
; ----------------------------------------------------------------------
;   Probe pulldown submenue (Logic Analyzer)
; ----------------------------------------------------------------------
 if version.build()>6305.
 (
  if powerprobe()||integrator()||iprobe()
  (
   popup "Probe"
   (
     if iprobe()
     (
      menuitem "[:aconfig]Configuration IProbe..."     "IProbe.state"
      if iprobe.analog()
      (
        menuitem "[:adraw]Draw"                        "IProbe.Draw"
      )
      else
      (
        menuitem "[:atiming]Timing"                    "IProbe.Timing"
      )
      menuitem "[:alist]List"                          "IProbe.List"
      enable iprobe.analog()
      menuitem "Analog Settings..."                    "POD IP"
      if powerprobe()||integrator()||(iprobe()&&!iprobe.analog())
      (
        separator
      )
     )
     if powerprobe()
     (
      menuitem "[:aconfig]Configuration PowerProbe..." "Probe.state"
      menuitem "[:atiming]Timing"                      "Probe.Timing"
      menuitem "[:alist]List"                          "Probe.List"
      menuitem "Pulse Generator..."                    "PULSE"
      menuitem "Pattern Generator..."                  "PATTERN"
      separator
     )
     if integrator()
     (
      menuitem "[:aconfig]Configuration Integrator..." "Integrator.state"
      menuitem "[:atiming]Timing"                      "Integrator.Timing"
      menuitem "[:alist]List"                          "Integrator.List"
      separator
     )
     if powerprobe()||integrator()||(iprobe()&&!iprobe.analog())
     (
      menuitem  "[:pod]&Configure Probes..."           "POD"
     )
   )
  )
 )
; ----------------------------------------------------------------------
;   Perf pulldown submenue
; ----------------------------------------------------------------------
  popup "&Perf"
  (
    default
    menuitem "[:pconfig]Perf &Configuration..."    "PERF"
    menuitem "[:pperf]Perf &List"                  "PERF.List"
    menuitem "[:pperf]Perf List Dynamic"           "PERF.List DYNamic"
    separator
    menuitem "[:off]Perf &Off"                     "PERF.Mode OFF"
    separator
    separator

    popup "&Function Runtime"
    (
      enable ice()||fire()
      menuitem "&Prepare"
      (
    if t.method.analyzer()
    (
         Analyzer.AutoInit on
         Analyzer.STATistic.PreFetch on
    )

        Break.Delete /Alpha /Beta /Charly

    if (ice()||fire())&&!a.mode.flow()
        (
        if a.config.hac()
        (
               Analyzer.ReProgram
               (
               Sample.Enable if AlphaBreak
               Sample.Enable if BetaBreak
               Mark.A        if AlphaBreak
               Mark.B        if BetaBreak
               )
        )
        else
        (
               Analyzer.ReProgram
               (
                 Sample.Enable if AlphaBreak||BetaBreak
                 Mark.A if AlphaBreak
                 Mark.B if BetaBreak
               )
        )
    )

        Break.SetFunc
      )
      addhere
      menuitem "[:perf]Show &Numerical"          "Trace.STATistic.FUNC"
      menuitem "[:perf]Show as &Tree"            "Trace.STATistic.TREE"
      menuitem "[:perf]Show &Detailed Tree"      "Trace.STAT.TREE ALL"
      menuitem "[:achart]Show as T&iming"        "Trace.CHART.FUNC"
      menuitem "[:alist]Show N&esting"           "Trace.List FUNC TI.FUNC"
    )
    popup "&Distribution"
    (
      menuitem "[:perf]Show &Numerical"          "Trace.STATistic.DistriB Data"
      menuitem "[:achart]Show as &Timing"        "Trace.CHART.DistriB Data"
      menuitem "[:perf]Show &Detailed"           "Trace.STATistic.DistriB Data /List ALL"
    )
    popup "&Duration A to B"
    (
      enable ice()||fire()
      menuitem "&Prepare"
      (
        if a.config.hac()
        (
               Analyzer.ReProgram
               (
               Sample.Enable if AlphaBreak
               Sample.Enable if BetaBreak
               Mark.A        if AlphaBreak
               Mark.B        if BetaBreak
               )
        )
        else
        (
               Analyzer.ReProgram
               (
                 Sample.Enable if AlphaBreak||BetaBreak
                 Mark.A if AlphaBreak
                 Mark.B if BetaBreak
               )
        )
      )
      menuitem "[:perf]Show &Numerical"     "Trace.STATistic.DURation"
      menuitem "[:aprofile]Show as &Timing" "Trace.Chart.DURation"
    )
    popup "D&istance trace records"
    (
      menuitem "[:perf]Show &Numerical"     "Trace.STATistic.DIStance"
      menuitem "[:aprofile]Show as &Timing" "Trace.Chart.DIStance"
    )
    addhere
    separator
    menuitem "&Reset"
    (
       perf.reset
       Break.Delete /Alpha /Beta /Charly
       if ice()||fire()
          Analyzer.rp
    )
  )

; ----------------------------------------------------------------------
;   Cov pulldown submenue
; ----------------------------------------------------------------------
  popup "C&ov"
  (
    enable flag()
    menuitem  "[:flag]List Ranges"         "Flag.List"
    default
    enable flag()
    menuitem "[:flag]List Functions"       "Flag.ListFunc"
    enable flag()
    menuitem "[:flag]List Modules"         "Flag.ListModul"
    enable flag()
    menuitem "[:flag]List Variables"       "Flag.ListVar"
    separator
    enable flag()
    menuitem "Reset"                       "Flag.Init"
    separator
    menuitem "[:coverage]List Ranges"      "Trace.COVerage.List"
    menuitem "[:coverage]List Functions"   "Trace.COVerage.ListFunc"
    menuitem "[:coverage]List Modules"     "Trace.COVerage.ListModule"
    menuitem "[:coverage]List Variables"   "Trace.COVerage.ListVar"
    addhere   
    separator
    menuitem "[:coveragenew]&Add Tracebuffer" "Trace.COVerage.ADD"
    separator
    menuitem "Reset"                       "Trace.COVerage.RESet"
  )
  addhere

; ----------------------------------------------------------------------
;   Window pulldown submenue
; ----------------------------------------------------------------------
  popup "&Window"
  (
    menuitem "Create Duplicate window"          "winduplicate"
    menuitem "[:remove]Clear Windows on &Page"  "winclear"
    menuitem "[:removeall]Clear &all Windows"   "Winpage.Reset"
    separator
    menuitem "[:save]S&tore Windows to ..."     "STOre * Win"
    menuitem "[:load]&Load Windows from ..."    "do *"
  )

; ----------------------------------------------------------------------
;   Help pulldown submenue
; ----------------------------------------------------------------------
  popup "&Help"
  (
    default
    menuitem "[:help]&Contents"               "HELP.Topics"
    menuitem "[:index]&Index"                 "HELP.Index"
    menuitem "[:find]&Find"                   "HELP.Find"
    menuitem "[:tree]T&ree"                   "HELP.Tree"
    separator
    menuitem "&Operating System User Manual"  "HELP __IDE_USER_"
    separator
    if ice()
    (
      menuitem "&ICE Target Manual"          
      (
        local &item
        &item=cpuhelp()
        help __em&(item)_
      )
      menuitem "ICE &User Manual"             "HELP __E_USER_"
    )
    else
    (
    if fire()
    (
      menuitem "&FIRE Target Manual"          
      (
        local &item
        &item=cpuhelp()
        help __em&(item)_
      )
      menuitem "FIRE &User Manual"            "HELP __FIRE_USER_"
    )
    else
    (
      menuitem "ICD &Target Manual"
      (
        local &item
        &item=cpuhelp()
        help __em&(item)_
      )
      menuitem "ICD &User Manual"             "HELP __B_USER_"
    )
    )
    enable analyzer()
    menuitem "&Analyzer User Manual"          "HELP __A_USER_"
    addhere
    separator
    enable ta32()
    menuitem "Timing Analyzer User Manual"    "HELP __TA_USER_"
    enable powerprobe()
    menuitem "Power Probe User Manual"        "HELP __PP_USER_"
    enable stg()
    menuitem "Stimuli Generator User Manual"  "HELP __STG_USER_"
    separator
    if version.build()>5540.
    (
        if (os.version(0)==2.)||(os.version(0)==1.)
        (
            menuitem "Lauterbach &Homepage"
            (
                if os.version(0)==2.
                    os cmd /C start "" "http://www.lauterbach.com/"
                else
                    os start "http://www.lauterbach.com/"
            )
        )
    )
    popup "&Support"
    (
        menuitem "[:config]&Systeminfo..."
        (
            &file=   "support.cmm"
            &dir=    "demo/etc/diagnosis/environment"
            if OS.FILE("~~/&dir/&file")
                do "~~/&dir/&file"
            else if OS.FILE("~~/&file")
                do "~~/&file"
            else
                dialog.ok "Please copy http://www.lauterbach.com/support/support.cmm to your TRACE32 system directory first."
        )
        if version.build()>5540.
        (
            if (os.version(0)==2.)||(os.version(0)==1.)
            (
                menuitem "[:t32]&Online Support" 
                (
                    if os.version(0)==2.
                        os cmd /C start "" "http://www.lauterbach.com/frames.html?support.html"
                    else
                        os start "http://www.lauterbach.com/frames.html?support.html"
                )
                menuitem "[,,,@@@@@@@@@@@@@@@,@@YYYYYYYYYYY@@s,@Y@YYYYYYYYY@Y@s,@YY@YYYYYYY@YY@s,@YYY@YYYYY@YYY@s,@YYY@@YYY@@YYY@s,@YY@YY@@@YY@YY@s,@Y@YYYYYYYYY@Y@s,@@YYYYYYYYYYY@@s,@@@@@@@@@@@@@@@s, sssssssssssssss,,]&Contact Lauterbach"
                (
                    &ePhone="Company       :%0APrefix        :%0AFirstname     :%0ASurname       :%0ADepartment    :%0AStreet        :%0AP.O.Box       :%0ACity          :%0AState         :%0AZIP           :%0ACountry       :%0ACountryCode   :%0ATelephone     :%0AFAX           :%0AEMAIL         :%0A%0ASerial No     :%0AProduct       :%0ATarget CPU    :%0AHostsystem    :%0ACompiler      :%0ARealtimekernel:%0AInterface     :%0AEnvironment   :"
                    &eNote= "Please refer to http://www.lauterbach.com/ephone.html to find out a more subject-specific support e-mail addresses.%0AThe form below can be completed by using 'TRACE32:Help>Support>Systeminfo...'. (Use 'Save to Clipboard' and paste into this e-mail.)"
                    if os.version(0)==2.
                        os cmd /C start "" "mailto:[e-mail]?subject=SUPPORT&body=&eNote%0A%0A&ePhone"
                    else
                        os start "mailto:[e-mail]?subject=SUPPORT&body=&ePhone"
                )
            )
        )
        if version.build()>7807.
        (
            if (AutoFocus())&&(PowerTrace())
            (
                menuitem "[:afocus]&AutoFocus Diagnosis"
                (
                    &file=   "afdiagnosis.cmm"
                    &dir=    "demo/etc/diagnosis/autofocus"
                    &dir2=   "demo/arm/etc/diagnosis"
                    if OS.FILE("~~/&dir/&file")
                        do "~~/&dir/&file"
                    else if OS.FILE("~~/&file")
                        do "~~/&file"
                    if OS.FILE("~~/&dir2/&file")
                        do "~~/&dir2/&file"
                    else
                        dialog.ok "Sorry, can't find '&file'."
                )
            )
        )
    )
    menuitem "[:t32]About TRACE32..." "VERSION"
  )
)
;======================================================================
;======================================================================