#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "fstrcmp.h"
#include "fstrcmp.c"

CHAR *
text2CHAR (SV *sv, STRLEN *lenp)
{
  STRLEN len;
  char *s = SvPV (sv, len);
  UV *r = (UV *)SvPVX (sv_2mortal (NEWSV (0, (len + 1) * sizeof (UV))));
  UV *p = r;

  if (SvUTF8 (sv))
    {
       STRLEN clen;
       while (len)
         {
           *p++ = utf8n_to_uvchr (s, len, &clen, 0);

           if (clen < 0)
             croak ("illegal unicode character in string");

           s += clen;
           len -= clen;
         }
    }
  else
    while (len--)
      *p++ = *(unsigned char *)s++;

  *lenp = p - r;
  return r;
}

MODULE = String::Similarity		PACKAGE = String::Similarity

double
fstrcmp(s1, s2, minimum_similarity = 0)
	SV *	s1
        SV *	s2
        double	minimum_similarity
        PROTOTYPE: @
        CODE:
{
        STRLEN l1, l2;
        CHAR *c1 = text2CHAR (s1, &l1);
        CHAR *c2 = text2CHAR (s2, &l2);
        RETVAL = fstrcmp (c1, l1, c2, l2, minimum_similarity);
}
	OUTPUT:
        RETVAL