gsl_sf_bessel_In lives in PDL::GSL::SF now

Author: mohawk2

.github/workflows/test.yml

@@ -85,7 +85,10 @@ jobs:
         run: cpanm -n PDL::LinearAlgebra::Special
 
       - if: ${{ matrix.kaiser }}
-        run: cpanm -n PDL::GSLSF::BESSEL
+        name: Install GSL
+        uses: PDLPorters/devops/github-actions/install-dep-gsl@master
+      - if: ${{ matrix.kaiser }}
+        run: cpanm -n PDL::GSL::SF || ( cat ~/.cpanm/build.log && false )
 
       - run: perl Makefile.PL
 

META.json

@@ -41,7 +41,7 @@
       },
       "runtime" : {
          "recommends" : {
-            "PDL::GSLSF::BESSEL" : "0",
+            "PDL::GSL::SF" : "0",
             "PDL::Graphics::Simple" : "0",
             "PDL::LinearAlgebra::Special" : "0"
          },

README.md

@@ -41,7 +41,7 @@ and software, some functions referred to by several different names, and some
 names refer to several different functions. As a result, the choice of window
 names is somewhat arbitrary.
 
-The ["kaiser($N,$beta)"](#kaiser-n-beta) window function requires [PDL::GSLSF::BESSEL](https://metacpan.org/pod/PDL%3A%3AGSLSF%3A%3ABESSEL). The
+The ["kaiser($N,$beta)"](#kaiser-n-beta) window function requires [PDL::GSL::SF](https://metacpan.org/pod/PDL%3A%3AGSL%3A%3ASF). The
 ["dpss($N,$beta)"](#dpss-n-beta) window function requires [PDL::LinearAlgebra](https://metacpan.org/pod/PDL%3A%3ALinearAlgebra). But the
 remaining window functions may be used if these modules are not installed.
 

cpanfile

@@ -1,7 +1,7 @@
 requires 'PDL' => '2.055';
 
 recommends 'PDL::LinearAlgebra::Special';
-recommends 'PDL::GSLSF::BESSEL';
+recommends 'PDL::GSL::SF';
 recommends 'PDL::Graphics::Simple';
 
 on test => sub {

lib/PDL/DSP/Windows.pm

@@ -224,7 +224,7 @@ and software, some functions referred to by several different names, and some
 names refer to several different functions. As a result, the choice of window
 names is somewhat arbitrary.
 
-The L</kaiser($N,$beta)> window function requires L<PDL::GSLSF::BESSEL>. The
+The L</kaiser($N,$beta)> window function requires L<PDL::GSL::SF>. The
 L</dpss($N,$beta)> window function requires L<PDL::LinearAlgebra>. But the
 remaining window functions may be used if these modules are not installed.
 
@@ -1304,31 +1304,31 @@ sub hann_poisson_per {
 }
 
 sub kaiser {
-    PDL::Core::barf 'kaiser: PDL::GSLSF not installed' unless eval { require PDL::GSLSF::BESSEL };
+    PDL::Core::barf 'kaiser: PDL::GSL::SF not installed' unless eval { require PDL::GSL::SF };
     PDL::Core::barf 'kaiser: 2 arguments expected. Got ' . scalar(@_) . ' arguments.' unless @_ == 2;
     my ( $N, $beta ) = @_;
 
     $beta *= PI;
 
-    my ($n) = PDL::GSLSF::BESSEL::gsl_sf_bessel_In(
+    my ($n) = PDL::GSL::SF::gsl_sf_bessel_In(
         $beta * sqrt( 1 - PDL::Core::zeroes($N)->xlinvals( -1, 1 ) ** 2 ), 0 );
 
-    my ($d) = PDL::GSLSF::BESSEL::gsl_sf_bessel_In( $beta, 0 );
+    my ($d) = PDL::GSL::SF::gsl_sf_bessel_In( $beta, 0 );
 
     $n / $d;
 }
 
 sub kaiser_per {
-    PDL::Core::barf 'kaiser: PDL::GSLSF not installed' unless eval { require PDL::GSLSF::BESSEL };
+    PDL::Core::barf 'kaiser: PDL::GSL::SF not installed' unless eval { require PDL::GSL::SF };
     PDL::Core::barf 'kaiser: 2 arguments expected. Got ' . scalar(@_) . ' arguments.' unless @_ == 2;
     my ($N,$beta) = @_;
 
     $beta *= PI;
 
-    my ($n) = PDL::GSLSF::BESSEL::gsl_sf_bessel_In(
+    my ($n) = PDL::GSL::SF::gsl_sf_bessel_In(
         $beta * sqrt( 1 - PDL::Core::zeroes($N)->xlinvals( -1, ( -1 + 1 * ( $N - 1 ) ) / $N ) ** 2 ), 0);
 
-    my ($d) = PDL::GSLSF::BESSEL::gsl_sf_bessel_In( $beta, 0 );
+    my ($d) = PDL::GSL::SF::gsl_sf_bessel_In( $beta, 0 );
 
     $n / $d;
 }

t/windows.t

@@ -7,7 +7,7 @@ use PDL;
 use PDL::DSP::Windows qw( window chebpoly ) ;
 
 my $HAVE_LinearAlgebra = eval { require PDL::LinearAlgebra::Special };
-my $HAVE_BESSEL        = eval { require PDL::GSLSF::BESSEL };
+my $HAVE_BESSEL        = eval { require PDL::GSL::SF };
 
 use lib 't/lib';
 use MyTest::Helper qw( dies is_approx );
@@ -67,7 +67,7 @@ subtest 'explict values of windows.' => sub {
         6;
 
     SKIP: {
-        skip 'PDL::GSLSF::BESSEL not installed', 1 unless $HAVE_BESSEL;
+        skip 'PDL::GSL::SF not installed', 1 unless $HAVE_BESSEL;
         is_approx
             window( 6, 'kaiser', 0.5 / 3.1415926 ),
             [ 0.94030619, 0.97829624, 0.9975765, 0.9975765, 0.97829624, 0.94030619 ],
@@ -151,7 +151,7 @@ subtest 'enbw of windows.' => sub {
     }
 
     SKIP: {
-        skip 'PDL::GSLSF::BESSEL not installed', 1 unless $HAVE_BESSEL;
+        skip 'PDL::GSL::SF not installed', 1 unless $HAVE_BESSEL;
         is_approx
             $win->init( $Nbw, 'kaiser', 8.6 / 3.1415926 )->enbw,
             1.72147863,
@@ -210,7 +210,7 @@ subtest 'scalloping loss of windows.' => sub {
     }
 
     SKIP: {
-        skip 'PDL::GSLSF::BESSEL not installed', 3 unless $HAVE_BESSEL;
+        skip 'PDL::GSL::SF not installed', 3 unless $HAVE_BESSEL;
         is_approx $win->init( 1000, 'kaiser', 0.5 )->scallop_loss, -3.31, 'kaiser 0.5', 3;
         is_approx $win->init( 1000, 'kaiser', 1.0 )->scallop_loss, -2.42, 'kaiser 1.0', 3;
         is_approx $win->init( 1000, 'kaiser', 5.0 )->scallop_loss, -1.05, 'kaiser 5.0', 3;
@@ -263,7 +263,7 @@ subtest 'relation between periodic and symmetric.' => sub {
 
         for my $name ( keys %tests ) {
             SKIP: {
-                skip 'PDL::GSLSF::BESSEL not installed', 1
+                skip 'PDL::GSL::SF not installed', 1
                     if $name eq 'kaiser' and not $HAVE_BESSEL;
 
                 skip 'PDL::LinearAlgebra::Special not installed', 1