I linked in the C code with Inline::C at http://diotalevi.isa-geek.net/~josh/Jaro-Winkler/ and also wrote a nicely readable perl version too.