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 __END__
  67
  68 =head1 NAME
  69
  70 Math::GSL::Deriv - Functions to compute numerical derivatives by finite differencing
  71
  72 =head1 SYNOPSIS
  73
  74 This module is not yet implemented. Patches Welcome!
  75
  76 use Math::GSL::Deriv qw /:all/;
  77
  78 =head1 DESCRIPTION
  79
  80 Here is a list of all the functions in this module :
  81
  82 =over
  83
  84 =item * C<gsl_deriv_central>
  85
  86 =item * C<gsl_deriv_backward>
  87
  88 =item * C<gsl_deriv_forward>
  89
  90 =back
  91
  92 For more informations on the functions, we refer you to the GSL offcial
  93 documentation: L<http://www.gnu.org/software/gsl/manual/html_node/>
  94
  95 Tip : search on google: site:http://www.gnu.org/software/gsl/manual/html_node/ name_of_the_function_you_want
  96
  97
  98 =head1 AUTHORS
  99
 100 Jonathan Leto <jonathan@leto.net> and Thierry Moisan <thierry.moisan@gmail.com>
 101
 102 =head1 COPYRIGHT AND LICENSE
 103
 104 Copyright (C) 2008 Jonathan Leto and Thierry Moisan
 105
 106 This program is free software; you can redistribute it and/or modify it
 107 under the same terms as Perl itself.
 108
 109 =cut
 110
 111 %}
 112