Keyboard input/Flush the keyboard buffer: Difference between revisions
Keyboard input/Flush the keyboard buffer (view source)
Revision as of 13:30, 2 March 2019
, 5 years ago→{{header|Perl 6}}: Add a Perl 6 example
(Haskell version.) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
||
Line 355:
# Don't forget to restore the readmode, when we are finished using the keyboard
ReadMode 'restore';</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|2018.12}}
Using termios to set some input attributes, flush the buffer & do unbuffered reads. Longer than strictly necessary to demonstrate concepts and make it easy to verify that it actually works as advertised.
<lang perl6>use Term::termios;
constant $saved = Term::termios.new( :fd($*IN.native-descriptor) ).getattr;
constant $termios = Term::termios.new( :fd($*IN.native-descriptor) ).getattr;
# set some modified input flags
$termios.unset_iflags(<BRKINT ICRNL ISTRIP IXON>);
$termios.unset_lflags(< ECHO ICANON IEXTEN>);
$termios.setattr(:DRAIN);
# reset terminal to original settings on exit
END { $saved.setattr(:NOW) }
# Sleep for a few seconds to give you time to fill the input buffer,
# type a bunch of random characters.
sleep 2;
# ------- The actual task --------
# Flush the input buffer
$termios.setattr(:FLUSH);
# --------------------------------
# Ctrl-C to exit
loop {
# Read up to 5 bytes from STDIN
# F5 through F12 are 5 bytes each
my $keypress = $*IN.read: 5;
# print the ordinals of the keypress character
print $keypress.decode.ords;
print "|";
}</lang>
=={{header|Phix}}==
| |||