%module foosrank
%{
extern "C" void fftw_import_wisdom_from_file(FILE*);
void compute_new_rating(double mu1, double sigma1, double mu2, double sigma2, int score1, int score2, double *mu, double *sigma, double *probability);
void startup() {
        FILE *fp = fopen("fftw-wisdom", "rb");
        if (fp != NULL) {
                fftw_import_wisdom_from_file(fp);
                fclose(fp);
        }
} 
%}
%perlcode %{
        sub import {
                startup();
        }
%}

void startup();
extern void compute_new_rating(double, double, double, double, int, int, double *OUTPUT, double *OUTPUT, double *OUTPUT);