From 517d85974c7cf8d4f894f46251462e14b6fc562f Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Fri, 13 Jan 2023 10:23:19 +1000 Subject: Tcl-compatible 'info frame' Returns a dictionary with file, line, cmd, (possibly) proc and level. And support 'info frame 0' for the current command. Note that now all evaluation frames are captured, not just call frames. Signed-off-by: Steve Bennett --- jimdb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'jimdb') diff --git a/jimdb b/jimdb index 929dac2..f72974d 100755 --- a/jimdb +++ b/jimdb @@ -378,7 +378,9 @@ proc debugger::_db {type file line result name arglist} { # Build the active stacktrace set s(stacktrace) {} foreach level [range 1 [info level]] { - lassign [info frame $level] p f l + set frame [info frame $level] + set f [dict get $frame file] + set l [dict get $frame line] lassign [info level $level] p pargs lappend s(stacktrace) [list $f $l $p $pargs] } -- cgit v1.1