使用NativeCall将C库函数合并到Perl6中

Question

我试图在Perl6中使用lgammaC语言math.h.

我如何将其融入Perl6？

我试过了

use NativeCall;

sub lgamma(num64 --> num64) is native(Str) {};

say lgamma(3e0);

my $x = 3.14;
say lgamma($x);

这适用于第一个数字(a Str)但第二个数字失败$x,给出错误:

This type cannot unbox to a native number: P6opaque, Rat
  in block <unit> at pvalue.p6 line 8

我想这样做非常简单,就像在Perl5中那样:use POSIX 'lgamma';然后lgamma($x)我不知道如何在Perl6中做到这一点.

Answer 1

原生值的错误并不总是很清楚.

基本上它是说老鼠不是一个数字.

3.14是一只老鼠.(合理的)

say 3.14.^name; # Rat
say 3.14.nude.join('/'); # 157/50

每次调用它时,你总是可以将值强制为Num.

lgamma( $x.Num )

这似乎并不那么好.

我只是将原生子包裹在另一个中,将所有实数转换为Num.
(Real是除Complex之外的所有数字)

sub lgamma ( Num(Real) \n --> Num ){
  use NativeCall;
  sub lgamma (num64 --> num64) is native {}

  lgamma( n )
}

say lgamma(3);    # 0.6931471805599453
say lgamma(3.14); # 0.8261387047770286

Answer 2

你$x没有类型.如果您使用任何类型,比方num64说它会说:

Cannot assign a literal of type Rat (3.14) to a native variable of type num. You can declare the variable to be of type Real, or try to coerce the value with 3.14.Num or Num(3.14)

所以你这样做:

my  num64 $x = 3.14.Num;

这会将数字精确转换为所需的表示形式 lgamma