swig/Sort.i

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