Vector.i

   1 %module Vector
   2 %{
   3 #include "/usr/include/stdio.h"
   4 #include "/usr/local/include/gsl/gsl_vector.h"
   5 #include "/usr/local/include/gsl/gsl_vector_char.h"
   6 #include "/usr/local/include/gsl/gsl_vector_complex.h"
   7 #include "/usr/local/include/gsl/gsl_vector_complex_double.h"
   8 #include "/usr/local/include/gsl/gsl_vector_complex_float.h"
   9 #include "/usr/local/include/gsl/gsl_vector_complex_long_double.h"
  10 #include "/usr/local/include/gsl/gsl_vector_double.h"
  11 #include "/usr/local/include/gsl/gsl_vector_float.h"
  12 #include "/usr/local/include/gsl/gsl_vector_int.h"
  13 #include "/usr/local/include/gsl/gsl_vector_long.h"
  14 #include "/usr/local/include/gsl/gsl_vector_long_double.h"
  15 #include "/usr/local/include/gsl/gsl_vector_short.h"
  16 #include "/usr/local/include/gsl/gsl_vector_uchar.h"
  17 #include "/usr/local/include/gsl/gsl_vector_uint.h"
  18 #include "/usr/local/include/gsl/gsl_vector_ulong.h"
  19 #include "/usr/local/include/gsl/gsl_vector_ushort.h"
  20
  21 %}
  22 %include "/usr/local/include/gsl/gsl_vector.h"
  23 %include "/usr/local/include/gsl/gsl_vector_char.h"
  24 %include "/usr/local/include/gsl/gsl_vector_complex.h"
  25 %include "/usr/local/include/gsl/gsl_vector_complex_double.h"
  26 %include "/usr/local/include/gsl/gsl_vector_complex_float.h"
  27 %include "/usr/local/include/gsl/gsl_vector_complex_long_double.h"
  28 %include "/usr/local/include/gsl/gsl_vector_double.h"
  29 %include "/usr/local/include/gsl/gsl_vector_float.h"
  30 %include "/usr/local/include/gsl/gsl_vector_int.h"
  31 %include "/usr/local/include/gsl/gsl_vector_long.h"
  32 %include "/usr/local/include/gsl/gsl_vector_long_double.h"
  33 %include "/usr/local/include/gsl/gsl_vector_short.h"
  34 %include "/usr/local/include/gsl/gsl_vector_uchar.h"
  35 %include "/usr/local/include/gsl/gsl_vector_uint.h"
  36 %include "/usr/local/include/gsl/gsl_vector_ulong.h"
  37 %include "/usr/local/include/gsl/gsl_vector_ushort.h"
  38
  39 FILE *fopen(char *, char *);
  40 int fclose(FILE *);
  41
  42 %perlcode %{
  43
  44 @EXPORT_OK  = qw/fopen fclose
  45                  gsl_vector_alloc gsl_vector_calloc gsl_vector_alloc_from_b gsl_vector_alloc_from_v
  46                  gsl_vector_free gsl_vector_view_array gsl_vector_view_array_w gsl_vector_const_view_a
  47                  gsl_vector_const_view_a gsl_vector_subvector gsl_vector_subvector_wi
  48                  gsl_vector_const_subvec gsl_vector_const_subvec gsl_vector_get gsl_vector_set
  49                  gsl_vector_ptr gsl_vector_const_ptr gsl_vector_set_zero gsl_vector_set_all
  50                  gsl_vector_set_basis gsl_vector_fread gsl_vector_fwrite gsl_vector_fscanf
  51                  gsl_vector_fprintf gsl_vector_memcpy gsl_vector_reverse gsl_vector_swap
  52                  gsl_vector_swap_element gsl_vector_max gsl_vector_min gsl_vector_minmax
  53                  gsl_vector_max_index gsl_vector_min_index gsl_vector_minmax_index
  54                  gsl_vector_add gsl_vector_sub gsl_vector_mul gsl_vector_div
  55                  gsl_vector_scale gsl_vector_add_constant gsl_vector_isnull
  56                  gsl_vector_ispos gsl_vector_isneg gsl_vector_isnonneg
  57                  /;
  58 %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
  59
  60 %}