tools: Compare file contents directly in Perl instead of invoking cmp.

Signed-off-by: Alexandre Julliard <julliard@winehq.org>

tools/make_makefiles

@@ -84,16 +84,14 @@ sub dirname($)
 }
 
 # update a file if changed
-sub update_file($)
+sub update_file($$)
 {
     my $file = shift;
-    my $ret = !(-f $file) || system "cmp $file $file.new >/dev/null";
+    my $new = shift;
-    if (!$ret)
+
-    {
+    open FILE, ">$file.new" or die "cannot create $file.new";
-        unlink "$file.new";
+    print FILE $new;
-    }
+    close FILE;
-    else
-    {
     rename "$file.new", "$file";
     print "$file updated\n";
     if ($file eq "configure.ac")
@@ -102,8 +100,6 @@ sub update_file($)
         print "configure updated\n";
     }
 }
-    return $ret;
-}
 
 # replace some lines in a file between two markers
 sub replace_in_file($$$@)
@@ -111,34 +107,28 @@ sub replace_in_file($$$@)
     my $file = shift;
     my $start = shift;
     my $end = shift;
+    my ($old, $new);
 
-    open NEW_FILE, ">$file.new" or die "cannot create $file.new";
-
-    if (defined($start))
-    {
     open OLD_FILE, "$file" or die "cannot open $file";
     while (<OLD_FILE>)
     {
+        $old .= $_;
         last if /$start/;
-            print NEW_FILE $_;
+        $new .= $_;
-        }
     }
 
-    print NEW_FILE @_;
+    $new .= join "", @_;
 
-    if (defined($end))
-    {
     my $skip = 1;
     while (<OLD_FILE>)
     {
-            print NEW_FILE $_ unless $skip;
+        $old .= $_;
+        $new .= $_ unless $skip;
         $skip = 0 if /$end/;
     }
-    }
 
-    close OLD_FILE if defined($start);
+    close OLD_FILE;
-    close NEW_FILE;
+    update_file($file, $new) if $old ne $new;
-    return update_file($file);
 }
 
 # replace all source variables in a makefile
@@ -147,14 +137,14 @@ sub replace_makefile_variables($)
     my $file = shift;
     my $make = $makefiles{$file};
     my $source_vars_regexp = join "|", @source_vars;
-    my $modified = 0;
     my %replaced;
-
+    my $old;
-    open NEW_FILE, ">$file.in.new" or die "cannot create $file.in.new";
+    my $new;
 
     open OLD_FILE, "$file.in" or die "cannot open $file.in";
     while (<OLD_FILE>)
     {
+        $old .= $_;
         if (/^\s*($source_vars_regexp)(\s*)=/)
         {
             # try to preserve formatting
@@ -178,6 +168,7 @@ sub replace_makefile_variables($)
             {
                 $_ = <OLD_FILE>;
                 last unless $_;
+                $old .= $_;
                 $old_str .= $_;
             }
             my $new_str = "";
@@ -188,18 +179,17 @@ sub replace_makefile_variables($)
             elsif ($multiline)
             {
                 $new_str = "$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n";
-                print NEW_FILE $new_str;
+                $new .= $new_str;
             }
             else
             {
                 $new_str = "$var$spaces= @values\n";
-                print NEW_FILE $new_str;
+                $new .= $new_str;
             }
-            $modified = 1 if ($old_str ne $new_str);
             $replaced{$var} = 1;
             next;
         }
-        print NEW_FILE $_;
+        $new .= $_;
     }
     foreach my $var (@source_vars)
     {
@@ -207,13 +197,10 @@ sub replace_makefile_variables($)
         next unless defined ${$make}{"=$var"};
         my @values = @{${$make}{"=$var"}};
         next unless @values;
-        print NEW_FILE "\n$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n";
+        $new .= "\n$var = \\\n\t" . join(" \\\n\t", sort @values) . "\n";
-        $modified = 1;
     }
     close OLD_FILE;
-    close NEW_FILE;
+    update_file("$file.in", $new) if $old ne $new;
-    return update_file("$file.in") if $modified;
-    unlink "$file.in.new";
 }
 
 # parse the specified makefile and load the variables

tools/make_specfiles

@@ -263,22 +263,18 @@ foreach my $arg (@ARGV)
     elsif ($arg eq "-d") { $show_duplicates = 1; }
 }
 
-sub update_file($)
+# update a file if changed
+sub update_file($$)
 {
     my $file = shift;
-    my $ret = !(-f $file) || system "cmp $file $file.new >/dev/null";
+    my $new = shift;
-    if (!$ret)
+
-    {
+    open FILE, ">$file.new" or die "cannot create $file.new";
-        unlink "$file.new";
+    print FILE $new;
-    }
+    close FILE;
-    else
-    {
-        #system "diff -u $file $file.new";
     rename "$file.new", "$file";
     print "$file updated\n";
 }
-    return $ret;
-}
 
 # parse a spec file line
 sub parse_line($$$)
@@ -319,11 +315,12 @@ sub update_spec_file($)
     my $name = shift;
     my $file = "dlls/$name/$name.spec";
     my %stubs;
+    my ($old, $new);
 
     open SPEC, "<$file" or die "cannot open $file";
-    open NEW, ">$file.new" or die "cannot create $file.new";
     while (<SPEC>)
     {
+        $old .= $_;
         chomp;
 
         my $commented_out = 0;
@@ -389,11 +386,10 @@ sub update_spec_file($)
         $_ .= $descr{comment} || "";
 
       done:
-        print NEW "$_\n";
+        $new .= "$_\n";
     }
     close SPEC;
-    close NEW;
+    update_file( $file, $new ) if $old ne $new;
-    update_file( $file );
 }
 
 sub sync_spec_files(@)