multithreading - 通过引用传递 TCL - 线程？

Question

我正在使用 Snack 音频处理套件和 TCL。
我想切掉部分声音并将这部分交给另一个线程来处理。

我的问题是如何在 TCL 的线程之间通过引用传递一些东西。

proc a {} {  
    snack::sound snd  
    thread::send -async $Thread [list B snd]
}

set Thread [thead::create { 
    proc B{snd} { 
    ... do something with snd
    }
}

Answer 1

那是行不通的。 Tcl 线程被设计成相互之间高度隔离，因为它大大减少了正常处理所需的锁定量。这样做的缺点是在线程之间传递东西是不平凡的(除了包含命令的短消息，音频数据不是!)但是有一个前进的方向......

如果您可以将数据作为一个字节 block 发送(在脚本级别)，那么我建议使用 tsv package 在线程之间传输它。 ，它与线程包打包在一起，所以你已经拥有它了。这将使您可以相对简单地在线程之间传输数据。请注意，snack 包在其脚本级接口(interface)中不是线程感知的，因此数据传输仍将涉及复制，并且 Tk(如许多 GUI 工具包，FWIW)不支持多线程使用(嗯，而不是再次使用技术)所以如果你正在做波形可视化，你还有一些工作要做。 (OTOH，现代 CPU 也有大量的空闲时间。)