Move unix build script from mozilla/config to mozilla/build/unix

build/unix/mddepend.pl

@@ -0,0 +1,115 @@
+#!/usr/bin/env perl
+
+# The contents of this file are subject to the Netscape Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/NPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is this file as it was released upon March 8, 1999.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1999 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): 
+
+# mddepend.pl - Reads in dependencies generated my -MD flag. Prints list
+#   of objects that need to be rebuilt. These can then be added to the
+#   PHONY target. Using this script copes with the problem of header
+#   files that have been removed from the build.
+#    
+# Usage:
+#   mddepend.pl <output_file> <dependency_files...>
+#
+# Send comments, improvements, bugs to Steve Lamm (slamm@netscape.com).
+
+#$debug = 1;
+
+$outfile = shift @ARGV;
+
+@alldeps=();
+# Parse dependency files
+while ($line = <>) {
+  chomp $line;
+  ($obj,$rest) = split /:\s+/, $line, 2;
+  next if $obj eq '';
+
+  if ($line =~ /\\$/) {
+    chop $rest;
+    $hasSlash = 1;
+  } else {
+    $hasSlash = 0;
+  }
+  $deps = [ $obj, split /\s+/, $rest ];
+
+  while ($hasSlash and $line = <>) {
+    chomp $line;
+    if ($line =~ /\\$/) {
+      chop $line;
+    } else {
+      $hasSlash = 0;
+    }
+    $line =~ s/^\s+//;
+    push @{$deps}, split /\s+/, $line;
+  }
+  warn "add @{$deps}\n" if $debug;
+  push @alldeps, $deps;
+}
+
+# Test dependencies
+foreach $deps (@alldeps) {
+  $obj = shift @{$deps};
+
+  $mtime = (stat $obj)[9] or next;
+
+  foreach $dep_file (@{$deps}) {
+    if (not defined($dep_mtime = $modtimes{$dep_file})) {
+      $dep_mtime = (stat $dep_file)[9];
+      $modtimes{$dep_file} = $dep_mtime;
+    }
+    if ($dep_mtime ne '' and $dep_mtime > $mtime) {
+      print "$obj($mtime) older than $dep_file($dep_mtime)\n" if $debug;
+      push @objs, $obj;
+      # Object will be marked for rebuild. No need to check other dependencies.
+      last;
+    }
+  }
+}
+
+# Output objects to rebuild (if needed).
+if (@objs) {
+  $new_output = "@objs: FORCE\n";
+
+  # Read in the current dependencies file.
+  open(OLD, "<$outfile")
+    and $old_output = <OLD>;
+  close(OLD);
+
+  # Only write out the dependencies if they are different.
+  if ($new_output ne $old_output) {
+    open(OUT, ">$outfile") and print OUT "$new_output";
+    print "Updating dependencies file, $outfile\n";
+    if ($debug) {
+      print "new: $new_output\n";
+      print "was: $old_output\n" if $old_output ne '';
+    }
+  }
+} elsif (-s $outfile) {
+  # Remove the old dependencies because all objects are up to date.
+  print "Removing old dependencies file, $outfile\n";
+
+  if ($debug) {
+    open(OLD, "<$outfile")
+      and $old_output = <OLD>;
+    close(OLD);
+    print "was: $old_output\n";
+  }
+
+  unlink $outfile;
+}