Keyboard input/Flush the keyboard buffer: Difference between revisions

=={{header|FreeBASIC}}==

<lang freebasic>' FB 1.05.0 Win64

' Get characters from the keyboard buffer until there are none left

While Inkey <> "" : Wend

Print "Keyboard buffer flushed"

Sleep</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>