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 <steveb@workware.net.au>

1 files changed, 3 insertions, 1 deletions

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]
             }