Как проверить, ожидает ли stdin в TCL?

Question

Рассмотрим следующий код:

chan configure stdin -blocking false 
while { true } { 
    chan gets stdin 
    if { chan blocked stdin } { break } 
} 

Здесь, в последней строке цикла chan blocked stdin возвращает истину либо в случаях: когда нет более вход доступен в stdin, и когда есть некоторый вход доступен в stdin, но это не заканчивается символом новой строки. Мне нужно различать эти два случая.

Как я могу это сделать?

chan pending input stdin также возвращается 0 в обоих случаях.

---

Вот контекст, в котором используется вышеуказанный код.

proc prompt { } { puts -nonewline stdout "MyShell > "; flush stdout } 

proc evaluate { } \ 
{ 
    chan configure stdin -blocking false 
    while { true } { 
     # for "stdin -blocking false" "read stdin" acts like "gets stdin" 
     set part [chan read stdin 100] 
     append command $part 
     if { $part eq "" } { break } 
    } 
    chan configure stdin -blocking true 
    # Here I want test if there are pending characters at stdin, 
    # and while so, I want to wait for newline character. 
    # It should be like this: 
    # while { *the required test goes here* } { 
    # append command [chan gets stdin]\n 
    # } 
    while { ! [info complete $command] } { 
     append command [chan gets stdin]\n 
    } 
    catch { uplevel #0 $command } got 
    if { $got ne "" } { 
     puts stderr $got 
     flush stderr 
    } 
    prompt 
} 

chan event stdin readable evaluate 
prompt 
while { true } { update; after 100 } 

Answer 1

Запуск интерактивного командного интерпретатора с циклом обработки событий вполне возможно, и описывается in some detail на Wiki в Tcler в. Однако, если вы действительно используете только команды Tcl, вам следует использовать команду commandloop от TclX package, так как это поможет вам в деталях.