summaryrefslogtreecommitdiff
path: root/embed.pl
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-10-09 01:48:17 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-10-09 01:48:17 +0000
commita2a2844f59a5c91f404052ef98a588c171fc29f8 (patch)
tree8b092ed3c5e9c339489f3bf17095bf3c1ac94443 /embed.pl
parentc212f17ff77261a4792bfbd46a1471e8c17417e0 (diff)
downloadperl-a2a2844f59a5c91f404052ef98a588c171fc29f8.tar.gz
Make the toupper/lower/title API for Unicode not right
but at least less wrong: prepare for the mapping being more than just one-character-to-one-character. p4raw-id: //depot/perl@12371
Diffstat (limited to 'embed.pl')
-rwxr-xr-xembed.pl15
1 files changed, 6 insertions, 9 deletions
diff --git a/embed.pl b/embed.pl
index 73e72d2e5f..cec8d7e749 100755
--- a/embed.pl
+++ b/embed.pl
@@ -1353,9 +1353,9 @@ Ap |bool |is_uni_lower |U32 c
Ap |bool |is_uni_print |U32 c
Ap |bool |is_uni_punct |U32 c
Ap |bool |is_uni_xdigit |U32 c
-Ap |U32 |to_uni_upper |U32 c
-Ap |U32 |to_uni_title |U32 c
-Ap |U32 |to_uni_lower |U32 c
+Ap |U32 |to_uni_upper |U32 c|U8 *p|STRLEN *lenp
+Ap |U32 |to_uni_title |U32 c|U8 *p|STRLEN *lenp
+Ap |U32 |to_uni_lower |U32 c|U8 *p|STRLEN *lenp
Ap |bool |is_uni_alnum_lc|U32 c
Ap |bool |is_uni_alnumc_lc|U32 c
Ap |bool |is_uni_idfirst_lc|U32 c
@@ -1370,9 +1370,6 @@ Ap |bool |is_uni_lower_lc|U32 c
Ap |bool |is_uni_print_lc|U32 c
Ap |bool |is_uni_punct_lc|U32 c
Ap |bool |is_uni_xdigit_lc|U32 c
-Ap |U32 |to_uni_upper_lc|U32 c
-Ap |U32 |to_uni_title_lc|U32 c
-Ap |U32 |to_uni_lower_lc|U32 c
Apd |STRLEN |is_utf8_char |U8 *p
Apd |bool |is_utf8_string |U8 *s|STRLEN len
Ap |bool |is_utf8_alnum |U8 *p
@@ -1817,9 +1814,9 @@ Ap |SV* |swash_init |char* pkg|char* name|SV* listsv \
Ap |UV |swash_fetch |SV *sv|U8 *ptr|bool do_utf8
Ap |void |taint_env
Ap |void |taint_proper |const char* f|const char* s
-Ap |UV |to_utf8_lower |U8 *p
-Ap |UV |to_utf8_upper |U8 *p
-Ap |UV |to_utf8_title |U8 *p
+Ap |UV |to_utf8_lower |U8 *p|U8* ustrp|STRLEN *lenp
+Ap |UV |to_utf8_upper |U8 *p|U8* ustrp|STRLEN *lenp
+Ap |UV |to_utf8_title |U8 *p|U8* ustrp|STRLEN *lenp
#if defined(UNLINK_ALL_VERSIONS)
Ap |I32 |unlnk |char* f
#endif