Deriv.i

   1 %module "Math::GSL::Deriv"
   2 // Danger Will Robinson, for realz!
   3
   4 %include "typemaps.i"
   5 %include "gsl_typemaps.i"
   6 %typemap(argout) (const gsl_function *f,
   7                        double x, double h,
   8                        double *result, double *abserr) {
   9     SV ** sv;
  10     AV* av = newAV();
  11
  12     sv = hv_fetch(Callbacks, (char*)&$input, sizeof($input), FALSE );
  13     if (sv == (SV**)NULL)
  14         croak("Math::GSL(argout) : Missing callback!\n");
  15     dSP;
  16
  17     PUSHMARK(SP);
  18     // these are the arguments passed to the callback
  19     XPUSHs(sv_2mortal(newSViv((int)$2)));
  20     PUTBACK;
  21
  22     /* This actually calls the perl subroutine */
  23     call_sv(*sv, G_SCALAR);
  24
  25     av_push(av, newSVnv((double) *$4));
  26     av_push(av, newSVnv((double) *$5));
  27     $result = sv_2mortal( newRV_noinc( (SV*) av) );
  28     if (argvi >= items) {
  29         EXTEND(SP,1);
  30     }
  31     argvi++;
  32
  33 }
  34
  35 %typemap(in) void * {
  36     $1 = (double *) $input;
  37 };
  38 %{
  39     #include "gsl/gsl_math.h"
  40     #include "gsl/gsl_deriv.h"
  41 %}
  42
  43 %include "gsl/gsl_math.h"
  44 %include "gsl/gsl_deriv.h"
  45
  46 %perlcode %{
  47 @EXPORT_OK = qw/
  48                gsl_deriv_central
  49                gsl_deriv_backward
  50                gsl_deriv_forward
  51              /;
  52 %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
  53
  54 __END__
  55
  56 =head1 NAME
  57
  58 Math::GSL::Deriv - Functions to compute numerical derivatives by finite differencing
  59
  60 =head1 SYNOPSIS
  61
  62 This module is not yet implemented. Patches Welcome!
  63
  64 use Math::GSL::Deriv qw /:all/;
  65
  66 =head1 DESCRIPTION
  67
  68 Here is a list of all the functions in this module :
  69
  70 =over
  71
  72 =item * C<gsl_deriv_central>
  73
  74 =item * C<gsl_deriv_backward>
  75
  76 =item * C<gsl_deriv_forward>
  77
  78 =back
  79
  80 For more informations on the functions, we refer you to the GSL offcial
  81 documentation: L<http://www.gnu.org/software/gsl/manual/html_node/>
  82
  83 Tip : search on google: site:http://www.gnu.org/software/gsl/manual/html_node/ name_of_the_function_you_want
  84
  85
  86 =head1 AUTHORS
  87
  88 Jonathan Leto <jonathan@leto.net> and Thierry Moisan <thierry.moisan@gmail.com>
  89
  90 =head1 COPYRIGHT AND LICENSE
  91
  92 Copyright (C) 2008 Jonathan Leto and Thierry Moisan
  93
  94 This program is free software; you can redistribute it and/or modify it
  95 under the same terms as Perl itself.
  96
  97 =cut
  98
  99 %}
 100