Lines Matching refs:str
20 my $str = qr/(?:"(?:[^"\\]|\\.)*")/;
36 my ($certainly_pango_str, $str) = @_;
38 $str =~ s/\A"// or die "Bug: No leading `\"' in `$str'";
39 $str =~ s/"\Z// or die "Bug: No trailing `\"' in `$str'";
41 if ($str =~ /\AProject-Id-Version:.*POT-Creation-Date/
42 or $str =~ /\A<[^<>]*>\Z/) {
50 while ($str =~ s{<([bisu]|big|su[bp]|small|tt|span)(${attrsRE})>[^<>]*</\1>}{}) {
69 if (($str =~ m{&#[^0-9]+;}) or ($str =~ m{&#x[^0-9a-fA-F]+;})) {
74 if (($str =~ m{&#[^0-9]+}) or ($str =~ m{&#x[^0-9a-fA-F]+})) {
79 if (($str =~ m{&#(?![0-9]{2,4};)}) or ($str =~ m{&#x(?![0-9a-fA-F]{2,4};)})) {
85 if ($str =~ m{<([bisu]|big|su[bp]|small|tt)\b(?! *)>}) {
90 if ($str =~ m{<([bisu]|big|su[bp]|small|span|tt)${attrsRE}>}) {
95 if ($str =~ m{</\ *([bisu]|big|su[bp]|small|span|tt)\ *>}) {
101 $str =~ s/<(?:defs|image|rect|svg)>//g;
102 $str =~ s/<[ 01]//g;
103 $str =~ s/\A>+//;
104 $str =~ s/<+\Z//;
105 $str =~ s/\([<>][01]\)//g;
106 $str =~ s/ -> //g;
109 $str =~ s/\[[<>]\]//g;
110 $str =~ s/\\"[<>]\\"//g;
111 $str =~ s/\xe2\x80\x9e[<>]\xe2\x80\x9c//g;
112 $str =~ s/\xc2\xab[<>]\xc2\xbb//;
115 $str =~ s/\A[^<>]*//;
116 $str =~ s/[^<>]*\Z//;
118 if ($str =~ /\A([<>])\Z/) {
127 if ($str ne '') {
128 po_error("parsing error for `$str'");
147 foreach my $str (@_) {
148 $str eq '""' or check_str($is_pango_str - 1, $str) or return 0;
183 (?:msgctxt\ ${str}\s*\n)?
184 msgid\ ${str}\s*\n
187 msgstr\ ${str}\s*\n
189 | msgid_plural\ ${str}\s*\n
191 (?:msgstr\[\d+\]\ ${str}\s*\n${com}*)+
218 (?:msgctxt\ ${str}\s*\n)?
219 msgid\ (${str})\n
221 msgstr\ (${str})\n
229 (?:msgctxt\ ${str}\s*\n)?
230 msgid\ (${str})\n
232 msgid_plural\ (${str})\n
233 ((?:${com}*msgstr\[\d+\]\ ${str}\n${com}*)+)
238 while ($rest =~ s/\A${com}*msgstr\[\d+\]\ (${str})\n${com}*//) {
244 elsif (m{$str[ \t]}) {