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