This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc nsmcp::codexProcessTriples {capture} {
set triples [::nsmcp::codexProcessFields $capture {capturedAtMs elapsedMs processLimit threadLimit} {source status reason}]
set processes {};set index 0;set remaining 128
if {[dict exists $capture processes]} {
foreach process [lrange [dict get $capture processes] 0 7] {
set row [::nsmcp::codexProcessFields $process {pid parentPid startTicks userTicks systemTicks readBytes writeBytes threadCount omittedThreads} {name state}]
set threads {};set j 0
if {[dict exists $process threads]} {
foreach thread [lrange [dict get $process threads] 0 [expr {$remaining-1}]] {
if {$remaining<=0} {break}
incr remaining -1
set fields [::nsmcp::codexProcessFields $thread {tid userTicks systemTicks syscall} {name state waitChannel}]
lappend threads $j object $fields
incr j
}
}
lappend row threads array $threads
lappend processes $index object $row
incr index
}
}
lappend triples processes array $processes
return $triples
}
