3

我目前正在编写我的第一个 XS 模块（只是 C 数学库的一个包装器）并取得了不错的成功。最大的问题是文档很难理解和/或不完整。

我已经成功地在 XS 中编写了一个构造函数，并从库中实现了一些函数作为方法调用。这很好用。

现在我也想实现一个过程接口。出于这个原因，我需要知道它是否是一个方法调用。如果它是一个方法调用，则用函数计算的数字存储在实例中，如果它是对函数的过程调用，它的数字作为第一个参数给出。这是余弦函数的当前代码：

double
cos(...)
    CODE:
        SV *arg = newSVsv(ST(0));
        if (sv_isobject(arg)) {
            HV *self_hv = MUTABLE_HV(SvRV(arg));
            SV **callback_ptr = hv_fetchs(self_hv, "Number", 0);
            SV *zahl = *callback_ptr;
        }
        else {
            SV *zahl = newSVnv(arg);
        }

        double x = SvNV(zahl);
        RETVAL = cos(x);
    OUTPUT:
        RETVAL
4

2 回答 2

5

一般来说，编写旨在被称为方法或函数的 subs 是一个坏主意。有一两个众所周知的模块可以做到这一点（想到 CGI.pm），但在大多数情况下，这会让最终用户感到困惑，并且不必要地使您自己的代码复杂化。没有人会为此感谢你。选择一种风格并坚持下去。

假设您选择坚持使用 OO 编程。然后，一旦您的模块工作并经过测试，您就可以编写第二个模块，提供可导出的功能而不是 OO 接口。第二个模块可能可以用普通的旧 Perl 编写，只是充当 OO 模块的包装器。

例如，使用纯 Perl（而不是 XS）来提高可读性：

use v5.14;

package MyStuff::Maths::OO {
   use Class::Tiny qw(number);
   sub cosine {
      my $self   = shift;
      my $number = $self->number;
      ...;
      return $cosine;
   }
}

package MyStuff::Maths::Functional {
   use Exporter::Shiny qw(cosine);
   sub cosine {
      my $obj = ref($_[0]) ? $_[0] : MyStuff::Maths::OO->new(number => $_[0]);
      return $obj->cosine;
   }
}

现在最终用户可以像这样选择使用您的 OO 界面：

use v5.14;
use MyStuff::Maths::OO;

my $obj = MyStuff::Maths::OO->new(number => 0.5);
say $obj->cosine;

或者使用功能接口：

use v5.14;
use MyStuff::Maths::Functional -all;

say cosine(0.5);
于 2014-10-23T12:03:44.527 回答
0

在我的情况下，这是一个简单的问题，我根本没有看到它。if-else-statement 中的 SV *zahl 声明是问题所在。if 之前的预先声明是解决方案的关键。

但我同意 tobyinks 解决方案，用于其他人使用或在某处发布的模块。

于 2014-10-24T05:57:04.630 回答