Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
 
#include "fstrcmp.h"
#include "fstrcmp.c"
 
UV *
text2UV (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;
        UV *c1 = text2UV (s1, &l1);
        UV *c2 = text2UV (s2, &l2);
        RETVAL = fstrcmp (c1, l1, c2, l2, minimum_similarity);
}
        OUTPUT:
        RETVAL