Lines Matching refs:res
1522 my $res = '';
1526 $res .= ' ';
1529 $res .= ' ';
1533 $res .= $c;
1537 return $res;
1540 (my $res = shift) =~ tr/\t/ /c;
1541 return $res;
1571 my $res = '';
1579 $res = substr($line, 0, 1);
1589 substr($res, $off, 2, "$;$;");
1595 substr($res, $off, 2, "$;$;");
1602 substr($res, $off, 2, $sanitise_quote);
1610 substr($res, $off, 2, 'XX');
1619 substr($res, $off, 1, $c);
1628 substr($res, $off, 1, $;);
1630 substr($res, $off, 1, $;);
1632 substr($res, $off, 1, 'X');
1634 substr($res, $off, 1, $c);
1643 if ($res =~ /^.\s*\#\s*include\s+\<(.*)\>/) {
1645 $res =~ s@\<.*\>@<$clean>@;
1648 } elsif ($res =~ /^.\s*\#\s*(?:error|warning)\s+(.*)\b/) {
1650 $res =~ s@(\#\s*(?:error|warning)\s+).*@$1$clean@;
1653 if ($allow_c99_comments && $res =~ m@(//.*$)@) {
1655 $res =~ s/\Q$match\E/"$;" x length($match)/e;
1658 return $res;
1882 my @res = ();
1917 push(@res, $rawlines[$line]);
1923 return ($level, @res);
2044 my ($res, $coded);
2046 $res = '';
2048 $res .= $1;
2051 $res .= $coded;
2054 $res =~ s/$/\$/;
2056 return $res;
2074 my $res;
2228 substr($var, length($res), 1, $av_pend_colon);
2250 substr($var, length($res), 1, $variant);
2264 $res .= $type x length($1);
2268 return ($res, $var);