read.pl

my Mu $PIO;

sub read(Cool $bufsize as Int) {
    my $res = buf8.new();
    repeat {
        my $buf := buf8.new();
        nqp::readfh($PIO, $buf, nqp::unbox_i($bufsize - $res.elems));
        $res ~= $buf;
    } while $res.elems < $bufsize && $buf.elems;
    $res;
}