适配TCL 8.5的tee程序改造咨询（兼容Xilinx 2023.02）

问题背景 #

现有一款Schelte Bron开发的tee程序，在TCL 8.6环境运行正常，但需适配至采用TCL 8.5的Xilinx 2023.02工具中。核心需求是将stdout和stderr的所有内容捕获至日志文件，原代码因依赖TCL 8.6专属特性报错，需调整适配。

原代码依赖的TCL 8.6特性 #

原代码无法在8.5运行的核心原因是使用了两个8.6新增功能：

1. 通道变换API：chan push/chan pop用于给现有通道添加输出处理逻辑，TCL 8.5无此特性
2. 命名空间集合参数绑定：namespace ensemble create -parameters选项是8.6新增，8.5不支持

适配方案（纯TCL 8.5兼容） #

以下是不依赖系统命令、纯TCL实现的tee功能，完全兼容8.5环境：

完整代码实现 #

namespace eval tee {
    variable orig_stdout
    variable orig_stderr
    variable log_file
}

# 启动日志捕获：将stdout/stderr同时输出到屏幕和日志文件
proc StartTranscript {FileName} {
    namespace eval tee {
        # 保存原标准输出/错误通道的副本
        set orig_stdout [dup stdout]
        set orig_stderr [dup stderr]

        # 打开日志文件（覆盖模式，需追加则改为"a"）
        set log_file [open $FileName w]

        # 重命名原puts命令，替换为自定义实现
        rename ::puts ::tee::original_puts

        proc ::puts {args} {
            # 解析puts命令的参数组合
            set channel "stdout"
            set newline 1
            set msg ""

            switch -exact [llength $args] {
                1 {
                    set msg [lindex $args 0]
                }
                2 {
                    if {[lindex $args 0] eq "-nonewline"} {
                        set newline 0
                        set msg [lindex $args 1]
                    } else {
                        set channel [lindex $args 0]
                        set msg [lindex $args 1]
                    }
                }
                3 {
                    set channel [lindex $args 0]
                    set newline [expr {[lindex $args 1] ne "-nonewline"}]
                    set msg [lindex $args 2]
                }
            }

            # 写入日志文件
            if {$newline} {
                ::tee::original_puts $::tee::log_file $msg
            } else {
                ::tee::original_puts -nonewline $::tee::log_file $msg
            }
            flush $::tee::log_file

            # 输出到原屏幕通道
            if {$channel eq "stdout"} {
                if {$newline} {
                    ::tee::original_puts $::tee::orig_stdout $msg
                } else {
                    ::tee::original_puts -nonewline $::tee::orig_stdout $msg
                }
                flush $::tee::orig_stdout
            } elseif {$channel eq "stderr"} {
                if {$newline} {
                    ::tee::original_puts $::tee::orig_stderr $msg
                } else {
                    ::tee::original_puts -nonewline $::tee::orig_stderr $msg
                }
                flush $::tee::orig_stderr
            } else {
                # 非标准通道直接调用原puts
                if {$newline} {
                    ::tee::original_puts $channel $msg
                } else {
                    ::tee::original_puts -nonewline $channel $msg
                }
            }
        }
    }
}

# 停止日志捕获：恢复原输出行为，清理资源
proc DefaultVendor_StopTranscript {{FileBaseName ""}} {
    namespace eval tee {
        # 恢复原puts命令
        rename ::puts ""
        rename ::tee::original_puts ::puts

        # 关闭所有打开的文件句柄
        catch {close $log_file}
        catch {close $orig_stdout}
        catch {close $orig_stderr}

        # 清空变量
        unset orig_stdout orig_stderr log_file
    }
}

方案说明 #

1. 核心逻辑：通过重命名puts命令，拦截所有输出操作，将内容同时写入日志文件和原屏幕通道
2. 参数兼容：支持puts的所有参数格式（包括-nonewline和指定自定义通道）
3. 资源清理：停止时恢复原puts命令，关闭所有临时文件句柄，避免资源泄漏

更简便的替代方案（依赖系统tee命令） #

如果工具环境允许调用系统命令，可直接利用操作系统的tee命令实现，代码更简洁：

Linux/macOS版本 #

proc StartTranscript {FileName} {
    global orig_stdout orig_stderr tee_pid
    set orig_stdout [dup stdout]
    set orig_stderr [dup stderr]
    # 启动tee命令，追加写入日志并回显到原屏幕
    set tee_pid [exec tee -a $FileName >@$orig_stdout 2>&1 &]
    # 重定向stdout/stderr到tee进程
    dup $tee_pid stdout
    dup $tee_pid stderr
}

proc DefaultVendor_StopTranscript {{FileBaseName ""}} {
    global orig_stdout orig_stderr tee_pid
    flush stdout
    flush stderr
    # 恢复原通道
    dup $orig_stdout stdout
    dup $orig_stderr stderr
    # 终止tee进程
    catch {exec kill $tee_pid}
    catch {close $orig_stdout}
    catch {close $orig_stderr}
}

Windows版本（依赖PowerShell） #

proc StartTranscript {FileName} {
    global orig_stdout orig_stderr tee_pid
    set orig_stdout [dup stdout]
    set orig_stderr [dup stderr]
    # 用PowerShell的tee命令实现追加写入
    set tee_pid [exec powershell -Command "tee -Append '$FileName'" >@$orig_stdout 2>&1 &]
    dup $tee_pid stdout
    dup $tee_pid stderr
}

proc DefaultVendor_StopTranscript {{FileBaseName ""}} {
    global orig_stdout orig_stderr tee_pid
    flush stdout
    flush stderr
    dup $orig_stdout stdout
    dup $orig_stderr stderr
    # 终止PowerShell进程
    catch {exec taskkill /PID $tee_pid /F}
    catch {close $orig_stdout}
    catch {close $orig_stderr}
}

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