swig/NTuple.i

   1 %module "Math::GSL::NTuple"
   2 %include "typemaps.i"
   3 %include "gsl_typemaps.i"
   4
   5 %typemap(in) void *ntuple_data {
   6     fprintf(stderr,"symname=$symname\n");
   7     if ($input)
   8         $1 = (double *) $input;
   9     // should have a croak in an else
  10 };
  11
  12 %typemap(argout) void *ntuple_data {
  13     //Perl_sv_dump($1);
  14 }
  15
  16 %{
  17     #include "gsl/gsl_ntuple.h"
  18     #include "gsl/gsl_errno.h"
  19     #include "gsl/gsl_histogram.h"
  20 %}
  21
  22 %include "gsl/gsl_ntuple.h"
  23 %include "gsl/gsl_errno.h"
  24 %include "gsl/gsl_histogram.h"
  25
  26 %include "../pod/NTuple.pod"