diff options
author | Karl Williamson <public@khwilliamson.com> | 2014-01-04 22:21:14 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2014-01-05 21:28:16 -0700 |
commit | dc2e544e7f6b9c92650110831cb474944d022ca5 (patch) | |
tree | e0841248028a4518993c7ad738e7bb7994269728 /mathoms.c | |
parent | 0324dadaebed3376a82581ec86490ede0d85ceb1 (diff) | |
download | perl-dc2e544e7f6b9c92650110831cb474944d022ca5.tar.gz |
utf8.c: Move a bunch of deprecated fcns to mathoms.c
These functions will be out of the way in mathoms. There were a few
that could not be moved, as-is, so I left them.
Diffstat (limited to 'mathoms.c')
-rw-r--r-- | mathoms.c | 395 |
1 files changed, 395 insertions, 0 deletions
@@ -1227,6 +1227,401 @@ ASCII_TO_NEED(const UV enc, const UV ch) return ch; } +bool +Perl_is_uni_alnum(pTHX_ UV c) +{ + return isWORDCHAR_uni(c); +} + +bool +Perl_is_uni_alnumc(pTHX_ UV c) +{ + return isALNUM_uni(c); +} + +bool +Perl_is_uni_alpha(pTHX_ UV c) +{ + return isALPHA_uni(c); +} + +bool +Perl_is_uni_ascii(pTHX_ UV c) +{ + return isASCII_uni(c); +} + +bool +Perl_is_uni_blank(pTHX_ UV c) +{ + return isBLANK_uni(c); +} + +bool +Perl_is_uni_space(pTHX_ UV c) +{ + return isSPACE_uni(c); +} + +bool +Perl_is_uni_digit(pTHX_ UV c) +{ + return isDIGIT_uni(c); +} + +bool +Perl_is_uni_upper(pTHX_ UV c) +{ + return isUPPER_uni(c); +} + +bool +Perl_is_uni_lower(pTHX_ UV c) +{ + return isLOWER_uni(c); +} + +bool +Perl_is_uni_cntrl(pTHX_ UV c) +{ + return isCNTRL_L1(c); +} + +bool +Perl_is_uni_graph(pTHX_ UV c) +{ + return isGRAPH_uni(c); +} + +bool +Perl_is_uni_print(pTHX_ UV c) +{ + return isPRINT_uni(c); +} + +bool +Perl_is_uni_punct(pTHX_ UV c) +{ + return isPUNCT_uni(c); +} + +bool +Perl_is_uni_xdigit(pTHX_ UV c) +{ + return isXDIGIT_uni(c); +} + +bool +Perl_is_uni_alnum_lc(pTHX_ UV c) +{ + return isWORDCHAR_LC_uvchr(c); +} + +bool +Perl_is_uni_alnumc_lc(pTHX_ UV c) +{ + return isALPHANUMERIC_LC_uvchr(c); +} + +bool +Perl_is_uni_idfirst_lc(pTHX_ UV c) +{ + /* XXX Should probably be something that resolves to the old IDFIRST, but + * this function is deprecated, so not bothering */ + return isIDFIRST_LC_uvchr(c); +} + +bool +Perl_is_uni_alpha_lc(pTHX_ UV c) +{ + return isALPHA_LC_uvchr(c); +} + +bool +Perl_is_uni_ascii_lc(pTHX_ UV c) +{ + return isASCII_LC_uvchr(c); +} + +bool +Perl_is_uni_blank_lc(pTHX_ UV c) +{ + return isBLANK_LC_uvchr(c); +} + +bool +Perl_is_uni_space_lc(pTHX_ UV c) +{ + return isSPACE_LC_uvchr(c); +} + +bool +Perl_is_uni_digit_lc(pTHX_ UV c) +{ + return isDIGIT_LC_uvchr(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_alnum(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_ALNUM; + + /* NOTE: "IsWord", not "IsAlnum", since Alnum is a true + * descendant of isalnum(3), in other words, it doesn't + * contain the '_'. --jhi */ + return isWORDCHAR_utf8(p); +} + +bool +Perl_is_utf8_alnumc(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_ALNUMC; + + return isALPHANUMERIC_utf8(p); +} + +bool +Perl_is_utf8_alpha(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_ALPHA; + + return isALPHA_utf8(p); +} + +bool +Perl_is_utf8_ascii(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_ASCII; + + return isASCII_utf8(p); +} + +bool +Perl_is_utf8_blank(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_BLANK; + + return isBLANK_utf8(p); +} + +bool +Perl_is_utf8_space(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_SPACE; + + return isSPACE_utf8(p); +} + +bool +Perl_is_utf8_perl_space(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_PERL_SPACE; + + /* Only true if is an ASCII space-like character, and ASCII is invariant + * under utf8, so can just use the macro */ + return isSPACE_A(*p); +} + +bool +Perl_is_utf8_perl_word(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_PERL_WORD; + + /* Only true if is an ASCII word character, and ASCII is invariant + * under utf8, so can just use the macro */ + return isWORDCHAR_A(*p); +} + +bool +Perl_is_utf8_digit(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_DIGIT; + + return isDIGIT_utf8(p); +} + +bool +Perl_is_utf8_posix_digit(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_POSIX_DIGIT; + + /* Only true if is an ASCII digit character, and ASCII is invariant + * under utf8, so can just use the macro */ + return isDIGIT_A(*p); +} + +bool +Perl_is_utf8_upper(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_UPPER; + + return isUPPER_utf8(p); +} + +bool +Perl_is_utf8_lower(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_LOWER; + + return isLOWER_utf8(p); +} + +bool +Perl_is_utf8_cntrl(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_CNTRL; + + return isCNTRL_utf8(p); +} + +bool +Perl_is_utf8_graph(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_GRAPH; + + return isGRAPH_utf8(p); +} + +bool +Perl_is_utf8_print(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_PRINT; + + return isPRINT_utf8(p); +} + +bool +Perl_is_utf8_punct(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_PUNCT; + + return isPUNCT_utf8(p); +} + +bool +Perl_is_utf8_xdigit(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_XDIGIT; + + return isXDIGIT_utf8(p); +} + +bool +Perl_is_utf8_mark(pTHX_ const U8 *p) +{ + dVAR; + + PERL_ARGS_ASSERT_IS_UTF8_MARK; + + return _is_utf8_mark(p); +} + END_EXTERN_C #endif /* NO_MATHOMS */ |