5.8.4/distrib/regcomp.c

129     I32		utf8;		/* whether the pattern is utf8 or not */
130     I32		orig_utf8;	/* whether the pattern was originally in utf8 */
132 				 * where pattern must be upgraded to utf8. */
157 #define RExC_utf8	(pRExC_state->utf8)
1793         detect such a sequence we have to convert the entire pattern to utf8
1795         on 1 byte == 1 character, but we will need to use utf8 to encode
1802 	    "UTF8 mismatch! Converting to utf8 for resizing and compile\n"));
3676 					"+utf8::%.*s\n", (int)n, RExC_parse);
3679 					"!utf8::%.*s\n", (int)n, RExC_parse);
3782 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsWord\n");
3792 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsWord\n");
3802 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsAlnum\n");
3812 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsAlnum\n");
3822 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsAlpha\n");
3832 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsAlpha\n");
3848 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsASCII\n");
3864 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsASCII\n");
3874 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsBlank\n");
3884 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsBlank\n");
3894 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsCntrl\n");
3904 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsCntrl\n");
3914 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsDigit\n");
3926 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsDigit\n");
3936 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsGraph\n");
3946 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsGraph\n");
3956 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsLower\n");
3966 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsLower\n");
3976 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsPrint\n");
3986 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsPrint\n");
3996 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsSpace\n");
4006 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsSpace\n");
4016 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsPunct\n");
4026 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsPunct\n");
4036 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsSpacePerl\n");
4046 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsSpacePerl\n");
4056 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsUpper\n");
4066 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsUpper\n");
4076 		    Perl_sv_catpvf(aTHX_ listsv, "+utf8::IsXDigit\n");
4086 		    Perl_sv_catpvf(aTHX_ listsv, "!utf8::IsXDigit\n");
4625 		      "anchored utf8 `%s%.*s%s'%s at %"IVdf" ",
4643 		      "floating utf8 `%s%.*s%s'%s at %"IVdf"..%"UVuf" ",
4914 		      prog->check_substr ? "" : "utf8 ",