¿Cuál es una forma sencilla de esperar y detectar las pulsaciones de teclas en Haskell?

Question

Soy bastante nuevo para Haskell, así que estoy buscando una forma simple de detectar pulsaciones de teclas, en lugar de usar getLine.

¡Si alguien conoce alguna biblioteca, o algún truco para hacer esto, sería genial!

Y si hay un lugar mejor para preguntar esto, por favor dirígeme allí, lo agradecería.

Answer 1

Si no desea que el bloqueo se puede utilizar hReady para detectar si una tecla ha sido presionada todavía. Esto es útil para los juegos en los que deseas que se ejecute el programa y presionar una tecla siempre que haya sucedido sin detener el juego.

Aquí hay una función de conveniencia que uso para esto:

ifReadyDo :: Handle -> IO a -> IO (Maybe a) 
ifReadyDo hnd x = hReady hnd >>= f 
    where f True = x >>= return . Just 
     f _ = return Nothing 

que puede ser utilizado como esto:

stdin `ifReadyDo` getChar 

Devolución de una Maybe que es Just si se pulsa una tecla y Nothing lo contrario.

Answer 2

import System.IO 

main :: IO() 
main = do 
    hSetBuffering stdin NoBuffering 
    x <- getChar 
    putStrLn ("You pressed: " ++ [x]) 

No sé cuándo se garantiza que esto funcione. Poner el terminal en un modo "en bruto" es un proceso dependiente del sistema. Pero funciona para mí con GHC 6.12.1 en Linux.

Answer 3

Puede usar getChar en lugar de getLine. Esto probablemente no es lo que estás buscando, pero es la manera más simple.

pressKey :: IO() 
pressKey = do x <- getChar 
       return x 

Pero hay una manera aún más simple. Sólo tiene que escribir getChar:

pressKey :: IO() 
pressKey = getChar >> putStr "I am a String" 

pressKey = putStrLn "Hi" >> getChar >> putStrLn "Bye"