swig/FFT.i

   1 %module "Math::GSL::FFT"
   2 %include "typemaps.i"
   3 %include "gsl_typemaps.i"
   4
   5
   6 %typemap(argout) (double data[], const size_t stride, const size_t n) {
   7     int i=0;
   8     AV* tempav = newAV();
   9
  10     while( i < $3 ) {
  11         av_push(tempav, newSVnv((double) $1[i]));
  12         i++;
  13     }
  14
  15     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  16     argvi++;
  17 }
  18
  19 %typemap(argout) (gsl_complex_packed_array data[], const size_t stride, const size_t n) {
  20     int i=0;
  21     AV* tempav = newAV();
  22
  23     while( i < 2*$3 ) {
  24         av_push(tempav, newSVnv((double) $1[i]));
  25         i++;
  26     }
  27
  28     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  29     argvi++;
  30 }
  31
  32 %{
  33     #include "gsl/gsl_fft.h"
  34     #include "gsl/gsl_fft_complex.h"
  35     #include "gsl/gsl_fft_halfcomplex.h"
  36     #include "gsl/gsl_fft_real.h"
  37     #include "gsl/gsl_complex.h"
  38 %}
  39
  40 %include "gsl/gsl_complex.h"
  41 %include "gsl/gsl_fft.h"
  42 %include "gsl/gsl_fft_complex.h"
  43 %include "gsl/gsl_fft_halfcomplex.h"
  44 %include "gsl/gsl_fft_real.h"
  45 %include "../pod/FFT.pod"