FFT.i

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