PowInt.i

   1 %module PowInt
   2 %{
   3 #include "/usr/local/include/gsl/gsl_pow_int.h"
   4 extern double gsl_pow_int(double x, int n);
   5 %}
   6
   7 %include "/usr/local/include/gsl/gsl_pow_int.h"
   8
   9 %perlcode %{
  10
  11 our @EXPORT_OK = qw/ gsl_pow_2 gsl_pow_2 gsl_pow_3
  12                     gsl_pow_4 gsl_pow_5 gsl_pow_6
  13                     gsl_pow_7 gsl_pow_8 gsl_pow_9
  14                     gsl_pow_int
  15                 /;
  16 our %EXPORT_TAGS = ( all =>  [  @EXPORT_OK ] );
  17
  18 __END__
  19
  20 =head1 NAME
  21
  22 Math::GSL::PowInt - mathematical power functions
  23
  24 =head1 SYPNOPSIS
  25
  26 use Math::GSL::PowInt qw /gsl_pow_2/;
  27
  28 print "gsl_pow_2(4)=" . gsl_pow_2(4) . "\n";
  29
  30 =head1 DESCRIPTION
  31
  32 This module uses the GSL mathematical functions. It contains gsl_pow_2 to gsl_pow_9. If you need a power higher than 9, you can use gsl_pow_int.
  33 You have to add the functions you want to use inside the qw /put_funtion_here /. You can also write use Math::GSL::PowInt qw/:all/ to use all avaible functions of the module.
  34
  35 =head1 AUTHOR
  36
  37 Jonathan Leto <jaleto@gmail.com> and Thierry Moisan <thierry.moisan@gmail.com>
  38
  39 =head1 COPYRIGHT AND LICENSE
  40
  41 Copyright (C) 2008 Jonathan Leto and Thierry Moisan
  42
  43 This program is free software; you can redistribute it and/or modify it
  44 under the same terms as Perl itself.
  45
  46 =cut
  47 %}