FFT.i

   1 %module "Math::GSL::FFT"
   2 %include "typemaps.i"
   3 %include "gsl_typemaps.i"
   4 %apply double *OUTPUT { double data[] };
   5
   6 %{
   7     #include "gsl/gsl_fft.h"
   8     #include "gsl/gsl_fft_complex.h"
   9     #include "gsl/gsl_fft_halfcomplex.h"
  10     #include "gsl/gsl_fft_real.h"
  11     #include "gsl/gsl_complex.h"
  12 %}
  13
  14 %include "gsl/gsl_complex.h"
  15 %include "gsl/gsl_fft.h"
  16 %include "gsl/gsl_fft_complex.h"
  17 %include "gsl/gsl_fft_halfcomplex.h"
  18 %include "gsl/gsl_fft_real.h"
  19
  20
  21 %perlcode %{
  22 @EXPORT_complex = qw/
  23                gsl_fft_complex_radix2_forward
  24                gsl_fft_complex_radix2_backward
  25                gsl_fft_complex_radix2_inverse
  26                gsl_fft_complex_radix2_transform
  27                gsl_fft_complex_radix2_dif_forward
  28                gsl_fft_complex_radix2_dif_backward
  29                gsl_fft_complex_radix2_dif_inverse
  30                gsl_fft_complex_radix2_dif_transform
  31                gsl_fft_complex_wavetable_alloc
  32                gsl_fft_complex_wavetable_free
  33                gsl_fft_complex_workspace_alloc
  34                gsl_fft_complex_workspace_free
  35                gsl_fft_complex_memcpy
  36                gsl_fft_complex_forward
  37                gsl_fft_complex_backward
  38                gsl_fft_complex_inverse
  39                gsl_fft_complex_transform
  40                /;
  41 @EXPORT_halfcomplex = qw/
  42                gsl_fft_halfcomplex_radix2_backward
  43                gsl_fft_halfcomplex_radix2_inverse
  44                gsl_fft_halfcomplex_radix2_transform
  45                gsl_fft_halfcomplex_wavetable_alloc
  46                gsl_fft_halfcomplex_wavetable_free
  47                gsl_fft_halfcomplex_backward
  48                gsl_fft_halfcomplex_inverse
  49                gsl_fft_halfcomplex_transform
  50                gsl_fft_halfcomplex_unpack
  51                gsl_fft_halfcomplex_radix2_unpack
  52                /;
  53 @EXPORT_real = qw/
  54                gsl_fft_real_radix2_transform
  55                gsl_fft_real_wavetable_alloc
  56                gsl_fft_real_wavetable_free
  57                gsl_fft_real_workspace_alloc
  58                gsl_fft_real_workspace_free
  59                gsl_fft_real_transform
  60                gsl_fft_real_unpack
  61              /;
  62 @EXPORT_vars = qw/
  63                 $gsl_fft_forward,
  64                 $gsl_fft_backward,
  65                 /;
  66 @EXPORT_OK =   (
  67                 @EXPORT_real,
  68                 @EXPORT_complex,
  69                 @EXPORT_halfcomplex,
  70                 @EXPORT_vars,
  71                 );
  72 %EXPORT_TAGS = (
  73                 all         => \@EXPORT_OK,
  74                 real        => \@EXPORT_real,
  75                 complex     => \@EXPORT_complex,
  76                 halfcomplex => \@EXPORT_halfcomplex,
  77                 vars        => \@EXPORT_vars,
  78                );
  79 %}