NativeCall questions

Hello,

I'm porting some personal perl5 scripts to Raku, and  one of those
scripts  is using Inline::C.

The inline::c code would contain a function with the signature:

AV* encode(unsigned char* data, size_t data_size)

Description of the parameters on the original perl script:
data -> binary string (the value comes from read $FH)
data_size -> size in bytes of binary_string (the value comes from the
return of the read function)

And it would return an array with two values (a binary string and its crc32):

"""
SV* enc_string = newSVpv(buffer, 0);
SV* ret = sv_2mortal(newAV());
av_push(ret, enc_string);
SV* hex_string = newSVpv(hex_number, 0);
av_push(ret, hex_string);
free(hex_number);
return ret;
"""


Now for using it in raku, i'm changing  the return value to a struct:
typedef struct{
  unsigned char* data;
  uint32_t crc32;
} EncodedData;

So i changed the signature to:
EncodedData encode(unsigned char* data, size_t data_size)

And i'm returning the struct:
"""
EncodedData ed;
ed.crc32 = crc32;
ed.data = encbuffer;

return ed;
"""

Create a shared lib gcc -shared -olibmylib.so mylib.c

Now on my raku script i did:
"""
class EncodedData is repr('CStruct') {
    has uint32 $.crc32;
    has str $.data;
}

sub MAIN() {
    sub encode(str $data, size_t $size --> EncodedData) is
native('lib/MyLib/libmylib.so') {*};
    my EncodedData $ed = encode("this is my string that will be
encoded", "this is my string that will be encoded".chars );
    say $ed.crc32.base(16);
    say $ed.data;
}
"""
However this isn't working. Everytime i access "$ed.data" I'm getting
the following error:
"fish: 'raku bin/uints.p6' terminated by signal SIGSEGV (Address
boundary error)"

Why? How do i fix it?

Also the read method from the IO::Handle returns a Buf. I would like
to pass it directly to my C function. Is there any change in the
C/raku code i should do?
The data field from class EncodedData is type "str". Should it be
CArray[uint8] instead?

Best regards,
David Santiago

• NativeCall questions by David Santiago
• Re: NativeCall questions by Curt Tilmes
• Re: NativeCall questions by David Santiago
• Re: NativeCall questions by Curt Tilmes
• Re: NativeCall questions by David Santiago
• Re: NativeCall questions by Tobias Boege
• Re: NativeCall questions by David Santiago
• Re: NativeCall questions by Timo Paulssen