Changeset d2ba33c for perlglue.xs

Timestamp:

Aug 16, 2017, 12:53:41 PM (7 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Branches:

master

Children:

5dee79a

Parents:

47225c9

git-author:

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

git-committer:

Jason Gross <jasongross9@gmail.com> (08/16/17 12:53:41)

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

@@ -413 +413 @@
                 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