8

我正在学习如何从 Perl 调用 C++ 代码并开始尝试从 Perl 脚本创建一个基本的 C++ 对象。

为此，我首先执行以下h2xs命令：

h2xs -A -nMyClass

然后我将以下两个参数添加到生成Makefile.PL的以使用g++编译器。

CC => 'g++',
LD => 'g++',

我在文件中创建了我的简单类.xs并编写了 XS 代码以将其映射到 Perl

MyClass.xs

#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#ifdef __cplusplus
}
#endif

class MyClass {
public:
    MyClass(int value) {
        value_ = value;
    }
    ~MyClass() {}

    int value() { return value_; }

    void set_value(int value) {
        value_ = value;
    }
private:
    int value_;
};

MODULE = MyClass                PACKAGE = MyClass

MyClass *
MyClass::new(int value)

void
MyClass::DESTROY()

int
MyClass::value()

void
MyClass::set_value(int value)

然后我创建了类型映射文件以将新类型映射到 Perl。

类型图

TYPEMAP

MyClass *       O_OBJECT

######################################################################
OUTPUT

# The Perl object is blessed into 'CLASS', which should be a
# char* having the name of the package for the blessing.
O_OBJECT
        sv_setref_pv( $arg, CLASS, (void*)$var );

######################################################################
INPUT

O_OBJECT
        if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
                $var = ($type)SvIV((SV*)SvRV( $arg ));
        else{
                warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
                XSRETURN_UNDEF;
        }

最后我创建了一个简单的测试。

t/MyClass.t

use Test::More tests => 2;
BEGIN { use_ok('MyClass') };

my $obj = MyClass->new(1);
ok($obj->isa('MyClass'), 'MyClass object constructed');

然后我成功地构建了代码并运行了测试。

perl Makefile.PL
make
make test

尽管一切正常，但我在构建时收到了一些警告：

MyClass.c: In function 'void XS_MyClass_new(PerlInterpreter*, CV*)':
MyClass.c:95: warning: unused variable 'Perl___notused'
MyClass.c: In function 'void XS_MyClass_DESTROY(PerlInterpreter*, CV*)':
MyClass.c:119: warning: unused variable 'Perl___notused'
MyClass.c: In function 'void XS_MyClass_value(PerlInterpreter*, CV*)':
MyClass.c:145: warning: unused variable 'Perl___notused'
MyClass.c: In function 'void XS_MyClass_set_value(PerlInterpreter*, CV*)':
MyClass.c:174: warning: unused variable 'Perl___notused'
MyClass.c: In function 'void boot_MyClass(PerlInterpreter*, CV*)':
MyClass.c:203: warning: unused variable 'Perl___notused'

我到处搜索试图找到这些警告的原因，但无法弄清楚发生了什么。所有警告似乎都来自每个函数定义开头出现的代码中相同的重复部分。

在 MyClass.c 中

XS(XS_MyClass_new); /* prototype to pass -Wmissing-prototypes */
XS(XS_MyClass_new)
{
#ifdef dVAR
    dVAR; dXSARGS; // <-- warning occurs here
#else
    dXSARGS;
#endif
    // function body continues...

有人可以告诉我这些警告的根本原因吗？

我正在使用 Perl v5.10.1 和 g++ 版本 4.4.7

4

1 回答 1

1

解决方案是使用更新版本的 Perl。v5.10.1 已经非常过时了，这些问题在以后的版本中不会出现。

我正在发布我自己问题的答案，因为它在评论中得到了回答，但从未发布过官方答案。

于 2018-01-24T14:17:38.460 回答