TCL提出流：我可以知道什麼流是？標準輸出？標準錯誤？文件？

Question

由於複雜的原因，我不得不劫持「puts」例程。我希望做的依據是什麼「流」不同的事情是

proc myPuts { stream msg } { 

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

} 

有一些方法來知道，如果流參數爲標準輸出，標準錯誤或從TCL內部的一個文件？

感謝，

Answer 1

據我所知，在Tcl的stdout流是「標準輸出」，和標準錯誤是「標準錯誤」。如果有一個puts $stream "string"，$ stream的值爲「stdout」，則轉到stdout;與stderr類似。

對puts的正常調用將流參數視爲可選;你的myPuts需要做同樣的事情，把一個缺少的操作數當作標準輸出。除此之外，我認爲這只是

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