Lines Matching refs:UTF
43 # define UTF (!IN_BYTES)
45 # define UTF ((PL_linestr && DO_UTF8(PL_linestr)) || (PL_hints & HINT_UTF8))
257 else if (PL_oldoldbufptr && isIDFIRST_lazy_if(PL_oldoldbufptr,UTF)) {
259 for (t = PL_oldoldbufptr; *t && (isALNUM_lazy_if(t,UTF) || *t == ':'); t++) ;
677 for (s = PL_last_uni; isALNUM_lazy_if(s,UTF) || *s == '-'; s++) ;
771 if (isIDFIRST_lazy_if(s,UTF) ||
788 if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len))
1225 I32 this_utf8 = UTF; /* The source string is assumed to be UTF8 */
1360 && (isALNUM_lazy_if(s+1,UTF) || strchr(":'{$+-", s[1])))
1465 * escapes will be longer than any UTF-8 sequence
1796 if (isALNUM_lazy_if(s+1,UTF)) {
2422 if (isIDFIRST_lazy_if(s,UTF))
2533 /* If it looks like the start of a BOM or raw UTF-16,
2906 if (isIDFIRST_lazy_if(s,UTF)) {
3000 while (isIDFIRST_lazy_if(s,UTF)) {
3167 if (d < PL_bufend && isIDFIRST_lazy_if(d,UTF)) {
3273 while (t < PL_bufend && isALNUM_lazy_if(t,UTF))
3276 else if (isALNUM_lazy_if(t,UTF)) {
3278 while (t < PL_bufend && isALNUM_lazy_if(t,UTF))
3339 && isIDFIRST_lazy_if(s,UTF) && PL_bufptr == PL_linestart)
3470 if (s[1] == '#' && (isIDFIRST_lazy_if(s+2,UTF) || strchr("{$:+-", s[2]))) {
3513 isSPACE(*t) || isALNUM_lazy_if(t,UTF) || *t == '$';
3533 if (isIDFIRST_lazy_if(t,UTF)) {
3551 else if (strchr("&*<%", *s) && isIDFIRST_lazy_if(s+1,UTF))
3553 else if (isIDFIRST_lazy_if(s,UTF)) {
3607 while (*t && (isALNUM_lazy_if(t,UTF) || strchr(" \t$#+-'\"", *t)))
3629 || isALNUM_lazy_if(PL_last_uni+5,UTF)))
3844 if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len))
3965 /* UTF-8 package name? */
3966 if (UTF && !IN_BYTES &&
3992 if ((isIDFIRST_lazy_if(s,UTF) || *s == '$') && (tmp=intuit_method(s,gv)))
4015 if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len))
4048 && (isIDFIRST_lazy_if(s,UTF) || *s == '$')
4201 if (UTF)
4412 if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) {
4421 if (isIDFIRST_lazy_if(p,UTF)) {
4636 if (isIDFIRST_lazy_if(s,UTF)) {
4674 if (isIDFIRST_lazy_if(s,UTF)) {
4676 for (d = s; isALNUM_lazy_if(d,UTF); d++) ;
4826 if (isIDFIRST_lazy_if(PL_tokenbuf,UTF))
5017 if (isIDFIRST_lazy_if(s,UTF) || *s == '\'' ||
6031 if (isIDFIRST_lazy_if(s,UTF)) {
6033 while (isALNUM_lazy_if(s,UTF))
6158 if (isALNUM(*s)) /* UTF handled below */
6160 else if (*s == '\'' && allow_package && isIDFIRST_lazy_if(s+1,UTF)) {
6169 else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) {
6210 if (isALNUM(*s)) /* UTF handled below */
6212 else if (*s == '\'' && isIDFIRST_lazy_if(s+1,UTF)) {
6221 else if (UTF && UTF8_IS_START(*s) && isALNUM_utf8((U8*)s)) {
6243 (isALNUM_lazy_if(s+1,UTF) || strchr("${", s[1]) || strnEQ(s+1,"::",2)) )
6270 if (isIDFIRST_lazy_if(d,UTF)) {
6272 if (UTF) {
6274 while ((e < send && isALNUM_lazy_if(e,UTF)) || *e == ':') {
6549 if (!isALNUM_lazy_if(s,UTF))
6551 for (; isALNUM_lazy_if(s,UTF); s++) {
6709 if (UTF && is_utf8_string((U8*)SvPVX(tmpstr), SvCUR(tmpstr)))
6772 while (*d && (isALNUM_lazy_if(d,UTF) || *d == '\'' || *d == ':'))
6946 if (!UTF) {
6979 if (PL_encoding && !UTF) {
7076 else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF)
7105 else if (!has_utf8 && !UTF8_IS_INVARIANT((U8)*s) && UTF)
7168 if (!PL_encoding || UTF) {
7669 if (UTF && is_utf8_string((U8*)SvPVX(stuff), SvCUR(stuff)))
7848 /* UTF-16 little-endian? (or UTF32-LE?) */
7849 if (s[2] == 0 && s[3] == 0) /* UTF-32 little-endian */
7877 if (s[1] == 0xFF) { /* UTF-16 big-endian? */
7879 if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-16BE script encoding (BOM)\n");
7905 if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-8 script encoding (BOM)\n");
7906 s += 3; /* UTF-8 */
7913 /* UTF-32 big-endian */
7920 * are a good indicator of UTF-16BE. */
7921 if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-16BE script encoding (no BOM)\n");
7929 * are a good indicator of UTF-16LE. */
7930 if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-16LE script encoding (no BOM)\n");