From Xiao Xiangquan:

[obnox/wireshark/wip.git] / make-version.pl

diff --git a/make-version.pl b/make-version.pl
index 08798a987d5c980beaa1ec9830bf17c5b5c417b0..ab2ff3e562415202457c4bbb42ebc7232bafdb66 100755 (executable)
--- a/make-version.pl
+++ b/make-version.pl
@@ -262,8 +262,8 @@ sub update_configure_in
 
        open(CFGIN, "< $filepath") || die "Can't read $filepath!";
        while ($line = <CFGIN>) {
-               if ($line =~ /^AC_INIT\(wireshark, (\d+)\.(\d+).(\d+)/) {
-                       $line = sprintf("AC_INIT\(wireshark, %d.%d.%d%s)\n",
+               if ($line =~ /^AC_INIT\(wireshark, (\d+)\.(\d+).(\d+).*([\r\n]+)$/) {
+                       $line = sprintf("AC_INIT\(wireshark, %d.%d.%d%s)$4",
                                        $set_version ? $version_pref{"version_major"} : $1,
                                        $set_version ? $version_pref{"version_minor"} : $2,
                                        $set_version ? $version_pref{"version_micro"} : $3,
@@ -291,16 +291,16 @@ sub update_config_nmake
 
        open(CFGNMAKE, "< $filepath") || die "Can't read $filepath!";
        while ($line = <CFGNMAKE>) {
-               if ($line =~ /^SVN_REVISION=/) {
-                       $line = sprintf("SVN_REVISION=%d\n", $revision);
-               } elsif ($set_version && $line =~ /^VERSION_MAJOR=/) {
-                       $line = sprintf("VERSION_MAJOR=%d\n", $version_pref{"version_major"});
-               } elsif ($set_version && $line =~ /^VERSION_MINOR=/) {
-                       $line = sprintf("VERSION_MINOR=%d\n", $version_pref{"version_minor"});
-               } elsif ($set_version && $line =~ /^VERSION_MICRO=/) {
-                       $line = sprintf("VERSION_MICRO=%d\n", $version_pref{"version_micro"});
-               } elsif ($line =~ /^VERSION_EXTRA=/) {
-                       $line = "VERSION_EXTRA=$package_string\n";
+               if ($line =~ /^SVN_REVISION=.*([\r\n]+)$/) {
+                       $line = sprintf("SVN_REVISION=%d$1", $revision);
+               } elsif ($set_version && $line =~ /^VERSION_MAJOR=.*([\r\n]+)$/) {
+                       $line = sprintf("VERSION_MAJOR=%d$1", $version_pref{"version_major"});
+               } elsif ($set_version && $line =~ /^VERSION_MINOR=.*([\r\n]+)$/) {
+                       $line = sprintf("VERSION_MINOR=%d$1", $version_pref{"version_minor"});
+               } elsif ($set_version && $line =~ /^VERSION_MICRO=.*([\r\n]+)$/) {
+                       $line = sprintf("VERSION_MICRO=%d$1", $version_pref{"version_micro"});
+               } elsif ($line =~ /^VERSION_EXTRA=.*([\r\n]+)$/) {
+                       $line = "VERSION_EXTRA=$package_string$1";
                }
                $contents .= $line
        }
@@ -326,8 +326,8 @@ sub update_release_notes
        while ($line = <RELNOTES>) {
                #   <!ENTITY WiresharkCurrentVersion "1.7.1">
 
-               if ($line =~ /<\!ENTITY\s+WiresharkCurrentVersion\s+/) {
-                       $line = sprintf("<!ENTITY WiresharkCurrentVersion \"%d.%d.%d\">\n",
+               if ($line =~ /<\!ENTITY\s+WiresharkCurrentVersion\s+.*([\r\n]+)$/) {
+                       $line = sprintf("<!ENTITY WiresharkCurrentVersion \"%d.%d.%d\">$1",
                                        $version_pref{"version_major"},
                                        $version_pref{"version_minor"},
                                        $version_pref{"version_micro"},
@@ -370,6 +370,72 @@ sub update_debian_changelog
        print "$filepath has been updated.\n";
 }
 
+# Read debian/wireshark-common.files, then write back out an updated version.
+# The libraries updated here MUST match the updates made by update_lib_releases
+# below. We should do this automatically.
+sub update_debian_wcf
+{
+       my $line;
+       my $contents = "";
+       my $version = "";
+       my $filepath = "$srcdir/debian/wireshark-common.files";
+
+       return if (!$set_version);
+
+       open(DWCF, "< $filepath") || die "Can't read $filepath!";
+       while ($line = <DWCF>) {
+               # /usr/lib/wireshark/libwireshark.so.1.1.0
+
+               if ($line =~ qr{^(/usr/lib/wireshark/lib(wireshark|wiretap).so\.\d+\.\d+\.)\d+$}) {
+                       $line = sprintf("$1%d\n", $version_pref{"version_micro"});
+               }
+               $contents .= $line
+       }
+
+       open(DWCF, "> $filepath") || die "Can't write $filepath!";
+       print(DWCF $contents);
+       close(DWCF);
+       print "$filepath has been updated.\n";
+}
+
+# Read Makefile.am for each library, then write back out an updated version.
+sub update_lib_releases
+{
+       my $line;
+       my $contents = "";
+       my $version = "";
+       my $filedir;
+       my $filepath;
+
+       return if (!$set_version);
+
+       # The Libtool manual says
+       #   "If the library source code has changed at all since the last
+       #    update, then increment revision (‘c:r:a’ becomes ‘c:r+1:a’)."
+       # epan changes with each minor release, almost by definition. wiretap
+       # changes with *most* releases.
+       #
+       # http://www.gnu.org/software/libtool/manual/libtool.html#Updating-version-info
+       for $filedir ("epan", "wiretap") {      # "wsutil"
+               $contents = "";
+               $filepath = $filedir . "/Makefile.am";
+               open(MAKEFILE_AM, "< $filepath") || die "Can't read $filepath!";
+               while ($line = <MAKEFILE_AM>) {
+                       # libwireshark_la_LDFLAGS = -version-info 2:1:1 -export-symbols
+
+                       if ($line =~ /^(lib\w+_la_LDFLAGS.*version-info\s+\d+:)\d+(:\d+.*)/) {
+                               $line = sprintf("$1%d$2\n", $version_pref{"version_micro"});
+                       }
+                       $contents .= $line
+               }
+
+               open(MAKEFILE_AM, "> $filepath") || die "Can't write $filepath!";
+               print(MAKEFILE_AM $contents);
+               close(MAKEFILE_AM);
+               print "$filepath has been updated.\n";
+       }
+}
+
 # Update distributed files that contain any version information
 sub update_versioned_files
 {
@@ -377,6 +443,8 @@ sub update_versioned_files
        &update_config_nmake;
        &update_release_notes;
        &update_debian_changelog;
+       &update_debian_wcf;
+       &update_lib_releases;
 }
 
 # Print the SVN version to $version_file.