Sort.i

   1 %module Sort
   2 %include "GSL.i"
   3 %{
   4     #include "/usr/local/include/gsl/gsl_nan.h"
   5     #include "/usr/local/include/gsl/gsl_sort.h"
   6     #include "/usr/local/include/gsl/gsl_sort_double.h"
   7     #include "/usr/local/include/gsl/gsl_sort_int.h"
   8     #include "/usr/local/include/gsl/gsl_sort_vector.h"
   9     #include "/usr/local/include/gsl/gsl_sort_vector_double.h"
  10     #include "/usr/local/include/gsl/gsl_sort_vector_int.h"
  11 %}
  12 %include "/usr/local/include/gsl/gsl_nan.h"
  13 %include "/usr/local/include/gsl/gsl_sort.h"
  14 %include "/usr/local/include/gsl/gsl_sort_double.h"
  15 %include "/usr/local/include/gsl/gsl_sort_int.h"
  16 %include "/usr/local/include/gsl/gsl_sort_vector.h"
  17 %include "/usr/local/include/gsl/gsl_sort_vector_double.h"
  18 %include "/usr/local/include/gsl/gsl_sort_vector_int.h"
  19
  20 %include "typemaps.i"
  21
  22 %perlcode %{
  23 @EXPORT_plain = qw/
  24                 gsl_sort gsl_sort_index
  25                 gsl_sort_smallest gsl_sort_smallest_index
  26                 gsl_sort_largest gsl_sort_largest_index
  27                 /;
  28 @EXPORT_vector= qw/
  29                 gsl_sort_vector gsl_sort_vector_index
  30                 gsl_sort_vector_smallest gsl_sort_vector_smallest_index
  31                 gsl_sort_vector_largest gsl_sort_vector_largest_index
  32                 /;
  33 @EXPORT_OK    = ( @EXPORT_plain, @EXPORT_vector );
  34 %EXPORT_TAGS  = (
  35                  all    => [ @EXPORT_OK     ],
  36                  plain  => [ @EXPORT_plain  ],
  37                  vector => [ @EXPORT_vector ],
  38                 );
  39
  40 %}