Haskell: natychmiast odczytać znak wejściowy z konsoli, a nie po nowej linii

Question

Próbowałem to:

main = do 
    hSetBuffering stdin NoBuffering 
    c <- getChar 

ale czeka, aż zostanie naciśnięty, który nie jest to, co chcę wejść. Chcę przeczytać postać natychmiast po naciśnięciu jej przez użytkownika.

Używam GHC v6.12.1 na Windows 7.

EDIT: obejście dla mnie było przejście od GHC do WinHugs, która obsługuje to poprawnie.

Answer 1

Może być to błąd:

http://hackage.haskell.org/trac/ghc/ticket/2189

Poniższe powtórzenia programu Wprowadzane znaki aż klawisz Escape jest wciśnięty.

import IO 
import Monad 
import Char 

main :: IO() 
main = do hSetBuffering stdin NoBuffering 
      inputLoop 

inputLoop :: IO() 
inputLoop = do i <- getContents 
       mapM_ putChar $ takeWhile ((/= 27) . ord) i 

Ponieważ linii hSetBuffering stdin NoBuffering to nie powinno być konieczne naciśnięcie klawisza enter pomiędzy klawiszy. Ten program działa poprawnie w WinHugs (od wersji 2006). Jednak GHC 6.8.2 nie powtarza znaków, dopóki nie zostanie naciśnięty klawisz Enter. Problem był reprodukowany ze wszystkich plików wykonywalnych GHC (ghci, ghc, runghc, runhaskell), używając zarówno cmd.exe i command.com w systemie Windows XP Professional ...

Answer 2

Hmm .. Właściwie nie widzę tego funkcja jest błędem. Kiedy czytasz stdin oznacza to, że chcesz pracować z "plikiem", a po włączeniu buforowania mówisz, że nie ma potrzeby buforowania odczytu. Ale to nie znaczy, że aplikacja emulująca ten "plik" nie powinna używać bufora zapisu. Dla Linuksa, jeśli twój terminal jest w trybie "icanon", nie wysyła żadnego wejścia, dopóki nie pojawi się jakieś specjalne zdarzenie (np. Enter wciśnięty lub Ctrl + D). Prawdopodobnie konsola w systemie Windows ma kilka podobnych trybów.

Answer 3

Tak, to błąd. Oto obejście, aby zapisać ludzie klikania i przewijania:

{-# LANGUAGE ForeignFunctionInterface #-} 
import Data.Char 
import Foreign.C.Types 
getHiddenChar = fmap (chr.fromEnum) c_getch 
foreign import ccall unsafe "conio.h getch" 
    c_getch :: IO CInt 

Więc można zastąpić wywołań getChar z połączeń do getHiddenChar.

Uwaga: jest to obejście tylko dla ghc/ghci w systemie Windows. Na przykład winhugs nie ma błędu i ten kod nie działa w winhugs.

Answer 4

Pakiet dla mnie: Haskeline.

Jeśli potrzebujesz go dla pojedynczych znaków, to po prostu delikatnie zmień próbkę.

1. getInputLine staje getInputChar
2. "quit" staje 'q'
3. ++ input staje ++ [input]

main = runInputT defaultSettings loop 
    where 
     loop :: InputT IO() 
     loop = do 
      minput <- getInputChar "% " 
      case minput of 
       Nothing -> return() 
       Just 'q' -> return() 
       Just input -> do outputStrLn $ "Input was: " ++ [input] 
           loop