Rand Stats




termios routines for Raku

use Term::termios;

# Save the previous attrs
my $saved_termios := Term::termios.new(fd => 1).getattr;

# Get the existing attrs in order to modify them
my $termios := Term::termios.new(fd => 1).getattr;

# Set the tty to raw mode

# You could also do the same in the old-fashioned way
$termios.unset_iflags(<BRKINT ICRNL ISTRIP IXON>);
$termios.unset_lflags(<ECHO ICANON IEXTEN ISIG>);

# Set the modified atributes, delayed until the buffer is emptied

# Loop on characters from STDIN
loop {
    # Read single bytes until the buffer can be decoded as UTF-8.
    my $buf = Buf.new;
    repeat {
    } until try my $c = $buf.decode;
    print "got: " ~ $c.ord ~ "\r\n";
    last if $c eq 'q';

# Restore the saved, previous attributes before exit

See the manpage termios(3) for information about the flags.