Perl xs - 无法从方法调用返回新的自定义 C++ 对象 - 改为返回标量值

perl xs - can't return a new custom c++ object from method call - returns scalar value instead

本文关键字：返回 对象 C++ 自定义 标量 方法 Perl 调用 xs      更新时间：2023-10-16

在我的XS文件中，我有：

作为我的新方法：

matrix *
matrix::new( size_t ncols, size_t nrows )

它返回一个CCD_ 1对象，我可以调用方法。

然后我有一个方法调用，它创建了一个新的矩阵对象，并将其作为一个新矩阵返回：

matrix *
matrix::getInnerMatrix( )
PREINIT:
char *  CLASS = (char *)SvPV_nolen(ST(0));
CODE:
RETVAL = static_cast<matrix*>(THIS->matrix::getInnerMatrix());
OUTPUT:
RETVAL

然而，返回的类型是matrix=SCALAR(0x122f81c)，因此我无法从该对象调用任何方法调用，因为perl解释器似乎将返回的类型视为标量值类型，而不是"matrix"对象。这是一个测试脚本：

$m1 = matrix::new(matrix,4,4);
@arr = ( 1 .. 16 );
$aref = [@arr];
$m1->assign_aref($aref);
my $m2 = $m1->getInnerMatrix();
print ref $m1; # returns "matrix" (like it should)
print "nn";
print ref $m2; # returns "matrix=SCALAR(0x122f81c)" (wrong)

这是我的打字图：

TYPEMAP
matrix *        O_MATRIX
OUTPUT
O_MATRIX
sv_setref_pv( $arg, CLASS, (void*)$var );
INPUT
O_MATRIX
if ( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) ) {
$var = ($type)SvIV((SV*)SvRV( $arg ));
}
else {
warn( "${Package}::$func_name() -- ${var} not a blessed SV reference" );
XSRETURN_UNDEF;
}

为了确保返回纯matrix对象，我必须对XS文件或任何其他文件进行哪些更改？

在C++中使用XS时，XS预处理器会为实例方法插入THIS，为静态方法插入CLASS。称为new的方法被视为静态方法。这允许生成的xsubs在默认情况下用作实例方法/类方法：matrix->new和$m->getInnerMatrix()。

您的类型映射使用CLASS变量，该变量不是为实例方法提供的。在您的情况下，我会在类型映射中硬编码包名称：

OUTPUT
O_MATRIX
sv_setref_pv( $arg, "matrix", (void*)$var );

当该类型的参数未用作调用程序时，也会使用typemap。例如，考虑这个xsub:

matrix*
some_other_xsub(x)
int x

在这里，matrix1返回值也不会有CLASS变量。

请注意，小写的包名称应仅用于杂注包(如strict或warnings)。请在课堂上使用CamelCase。

您为CLASS提供自己的值的尝试失败，因为SvPV_nolen()字符串提供了引用，但没有获得引用类型。即它相当于"$m"，而不是ref $m。一个更正确的替代方案是使用sv_ref():

char* CLASS = SvPV_nolen(sv_ref(NULL, THIS, true));

sv_ref()的第三个参数使该函数的工作方式类似于Perl函数ref，即如果标量是幸运的，则返回类名，而不仅仅是底层引用类型。

相关文章：