Lines Matching defs:line
6 # The script works line-by-line and is generally unaware of XML structure
13 # TOOL_FILES or in the list of files given on the command line
15 # a line <frame>...</frame> will be inserted.
23 # A list of files specific to the tool at hand. Line numbers in
78 line:
80 my $line = $_;
81 chomp($line);
86 if ($line =~ $ignore_sections{$tag}) {
92 next line;
97 if ($line =~ $tag) {
103 if ($line =~ $tag) {
111 # OK. This line is not to be ignored.
113 # Massage line by applying PATTERNS.
115 if ($line =~ $key) {
117 $line =~ s/$matched/$patterns{$key}/g;
123 if ($line =~ /<\/frame>/) {
124 $frame_buf .= "$line\n";
141 } elsif ($line =~ /<file>(.*)<\/file>/) {
142 $frame_buf .= "$line\n";
148 } elsif ($line =~ /<line>(.*)<\/line>/) {
149 # This code assumes that <file> always precedes <line>
152 $line =~ s/$1/.../;
154 $frame_buf .= "$line\n";
156 $frame_buf .= "$line\n";
160 if ($line =~ /<\/stack>/) {
164 if ($line =~ /<frame>/) {
166 $frame_buf = "$line\n";
168 print "$line\n";
