Lines Matching refs:res
347 my $res = '';
351 $res .= ' ';
354 $res .= ' ';
358 $res .= $c;
362 return $res;
365 (my $res = shift) =~ tr/\t/ /c;
366 return $res;
396 my $res = '';
404 $res = substr($line, 0, 1);
414 substr($res, $off, 2, "$;$;");
420 substr($res, $off, 2, "$;$;");
427 substr($res, $off, 2, $sanitise_quote);
435 substr($res, $off, 2, 'XX');
444 substr($res, $off, 1, $c);
453 substr($res, $off, 1, $;);
455 substr($res, $off, 1, $;);
457 substr($res, $off, 1, 'X');
459 substr($res, $off, 1, $c);
468 if ($res =~ /^.\s*\#\s*include\s+\<(.*)\>/) {
470 $res =~ s@\<.*\>@<$clean>@;
473 } elsif ($res =~ /^.\s*\#\s*(?:error|warning)\s+(.*)\b/) {
475 $res =~ s@(\#\s*(?:error|warning)\s+).*@$1$clean@;
478 return $res;
683 my @res = ();
718 push(@res, $rawlines[$line]);
724 return ($level, @res);
815 my ($res, $coded);
817 $res = '';
819 $res .= $1;
822 $res .= $coded;
825 $res =~ s/$/\$/;
827 return $res;
845 my $res;
999 substr($var, length($res), 1, $av_pend_colon);
1021 substr($var, length($res), 1, $variant);
1035 $res .= $type x length($1);
1039 return ($res, $var);