swig/FFT.i

   1 %module "Math::GSL::FFT"
   2 %include "typemaps.i"
   3 %include "gsl_typemaps.i"
   4 %include "gsl/gsl_math.h"
   5 %include "gsl/gsl_sys.h"
   6 %include "gsl/gsl_pow_int.h"
   7 %include "gsl/gsl_nan.h"
   8 %include "gsl/gsl_machine.h"
   9 %include "gsl/gsl_complex.h"
  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 "../pod/FFT.pod"
  15
  16
  17 %typemap(argout) (double data[], const size_t stride, const size_t n) {
  18     int i=0;
  19     AV* tempav = newAV();
  20
  21     while( i < $3 ) {
  22         av_push(tempav, newSVnv((double) $1[i]));
  23         i++;
  24     }
  25
  26     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  27     argvi++;
  28 }
  29
  30 %typemap(argout) (gsl_complex_packed_array data[], const size_t stride, const size_t n) {
  31     int i=0;
  32     AV* tempav = newAV();
  33
  34     /* is this tested? */
  35     while( i < 2*$3 ) {
  36         av_push(tempav, newSVnv((double) $1[i]));
  37         i++;
  38     }
  39
  40     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  41     argvi++;
  42 }
  43
  44 %{
  45     #include "gsl/gsl_complex.h"
  46     #include "gsl/gsl_sys.h"
  47     #include "gsl/gsl_pow_int.h"
  48     #include "gsl/gsl_nan.h"
  49     #include "gsl/gsl_machine.h"
  50     #include "gsl/gsl_math.h"
  51     #include "gsl/gsl_fft.h"
  52     #include "gsl/gsl_fft_complex.h"
  53     #include "gsl/gsl_fft_halfcomplex.h"
  54     #include "gsl/gsl_fft_real.h"
  55 %}