Lines Matching defs:FILENAME
294 # Check for output filename
402 -o, --output-file FILENAME Write data to FILENAME instead of stdout
501 @param = (@param, "--output-filename", $output_filename);
660 @param = (@param, "--output-filename", $output_filename);
882 # %result: for each filename found in file -> \%data
928 my $filename; # Current filename
997 # Filename information found
999 $filename = $1;
1001 $data = $result{$filename};
1048 "at $filename:$1\n");
1090 if ($filename)
1105 $result{$filename} = $data;
1117 foreach $filename (keys(%result))
1119 $data = $result{$filename};
1127 delete($result{$filename});
1293 # merge_checksums(ref1, ref2, filename)
1308 my $filename = $_[2];
1317 die("ERROR: checksum mismatch at $filename:$line\n");
1332 # merge_func_data(funcdata1, funcdata2, filename)
1337 my ($funcdata1, $funcdata2, $filename) = @_;
1349 "$filename:$line2\n");
1428 # combine_info_entries(entry_ref1, entry_ref2, filename)
1464 my $filename = $_[2];
1473 $checkdata1 = merge_checksums($checkdata1, $checkdata2, $filename);
1476 $result_funcdata = merge_func_data($funcdata1, $funcdata2, $filename);
1543 my $filename;
1545 foreach $filename (keys(%hash2))
1547 if ($hash1{$filename})
1550 $hash1{$filename} =
1551 combine_info_entries($hash1{$filename},
1552 $hash2{$filename},
1553 $filename);
1559 $hash1{$filename} = $hash2{$filename};
1737 my $filename;
1748 foreach $filename (sort(keys(%{$data})))
1754 $keep ||= ($filename =~ (/^$pattern$/));
1760 delete($data->{$filename});
1764 info("Extracting $filename\n"),
1793 my $filename;
1804 foreach $filename (sort(keys(%{$data})))
1810 $match_found ||= ($filename =~ (/$pattern$/));
1816 delete($data->{$filename});
1817 info("Removing $filename\n"),
1846 my $filename;
1854 foreach $filename (sort(keys(%{$data})))
1856 $entry = $data->{$filename};
1859 printf("$filename: $hit of $found lines hit\n");
1867 # Check for filename components which are common to FILENAME1 and FILENAME2.
1881 # Work in reverse order, i.e. beginning with the filename itself
1909 my $filename = $_[0];
1915 return $filename;
1919 $filename =~ s/^[^\/]*\/+(.*)$/$1/;
1921 return $filename;
1926 # read_diff(filename)
1928 # Read diff output from FILENAME to memory. The diff file has to follow the
1933 # mapping: filename -> reference to line hash
1936 # path mapping: filename -> old filename
1944 my %diff; # Resulting mapping filename -> line hash
1952 my $filename; # Name of common filename of diff section
2003 # Filename of old file:
2004 # --- <filename> <date>
2010 # Filename of new file:
2011 # +++ <filename> <date>
2015 if ($filename)
2018 $diff{$filename} = $mapping;
2022 $filename = $file_old;
2023 $paths{$filename} = $file_new;
2094 if ($filename)
2096 $diff{$filename} = $mapping;
2218 # get_line_hash($filename, $diff_data, $path_data)
2220 # Find line hash in DIFF_DATA which matches FILENAME. On success, return list
2227 my $filename = $_[0];
2240 # Try to match diff filename with filename
2241 if ($filename =~ /^\Q$diff_path\E\/$_$/)
2253 "$filename\n");
2269 if ($filename =~ /^(.*)$diff_name$/)
2272 get_common_filename($filename,
2294 my $filename;
2304 foreach $filename (keys(%{$path_conversion_data}))
2306 $new_path = $path_conversion_data->{$filename};
2307 while (($filename =~ s/^(.*)\/[^\/]+$/$1/) &&
2309 ($filename ne $new_path))
2311 $path_conversion_data->{$filename} = $new_path;
2316 FILENAME: foreach $filename (keys(%{$trace_data}))
2323 # Is this path a prefix of our filename?
2324 if (!($filename =~ /^$_(.*)$/))
2337 $trace_data->{$filename},
2339 $filename);
2345 $trace_data->{$filename};
2347 delete($trace_data->{$filename});
2348 next FILENAME;
2350 info("No conversion available for filename $filename\n");
2424 my $filename;
2445 foreach $filename (sort(keys(%{$trace_data})))
2449 get_line_hash($filename, $diff_data, $path_data);
2464 info("Removing $filename\n");
2465 delete($trace_data->{$filename});
2468 info("Converting $filename\n");
2469 $entry = $trace_data->{$filename};
2544 delete($trace_data->{$filename});
2617 # read_config(filename)
2619 # Read configuration file FILENAME and return a reference to a hash containing
2625 my $filename = $_[0];
2631 if (!open(HANDLE, "<$filename"))
2633 warn("WARNING: cannot read configuration file $filename\n");
2654 "of configuration file $filename\n");