Re^5: Perl XS binding to a struct with an array of chars*

Select or download this

struct _Edje_Message_String_Set
{
   int count;
   AV * str;
};

Select or download this

# struct.pl #
use strict;
...
# Finally, foo() calls DESTROY() which frees the memory that
# was assigned to create the EdjeMessageStringSet object.
foo(\@in);

Select or download this

Size of _Edje_Message_String_Set struct: 16
hello foo
...
hello world
goodbye
destroyed _new EdjeMessageStringSet*

Select Code to Download