Чтение из терминала с помощью tty echo

Question

У меня есть эта процедура чтения:

proc getUserInput { query } {
    send_user "$query: "
    flush stdout  
    set data [gets stdin]
    send_user "\n"
    return $data
}

Это работает, но не эхо на TTY. Как сделать так, чтобы скрипт отображался на tty? Эта функция вызывается для контрольного символа, захваченного во время сеанса взаимодействия.

Answer 1

Спасибо, мистер Глен Джекман

Я добавил строку ..

exec stty echo

в качестве первой строки функции и эхо было восстановлено.

Новая функция:

proc getUserInput { query } {
    exec stty echo
    send_user "$query: "
    flush stdout  
    gets stdin data
    return $data
}