Lines Matching refs:line
7 # A list of files specific to the tool at hand. Line numbers in
14 my ($line, $tool_files, $cmdlin_files) = @_;
17 # If LINE matches any of the file names passed on the command line
18 # (i.e. in CMDLIN_FILES) return LINE unmodified.
22 return $line if ($line =~ /$qstring/);
25 # If LINE matches any of the file names in TOOL_FILES remove the line
26 # number and return the so modified line.
30 return $line if ($line =~ s/$qstring:[0-9]+/$string:.../m);
31 # Special case for functions whose line numbers have been removed in
33 return $line if ($line =~ s/$qstring:\.\.\./$string:.../m);
37 $line =~ s/[\w]+.*/.../m;
39 return "$line";
52 my $line = $_;
53 chomp($line);
54 if ($line =~ /^\s+(at |by )/) { # lines in a back trace
55 $line = massage_backtrace_line($line, \@tool_files, \@ARGV);
56 if ($line =~ /\s+\.\.\./) {
57 print "$line\n" if ($prev_line !~ /\s+\.\.\./);
59 print "$line\n";
62 print "$line\n"; # everything else
64 $prev_line = $line
