如何在 Tcl 中打印标准输出缓冲区大小?

How do I print the stdout buffer size in Tcl?

我环顾四周,但找不到任何可以用来在 tcl 中打印通道(比如 stdout)的当前缓冲区大小的东西。

我计划使用 fconfigure 重新调整缓冲区大小,但我想知道当前大小是多少,然后再更改它,作为基准。

简单地省略实际缓冲区大小参数。

set bufferSize [fconfigure stdout -buffersize]
% fconfigure stdout
-blocking 1 -buffering none -buffersize 4096 -encoding utf-8 -eofchar {} -translation lf
%