Poly.i

   1 %module Poly
   2 %{
   3 #include "/usr/local/include/gsl/gsl_poly.h"
   4 #include "/usr/local/include/gsl/gsl_complex.h"
   5 %}
   6
   7 %include "/usr/local/include/gsl/gsl_poly.h"
   8 %include "/usr/local/include/gsl/gsl_complex.h"
   9
  10 %include "carrays.i"
  11 %array_functions(double, doubleArray);
  12 %include "typemaps.i"
  13
  14 // I wish this typemap worked
  15 %{
  16     extern double gsl_poly_eval(const double *INPUT, const int len, const double x);
  17 %}
  18 extern double gsl_poly_eval(const double  *INPUT, const int len, const double x);
  19
  20 %perlcode %{
  21
  22 @EXPORT_OK = qw(gsl_poly_eval gsl_poly_solve_quadratic);
  23
  24 %}