通常,Control-C会向程序发送一个sigint,如果没有捕获它就会将其杀死。 gnureadline库将为sigint安装处理程序。但是,即使在haskell中禁用这些处理程序,我仍然需要按两次Control-C才能终止程序。发生了什么事?
import System.Console.Readline
main = do
setCatchSignals False
mainLoop
mainLoop = do
maybeLine <- readline ">"
case maybeLine of
Nothing -> putStrLn ":("
Just line -> do
putStr line
putStr " catch:"
catch <- getCatchSignals
putStrLn $ show $ catch
mainLoop
答案 0 :(得分:8)
这可能与cooked/uncooked/rare终端模式有关; ^C
并不总是发送信号。读取线似乎很难解开终端,因此键盘输入引起的任何信号都必须归因于读取线本身的逻辑;似乎有理由说它可能只在两个连续的^C
上触发一个SIGINT(特别是因为对于许多使用readline的程序,如shell和REPL,单个^C
上的程序会非常烦人! )。
您可以通过使用readline API将^C
重新绑定到触发SIGINT的某些代码来更改此行为。我没有使用Haskell的readline,只是来自C,所以我不确定你是怎么做的,但是the binding看起来很有钱来实现它。