1 %module
"Math::GSL::FFT"
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"
17 %typemap
(argout
) (double data
[], const size_t stride
, const size_t n
) {
22 av_push
(tempav
, newSVnv
((double
) $
1[i
]));
26 $result
= sv_2mortal
( newRV_noinc
( (SV
*) tempav
) );
30 %typemap
(argout
) (gsl_complex_packed_array data
[], const size_t stride
, const size_t n
) {
36 av_push
(tempav
, newSVnv
((double
) $
1[i
]));
40 $result
= sv_2mortal
( newRV_noinc
( (SV
*) tempav
) );
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"