Changeset cc27237 for perlglue.xs

Timestamp:

Jan 7, 2014, 6:02:25 PM (9 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

611236e

Parents:

4b9c3b9

git-author:

Jason Gross <jgross@mit.edu> (01/01/14 20:59:51)

git-committer:

Jason Gross <jgross@mit.edu> (01/07/14 18:02:25)

Message:

Use g_utf8_casefold and g_utf8_normalize

We define a convenience function compat_casefold in util.c for reuse in
filters.

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -385 +385 @@
                 RETVAL
 
+const utf8 *
+compat_casefold(in)
+        const char * in
+        PREINIT:
+                char *rv;
+        CODE:
+                rv = owl_util_compat_casefold(in);
+                RETVAL = rv;
+        OUTPUT:
+                RETVAL
+        CLEANUP:
+                g_free(rv);
+
 
 MODULE = BarnOwl                PACKAGE = BarnOwl::Zephyr