如何在Tcl中便捷捕获返回，实现proc退出时自动执行指定操作？

要避免在proc的每个return处重复编写清理代码，Tcl有几种简便可靠的实现方式：

方法一：使用try...finally块（推荐） #

这是Tcl 8.5及以上版本的标准解决方案，finally块中的代码会在try块结束时无条件执行，无论proc是正常执行完毕、调用return退出，还是抛出异常。

示例代码：

proc foo {} {
    variable var
    set saved $var
    try {
        # 这里写你的业务逻辑
        if {$failed} {
            return
        }
        # 更多业务代码
    } finally {
        # 这里写退出时必须执行的代码
        set var $saved
    }
}

方法二：自定义局部return命令（兼容旧版本） #

如果需要兼容Tcl 8.4及更早版本，可以在proc内部定义一个局部的return命令，覆盖全局命令，确保每次调用return前先执行清理操作。不过这种方式无法覆盖异常抛出的场景，仅适合纯return退出的情况。

示例代码：

proc foo {} {
    variable var
    set saved $var

    # 定义局部return，先执行清理再调用全局return
    proc return {args} {
        uplevel 1 {set var $saved}
        tailcall ::return {*}$args
    }

    # 业务逻辑
    if {$failed} {
        return
    }
    # 更多业务代码
}

总结 #

优先选择try...finally方案，它是Tcl官方推荐的资源清理方式，能覆盖所有退出场景，代码简洁且可读性高，完全满足你构想中do-at-return的需求。

内容的提问来源于stack exchange，提问作者John H.