swig/QRNG.i

   1 %module "Math::GSL::QRNG"
   2 %include "typemaps.i"
   3 %include "gsl_typemaps.i"
   4
   5 %apply double *OUTPUT { double x[] };
   6
   7 %typemap(argout) double x[] {
   8     if (argvi >= items) {
   9         EXTEND(sp,1);
  10     }
  11     $result = sv_newmortal();
  12     sv_setnv($result,(NV) *($1));
  13     argvi++;
  14
  15     $result = sv_newmortal();
  16     sv_setnv($result,(NV) *($1+1));
  17     argvi++;
  18 }
  19
  20 %{
  21     #include "gsl/gsl_types.h"
  22     #include "gsl/gsl_qrng.h"
  23 %}
  24
  25 %include "gsl/gsl_types.h"
  26 %include "gsl/gsl_qrng.h"
  27 %include "../pod/QRNG.pod"