Sort.i

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