XS:将外部库的函数传递给 Perl XS 回调
XS: Passing an external library's function a Perl XS callback
免责声明:在 perlmonks 询问过。
我希望我正确地描述和描述了我的问题...在 XS 中,我试图将回调发送到外部库的函数,其中回调具有 Perl 特定的函数。 XSUB 作为函数指针传递给外部 C 函数。依次发送的 XSUB 回调会回调到 `main` perl 应用程序中的子程序:
void callback(){
dSP;
PUSHMARK(SP);
call_pv("p_callback", G_DISCARD|G_NOARGS);
}
// example extern call
externFunc(&callback);
这个段错误。我认为这是因为外部库不理解正在调用的 perl 函数。如果我直接调用 C `callback()` 函数,一切正常。
是否有什么魔法可以让外部库 "see" 成为 Perl C 函数,还是我做错了什么?
这是我正在测试的代码:
use warnings;
use strict;
use Inline ('C' => 'DATA', libs => '-lwiringPi');
init();
setInterrupt(27, 3);
# direct call
callback();
# on() triggers the external function and sends
# it the callback
on(27);
sub p_callback {
print "in perl callback\n";
}
__DATA__
__C__
#include <stdlib.h>
#include <stdio.h>
#include <wiringPi.h>
void init();
void on(int pin);
void off(int pin);
void setInterrupt(int pin, int edge);
void callback();
void init(){
printf("in init\n");
wiringPiSetup();
}
void on(int pin){
pinMode(pin, 1);
digitalWrite(pin, 1);
}
void off(int pin){
digitalWrite(pin, 0);
pinMode(pin, 0);
}
void setInterrupt(int pin, int edge){
wiringPiISR(pin, edge, &callback);
}
void callback(){
dSP;
PUSHMARK(SP);
call_pv("p_callback", G_DISCARD|G_NOARGS);
}
输出:
in init
in perl callback
Segmentation fault
如果我从回调中删除特定于 perl 的 C 调用并只执行 `printf()` 或其他纯 C 工作,事情将在没有段错误的情况下进行。
刚刚遇到这个问题,我想我会给出我自己的答案,因为我之前已经解决了它。
我在设置 Perl 上下文以及 C exec_perl_callback()
函数中遗漏了一些重要的位。
use warnings;
use strict;
use Inline 'C';
use Inline 'NoClean';
sub p_callback {
print "hello, world from perl!\n";
}
exec_perl_callback('p_callback');
__END__
__C__
#define PERL_NO_GET_CONTEXT
PerlInterpreter * mine;
void callback(char* perl_callback){
PERL_SET_CONTEXT(mine);
dSP;
ENTER;
SAVETMPS;
PUSHMARK(SP);
PUTBACK;
exec_perl_callback(perl_callback, G_DISCARD|G_NOARGS);
FREETMPS;
LEAVE;
}
输出:
hello world, from perl!
免责声明:在 perlmonks 询问过。
我希望我正确地描述和描述了我的问题...在 XS 中,我试图将回调发送到外部库的函数,其中回调具有 Perl 特定的函数。 XSUB 作为函数指针传递给外部 C 函数。依次发送的 XSUB 回调会回调到 `main` perl 应用程序中的子程序:
void callback(){
dSP;
PUSHMARK(SP);
call_pv("p_callback", G_DISCARD|G_NOARGS);
}
// example extern call
externFunc(&callback);
这个段错误。我认为这是因为外部库不理解正在调用的 perl 函数。如果我直接调用 C `callback()` 函数,一切正常。
是否有什么魔法可以让外部库 "see" 成为 Perl C 函数,还是我做错了什么?
这是我正在测试的代码:
use warnings;
use strict;
use Inline ('C' => 'DATA', libs => '-lwiringPi');
init();
setInterrupt(27, 3);
# direct call
callback();
# on() triggers the external function and sends
# it the callback
on(27);
sub p_callback {
print "in perl callback\n";
}
__DATA__
__C__
#include <stdlib.h>
#include <stdio.h>
#include <wiringPi.h>
void init();
void on(int pin);
void off(int pin);
void setInterrupt(int pin, int edge);
void callback();
void init(){
printf("in init\n");
wiringPiSetup();
}
void on(int pin){
pinMode(pin, 1);
digitalWrite(pin, 1);
}
void off(int pin){
digitalWrite(pin, 0);
pinMode(pin, 0);
}
void setInterrupt(int pin, int edge){
wiringPiISR(pin, edge, &callback);
}
void callback(){
dSP;
PUSHMARK(SP);
call_pv("p_callback", G_DISCARD|G_NOARGS);
}
输出:
in init
in perl callback
Segmentation fault
如果我从回调中删除特定于 perl 的 C 调用并只执行 `printf()` 或其他纯 C 工作,事情将在没有段错误的情况下进行。
刚刚遇到这个问题,我想我会给出我自己的答案,因为我之前已经解决了它。
我在设置 Perl 上下文以及 C exec_perl_callback()
函数中遗漏了一些重要的位。
use warnings;
use strict;
use Inline 'C';
use Inline 'NoClean';
sub p_callback {
print "hello, world from perl!\n";
}
exec_perl_callback('p_callback');
__END__
__C__
#define PERL_NO_GET_CONTEXT
PerlInterpreter * mine;
void callback(char* perl_callback){
PERL_SET_CONTEXT(mine);
dSP;
ENTER;
SAVETMPS;
PUSHMARK(SP);
PUTBACK;
exec_perl_callback(perl_callback, G_DISCARD|G_NOARGS);
FREETMPS;
LEAVE;
}
输出:
hello world, from perl!