swig/Monte.i

   1 %module "Math::GSL::Monte"
   2 %include "typemaps.i"
   3 %include "gsl_typemaps.i"
   4
   5 %typemap(argout) ( gsl_monte_function * f, double xl[], double xu[],
   6                    size_t dim, size_t calls, gsl_rng * r,
   7                    gsl_monte_vegas_state *state,
   8                     double *result, double *abserr) {
   9     int i=0;
  10     AV* tempav = newAV();
  11
  12     while( i < $4 ) {
  13         av_push(tempav, newSVnv((double) $8[i]));
  14         i++;
  15     }
  16     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  17     argvi++;
  18 }
  19
  20
  21 %{
  22     #include "gsl/gsl_monte.h"
  23     #include "gsl/gsl_monte_miser.h"
  24     #include "gsl/gsl_monte_plain.h"
  25     #include "gsl/gsl_monte_vegas.h"
  26     #include "gsl/gsl_types.h"
  27     #include "gsl/gsl_errno.h"
  28 %}
  29 %include "gsl/gsl_monte.h"
  30 %include "gsl/gsl_monte_miser.h"
  31 %include "gsl/gsl_monte_plain.h"
  32 %include "gsl/gsl_monte_vegas.h"
  33 %include "gsl/gsl_types.h"
  34 %include "gsl/gsl_errno.h"
  35 %include "../pod/Monte.pod"