如何在使用interp eval时获取错误的行号与文件名信息？

针对Tcl 8.6.13中使用interp eval时子解释器错误信息缺失行号、文件名的问题，以下是几种可行的解决方法：

方法1：让子解释器加载文件而非直接eval代码 #

如果你的代码可以保存为独立文件，直接让子解释器source该文件是最直观的方案，此时错误信息会自动包含文件名和行号，和主解释器的输出逻辑完全一致。

示例代码：

#!/bin/sh    
# This line continues for Tcl, but is a single line for 'sh' \    
exec tclsh "$0" ${1+"$@"}    

::safe::interpCreate i
# 让子解释器加载外部代码文件
i eval {source "./sub_script.tcl"}

sub_script.tcl内容：

expr {"a" + 1}

错误输出会包含(file "./sub_script.tcl" line 1)的明确位置信息。

方法2：在子解释器中自定义错误处理器，捕获内部栈信息 #

如果必须动态传递代码字符串，可以在子解释器中重写错误处理逻辑，用info frame获取内部执行栈的细节，再将这些信息附加到错误消息中抛出。

示例代码：

#!/bin/sh    
# This line continues for Tcl, but is a single line for 'sh' \    
exec tclsh "$0" ${1+"$@"}    

::safe::interpCreate i

# 在子解释器中定义自定义错误处理
i eval {
    proc ::tcl::error {msg args} {
        set errdict [expr {[llength $args] ? [lindex $args 0] : [dict create]}]
        set stack_trace ""
        # 遍历内部调用栈，收集行号信息
        for {set level 0} {$level < [info frame]} {incr level} {
            array set frame [info frame $level]
            switch -- $frame(type) {
                "eval" {
                    append stack_trace "\n    (\"$frame(cmd)\") body line $frame(line)"
                }
                "proc" {
                    append stack_trace "\n    (procedure \"$frame(proc)\" line $frame(line))"
                }
                default {
                    append stack_trace "\n    ($frame(type) $frame(proc) line $frame(line))"
                }
            }
            unset frame
        }
        # 重新抛出带完整栈信息的错误
        return -code error \
            -errorinfo "$msg$stack_trace" \
            -errorcode [dict get $errdict -errorcode "NONE"]
    }
}

# 执行动态代码
i eval {expr {"a" + 1}}

执行后，错误信息会包含子解释器内部的行号细节，与主解释器的输出格式对齐。

方法3：将代码封装为子解释器内的过程 #

把要执行的代码封装成子解释器中的过程，调用过程时错误信息会自动包含过程内的行号：

示例代码：

#!/bin/sh    
# This line continues for Tcl, but is a single line for 'sh' \    
exec tclsh "$0" ${1+"$@"}    

::safe::interpCreate i

# 在子解释器中定义过程
i eval {
    proc run_my_code {} {
        expr {"a" + 1} ;# 过程内的第2行
    }
}

# 调用过程触发错误
i eval run_my_code

错误输出会包含(procedure "run_my_code" line 2)的明确行号标记。

原理说明 #

子解释器默认抛出的错误信息，只会暴露到主解释器的调用点（即i eval所在行），不会主动传递内部执行栈的细节。上述方法要么通过加载真实文件让错误信息自然携带位置标记，要么主动捕获子解释器内部的栈信息并附加到错误消息中，从而实现和主解释器一致的错误调试体验。

内容的提问来源于stack exchange，提问作者guest