Qu'est-ce qu'un moyen simple d'attendre puis de détecter les touches dans Haskell?

Question

Je suis un nouveau venu chez Haskell, donc je cherche un moyen simple de détecter les touches au lieu d'utiliser getLine.

Si quelqu'un connaît des bibliothèques, ou un truc pour faire cela, ce serait génial!

Et s'il y a un meilleur endroit pour poser cette question, s'il vous plaît me diriger là, je l'apprécierais.

Answer 1

Si vous ne voulez pas bloquer, vous pouvez utiliser hReady pour détecter si une clé est encore enfoncée. Ceci est utile pour les jeux où vous voulez que le programme s'exécute et ramasse une touche lorsque cela s'est produit sans interrompre la partie.

est ici une fonction de commodité, je l'utilise pour cela:

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

qui peut être utilisé comme ceci:

stdin `ifReadyDo` getChar 

De retour d'un Maybe qui est Just si une touche a été pressée et Nothing autrement.

Answer 2

import System.IO 

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

Je ne sais pas quand cela fonctionnera. Mettre le terminal dans un mode «brut» est un processus dépendant du système. Mais ça marche pour moi avec GHC 6.12.1 sous Linux.

Answer 3

Vous pouvez utiliser getChar au lieu de getLine. Ce n'est probablement pas ce que vous cherchez, mais c'est le moyen le plus simple.

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

Mais il existe un moyen encore plus simple. Il suffit d'écrire getChar:

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

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