Haskell: Eingabezeichen von der Konsole sofort lesen, nicht nach Newline

Question

Ich habe diese versucht:

main = do 
    hSetBuffering stdin NoBuffering 
    c <- getChar 

aber es wartet, bis die Eingabe gedrückt wird, was nicht das, was ich will. Ich möchte das Zeichen sofort lesen, nachdem der Benutzer es gedrückt hat.

Ich verwende ghc v6.12.1 auf Windows 7.

EDIT: Abhilfe für mich von GHC zu WinHugs bewegte, was dies richtig unterstützt.

Answer 1

könnte ein Fehler sein:

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

Folgende Programmwiederholungen eingegebenen Zeichen, bis die Escape-Taste gedrückt wird.

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 

Wegen der hSetBuffering stdin NoBuffering Linie ist es nicht notwendig sein sollte, die Enter-Taste zwischen den Tastenanschlägen zu drücken. Dieses Programm funktioniert korrekt in WinHugs (sep 2006 Version). GHC 6.8.2 wiederholt jedoch die Zeichen nicht, bis die Eingabetaste gedrückt wird. Das Problem wurde mit allen GHC ausführbaren Dateien wiedergegeben (GHCI, ghc, runghc, runhaskell), die beide cmd.exe mit und command.com unter Windows XP Professional ...

Answer 2

Hmm .. Eigentlich kann ich das nicht sehen Feature ein Fehler sein. Wenn Sie stdin lesen, bedeutet das, dass Sie mit einer "Datei" arbeiten möchten, und wenn Sie die Pufferung ausschalten, sagen Sie, dass kein Lesepuffer benötigt wird. Aber das bedeutet nicht, dass die Anwendung, die diese "Datei" emuliert, keinen Schreibpuffer verwenden sollte. Für Linux, wenn Ihr Terminal im "icanon" -Modus ist, sendet es keine Eingabe, bis ein spezielles Ereignis eintritt (wie Eingabe gedrückt oder Strg + D). Wahrscheinlich Konsole in Windows haben einige ähnliche Modi.

Answer 3

Ja, es ist ein Fehler. Hier ist eine Abhilfe Leute speichern Klicken und Scrollen:

{-# 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 

So können Sie Anrufe auf getChar mit Aufrufen an getHiddenChar ersetzen.

Beachten Sie, dass dies eine Problemumgehung nur für ghc/ghci unter Windows ist. Zum Beispiel hat winhugs den Fehler nicht und dieser Code funktioniert nicht in winhugs.

Answer 4

Das Haskeline Paket funktionierte für mich.

Wenn Sie es für einzelne Zeichen benötigen, dann ändern Sie einfach die Probe leicht.

1. getInputLine wird getInputChar
2. "quit"'q'
3. ++ input++ [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