TCL：Windows中线程之间的双向通信(TCL: Two way communication between threads in Windows)

 我需要在Tcl中的线程之间进行双向通信，而我所能得到的只是一种方式，参数传入作为我唯一的master-> helper通信通道。 这是我有的： 
 
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中的tcl简单的双向通信方法？ 

I need to have two way communication between threads in Tcl and all I can get is one way with parameters passing in as my only master->helper communication channel. Here is what I have:
 
proc ExecProgram { command } {
    if { [catch {open "| $command" RDWR} fd ] } {
        #
        # Failed, return error indication
        #
        error "$fd"
    }
}
 
To call the tclsh83, for example ExecProgram "tclsh83 testCases.tcl TestCase_01"
 
Within the testCases.tcl file I can use that passed in information. For example:
 
set myTestCase [lindex $argv 0] 
 
Within testCases.tcl I can puts out to the pipe:
 
puts "$myTestCase"
flush stdout
 
And receive that puts within the master thread by using the process ID:
 
gets $app line
 
...within a loop.
 
Which is not very good. And not two-way.
 
Anyone know of an easy 2-way communication method for tcl in Windows between 2 threads?

原文：https://stackoverflow.com/questions/267420