Deriv.i

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