#!/usr/bin/perl

$stringa =  <<"EOT";

void
set_random_generator(func)
void * func
     CODE:
         set_random_generator(func);


void *
Ptr_sunif()
    CODE:
        RETVAL = &sunif;
    OUTPUT:
        RETVAL

EOT



foreach (qw(pbeta pbinom pcauchy pchisq  pexp
	   pf pgamma pgeom phyper plnorm plogis pnbinom
	   pnchisq pnorm ppois pt punif pweibull
	   )) {

    $stringa .= <<"EOT";


void *
Ptr_${_}()
    CODE:
        RETVAL = &${_};
    OUTPUT:
        RETVAL

EOT

}

print $stringa;


