perl6 – 从Native指针中获取数据

sub memcpy( Pointer[void] $source,Pointer[void] $destination,int32 $size ) is native { * };
my Blob $blob = Blob.new(0x22,0x33);
my Pointer[void] $src-memcpy = nativecast(Pointer[void],$blob);
my Pointer[void] $dest-memcpy = malloc( 32 );
memcpy($src-memcpy,$dest-memcpy,2);
my Pointer[int] $inter = nativecast(Pointer[int],$dest-memcpy);
say $inter; # prints NativeCall::Types::Pointer[int]<0x4499560>

但是,除了创建一个函数之外,我认为没有办法让它们脱离Pointer [int],因为nativecast显然在相反的方向上工作,或者至少不是在向非本地类型的方向投射(它的名字应该很明显).你会怎么做？

更新：例如,使用数组会使其更加可行.然而

my $inter = nativecast(CArray[int16],$dest);
.say for $inter.list;

这有效,但产生错误：不知道C数组从库返回了多少元素

更新2：继Christoph’s answer之后(谢谢！),我们可以对此进行更多细化,然后我们将这些值重新纳入Buf

sub malloc(size_t $size --> Pointer) is native {*}
sub memcpy(Pointer $dest,Pointer $src,size_t $size --> Pointer) is native {*}

my $blob = Blob.new(0x22,0x33);
my $src = nativecast(Pointer,$blob);
my $dest = malloc( $blob.bytes );
memcpy($dest,$src,$blob.bytes);
my $inter = nativecast(Pointer[int8],$dest);

my $cursor = $inter;

my Buf $new-blob .= new() ;
for 1..$blob.bytes {
    $new-blob.append: $cursor.deref;
    $cursor++;
}

say $new-blob;

我们需要将指针强制转换为缓冲区使用的完全相同的类型,然后we use pointer arithmetic将其运行.但是,我们使用$blob.bytes来知道何时结束循环,而且它仍然是一种hacky.会有更直接的方式吗？或者只是一种使用Bufs / Blob的方式,以便它们可以轻松地复制到Native领域并返回？