swig/Sort.i

   1 %module "Math::GSL::Sort"
   2 /* Danger Will Robinson! */
   3
   4 %include "typemaps.i"
   5 %include "gsl_typemaps.i"
   6 %include "system.i"
   7
   8 %typemap(argout) (double * data, const size_t stride, const size_t n) {
   9     int i=0;
  10     AV* tempav = newAV();
  11
  12     while( i < $3 ) {
  13         av_push(tempav, newSVnv((double) $1[i]));
  14         i++;
  15     }
  16
  17     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  18     //Perl_sv_dump($result);
  19     argvi++;
  20 }
  21 %typemap(argout) (double * dest, const size_t k, const gsl_vector * v) {
  22     int i=0;
  23     AV* tempav = newAV();
  24
  25     while( i < $2 ) {
  26         av_push(tempav, newSVnv((double) $1[i]));
  27         i++;
  28     }
  29
  30     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  31     argvi++;
  32 }
  33
  34 %typemap(argout) (double * dest, const size_t k, const double * src, const size_t stride, const size_t n) {
  35     int i=0;
  36     AV* tempav = newAV();
  37     while( i < $2 ) {
  38         av_push(tempav, newSVnv((double) $1[i]));
  39         i++;
  40     }
  41
  42     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  43     argvi++;
  44 }
  45 %typemap(argout) (size_t * p, const size_t k, const gsl_vector * v)
  46 {
  47     int i=0;
  48     AV* tempav = newAV();
  49     while( i < $2 ) {
  50         av_push(tempav, newSVnv((double) $1[i]));
  51         i++;
  52     }
  53
  54     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  55     argvi++;
  56 }
  57
  58 %typemap(argout) (size_t * p, const double * data, const size_t stride, const size_t n)
  59 {
  60     int i=0;
  61     AV* tempav = newAV();
  62     while( i < $4 ) {
  63         av_push(tempav, newSVnv((size_t) $1[i]));
  64         i++;
  65     }
  66
  67     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  68     argvi++;
  69 }
  70
  71 %typemap(argout) (size_t * p, const size_t k, const double * src, const size_t stride, const size_t n)
  72 {
  73     int i=0;
  74     AV* tempav = newAV();
  75     while( i < $2 ) {
  76         av_push(tempav, newSVnv((size_t) $1[i]));
  77         i++;
  78     }
  79
  80     $result = sv_2mortal( newRV_noinc( (SV*) tempav) );
  81     argvi++;
  82 }
  83
  84 %apply double * { double *data, double *dest };
  85
  86 %{
  87     #include "gsl/gsl_nan.h"
  88     #include "gsl/gsl_sort.h"
  89     #include "gsl/gsl_sort_double.h"
  90     #include "gsl/gsl_sort_int.h"
  91     #include "gsl/gsl_sort_vector.h"
  92     #include "gsl/gsl_sort_vector_double.h"
  93     #include "gsl/gsl_sort_vector_int.h"
  94     #include "gsl/gsl_permutation.h"
  95 %}
  96 #if GSL_MINOR_VERSION == 12
  97     %import "gsl/gsl_inline.h"
  98 #endif
  99
 100 %include "gsl/gsl_nan.h"
 101 %include "gsl/gsl_sort.h"
 102 %include "gsl/gsl_sort_double.h"
 103 %include "gsl/gsl_sort_int.h"
 104 %include "gsl/gsl_sort_vector.h"
 105 %include "gsl/gsl_sort_vector_double.h"
 106 %include "gsl/gsl_sort_vector_int.h"
 107 %include "gsl/gsl_permutation.h"
 108
 109 %include "../pod/Sort.pod"