NTuple.i

   1 %module "Math::GSL::NTuple"
   2 %include "typemaps.i"
   3
   4 %typemap(in) void * {
   5     $1 = (double *) $input;
   6 };
   7
   8 %{
   9     #include "gsl/gsl_ntuple.h"
  10 %}
  11
  12 %include "gsl/gsl_ntuple.h"
  13
  14 //%apply double * OUTPUT {
  15
  16 %perlcode %{
  17 @EXPORT_OK = qw/
  18                gsl_ntuple_open
  19                gsl_ntuple_create
  20                gsl_ntuple_write
  21                gsl_ntuple_read
  22                gsl_ntuple_bookdata
  23                gsl_ntuple_project
  24                gsl_ntuple_close
  25              /;
  26 %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
  27 %}