TCL：Windows 中线程之间的双向通信

Question

我需要在 Tcl 中的线程之间进行两种方式的通信，而我所能得到的只是一种将参数作为我唯一的主控->辅助通信通道传入的方式。 这是我所拥有的：

proc ExecProgram { command } {
    if { [catch {open "| $command" RDWR} fd ] } {
        #
        # Failed, return error indication
        #
        error "$fd"
    }
}

要调用 tclsh83，例如 ExecProgram“tclsh83 testCases.tcl TestCase_01”

在 testCases.tcl 文件中，我可以使用传入的信息。 例如：

set myTestCase [lindex $argv 0] 

在 testCases.tcl 中，我可以将其输出到管道：

puts "$myTestCase"
flush stdout

并通过在循环内使用进程 ID：

gets $app line

... 在主线程中接收该输出。

这不太好。 而且不是双向的。

有人知道 Windows 中 2 个线程之间 tcl 的简单 2 路通信方法吗？

Answer 1

这是一个小示例，展示了两个进程如何进行通信。 首先关闭子进程（将其保存为 child.tcl）：

gets stdin line
puts [string toupper $line]

然后是启动子进程并与其通信的父进程：

set fd [open "| tclsh child.tcl" r+]

puts $fd "This is a test"
flush $fd

gets $fd line
puts $line

父进程使用 open 返回的值向子进程发送和接收数据； r+ 参数 open 打开管道以进行读取和写入。

由于管道上有缓冲，因此需要刷新； 可以使用 fconfigure 命令将其更改为行缓冲。

还有一点； 查看您的代码，您在这里没有使用线程，您正在启动一个子进程。 Tcl 有一个线程扩展，它允许正确的线程间通信。