.pm6

use v6.c;

use NativeCall;

module IO::PipeCreation {
    sub native-pipe(CArray[int32] --> int32) is native is symbol("pipe") {*}

    sub pipe is export {
        my @endpoints := CArray[int32].new;
        @endpoints[1] = 0;
        fail 'unable to create pipe' if native-pipe(@endpoints) != 0;
        my $r = open("/proc/self/fd/@endpoints[0]", :r, :bin);
        my $w = open("/proc/self/fd/@endpoints[1]", :w, :bin);
        ($r, $w);
    }
}