Deriv.i

   1 %module Deriv
   2
   3 %include "typemaps.i"
   4 %typemap(in) gsl_function * {
   5     printf("gsl_func \n");
   6 };
   7
   8 %typemap(in) void * {
   9     printf("void * \n");
  10 };
  11
  12 %typemap(in) double (*)(double,void *) {
  13     printf("function pointer * \n");
  14 };
  15 %apply double * OUTPUT { double *result,double *abserr };
  16
  17 %{
  18     #include "gsl/gsl_math.h"
  19     #include "gsl/gsl_deriv.h"
  20 %}
  21
  22 %include "gsl/gsl_math.h"
  23 %include "gsl/gsl_deriv.h"
  24
  25 %perlcode %{
  26 @EXPORT_OK = qw/
  27                gsl_deriv_central
  28                gsl_deriv_backward
  29                gsl_deriv_forward
  30              /;
  31 %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
  32 %}
  33