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
   9     if (argvi >= items) {
  10         EXTEND(sp,1);
  11     }
  12     $result = sv_newmortal();
  13     sv_setnv($result,(NV) *($1));
  14     argvi++;
  15
  16     $result = sv_newmortal();
  17     sv_setnv($result,(NV) *($1+1));
  18     argvi++;
  19 }
  20
  21 %{
  22     #include "gsl/gsl_types.h"
  23     #include "gsl/gsl_qrng.h"
  24 %}
  25
  26 %include "gsl/gsl_types.h"
  27 %include "gsl/gsl_qrng.h"
  28 %include "../pod/QRNG.pod"