662 lines
17 KiB
Plaintext
662 lines
17 KiB
Plaintext
; --------------------------------------------------------------------------------
|
|
; @Title: Menu File for TRACE32 QNX Awareness
|
|
; @Description: -
|
|
; @Keywords: QNX menu awareness
|
|
; @Author: DIE
|
|
; @Copyright: (c) 1989-2022 Lauterbach GmbH, licensed for use with TRACE32(R) only
|
|
; --------------------------------------------------------------------------------
|
|
; $Id: qnx.m 9317 2023-08-02 14:44:51Z rdienstbeck $
|
|
|
|
NAME "TASK.QNX"
|
|
|
|
IF !MENU.EXIST("TASK.QNX")
|
|
(
|
|
|
|
add
|
|
menu
|
|
(
|
|
popup "QNX"
|
|
(
|
|
default
|
|
menuitem "Display &Processes" "TASK.Process"
|
|
menuitem "Display &Threads" "TASK.Thread"
|
|
popup "Display pidin-like"
|
|
(
|
|
menuitem "plain" "TASK.PIDIN"
|
|
menuitem "flags" "TASK.PIDIN FLags"
|
|
menuitem "family" "TASK.PIDIN FAm"
|
|
menuitem "procmem" "TASK.PIDIN PMEM"
|
|
menuitem "memory" "TASK.PIDIN MEM"
|
|
)
|
|
menuitem "Display &ASInfo" "TASK.ASINFO"
|
|
popup "Display File System"
|
|
(
|
|
menuitem "Display IFS directory" "TASK.IFS"
|
|
menuitem "Display shmem contents..."
|
|
(
|
|
dialog
|
|
(
|
|
header "TASK.SHMEM"
|
|
pos 0. 0. 24. 3.
|
|
box "shmem file path"
|
|
pos 1. 1. 22. 1.
|
|
shmem: defedit "" ""
|
|
pos 2. 3. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &shmem
|
|
&shmem=dialog.string(shmem)
|
|
TASK.SHMEM "&shmem"
|
|
dialog.end
|
|
)
|
|
pos 15. 3. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
menuitem "Display slogger2 contents..."
|
|
(
|
|
dialog
|
|
(
|
|
header "TASK.SLOGGER2"
|
|
pos 0. 0. 24. 3.
|
|
box "slogger2 buffer name"
|
|
pos 1. 1. 22. 1.
|
|
slogger2: defedit "" ""
|
|
pos 2. 3. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &slogger2
|
|
&slogger2=dialog.string(slogger2)
|
|
TASK.SLOGGER2 "&slogger2"
|
|
dialog.end
|
|
)
|
|
pos 15. 3. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
)
|
|
separator
|
|
popup "&Process Debugging"
|
|
(
|
|
menuitem "[:symbols]&Load Symbols..."
|
|
(
|
|
dialog
|
|
(
|
|
header "TASK.sYmbol.LOAD"
|
|
pos 0. 0. 30. 3.
|
|
box "Process name"
|
|
pos 1. 1. 20. 1.
|
|
procl: defedit "" ""
|
|
pos 6. 3. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &procl
|
|
&procl=dialog.string(procl)
|
|
TASK.sYmbol.LOAD "&procl"
|
|
dialog.end
|
|
)
|
|
pos 17. 3. 7. 1.
|
|
button "Cancel" "DIALOG.END"
|
|
)
|
|
)
|
|
menuitem "[:symbols]&Delete Symbols..."
|
|
(
|
|
dialog
|
|
(
|
|
header "TASK.sYmbol.DELete"
|
|
pos 0. 0. 30. 3.
|
|
box "Process name"
|
|
pos 1. 1. 20. 1.
|
|
procd: defedit "" ""
|
|
pos 6. 3. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &procd
|
|
&procd=dialog.string(procd)
|
|
TASK.sYmbol.DELete "&procd"
|
|
dialog.end
|
|
)
|
|
pos 17. 3. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
menuitem "Debug New Process..."
|
|
(
|
|
PRIVATE &sPath &sOptionMachineName
|
|
IF (PRACTICE.FUNCtion.AVAILable(SYStem.Option.MACHINESPACES))
|
|
(
|
|
IF (SYStem.Option.MACHINESPACES()&&(""!=""))
|
|
(
|
|
SPRINTF &sOptionMachineName "/MACHINE %s" STRing.SPLIT("",".",0.)
|
|
)
|
|
)
|
|
&sPath=OS.FILE.JOINPATH(TASK.GETDIR(),"app_debug.cmm")
|
|
IF OS.FILE("&sPath")
|
|
(
|
|
DO "&sPath" /DIALOG &sOptionMachineName
|
|
ENDDO
|
|
)
|
|
PRINT %ERROR "File ""app_debug.cmm"" not found. Please contact support@lauterbach.com ."
|
|
)
|
|
addhere
|
|
popup "&Watch Processes"
|
|
(
|
|
menuitem "[:plus]&Add..."
|
|
(
|
|
dialog
|
|
(
|
|
header "Add Process to Watch"
|
|
pos 0. 0. 24. 3.
|
|
box "Process name"
|
|
pos 1. 1. 22. 1.
|
|
wproca: defedit "" ""
|
|
pos 2. 3. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &wproca
|
|
&wproca=dialog.string(wproca)
|
|
TASK.Watch.View "&wproca"
|
|
dialog.end
|
|
)
|
|
pos 15. 3. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
menuitem "[:remove]&Remove..."
|
|
(
|
|
dialog
|
|
(
|
|
header "Delete Process from Watch"
|
|
pos 0. 0. 24. 3.
|
|
box "Process name"
|
|
pos 1. 1. 22. 1.
|
|
wprocd: defedit "" ""
|
|
pos 2. 3. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &wprocd
|
|
&wprocd=dialog.string(wprocd)
|
|
TASK.Watch.DELete "&wprocd"
|
|
dialog.end
|
|
)
|
|
pos 15. 3. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
)
|
|
separator
|
|
menuitem "[:mmu]Scan Process MMU Pages..."
|
|
(
|
|
dialog
|
|
(
|
|
header "MMU.TaskPageTable.SCAN"
|
|
pos 0. 0. 24. 3.
|
|
box "Process name"
|
|
pos 1. 1. 22. 1.
|
|
wproca: defedit "" ""
|
|
pos 2. 3. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &wproca
|
|
&wproca=dialog.string(wproca)
|
|
MMU.TaskPageTable.SCAN "&wproca"
|
|
dialog.end
|
|
)
|
|
pos 15. 3. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
menuitem "[:mmu]Scan All MMU Tables" "MMU.SCANALL"
|
|
separator
|
|
menuitem "[:manual]Help Process Debugging" "HELP __RTOS_QNX_.LINK.User_Processes"
|
|
)
|
|
popup "&Library Debugging"
|
|
(
|
|
menuitem "[:symbols]&Load Symbols..."
|
|
(
|
|
dialog
|
|
(
|
|
header "TASK.sYmbol.LOADLib"
|
|
pos 0. 0. 22. 3.
|
|
box "Process name"
|
|
pos 1. 1. 20. 1.
|
|
libpl: defedit "" ""
|
|
pos 0. 3. 22. 3.
|
|
box "Library name"
|
|
pos 1. 4. 20. 1.
|
|
libll: defedit "" ""
|
|
pos 6. 6. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &libpl &libll
|
|
&libpl=dialog.string(libpl)
|
|
&libll=dialog.string(libll)
|
|
TASK.sYmbol.LOADLib "&libpl" "&libll"
|
|
dialog.end
|
|
)
|
|
pos 17. 6. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
menuitem "[:symbols]&Delete Symbols..."
|
|
(
|
|
dialog
|
|
(
|
|
header "TASK.sYmbol.DELeteLib"
|
|
pos 0. 0. 22. 3.
|
|
box "Process name"
|
|
pos 1. 1. 20. 1.
|
|
libpd: defedit "" ""
|
|
pos 0. 3. 22. 3.
|
|
box "Library name"
|
|
pos 1. 4. 20. 1.
|
|
libld: defedit "" ""
|
|
pos 6. 6. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &libpd &libld
|
|
&libpd=dialog.string(libpd)
|
|
&libld=dialog.string(libld)
|
|
TASK.sYmbol.DELeteLib "&libpd" "&libld"
|
|
dialog.end
|
|
)
|
|
pos 17. 6. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
separator
|
|
menuitem "Scan Process MMU Pages..."
|
|
(
|
|
dialog
|
|
(
|
|
header "MMU.TaskPageTable.SCAN"
|
|
pos 0. 0. 24. 3.
|
|
box "Process name"
|
|
pos 1. 1. 22. 1.
|
|
wproca: defedit "" ""
|
|
pos 2. 3. 7. 1.
|
|
defbutton "Ok"
|
|
(
|
|
PRIVATE &wproca
|
|
&wproca=dialog.string(wproca)
|
|
MMU.TaskPageTable.SCAN "&wproca"
|
|
dialog.end
|
|
)
|
|
pos 15. 3. 7. 1.
|
|
button "Cancel" "dialog.end"
|
|
)
|
|
)
|
|
menuitem "Scan All MMU Tables" "MMU.SCANALL"
|
|
)
|
|
separator
|
|
popup "S&ymbol Autoloader"
|
|
(
|
|
menuitem "[:symbols]List Components" "sYmbol.AutoLoad.List"
|
|
menuitem "[:init]Check Now!" "sYmbol.AutoLoad.CHECK"
|
|
menuitem "[:config]Config..." "sYmbol.AutoLOAD.config"
|
|
menuitem "[:objects]Components..."
|
|
(
|
|
dialog
|
|
(
|
|
header "TASK.sYmbol.Option AutoLoad"
|
|
pos 0. 0. 25.
|
|
proc: checkbox "Process (Processes)"
|
|
(
|
|
if dialog.boolean(proc)
|
|
TASK.sYmbol.Option AutoLoad Process
|
|
else
|
|
TASK.sYmbol.Option AutoLoad NoProcess
|
|
)
|
|
lib: checkbox "Library (All Libraries)"
|
|
(
|
|
if dialog.boolean(lib)
|
|
TASK.sYmbol.Option AutoLoad Library
|
|
else
|
|
TASK.sYmbol.Option AutoLoad NoLibrary
|
|
dialog.set clib "FALSE"
|
|
)
|
|
clib: checkbox "CurrLib (Libraries of Current Process)"
|
|
(
|
|
if dialog.boolean(clib)
|
|
TASK.sYmbol.Option AutoLoad CurrLib
|
|
else
|
|
TASK.sYmbol.Option AutoLoad NoLibrary
|
|
dialog.set lib "FALSE"
|
|
)
|
|
)
|
|
dialog.set proc ((TASK.y.o(autoload)&0x1)!=0)
|
|
dialog.set lib ((TASK.y.o(autoload)&0x2)!=0)
|
|
dialog.set clib ((TASK.y.o(autoload)&0x8)!=0)
|
|
)
|
|
)
|
|
IF PRACTICE.FUNCtion.AVAILable(SYStem.Option.MACHINESPACES)
|
|
(
|
|
IF !SYStem.Option.MACHINESPACES()
|
|
(
|
|
MENUITEM "[ X X X X X,XXXXXXXXXXXX, XxxxxxxxxXs,XXxxxxxxxxXs, XxxxxxxxxXX,XXxxxxxxxxXs, XxxxxxxxxXX,XXxxxxSSSSSSSS, XxxxxSBBwwwwwS,XXxxxxSBBwwwXwBS, XXXXXSBBwwwwwBB, XsXsXSBBBBBBBBB, SBBWWWWWBB, SBBWWWWWBB, SBBWRRRWBB, BBWWWWWBB]Generate RAM Dump"
|
|
(
|
|
PRIVATE &sPath
|
|
&sPath=OS.FILE.JOINPATH(TASK.GETDIR(),"ramdump.cmm")
|
|
IF OS.FILE("&sPath")
|
|
(
|
|
DO "&sPath" /DIALOG
|
|
ENDDO
|
|
)
|
|
PRINT %ERROR "File ""ramdump.cmm"" not found. Please contact support@lauterbach.com ."
|
|
)
|
|
)
|
|
)
|
|
ELSE
|
|
(
|
|
MENUITEM "[ X X X X X,XXXXXXXXXXXX, XxxxxxxxxXs,XXxxxxxxxxXs, XxxxxxxxxXX,XXxxxxxxxxXs, XxxxxxxxxXX,XXxxxxSSSSSSSS, XxxxxSBBwwwwwS,XXxxxxSBBwwwXwBS, XXXXXSBBwwwwwBB, XsXsXSBBBBBBBBB, SBBWWWWWBB, SBBWWWWWBB, SBBWRRRWBB, BBWWWWWBB]Generate RAM Dump"
|
|
(
|
|
PRIVATE &sPath
|
|
&sPath=OS.FILE.JOINPATH(TASK.GETDIR(),"ramdump.cmm")
|
|
IF OS.FILE("&sPath")
|
|
(
|
|
DO "&sPath" /DIALOG
|
|
ENDDO
|
|
)
|
|
PRINT %ERROR "File ""ramdump.cmm"" not found. Please contact support@lauterbach.com ."
|
|
)
|
|
)
|
|
separator
|
|
popup "&Stack Coverage"
|
|
(
|
|
menuitem "&List Stacks"
|
|
(
|
|
if icd()
|
|
TASK.STacK.PATtern 0
|
|
TASK.STacK
|
|
)
|
|
menuitem "Add Task" "TASK.STacK.ADD"
|
|
menuitem "Remove Task" "TASK.STacK.ReMove"
|
|
menuitem "Reset Coverage"
|
|
(
|
|
PRIVATE &yes
|
|
DIALOG.YESNO "Overwrite unused stack space" "with stack fill pattern?"
|
|
ENTRY &yes
|
|
IF !&yes
|
|
ENDDO
|
|
TASK.STacK.Init
|
|
)
|
|
)
|
|
)
|
|
popup "Trace"
|
|
(
|
|
popup "List"
|
|
(
|
|
separator
|
|
menuitem "&Task Switches" "Trace.List List.TASK"
|
|
menuitem "&Default and Tasks" "Trace.List List.TASK DEFault"
|
|
)
|
|
)
|
|
popup "Perf"
|
|
(
|
|
separator
|
|
popup "&Task Runtime"
|
|
(
|
|
menuitem "&Prepare"
|
|
(
|
|
if t.method.analyzer()
|
|
(
|
|
Analyzer.AutoInit on
|
|
)
|
|
if a.mode.flow()
|
|
(
|
|
Break.Delete /TraceEnable
|
|
Break.Set TASK.config(magic) /TraceEnable
|
|
)
|
|
)
|
|
menuitem "[:perf]Show &Numerical" "Trace.STATistic.TASK"
|
|
menuitem "[:achart]Show as &Timing" "Trace.CHART.TASK"
|
|
menuitem "[:achart]Tracking with Trace &List"
|
|
(
|
|
Trace.List List.TASK DEFault /Track
|
|
Trace.CHART.TASK /Track
|
|
)
|
|
)
|
|
popup "Task &Function Runtime"
|
|
(
|
|
menuitem "&Prepare"
|
|
(
|
|
if t.method.analyzer()
|
|
(
|
|
Analyzer.AutoInit on
|
|
Analyzer.STATistic.PreFetch on
|
|
)
|
|
if a.mode.flow()
|
|
(
|
|
Break.Delete /TraceData
|
|
Break.Set task.config(magic) /TraceData
|
|
)
|
|
)
|
|
menuitem "[:perf]Show &Numerical" "Trace.STATistic.TASKFUNC"
|
|
menuitem "[:perf]Show as &Tree" "Trace.STATistic.TASKTREE"
|
|
menuitem "[:perf]Show &Detailed Tree" "Trace.STATistic.TASKTREE ALL"
|
|
menuitem "[:achart]Show as &Timing" "Trace.CHART.TASKFUNC"
|
|
menuitem "[:alist]Show N&esting" "Trace.List List.TASK FUNC TI.FUNC"
|
|
)
|
|
popup "Task &Status"
|
|
(
|
|
menuitem "&Prepare"
|
|
(
|
|
if t.method.analyzer()
|
|
(
|
|
Analyzer.AutoInit on
|
|
)
|
|
)
|
|
menuitem "[:perf]Show &Numerical" "Trace.STATistic.TASKSTATE"
|
|
menuitem "[:achart]Show as &Timing" "Trace.CHART.TASKSTATE"
|
|
menuitem "[:achart]Tracking with Trace &List"
|
|
(
|
|
Trace.List List.TASK DEFault /Track
|
|
Trace.CHART.TASKSTATE /Track
|
|
)
|
|
)
|
|
)
|
|
popup "&Help"
|
|
(
|
|
MENUITEM "[:manual]OS Awareness Manual QNX" "HELP __RTOS_QNX_"
|
|
)
|
|
)
|
|
|
|
|
|
menu "task.p"
|
|
(
|
|
default
|
|
menuitem "Display detailed"
|
|
(
|
|
PRIVATE &address
|
|
&address=address.offset(track.address())
|
|
TASK.Process &address
|
|
)
|
|
menuitem "Display Process struct"
|
|
(
|
|
PRIVATE &address
|
|
&address=track.address()
|
|
Var.View %Open %String (struct process_entry*)(&address)
|
|
)
|
|
separator
|
|
menuitem "Load Process Symbols" "TASK.sYmbol.LOAD track.address()"
|
|
menuitem "Delete Process Symbols" "TASK.sYmbol.DELete track.address()"
|
|
menuitem "Add to Watched Processes"
|
|
(
|
|
PRIVATE &address
|
|
&address=address.offset(track.address())
|
|
TASK.Watch.View &address
|
|
)
|
|
menuitem "Delete from Watched Processes" "TASK.Watch.DELete track.address()"
|
|
separator
|
|
menuitem "Scan MMU Pages"
|
|
(
|
|
PRIVATE &address
|
|
&address=address.offset(track.address())
|
|
&address=TASK.proc.threads(&address,0)
|
|
MMU.TaskPageTable.SCAN &address
|
|
)
|
|
menuitem "Dump process entry"
|
|
(
|
|
PRIVATE &address
|
|
&address=track.address()
|
|
Data.dump &address /l /dialog
|
|
)
|
|
)
|
|
|
|
|
|
menu "task.t"
|
|
(
|
|
default
|
|
menuitem "Display Detailed"
|
|
(
|
|
PRIVATE &thread
|
|
&thread=address.offset(track.address())
|
|
TASK.Thread &thread
|
|
)
|
|
IF TASK.MUON.AVAIL()!=0
|
|
(
|
|
menuitem "Display Thread struct"
|
|
(
|
|
PRIVATE &address
|
|
&address=address.offset(track.address())
|
|
&access=address.straccess(track.address())
|
|
&address=TASK.MUON.THREAD(&address)
|
|
Var.View %Open %String (struct thread_entry*)(&(access)&(address))
|
|
)
|
|
menuitem "Display Muon Thread struct"
|
|
(
|
|
PRIVATE &address
|
|
&address=track.address()
|
|
Var.View %Open %String (muon_thread_t*)(&address)
|
|
)
|
|
)
|
|
ELSE
|
|
(
|
|
menuitem "Display Thread struct"
|
|
(
|
|
PRIVATE &address
|
|
&address=track.address()
|
|
Var.View %Open %String (struct thread_entry*)(&address)
|
|
)
|
|
)
|
|
separator
|
|
menuitem "Display Stack Frame"
|
|
(
|
|
PRIVATE &thread
|
|
&thread=address.offset(track.address())
|
|
Var.Frame /Locals /Caller /TASK &thread
|
|
)
|
|
menuitem "Switch Context"
|
|
(
|
|
PRIVATE &thread
|
|
&thread=address.offset(track.address())
|
|
Register.TASK &thread
|
|
)
|
|
separator
|
|
menuitem "Add to Stack Cov"
|
|
(
|
|
PRIVATE &thread
|
|
&thread=address.offset(track.address())
|
|
TASK.STacK.ADD &thread
|
|
)
|
|
menuitem "Rm from Stack Cov"
|
|
(
|
|
PRIVATE &thread
|
|
&thread=address.offset(track.address())
|
|
TASK.STacK.ReMove &thread
|
|
)
|
|
separator
|
|
menuitem "Dump thread entry"
|
|
(
|
|
PRIVATE &address
|
|
&address=track.address()
|
|
Data.dump &address /DIALOG
|
|
)
|
|
)
|
|
|
|
|
|
menu "task.lib"
|
|
(
|
|
default
|
|
;menuitem "Display detailed"
|
|
;(
|
|
; &address=address.offset(track.address())
|
|
; TASK.LIBrary &address
|
|
;)
|
|
menuitem "Display Library struct"
|
|
(
|
|
PRIVATE &address
|
|
&address=address.offset(track.address())
|
|
Var.View %m %s (struct link_map*)&address
|
|
)
|
|
separator
|
|
menuitem "Load Library Symbols" "TASK.sYmbol.LOADLib track.string() track.address()"
|
|
menuitem "Delete Library Symbols" "TASK.sYmbol.DELeteLib track.string() track.address()"
|
|
separator
|
|
menuitem "Dump Library entry"
|
|
(
|
|
PRIVATE &address
|
|
&address=address.offset(track.address())
|
|
Data.dump &address /l /dialog
|
|
)
|
|
)
|
|
|
|
|
|
menu "task.w"
|
|
(
|
|
default
|
|
menuitem "Display Process"
|
|
(
|
|
PRIVATE &address
|
|
&address=address.offset(track.address())
|
|
TASK.Process &address
|
|
)
|
|
menuitem "Delete from List"
|
|
(
|
|
PRIVATE &name
|
|
&name=track.string()
|
|
TASK.Watch.DELete "&name"
|
|
)
|
|
)
|
|
|
|
buttons "y.aload.l"
|
|
(
|
|
width wider
|
|
menuitem "[:objects]Components..."
|
|
(
|
|
dialog
|
|
(
|
|
header "TASK.sYmbol.Option AutoLoad"
|
|
pos 0. 0. 25.
|
|
proc: checkbox "Process (Processes)"
|
|
(
|
|
if dialog.boolean(proc)
|
|
TASK.sYmbol.Option AutoLoad Process
|
|
else
|
|
TASK.sYmbol.Option AutoLoad NoProcess
|
|
)
|
|
lib: checkbox "Library (All Libraries)"
|
|
(
|
|
if dialog.boolean(lib)
|
|
TASK.sYmbol.Option AutoLoad Library
|
|
else
|
|
TASK.sYmbol.Option AutoLoad NoLibrary
|
|
dialog.set clib "FALSE"
|
|
)
|
|
clib: checkbox "CurrLib (Libraries of Current Process)"
|
|
(
|
|
if dialog.boolean(clib)
|
|
TASK.sYmbol.Option AutoLoad CurrLib
|
|
else
|
|
TASK.sYmbol.Option AutoLoad NoLibrary
|
|
dialog.set lib "FALSE"
|
|
)
|
|
)
|
|
dialog.set proc ((TASK.y.o(autoload)&0x1)!=0)
|
|
dialog.set lib ((TASK.y.o(autoload)&0x2)!=0)
|
|
dialog.set clib ((TASK.y.o(autoload)&0x8)!=0)
|
|
)
|
|
)
|
|
|
|
)
|