+%module foosrank
+%{
+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();
+ }
+%}
+
+//extern void import();
+extern void compute_new_rating(double, double, double, double, int, int, double *OUTPUT, double *OUTPUT, double *OUTPUT);