1 %module
"Math::GSL::QRNG"
3 %include
"gsl_typemaps.i"
5 %apply double
*OUTPUT { double x
[] };
7 %typemap
(argout
) double x
[] {
15 $result
= sv_newmortal
();
16 sv_setnv
($result
,(NV
) *($
1));
19 $result
= sv_newmortal
();
20 sv_setnv
($result
,(NV
) *($
1+1));
25 #include
"gsl/gsl_types.h"
26 #include
"gsl/gsl_qrng.h"
29 %include
"gsl/gsl_types.h"
30 %include
"gsl/gsl_qrng.h"
31 %include
"../pod/QRNG.pod"