Lines Matching refs:r
260 foreach my $r (keys %ioctls) {
261 my $s = $ioctls{$r};
263 $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
265 print "$r -> $s\n" if ($debug);
267 $data =~ s/($start_delim)($r)$end_delim/$1$s$3/g;
270 foreach my $r (keys %defines) {
271 my $s = $defines{$r};
273 $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
275 print "$r -> $s\n" if ($debug);
277 $data =~ s/($start_delim)($r)$end_delim/$1$s$3/g;
280 foreach my $r (keys %enum_symbols) {
281 my $s = $enum_symbols{$r};
283 $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
285 print "$r -> $s\n" if ($debug);
287 $data =~ s/($start_delim)($r)$end_delim/$1$s$3/g;
290 foreach my $r (keys %enums) {
291 my $s = $enums{$r};
293 $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
295 print "$r -> $s\n" if ($debug);
297 $data =~ s/enum\s+($r)$end_delim/$s$2/g;
300 foreach my $r (keys %structs) {
301 my $s = $structs{$r};
303 $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
305 print "$r -> $s\n" if ($debug);
307 $data =~ s/struct\s+($r)$end_delim/$s$2/g;
310 foreach my $r (keys %typedefs) {
311 my $s = $typedefs{$r};
313 $r =~ s,([\_\`\*\<\>\&\\\\:\/]),\\\\$1,g;
315 print "$r -> $s\n" if ($debug);
316 $data =~ s/($start_delim)($r)$end_delim/$1$s$3/g;