Randist.i

   1 %module Randist
   2 %{
   3 #include "/usr/local/include/gsl/gsl_randist.h"
   4 extern double gsl_ran_hypergeometric_pdf (const unsigned int k, const unsigned int n1, const unsigned int n2, unsigned int t);
   5 extern double gsl_ran_laplace_pdf (const double x, const double a);
   6 extern double gsl_ran_gaussian_pdf (const double x, const double sigma);
   7 %}
   8
   9 %include "/usr/local/include/gsl/gsl_randist.h"
  10
  11 %perlcode %{
  12
  13 our @EXPORT_OK = qw/ gsl_ran_hypergeometric_pdf gsl_ran_laplace_pdf gsl_ran_gaussian_pdf
  14                 /;
  15 our %EXPORT_TAGS = ( all =>  [  @EXPORT_OK ] );
  16 %}