Question

我是XS的初学者，花了一些时间在网上寻找这个答案而没有运气。问题是XS更改了函数的名称，当它进行编译时，我将得到一个未定义的引用错误。例如，考虑下面的XS代码：

size_t 
matrixIndex (colIndex, rowIndex,nCols,nRows)
      size_t colIndex
      size_t rowIndex
      size_t nCols
      size_t nRows
    CODE:
    size_t register i;
    RETVAL = (rowIndex * nCols) + colIndex;
    OUTPUT:
        RETVAL

然后我尝试在以下函数中使用它，如下所示

int
matrixCopyColumnVector_dbl (colIndex,fromMatrix,nColsMatrix,nRowsMatrix,intoVector,nRowsVector)
      size_t colIndex
      SV * fromMatrix
      size_t nColsMatrix
      size_t nRowsMatrix
      SV * intoVector
      size_t nRowsVector
    CODE:
      size_t register x, n;
      if( nRowsVector != nRowsMatrix) { RETVAL = 0; return RETVAL; }
      n = 0;
      for(x=0; x<= nRowsMatrix; x++) {
         intoVector[n] = fromMatrix[matrixIndex /*USE OF FUNCTION HERE!!*/(colIndex,x,nColsMatrix,nRowsMatrix)];
         n++;
      }
      RETVAL = 1;
      return RETVAL;
    OUTPUT:
       RETVAL

然后我运行make并进行编译过程，我在undefined reference to 'matrixIndex'的链接阶段出现错误。

所以我想知道在同一个XS文件中调用函数的标准XS方法是什么？

Answer 1

XS代码创建 Perl 潜艇。所以调用XS函数与calling任何其他Perl子函数相同。

不是处理那种复杂性和低效率，而是创建一个C函数而不是Perl sub。（如果需要，可以使用XS独立公开该C函数。）

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

static UV matrixIndex(UV colIndex, UV rowIndex, UV nCols, UV nRows) {
    return (rowIndex * nCols) + colIndex;
}

MODULE = Foo::Bar  PACKAGE = Foo::Bar

int
matrixCopyColumnVector_dbl(colIndex, fromMatrix, nColsMatrix, nRowsMatrix, intoVector, nRowsVector)
    UV colIndex
    SV * fromMatrix
    UV nColsMatrix
    UV nRowsMatrix
    SV * intoVector
    UV nRowsVector
PREINIT:
    UV register x, n;
CODE:
    if (nRowsVector == nRowsMatrix) {
        RETVAL = 0;
    } else {
        n = 0;
        for (x=0; x<=nRowsMatrix; x++) {
            intoVector[n] = fromMatrix[matrixIndex(colIndex, x, nColsMatrix, nRowsMatrix)];
            n++;
        }
        RETVAL = 1;
    }
OUTPUT:
    RETVAL

您对return的使用不正确。如果您想提前返回，请使用XSRETURN*宏之一。

fromMatrix[...]和intoVector[...]完全错误。 fromMatrix和intoVector是C数组。（它们甚至不是Perl阵列，而不是相关的。）

Perl整数的大小为IV（或UV为无符号），不一定是size_t。使用它们以获得最佳兼容性。

如果您想要便携性，则不能假设C99，因此您无法混合声明和代码。您需要在PREINIT中放置声明（或使用CODE中的curlies为变量声明创建新范围。）

Answer 2

XSUB不是C函数。 XS预处理器确实从您的声明中创建了一个C函数，但它具有签名void (CV*)。然后，XSUB从Perl参数堆栈中获取参数，并使用您的类型映射将它们转换为C值。因此无法直接调用您的XSUB。

相反，您必须像调用任何其他Perl函数一样调用XSUB，即将参数作为SV*推送到堆栈上。有关详细信息，请参阅perldoc perlcall。显然，这是乏味且低效的。

更好的解决方案是将您想要在Perl和XS中使用的所有函数声明为XS文件中的static C函数，然后编写XS粘合代码以将其公开给Perl。这里：

static size_t matrixIndex(size_t colIndex, size_t rowIndex, size_t nCols, size_t nRows)
{
    size_t register i;  // unneeded
    return (rowIndex * nCols) + colIndex;
}

请注意，如果此函数使用Perl API的任何部分，那么您还应该使用pTHX和aTHX宏。声明变为

static size_t matrixIndex(pTHX_ size_t colIndex, etc...) ...

当从C调用它时，你会写matrixIndex(aTHX_ colIndex, etc...)。

perl xs模块写入 - 在同一个xs文件中使用另一个函数

2 个答案: