尝试关闭 TCL 管道时 TCL 挂起

Question

启动 tclsh 并输入以下内容时：

close [open "|tclsh" w]

它工作正常。

但是，当在 ~/.tclshrc 中你有 package require Tk 时，同一行使 tclsh 挂起！

所有 GUI 软件包（如 Tk、Itk、Img、Iwidgets）都存在同样的问题，但是对于非 GUI 软件包（如 Itcl），它可以正常工作。

我该如何解决这个问题？重点是在 中使用 package require Tk 键入 close [open "|tclsh" w] 时，使 tclsh 不会挂起~/.tclshrc。

wish 也存在同样的问题。 close [open "|wish" w] 使愿望挂起（使用空的 ~/.wishrc 文件）！

我在 32 位和 64 位 CentOS 上都遇到了这个问题。 我有以下版本的软件包：tcl-8.5.8、tk-8.5.8、img-1.3、itcl-3.4.b1、itk-3.3、iwidgets-4.0.1。

Answer 1

Tcl 应用程序大多在完成脚本后退出，无论脚本是否以交互方式提供。然而，Tk 包改变了一些事情，以便当到达脚本末尾时，它会进入处理事件的循环。如果您依赖文件结尾导致事物退出，那么这看起来很像挂起，但实际上它只是正确等待 GUI 应用程序完成（因此它可以报告子进程的退出状态） ）。

修复方法是在子进程中为 stdin 创建一个通道可读的事件处理程序。有几种方法可以详细地执行此操作，但这里有一个简单的方法，可以放在您通常发送的大量代码的末尾：

proc ReadFromStdin {} {
    if {[gets stdin line] >= 0} {
        uplevel "#0" $line
    } elseif {[eof stdin]} {
        exit
    } else {
        # Partial read; try later when rest of data available
    }
}
fileevent stdin readable ReadFromStdin

这假设每一行都是完整的可执行命令；当然，这可能不是真的，但是编写代码以使用 infocomplete 来组成行不太清楚，而且可能没有必要。 （你比我更清楚你实际上发送的是什么......）

Answer 2

我的想法是，它正在等待愿望完成运行，根据手册页：

如果channelId是阻塞通道
命令管道然后关闭等待
以便子进程完成。

由于 Wish 进入无限循环（事件循环）并且永远不会退出，因此 close 命令将挂起。同样，[package require Tk]（我相信）启动事件循环，因此会导致相同的行为。

我承认它正在加载 .tclshrc ，因为

如果用户的主目录中存在文件 .tclshrc（或 Windows 平台上的 tclshrc.tcl），则交互式 tclsh 在从标准输入读取第一个命令之前将该文件评估为 Tcl 脚本。

对我来说，[open "|tclsh" w] 最终出现在交互式 shell 中似乎很奇怪。

附带说明一下，[pacakge require Tk] 在 .tclshrc 中似乎是一件非常奇怪的事情。理论上，在运行 Tcl（即仅命令行应用程序）时，您并不总是需要 Tk（窗口和事件循环）...并且，当您确实需要它时，您知道您需要它。我想，对于每个人来说，这对我来说似乎很奇怪。