Как передать пользовательские данные в функцию обратного вызова

Я не уверен, как передать Buf в качестве пользовательских данных, поскольку Buf не является родным типом. Но вместо этого вы можете использовать, например, CStruct:

class UserData is repr('CStruct') {
    has int32 $.dummy;
}

Тогда объявление будет таким:

sub exif_content_foreach_entry(
    ExifContent $exifcontent, 
    &func (ExifEntry $entry, UserData $data),
    UserData $user_data) is native(LIB) is export { * }

И обратный вызов может быть объявлен и определен, например:

sub my-callback (ExifEntry $entry, UserData $data) {
    say "In callback";
    say "Value of data: ", $data.dummy;
}

Изменить:

Вот обходной путь для передачи типа Perl 6, такого как Buf (т. е. не собственного типа), в обратный вызов с помощью замыкания. Например:

my $buf = Buf.new( 1, 2, 3);
my $callback = my sub (ExifEntry $entry, UserData $data) {
    my-callback( $entry, $buf);
}

Затем объявите настоящий обратный вызов my-callback следующим образом:

sub my-callback (ExifEntry $entry, Buf $data) {
    say "In callback";
    say "Value of data: ", $data;
}

И вызовите библиотечную функцию следующим образом:

exif_content_foreach_entry( $content, &$callback, $data );

Я понимаю, что это старый вопрос, и вы, вероятно, давно реализовали обходные пути, но в интересах других с похожей проблемой я опубликую свой ответ сейчас.

Мне приходилось делать это несколько раз для разных интерфейсов библиотеки NativeCall, поэтому я решил упаковать его в модуль NativeHelpers::Callback.

Он предоставляет несколько простых методов для связывания объекта Perl с CPointer и легкого поиска его внутри функции обратного вызова.

Все это не проверено, но что-то вроде этого должно работать для вашего случая:

use NativeHelpers::Callback :cb;                                                

class ExifEntry is repr('CPointer') { ... }                                     

sub exif_content_foreach_entry(ExifContent $exifcontent,                        
    &func (ExifEntry $entry, int64), int64) is native(LIB) is export { * }      

class MyPerlObject {                                                            
    has $.entry;                                                                
    has Buf $.buf;                                                              
    ...                                                                         
}                                                                               

sub MyCallBack(ExifEntry $entry, int64 $id) {                                   
    my MyPerlObject $object = cb.lookup($id);
    ... do stuff with $object ...                                   
}                                                                               

my ExifEntry $entry = ...;                                                      

my MyPerlObject $object = MyPerlObject.new(:$entry, buf => ...);                
cb.store($object, $entry);                                                      
exif_content_foreach_entry($exifcontent, &MyCallBack, cb.id($entry));