haskell - 如何在Haskell中读取行而不转移到下一行？

Question

我尝试在 Haskell 中使用 readline，而不将光标转移到下一行。

例如，我编写了以下代码:

readEvalPrintLoop :: IO()
readEvalPrintLoop = do
    line <- getLine
    case line of
            "bye" -> return ()
            line   -> do putStrLn $ interpret line
                         readEvalPrintLoop

启动程序后:

> 1 2 + . <enter>
3

但我想找到获得关注的最简单方法:

> 1 2 + . <enter> 3

Answer 1

当您按 Enter 时(就像按任何其他键一样)，它会打印到屏幕上。您可以使用 hSetEcho 关闭此行为:

main = do
    hSetEcho stdin False
    readEvalPrintLoop

但是，如果您这样做，您会发现这会带来一些附带损害:输入不再回显，但您输入的任何其他内容也不再回显，因此看起来您输入的所有内容都是不可见的!您可以通过手动实现修改后的回显策略来解决此问题。您需要做两件事:使用 hSetBuffering 将输入流设置为无缓冲模式。 (以便您立即收到输入，而不是在行尾)并打印收到的每个非输入字符。所以:

myGetLine :: IO String
myGetLine = do
    c <- getChar
    case c of
        '\n' -> return "" -- don't echo newlines
        _ -> do
            putChar c -- do echo everything else
            fmap (c:) myGetLine

readEvalPrintLoop :: IO()
readEvalPrintLoop = do
    line <- myGetLine -- getLine changed to myGetLine
    case line of
            "bye" -> return ()
            line   -> do putStrLn $ interpret line
                         readEvalPrintLoop

main = do
    hSetEcho stdin False
    hSetBuffering stdin NoBuffering
    readEvalPrintLoop