swig/QRNG.i

   1 %module "Math::GSL::QRNG"
   2 %include "typemaps.i"
   3 %include "gsl_typemaps.i"
   4 %include "system.i"
   5
   6 %apply double *OUTPUT { double x[] };
   7
   8 %typemap(argout) double x[] {
   9     AV *tempav;
  10     I32 len;
  11     int i;
  12     SV **tv;
  13     if (argvi >= items) {
  14         EXTEND(sp,1);
  15     }
  16     $result = sv_newmortal();
  17     sv_setnv($result,(NV) *($1));
  18     argvi++;
  19
  20     $result = sv_newmortal();
  21     sv_setnv($result,(NV) *($1+1));
  22     argvi++;
  23 }
  24
  25 %{
  26     #include "gsl/gsl_types.h"
  27     #include "gsl/gsl_qrng.h"
  28 %}
  29 #if GSL_MINOR_VERSION == 12
  30     %import "gsl/gsl_inline.h"
  31 #endif
  32
  33 %include "gsl/gsl_types.h"
  34 %include "gsl/gsl_qrng.h"
  35 %include "../pod/QRNG.pod"