Haskell: leer el carácter de entrada de la consola de inmediato, no después de nueva línea

Question

He intentado esto:

main = do 
    hSetBuffering stdin NoBuffering 
    c <- getChar 

pero espera hasta que el se pulsa ENTER, que no es lo que quiero. Quiero leer el personaje inmediatamente después de que el usuario lo presiona.

estoy usando v6.12.1 GHC en Windows 7.

EDIT: solución para mí fue pasar de GHC a WinHugs, que apoya esto correctamente.

Answer 1

podría ser un error:

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

Los siguientes repeticiones del programa caracteres introducidos hasta que se pulsa la tecla de escape.

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 

Debido a la línea de entrada estándar NoBuffering hSetBuffering que no debería ser necesario pulsar la tecla enter entre las pulsaciones del teclado. Este programa funciona correctamente en WinHugs (versión sep 2006). Sin embargo, GHC 6.8.2 no repite los caracteres hasta que se presiona la tecla enter. El problema se reproduce con todos los ejecutables de GHC (ghci, GHC, runghc, runhaskell), utilizando tanto cmd.exe y command.com en Windows XP Professional ...

Answer 2

Hmm .. En realidad no puedo ver esto característica para ser un error. Cuando lee stdin eso significa que quiere trabajar con un "archivo" y cuando pasa el búfer, está diciendo que no hay necesidad de leer el búfer. Pero eso no significa que la aplicación que está emulando ese "archivo" no debería usar el buffer de escritura. Para Linux, si su terminal está en modo "icanon", no envía ninguna entrada hasta que ocurra algún evento especial (como Enter presionado o Ctrl + D). Probablemente la consola en Windows tiene algunos modos similares.

Answer 3

Sí, es un error. Aquí hay una solución para salvar a la gente y hacer clic en el desplazamiento:

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

para que pueda reemplazar las llamadas a getChar con llamadas a getHiddenChar.

Tenga en cuenta que esto es una solución para ghc/ghci en Windows. Por ejemplo, winhugs no tiene el error y este código no funciona en winhugs.

Answer 4

El paquete Haskeline funcionó para mí.

Si lo necesita para caracteres individuales, simplemente cambie la muestra ligeramente.

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