diff options
author | Karl Williamson <khw@cpan.org> | 2019-10-31 19:23:09 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-10-31 19:45:24 -0600 |
commit | dd1a3ba7882ca70c1e85b0fd6c03d07856672075 (patch) | |
tree | 916c6439e1140fbaf22732a1ff9265c5757043e2 /mathoms.c | |
parent | e22f936cdc5a657073a7b61e120871463e4b08d8 (diff) | |
download | perl-dd1a3ba7882ca70c1e85b0fd6c03d07856672075.tar.gz |
Rmv more deprecated characlassify/case change macros
These were missed by 059703b088f44d5665f67fba0b9d80cad89085fd.
Diffstat (limited to 'mathoms.c')
-rw-r--r-- | mathoms.c | 88 |
1 files changed, 0 insertions, 88 deletions
@@ -1328,94 +1328,6 @@ Perl_is_uni_digit_lc(pTHX_ UV c) return isDIGIT_LC_uvchr(c); } -bool -Perl_is_uni_idfirst(pTHX_ UV c) -{ - U8 tmpbuf[UTF8_MAXBYTES+1]; - uvchr_to_utf8(tmpbuf, c); - return _is_utf8_idstart(tmpbuf); -} - -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; - - return _is_utf8_mark(p); -} - /* =for apidoc is_utf8_char |