Add a SWIG interface, to be able to run recalc-single-result faster.

[foosball] / foosrank.i

diff --git a/foosrank.i b/foosrank.i
new file mode 100644 (file)
index 0000000..4b6b466
--- /dev/null
+++ b/foosrank.i
@@ -0,0 +1,20 @@
+%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);