swig/Monte.i

   1 %module "Math::GSL::Monte"
   2 %include "typemaps.i"
   3 %include "gsl_typemaps.i"
   4 %include "gsl/gsl_monte.h"
   5 %include "gsl/gsl_monte_miser.h"
   6 %include "gsl/gsl_monte_plain.h"
   7 %include "gsl/gsl_monte_vegas.h"
   8 %include "gsl/gsl_types.h"
   9 %include "gsl/gsl_errno.h"
  10
  11 %typemap(argout) ( gsl_monte_function * f, double xl[], double xu[],
  12                    size_t dim, size_t calls, gsl_rng * r,
  13                    gsl_monte_vegas_state *state,
  14                     double *result, double *abserr) {
  15     // This is not being triggered
  16     fprintf(stderr, "argout of monte_vegas_int!");
  17 k
  18
  19 }
  20 %typemap(in) void * {
  21     $1 = (double *) $input;
  22 };
  23
  24
  25 %{
  26     #include "gsl/gsl_monte.h"
  27     #include "gsl/gsl_monte_miser.h"
  28     #include "gsl/gsl_monte_plain.h"
  29     #include "gsl/gsl_monte_vegas.h"
  30     #include "gsl/gsl_types.h"
  31     #include "gsl/gsl_errno.h"
  32 %}
  33 %include "../pod/Monte.pod"