Question

有一个C函数可以将一些字符串返回给提供的指针：

void    snmp_error(netsnmp_session *sess, int *clib_errorno,
                       int *snmp_errorno, char **errstring);

Perl6版本是：

sub snmp_error(Snmp-session, int32 is rw, int32 is rw, Str is rw) is native("netsnmp") { * };

snmp_error($sess, my int32 $errno, my int32 $liberr, my Str $errstr);
say $errno, " ", $liberr, " ", $errstr;

它返回正确的整数但不是字符串：

0 -3（Str）

这只是一个错误或者出了什么问题吗？

perl6 -v
This is Rakudo version 2016.12 built on MoarVM version 2016.12
implementing Perl 6.c.

同样在

This is Rakudo version 2017.09 built on MoarVM version 2017.09.1
implementing Perl 6.c.

Answer 1

当我与同样的问题搏斗时，我翻译了这个：

gboolean notify_get_server_info (char **ret_name,
                                 char **ret_vendor,
                                 char **ret_version,
                                 char **ret_spec_version);

进入这个：

sub notify_get_server_info(Pointer[Str] $name is rw,
                           Pointer[Str] $vendor is rw,
                           Pointer[Str] $version is rw,
                           Pointer[Str] $spec_version is rw --> int32)
                           is native(LIB) { * }

对我有用。

Answer 2

我认为这是一个错误（或者更可能还没有完全实现）。

请参阅此处的答案以了解一些解决方法： Passing pointer to pointer in Perl 6 Nativecall

Answer 3

Fernando Santagata的方法按预期工作：

sub snmp_error(Snmp-session, int32 is rw, int32 is rw, Pointer[Str] is rw) is native("netsnmp") { * };

my $e = Pointer[Str].new;
snmp_error($sess, my int32 $errno, my int32 $liberr, $e);
say "syserr=$errno liberr=$liberr error=", $e.deref;

NativeCall。如何将字符串作为C函数的参数

3 个答案: