diff options
Diffstat (limited to 'mathoms.c')
-rw-r--r-- | mathoms.c | 72 |
1 files changed, 72 insertions, 0 deletions
@@ -1337,6 +1337,78 @@ Perl_is_uni_idfirst(pTHX_ UV c) } bool +Perl_is_uni_upper_lc(pTHX_ UV c) +{ + return isUPPER_LC_uvchr(c); +} + +bool +Perl_is_uni_lower_lc(pTHX_ UV c) +{ + return isLOWER_LC_uvchr(c); +} + +bool +Perl_is_uni_cntrl_lc(pTHX_ UV c) +{ + return isCNTRL_LC_uvchr(c); +} + +bool +Perl_is_uni_graph_lc(pTHX_ UV c) +{ + return isGRAPH_LC_uvchr(c); +} + +bool +Perl_is_uni_print_lc(pTHX_ UV c) +{ + return isPRINT_LC_uvchr(c); +} + +bool +Perl_is_uni_punct_lc(pTHX_ UV c) +{ + return isPUNCT_LC_uvchr(c); +} + +bool +Perl_is_uni_xdigit_lc(pTHX_ UV c) +{ + return isXDIGIT_LC_uvchr(c); +} + +U32 +Perl_to_uni_upper_lc(pTHX_ U32 c) +{ + /* XXX returns only the first character -- do not use XXX */ + /* XXX no locale support yet */ + STRLEN len; + U8 tmpbuf[UTF8_MAXBYTES_CASE+1]; + return (U32)to_uni_upper(c, tmpbuf, &len); +} + +U32 +Perl_to_uni_title_lc(pTHX_ U32 c) +{ + /* XXX returns only the first character XXX -- do not use XXX */ + /* XXX no locale support yet */ + STRLEN len; + U8 tmpbuf[UTF8_MAXBYTES_CASE+1]; + return (U32)to_uni_title(c, tmpbuf, &len); +} + +U32 +Perl_to_uni_lower_lc(pTHX_ U32 c) +{ + /* XXX returns only the first character -- do not use XXX */ + /* XXX no locale support yet */ + STRLEN len; + U8 tmpbuf[UTF8_MAXBYTES_CASE+1]; + return (U32)to_uni_lower(c, tmpbuf, &len); +} + +bool Perl_is_utf8_mark(pTHX_ const U8 *p) { PERL_ARGS_ASSERT_IS_UTF8_MARK; |