Как читать в Haskell без перевода на следующую строку?

Question

Я пытаюсь использовать readline в Haskell без переноса курсора на следующую строку.

Например, я написал следующий код:

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 - как при нажатии любого другого ke y - печатается на экране. Вы можете отключить это поведение с 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