tcl приостановка и ожидание нажатия клавиши для продолжения

Question

Я ищу способ в tcl для приостановки сценария (например, после некоторых выходов с «puts») и дождаться нажатия клавиши от пользователя, прежде чем продолжить вывод оставшийся текст.

Answer 1

С благодарностью ответить Хай Ву, если вы на Unix-подобных системах с stty

proc anykey {{msg "Hit any key: "}} { 
    set stty_settings [exec stty -g] 
    exec stty raw -echo 
    puts -nonewline $msg 
    flush stdout 
    read stdin 1 
    exec stty $stty_settings 
    puts "" 
} 
puts 1 
anykey 
puts 2 

Ссылка на подробное обсуждение на Tcl wiki: Reading a single character from the keyboard using Tcl

Answer 2

Вы просто использовать gets для чтения из стандартного ввода:

proc pause {{message "Hit Enter to continue ==> "}} { 
    puts -nonewline $message 
    flush stdout 
    gets stdin 
} 

pause "Hurry, hit enter: "; # Sample usage 1 
pause;      # Sample usage 2, use default message 

Answer 3

Потенциальное решение для Windows:

exec -ignorestderr [file join $env(windir) system32 cmd.exe] /c pause 

Это также относится к клавишам не-ascii (например, клавишам со стрелками, Escape и т. Д.).

Другим решением является Raw Mode on Windows предложенного Донала Fellows above (спасибо за ссылку!), Которые могут быть сведены в этих двух строки коды:

twapi::modify_console_input_mode stdin -lineinput 0 -echoinput 0 
read stdin 1 

Это не замечает побег, стрелки ключи и т. п. (и вам может понадобиться восстановить режим ввода консоли позже).