退出时恢复终端设置

如何解决退出时恢复终端设置

使用 the terminal package，我的代码基本上是这样的：

main :: IO ()
main = withTerminal $ runTerminalT $ do
    eraseIndisplay EraseAll
    hideCursor
    setAutoWrap False

    forever $ do
        calculate
        updateScreen

如果用户使用 Ctrl-C 退出该程序，则终端设置（在这种具体情况下，隐藏光标）将保留。我正在寻找一种轻量级的方法来恢复运行程序之前的终端设置。通过轻量级，我的意思是我可以将整个 runTerminalT shebang 包裹起来，而不必在代码的各个部分等处手动​​调用 checkInterrupt。

解决方法

没有必要弄乱 POSIX 信号来做类似 Daniel Wagner 的回答的事情。 Control.Exception 拥有您需要的一切。

import Control.Exception (handleJust,AsyncException (UserInterrupt))
import Control.Monad (guard)
import System.Exit (exitWith,ExitCode (ExitFailure))

main = withTerminal $ \term ->
  handleJust
         (guard . (== UserInterrupt))
         (\ ~() -> do
           resetTerminalOrWhatever term
           exitWith (ExitFailure 1)) $
         ...

您实际上可能想要更广泛的东西，因为您可能希望在任何异常终止时重置终端：

main = withTerminal $ \term -> ... `onException` resetTerminalOrWhatever term

请注意，第二个版本也将通过调用 exitWith 来激活。如果这不是您想要的，那么您可以手动捕获/重新抛出并避免在 ExitSuccess 上重置终端。

---

请注意，withTerminal 实际上可以在比 IO 更通用的上下文中运行，但它始终需要一个 MonadMask 约束，这对于这种通用方法来说应该足够了。

,

我还没有测试过以确定这是否正确，但我猜您只需安装一个信号处理程序来进行清理，然后像默认处理程序一样退出。

import System.Exit
import System.Posix.Signals

main = do
    installHandler sigINT Nothing . Catch $ do
        resetTerminalOrWhatever
        exitWith (ExitFailure 1)
    withTerminal $ {- ... -}

信号模块可从 unix 包中获得。

如果你是偏执狂，你可以检查旧的处理程序是什么，并尝试将它合并到你的：

main = do
    mfix $ \oldHandler ->
        installHandler sigINT Nothing . CatchInfo $ \si -> case oldHandler of
            Default -> reset >> exit
            Ignore -> reset >> exit
            Catch act -> reset >> act
            CatchOnce act -> reset >> act >> exit
            CatchInfo f -> reset >> f si
            CatchInfoOnce f -> reset >> f si >> exit
    withTerminal $ {- ... -}

...或类似的东西。