TCL зависает при попытке закрыть TCL трубы

Question

При запуске tclsh и печатаю это:

close [open "|tclsh" w] 

он работает отлично.

Но, когда в ~/.tclshrc у вас есть package require Tk, та же линия делает tclsh HANG!

Та же проблема связана со всеми пакетами графического интерфейса, такими как Tk, Itk, Img, Iwidgets, но не с пакетами GUI, такими как Itcl, это хорошо.

Как исправить эту проблему? Дело в том, чтобы сделать tclsh не повесить, набрав close [open "|tclsh" w] с package require Tk в ~/.tclshrc.

Эта же проблема с wish. close [open "|wish" w] делает желание HANG (с пустым ~/.wishrc файлом)!

Я получил эту проблему как на 32, так и на 64 бит CentOS. У меня есть следующие версии пакетов: tcl-8.5.8, tk-8.5.8, img-1.3, itcl-3.4.b1, itk-3.3, iwidgets-4.0.1.

Answer 1

Моя мысль была в том, что она ждет желание завершить работу, как и на странице человека:

Если channelId является блокирующим канал команда трубопровода затем закройте Уэйтс для дочерних процессов для завершения ,

Поскольку пожелание входит в бесконечный цикл (цикл событий) и никогда не выходит, команда закрытия будет висеть. Вдоль тех же строк [пакет требует Tk] (я считаю) запускает цикл событий, поэтому приведет к такому же поведению.

Я признаю, однако, что это загрузка .tclshrc вообще, так как

Если существует файл .tclshrc (или tclshrc.tcl на платформах Windows) в домашнем каталоге пользователя, интерактивный tclsh оценивает файл как скрипт Tcl непосредственно перед чтением первой команды со стандартного ввода.

Мне кажется странным, что [open "| tclsh" w] завершается в интерактивной оболочке.

В качестве побочного примечания [pacakge require Tk] кажется действительно странным делом в .tclshrc. Теоретически, вы не всегда будете хотеть Tk (цикл окна и события) при запуске Tcl (т. Е. Приложений с командной строкой) ... и, когда вы этого хотите, вы знаете, что делаете. Кажется, каждому кажется, что это кажется странным для меня.

Answer 2

Приложения Tcl в основном выходят, когда они завершили свой сценарий, независимо от того, предоставляется ли оно интерактивно. Однако пакет Tk меняет ситуацию так, что когда конец скрипта достигнут, он вместо этого переходит в события обработки цикла. Если вы полагаетесь на конец файла, что приводит к выходу, это будет очень похоже на зависание, но на самом деле он просто ждет, когда приложение GUI закончится (чтобы он мог сообщить о статусе выхода подпроцесса).

Исправление состоит в том, чтобы обработать обработчик канала для stdin в подпроцессе.Там несколько способов, чтобы сделать это в деталях, но вот простой один, который может идти в конце основной части кода, который вы обычно отправить:

proc ReadFromStdin {} { 
    if {[gets stdin line] >= 0} { 
     uplevel "#0" $line 
    } elseif {[eof stdin]} { 
     exit 
    } else { 
     # Partial read; try later when rest of data available 
    } 
} 
fileevent stdin readable ReadFromStdin 

Это предполагает, что каждая строка представляет собой полный исполняемый командой; Конечно, это может быть неверно, но писать код для использования info complete для составления строк менее ясен и, возможно, здесь лишний. (Вы знаете, что вы действительно отправляете лучше, чем я ...)