TCL 放流：我能知道流是什么吗？标准输出？标准错误？文件？

Question

由于复杂的原因，我不得不劫持“puts”例程。我想根据“流”是什么来做不同的事情

proc myPuts { stream msg } {

      if < stream is stdout >
          ....
      elseif < stream is stderr >
           ...
      else
           ...

}

有什么方法可以知道流参数是标准输出、标准错误还是 TCL 内部的文件？

谢谢，

Answer 1

据我所知，Tcl 中的标准输出流是“stdout”，而标准错误是“stderr”。如果使用 $stream 的值为“stdout”的puts $stream "string"，它会转到标准输出；与标准错误类似。

对puts 的正常调用将流参数视为可选；您的 myPuts 将需要做同样的事情，并将丢失的操作数视为标准输出。除此之外，我相信这只是一个问题

if {$stream eq "stdout"} {
    # do your stdout thing
} elseif {$stream eq "stderr"} {
    # do your stderr thing
} else {
    # do your file handle thing
}