从 Tcl C 过程中获取输出

Question

我有一个 C shell，它通常使用 Tcl_Eval 调用 Tcl 例程。通常我只需执行用户输入的内容并获得一些状态就可以了。但是，现在我需要从用户键入的命令接收实际的 stdio 输出。有什么方法可以使用Tcl C procedures 获取它吗？

附带说明：我需要找出 Tcl 解释器中可用的当前过程列表，包括内置的和用户来源的。基本上，info procs * 的输出。

Answer 1

我认为你可以这样：

1. 通过调用pipe(2) 创建管道。

2. 然后在你的插播中：

   1. 通过调用Tcl_Close() 来关闭stdout。
   2. 在关闭stdout 后立即调用Tcl_MakeChannel()，将管道的写结束文件描述符转换为Tcl 的stdout 通道。

   或者使用 stdout 替换为对 Tcl_SetStdChannel() 的调用。

3. 处理来自管道的数据。

关于您的旁注——我认为您可以在解释器中调用 Tcl_Eval() 并使用 Tcl API 中的列表处理函数处理返回的列表。

更新（来自我的一个 cmets）：经过深思熟虑后，我认为可以创建一个自定义 Tcl 通道，该通道的实现将保存写入它的数据然后注册像标准输出这样的通道的一个实例。请参阅Tcl_CreateChannel() 和Tcl_RegisterChannel()。