Deriv.i

   1 %module "Math::GSL::Deriv"
   2 /*
   3 struct gsl_function_struct
   4 {
   5   double (* function) (double x, void * params);
   6   void * params;
   7 };
   8
   9 typedef struct gsl_function_struct gsl_function ;
  10 #define GSL_FN_EVAL(F,x) (*((F)->function))(x,(F)->params)
  11 */
  12
  13 %include "typemaps.i"
  14 %typemap(in) gsl_function * {
  15     gsl_function F;
  16     int count;
  17     F.params = 0;
  18     F.function = &xsquared;
  19
  20     if( !SvROK($input) ) {
  21         croak("Math::GSL : not a reference value!");
  22     }
  23     //Perl_sv_dump( $input );
  24
  25     // does not work
  26     //count = call_sv((SV*) $input, G_ARRAY);
  27     $1 = &F;
  28 };
  29
  30 %{
  31     typedef struct callback_t
  32     {
  33         SV * obj;
  34     };
  35     double xsquared(double x,void *params){
  36         return x * x;
  37     }
  38 %}
  39 %typemap(in) void * {
  40     printf("void * \n");
  41     $1 = (double *) $input;
  42 };
  43 %typemap(in) double (*)(double,void *) {
  44     fprintf(stderr,"input * %d \n", (int) $input);
  45     //Perl_sv_dump( $input );
  46 };
  47
  48 %apply double * OUTPUT { double *abserr, double *result };
  49
  50 %{
  51     #include "gsl/gsl_math.h"
  52     #include "gsl/gsl_deriv.h"
  53 %}
  54
  55 %include "gsl/gsl_math.h"
  56 %include "gsl/gsl_deriv.h"
  57
  58 %perlcode %{
  59 @EXPORT_OK = qw/
  60                gsl_deriv_central
  61                gsl_deriv_backward
  62                gsl_deriv_forward
  63              /;
  64 %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
  65 %}
  66