GSL.i

   1 %perlcode %{
   2
   3 our $GSL_VERSION = '1.11';
   4
   5 %}
   6
   7 %typemap(in) double const [] {
   8     AV *tempav;
   9     I32 len;
  10     int i;
  11     SV **tv;
  12     if (!SvROK($input))
  13         croak("Math::GSL : $input is not a reference!");
  14     if (SvTYPE(SvRV($input)) != SVt_PVAV)
  15         croak("Math::GSL : $input is not an array ref!");
  16
  17     tempav = (AV*)SvRV($input);
  18     len = av_len(tempav);
  19     $1 = (double *) malloc((len+1)*sizeof(double));
  20     for (i = 0; i <= len; i++) {
  21         tv = av_fetch(tempav, i, 0);
  22         $1[i] = (double) SvNV(*tv);
  23     }
  24 }
  25 %apply double const [] { double *data };
  26 %apply double const [] { double x[] };
  27 /*
  28 %typemap(freearg) double const [] {
  29     free($1);
  30 }
  31 */
  32
  33 %typemap(argout) double const [] {
  34     printf("argout double const\n");
  35 }