mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Convert _to_utf8_title_flags to legal name

Browse Source
This commit is contained in:
Karl Williamson 2025-08-14 16:05:52 -06:00
parent f79fa08ae1
commit a2f5678d13
5 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
embed.fnc
View File

@ -3684,7 +3684,7 @@ Cp |UV |to_utf8_lower_flags_ \
|NN U8 *ustrp \
|NULLOK STRLEN *lenp \
|bool flags
Cp |UV |_to_utf8_title_flags \
Cp |UV |to_utf8_title_flags_ \
|NN const U8 *p \
|NULLOK const U8 *e \
|NN U8 *ustrp \

2
embed.h
View File

@ -122,7 +122,6 @@
# define _is_utf8_FOO(a,b,c) Perl__is_utf8_FOO(aTHX_ a,b,c)
# define _is_utf8_perl_idcont(a,b) Perl__is_utf8_perl_idcont(aTHX_ a,b)
# define _is_utf8_perl_idstart(a,b) Perl__is_utf8_perl_idstart(aTHX_ a,b)
# define _to_utf8_title_flags(a,b,c,d,e) Perl__to_utf8_title_flags(aTHX_ a,b,c,d,e)
# define _to_utf8_upper_flags(a,b,c,d,e) Perl__to_utf8_upper_flags(aTHX_ a,b,c,d,e)
# define amagic_call(a,b,c,d) Perl_amagic_call(aTHX_ a,b,c,d)
# define amagic_deref_call(a,b) Perl_amagic_deref_call(aTHX_ a,b)
@ -812,6 +811,7 @@
# define to_uni_upper(a,b,c) Perl_to_uni_upper(aTHX_ a,b,c)
# define to_utf8_fold_flags_(a,b,c,d,e) Perl_to_utf8_fold_flags_(aTHX_ a,b,c,d,e)
# define to_utf8_lower_flags_(a,b,c,d,e) Perl_to_utf8_lower_flags_(aTHX_ a,b,c,d,e)
# define to_utf8_title_flags_(a,b,c,d,e) Perl_to_utf8_title_flags_(aTHX_ a,b,c,d,e)
# define uiv_2buf Perl_uiv_2buf
# define unpackstring(a,b,c,d,e) Perl_unpackstring(aTHX_ a,b,c,d,e)
# define unshare_hek(a) Perl_unshare_hek(aTHX_ a)

2
handy.h
View File

@ -2375,7 +2375,7 @@ END_EXTERN_C
/* For internal core use only, subject to change */
#define toFOLD_utf8_flags_(p,e,s,l,f) to_utf8_fold_flags_(p,e,s,l,f)
#define _toLOWER_utf8_flags(p,e,s,l,f) to_utf8_lower_flags_(p,e,s,l,f)
#define _toTITLE_utf8_flags(p,e,s,l,f) _to_utf8_title_flags(p,e,s,l,f)
#define _toTITLE_utf8_flags(p,e,s,l,f) to_utf8_title_flags_(p,e,s,l,f)
#define _toUPPER_utf8_flags(p,e,s,l,f) _to_utf8_upper_flags(p,e,s,l,f)
#define toFOLD_utf8_safe(p,e,s,l) toFOLD_utf8_flags_(p,e,s,l, FOLD_FLAGS_FULL)

10
proto.h generated
View File

@ -121,11 +121,6 @@ Perl__is_utf8_perl_idstart(pTHX_ const U8 *p, const U8 * const e)
#define PERL_ARGS_ASSERT__IS_UTF8_PERL_IDSTART \
assert(p); assert(e)
PERL_CALLCONV UV
Perl__to_utf8_title_flags(pTHX_ const U8 *p, const U8 *e, U8 *ustrp, STRLEN *lenp, bool flags);
#define PERL_ARGS_ASSERT__TO_UTF8_TITLE_FLAGS \
assert(p); assert(ustrp)
PERL_CALLCONV UV
Perl__to_utf8_upper_flags(pTHX_ const U8 *p, const U8 *e, U8 *ustrp, STRLEN *lenp, bool flags);
#define PERL_ARGS_ASSERT__TO_UTF8_UPPER_FLAGS \
@ -5297,6 +5292,11 @@ Perl_to_utf8_lower_flags_(pTHX_ const U8 *p, const U8 *e, U8 *ustrp, STRLEN *len
#define PERL_ARGS_ASSERT_TO_UTF8_LOWER_FLAGS_ \
assert(p); assert(ustrp)
PERL_CALLCONV UV
Perl_to_utf8_title_flags_(pTHX_ const U8 *p, const U8 *e, U8 *ustrp, STRLEN *lenp, bool flags);
#define PERL_ARGS_ASSERT_TO_UTF8_TITLE_FLAGS_ \
assert(p); assert(ustrp)
PERL_CALLCONV bool
Perl_try_amagic_bin(pTHX_ int method, int flags);
#define PERL_ARGS_ASSERT_TRY_AMAGIC_BIN

6
utf8.c
View File

@ -4441,15 +4441,15 @@ Perl__to_utf8_upper_flags(pTHX_ const U8 *p,
*/
UV
Perl__to_utf8_title_flags(pTHX_ const U8 *p,
Perl_to_utf8_title_flags_(pTHX_ const U8 *p,
const U8 *e,
U8* ustrp,
STRLEN *lenp,
bool flags)
{
UV result;
PERL_ARGS_ASSERT_TO_UTF8_TITLE_FLAGS_;
PERL_ARGS_ASSERT__TO_UTF8_TITLE_FLAGS;
UV result;
/* 2nd char of ucfirst(U+DF) is 's' */
CASE_CHANGE_BODY_START(~0, toupper, to_upper_title_latin1_, 's',