Poly.i

   1 %module Poly
   2 %include "GSL.i"
   3
   4 %typemap(in) double * (double dvalue) {
   5   SV* tempsv;
   6   if (!SvROK($input)) {
   7     croak("Math::GSL::Sort : $input is not a reference!\n");
   8   }
   9   tempsv = SvRV($input);
  10   if ((!SvNOK(tempsv)) && (!SvIOK(tempsv))) {
  11     croak("Math::GSL::Sort : $input is not a reference to number!\n");
  12   }
  13   dvalue = SvNV(tempsv);
  14   $1 = &dvalue;
  15 }
  16 %typemap(argout) double * {
  17   SV *tempsv;
  18   tempsv = SvRV($input);
  19   sv_setnv(tempsv, *$1);
  20 }
  21
  22
  23 %{
  24     #include "/usr/local/include/gsl/gsl_nan.h"
  25     #include "/usr/local/include/gsl/gsl_poly.h"
  26     #include "/usr/local/include/gsl/gsl_complex.h"
  27 %}
  28
  29 %include "/usr/local/include/gsl/gsl_nan.h"
  30 %include "/usr/local/include/gsl/gsl_poly.h"
  31 %include "/usr/local/include/gsl/gsl_complex.h"
  32
  33
  34 %perlcode %{
  35
  36 @EXPORT_OK = qw/
  37                 gsl_poly_eval
  38                 gsl_poly_complex_eval
  39                 gsl_complex_poly_complex_eval
  40                 gsl_poly_dd_init
  41                 gsl_poly_dd_eval
  42                 gsl_poly_dd_taylor
  43                 gsl_poly_solve_quadratic
  44                 gsl_poly_complex_solve_quadratic
  45                 gsl_poly_solve_cubic
  46                 gsl_poly_complex_solve_cubic
  47                 gsl_poly_complex_workspace_alloc
  48                 gsl_poly_complex_workspace_free
  49                 gsl_poly_complex_solve
  50                 $GSL_POSZERO $GSL_NEGZERO $GSL_NAN
  51              /;
  52 our $GSL_NAN = q{nan};
  53 #our $GSL_POSZERO = 0.0;
  54 #our $GSL_NEGZERO = -1*0.0;
  55
  56 %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
  57
  58 %}
  59