fdopen

#!/usr/bin/env perl6
use v6;
use Term::termios;
use NativeCall;

class FILE is repr('CPointer') {
    sub fdopen(Int, Str) returns FILE is native { * }
    method new(Int $fd) {
        fdopen($fd, "r");
    }

    sub getc(FILE) returns uint8 is native { * }
    method getc() returns uint8 {
        getc(self);
    }
}

my $saved_termios := Term::termios.new(fd => $*IN.native-descriptor).getattr;
my $termios := Term::termios.new(fd => $*IN.native-descriptor).getattr;
$termios.makeraw;
$termios.setattr(:DRAIN);


loop {
   my $c = $*IN.getc();

   print "got: " ~ $c.ord ~ "\r\n";
   last if $c eq 'q';
}

$saved_termios.setattr(:DRAIN);