Start of a CStructArray module

gistfile1.txt

use NativeCall;

class foo is repr('CStruct')
{
    has int32 $.a is rw;
    has int64 $.b is rw;
}

sub calloc(size_t, size_t --> Pointer) is native {}
sub free(Pointer) is native {}


role CStructArray[::cstruct] does Positional
{
    has Pointer $.base;
    has Int $.size;

    method new(int $size)
    {
        my $base = calloc($size, nativesizeof(cstruct)) // die "Out of Memory";
        self.bless(:$size, :$base);
    }

    submethod DESTROY()
    {
        free($_) with $!base;
    }

    method AT-POS(Int $field where 0 <= $field < $!size )
    {
        nativecast(cstruct, Pointer.new($!base + $field * nativesizeof(cstruct)))
    }
}

my $array = CStructArray[foo].new(5);

$array[1].a = 12;

say $array[1].a;