Lines Matching refs:res
1527 my $res = '';
1531 $res .= ' ';
1534 $res .= ' ';
1538 $res .= $c;
1542 return $res;
1545 (my $res = shift) =~ tr/\t/ /c;
1546 return $res;
1576 my $res = '';
1584 $res = substr($line, 0, 1);
1594 substr($res, $off, 2, "$;$;");
1600 substr($res, $off, 2, "$;$;");
1607 substr($res, $off, 2, $sanitise_quote);
1615 substr($res, $off, 2, 'XX');
1624 substr($res, $off, 1, $c);
1633 substr($res, $off, 1, $;);
1635 substr($res, $off, 1, $;);
1637 substr($res, $off, 1, 'X');
1639 substr($res, $off, 1, $c);
1648 if ($res =~ /^.\s*\#\s*include\s+\<(.*)\>/) {
1650 $res =~ s@\<.*\>@<$clean>@;
1653 } elsif ($res =~ /^.\s*\#\s*(?:error|warning)\s+(.*)\b/) {
1655 $res =~ s@(\#\s*(?:error|warning)\s+).*@$1$clean@;
1658 if ($allow_c99_comments && $res =~ m@(//.*$)@) {
1660 $res =~ s/\Q$match\E/"$;" x length($match)/e;
1663 return $res;
1887 my @res = ();
1922 push(@res, $rawlines[$line]);
1928 return ($level, @res);
2049 my ($res, $coded);
2051 $res = '';
2053 $res .= $1;
2056 $res .= $coded;
2059 $res =~ s/$/\$/;
2061 return $res;
2079 my $res;
2233 substr($var, length($res), 1, $av_pend_colon);
2255 substr($var, length($res), 1, $variant);
2269 $res .= $type x length($1);
2273 return ($res, $var);