Complex.i

   1 %module Complex
   2 %{
   3 #include "/usr/local/include/gsl/gsl_complex.h"
   4 #include "/usr/local/include/gsl/gsl_complex_math.h"
   5 %}
   6
   7 %include "/usr/local/include/gsl/gsl_complex.h"
   8 %include "/usr/local/include/gsl/gsl_complex_math.h"
   9
  10
  11 %include "carrays.i"
  12 %array_functions(double, doubleArray);
  13
  14 double gsl_poly_eval(double c[], int len, double x);
  15
  16 /* r= real+i*imag */
  17 gsl_complex gsl_complex_rect (double x, double y);
  18
  19 /* r= r e^(i theta) */
  20 gsl_complex gsl_complex_polar (double r, double theta);
  21
  22 %perlcode %{
  23
  24 @EXPORT_OK = qw(gsl_complex_rect gsl_complex_polar);
  25
  26 %}