Anonymous user
Keyboard input/Flush the keyboard buffer: Difference between revisions
Keyboard input/Flush the keyboard buffer (view source)
Revision as of 02:55, 1 March 2019
, 5 years agoHaskell version.
Thundergnat (talk | contribs) m (→{{header|Ring}}: Remove vanity tags) |
(Haskell version.) |
||
Line 210:
Print "Keyboard buffer flushed"
Sleep</lang>
=={{header|Haskell}}==
This relies upon POSIX terminal support.
<lang haskell>import Control.Concurrent (threadDelay)
import Control.Monad (when)
import System.IO (hFlush, stdout)
import System.Posix
-- If the file descriptor is associated with a terminal, then flush its input,
-- otherwise do nothing.
termFlush :: Fd -> IO ()
termFlush fd = do
isTerm <- queryTerminal fd
when isTerm $ discardData fd InputQueue
main :: IO ()
main = do
putStrLn "Type some stuff...\n"
threadDelay $ 3 * 1000000
putStrLn "\n\nOk, stop typing!\n"
threadDelay $ 2 * 1000000
termFlush stdInput
putStr "\n\nType a line of text, ending with a newline: "
hFlush stdout
line <- getLine
putStrLn $ "You typed: " ++ line
termFlush stdInput</lang>
=={{header|i}}==
| |||