Changeset e1e59a7 for perlglue.xs

Timestamp:

Oct 10, 2009, 9:24:18 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

69c3878

Parents:

737b8f1 (diff), 1fdca1b (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'unicode-fixes'

File:

• perlglue.xs (modified) (11 diffs)

perlglue.xs

@@ -9 +9 @@
 
 #define SV_IS_CODEREF(sv) (SvROK((sv)) && SvTYPE(SvRV((sv))) == SVt_PVCV)
+
+typedef char utf8;
 
         /*************************************************************
@@ -29 +31 @@
 MODULE = BarnOwl                PACKAGE = BarnOwl
 
-const char *
+const utf8 *
 command(cmd, ...)
         const char *cmd
@@ -77 +79 @@
                 RETVAL
 
-const char *
+const utf8 *
 zephyr_getrealm()
         CODE:
@@ -84 +86 @@
                 RETVAL
 
-const char *
+const utf8 *
 zephyr_getsender()
         CODE:
@@ -100 +102 @@
                 i = owl_zwrite_create_and_send_from_line(cmd, msg);
 
-const char *
+const utf8 *
 ztext_stylestrip(ztext)
         const char *ztext
@@ -113 +115 @@
                 if (rv) owl_free(rv);
 
-const char *
+const utf8 *
 zephyr_smartstrip_user(in)
         const char *in
@@ -128 +130 @@
                 owl_free(rv);
 
-const char *
+const utf8 *
 zephyr_getsubs()
         PREINIT:
@@ -314 +316 @@
         }
 
-const char *
+const utf8 *
 wordwrap(in, cols)
         const char *in
@@ -326 +328 @@
                 RETVAL
         CLEANUP:
-                if (rv) owl_free(rv);
+                if (rv)
+                        owl_free(rv);
 
 void
@@ -429 +432 @@
                 RETVAL
 
-const char *
+const utf8 *
 skiptokens(str, n)
         const char *str;
@@ -569 +572 @@
                 RETVAL
 
-const char *
+const utf8 *
 get_region()
         PREINIT: