Tcl Library Source Code

Replying to the 2024-09-13 message from anonymous. Sorry for the slow reply.

That doesn't seem to fix it. Result is the same as in my original report. It looks like `[::chan pending input $chan]` is returning 0, perhaps because nothing is pending before a read is attempted.

Besides that problem, it looks like that code will attempt to read the whole line into memory, which defeats the purpose, at least for me: I wanted to avoid letting whomever controls the input force my program to allocate an unbounded amount of memory.

Note: there's some discussion at https://wiki.tcl-lang.org/page/gets that might be relevant.