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