Index: third_party/lcov-1.9/bin/updateversion.pl |
diff --git a/third_party/lcov-1.9/bin/updateversion.pl b/third_party/lcov-1.9/bin/updateversion.pl |
deleted file mode 100755 |
index 55f2bc1dd9a0dead1d8d3ff7216ac8827ec96758..0000000000000000000000000000000000000000 |
--- a/third_party/lcov-1.9/bin/updateversion.pl |
+++ /dev/null |
@@ -1,146 +0,0 @@ |
-#!/usr/bin/perl -w |
- |
-use strict; |
- |
-sub update_man_page($); |
-sub update_bin_tool($); |
-sub update_txt_file($); |
-sub update_spec_file($); |
-sub get_file_info($); |
- |
-our $directory = $ARGV[0]; |
-our $version = $ARGV[1]; |
-our $release = $ARGV[2]; |
- |
-our @man_pages = ("man/gendesc.1", "man/genhtml.1", "man/geninfo.1", |
- "man/genpng.1", "man/lcov.1", "man/lcovrc.5"); |
-our @bin_tools = ("bin/gendesc", "bin/genhtml", "bin/geninfo", |
- "bin/genpng", "bin/lcov"); |
-our @txt_files = ("README"); |
-our @spec_files = ("rpm/lcov.spec"); |
- |
-if (!defined($directory) || !defined($version) || !defined($release)) { |
- die("Usage: $0 <directory> <version string> <release string>\n"); |
-} |
- |
-foreach (@man_pages) { |
- print("Updating man page $_\n"); |
- update_man_page($directory."/".$_); |
-} |
-foreach (@bin_tools) { |
- print("Updating bin tool $_\n"); |
- update_bin_tool($directory."/".$_); |
-} |
-foreach (@txt_files) { |
- print("Updating text file $_\n"); |
- update_txt_file($directory."/".$_); |
-} |
-foreach (@spec_files) { |
- print("Updating spec file $_\n"); |
- update_spec_file($directory."/".$_); |
-} |
-print("Done.\n"); |
- |
-sub get_file_info($) |
-{ |
- my ($filename) = @_; |
- my ($sec, $min, $hour, $year, $month, $day); |
- my @stat; |
- |
- @stat = stat($filename); |
- ($sec, $min, $hour, $day, $month, $year) = localtime($stat[9]); |
- $year += 1900; |
- $month += 1; |
- |
- return (sprintf("%04d-%02d-%02d", $year, $month, $day), |
- sprintf("%04d%02d%02d%02d%02d.%02d", $year, $month, $day, |
- $hour, $min, $sec), |
- sprintf("%o", $stat[2] & 07777)); |
-} |
- |
-sub update_man_page($) |
-{ |
- my ($filename) = @_; |
- my @date = get_file_info($filename); |
- my $date_string = $date[0]; |
- local *IN; |
- local *OUT; |
- |
- $date_string =~ s/-/\\-/g; |
- open(IN, "<$filename") || die ("Error: cannot open $filename\n"); |
- open(OUT, ">$filename.new") || |
- die("Error: cannot create $filename.new\n"); |
- while (<IN>) { |
- s/\"LCOV\s+\d+\.\d+\"/\"LCOV $version\"/g; |
- s/\d\d\d\d\\\-\d\d\\\-\d\d/$date_string/g; |
- print(OUT $_); |
- } |
- close(OUT); |
- close(IN); |
- chmod(oct($date[2]), "$filename.new"); |
- system("mv", "-f", "$filename.new", "$filename"); |
- system("touch", "$filename", "-t", $date[1]); |
-} |
- |
-sub update_bin_tool($) |
-{ |
- my ($filename) = @_; |
- my @date = get_file_info($filename); |
- local *IN; |
- local *OUT; |
- |
- open(IN, "<$filename") || die ("Error: cannot open $filename\n"); |
- open(OUT, ">$filename.new") || |
- die("Error: cannot create $filename.new\n"); |
- while (<IN>) { |
- s/(our\s+\$lcov_version\s*=\s*["']).*(["'].*)$/$1LCOV version $version$2/g; |
- print(OUT $_); |
- } |
- close(OUT); |
- close(IN); |
- chmod(oct($date[2]), "$filename.new"); |
- system("mv", "-f", "$filename.new", "$filename"); |
- system("touch", "$filename", "-t", $date[1]); |
-} |
- |
-sub update_txt_file($) |
-{ |
- my ($filename) = @_; |
- my @date = get_file_info($filename); |
- local *IN; |
- local *OUT; |
- |
- open(IN, "<$filename") || die ("Error: cannot open $filename\n"); |
- open(OUT, ">$filename.new") || |
- die("Error: cannot create $filename.new\n"); |
- while (<IN>) { |
- s/(Last\s+changes:\s+)\d\d\d\d-\d\d-\d\d/$1$date[0]/g; |
- print(OUT $_); |
- } |
- close(OUT); |
- close(IN); |
- chmod(oct($date[2]), "$filename.new"); |
- system("mv", "-f", "$filename.new", "$filename"); |
- system("touch", "$filename", "-t", $date[1]); |
-} |
- |
-sub update_spec_file($) |
-{ |
- my ($filename) = @_; |
- my @date = get_file_info($filename); |
- local *IN; |
- local *OUT; |
- |
- open(IN, "<$filename") || die ("Error: cannot open $filename\n"); |
- open(OUT, ">$filename.new") || |
- die("Error: cannot create $filename.new\n"); |
- while (<IN>) { |
- s/^(Version:\s*)\d+\.\d+.*$/$1$version/; |
- s/^(Release:\s*).*$/$1$release/; |
- print(OUT $_); |
- } |
- close(OUT); |
- close(IN); |
- system("mv", "-f", "$filename.new", "$filename"); |
- system("touch", "$filename", "-t", $date[1]); |
-} |