Change 13817: Fix up the APIs noone hopefully uses.

[Jarkko Hietaniemi]

Change 13817 by jhi@alpha on 2001/12/20 14:51:24

        Fix up the APIs noone hopefully uses.

Affected files ...

.... //depot/perl/utf8.c#136 edit

Differences ...

==== //depot/perl/utf8.c#136 (text) ====
Index: perl/utf8.c
--- perl/utf8.c.~1~     Thu Dec 20 08:00:05 2001
+++ perl/utf8.c Thu Dec 20 08:00:05 2001
@@ -1044,19 +1044,31 @@
 U32
 Perl_to_uni_upper_lc(pTHX_ U32 c)
 {
-    return to_uni_upper(c);    /* XXX no locale support yet */
+    /* XXX returns only the first character -- do not use XXX */
+    /* XXX no locale support yet */
+    STRLEN len;
+    U8 tmpbuf[UTF8_MAXLEN_UCLC+1];
+    return (U32)to_uni_upper(c, tmpbuf, &len);
 }
 
 U32
 Perl_to_uni_title_lc(pTHX_ U32 c)
 {
-    return to_uni_title(c);    /* XXX no locale support yet */
+    /* XXX returns only the first character XXX -- do not use XXX */
+    /* XXX no locale support yet */
+    STRLEN len;
+    U8 tmpbuf[UTF8_MAXLEN_UCLC+1];
+    return (U32)to_uni_title(c, tmpbuf, &len);
 }
 
 U32
 Perl_to_uni_lower_lc(pTHX_ U32 c)
 {
-    return to_uni_lower(c);    /* XXX no locale support yet */
+    /* XXX returns only the first character -- do not use XXX */
+    /* XXX no locale support yet */
+    STRLEN len;
+    U8 tmpbuf[UTF8_MAXLEN_UCLC+1];
+    return (U32)to_uni_lower(c, tmpbuf, &len);
 }
 
 bool
End of Patch.