3 # ***** BEGIN LICENSE BLOCK *****
4 # Version: MPL 1.1/GPL 2.0/LGPL 2.1
6 # The contents of this file are subject to the Mozilla Public License Version
7 # 1.1 (the "License"); you may not use this file except in compliance with
8 # the License. You may obtain a copy of the License at
9 # http://www.mozilla.org/MPL/
11 # Software distributed under the License is distributed on an "AS IS" basis,
12 # WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
13 # for the specific language governing rights and limitations under the
16 # The Original Code is this file as it was released upon March 8, 1999.
18 # The Initial Developer of the Original Code is
19 # Netscape Communications Corporation.
20 # Portions created by the Initial Developer are Copyright (C) 1999
21 # the Initial Developer. All Rights Reserved.
25 # Alternatively, the contents of this file may be used under the terms of
26 # either of the GNU General Public License Version 2 or later (the "GPL"),
27 # or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
28 # in which case the provisions of the GPL or the LGPL are applicable instead
29 # of those above. If you wish to allow use of your version of this file only
30 # under the terms of either the GPL or the LGPL, and not to allow others to
31 # use your version of this file under the terms of the MPL, indicate your
32 # decision by deleting the provisions above and replace them with the notice
33 # and other provisions required by the GPL or the LGPL. If you do not delete
34 # the provisions above, a recipient may use your version of this file under
35 # the terms of any one of the MPL, the GPL or the LGPL.
37 # ***** END LICENSE BLOCK *****
39 # mddepend.pl - Reads in dependencies generated my -MD flag. Prints list
40 # of objects that need to be rebuilt. These can then be added to the
41 # PHONY target. Using this script copes with the problem of header
42 # files that have been removed from the build.
45 # mddepend.pl <output_file> <dependency_files...>
47 # Send comments, improvements, bugs to Steve Lamm (slamm@netscape.com).
51 use constant DEBUG
=> 0;
53 my $outfile = shift @ARGV;
54 my $silent = $ENV{MAKEFLAGS
} =~ /^\w*s|\s-s/;
58 # Parse dependency files
60 s/\r?\n$//; # Handle both unix and DOS line endings
69 my ($obj,$rest) = split /\s*:\s+/, $line, 2;
71 next if !$obj || !$rest;
73 my @deps = split /\s+/, $rest;
74 push @
{$alldeps{$obj}}, @deps;
76 foreach my $dep (@deps) { print STDERR
"add $obj $dep\n"; }
82 my @objs; # force rebuild on these
83 OBJ_LOOP
: foreach my $obj (keys %alldeps) {
84 my $mtime = (stat $obj)[9] or next;
87 my $deps = $alldeps{$obj};
88 foreach my $dep_file (@
{$deps}) {
89 my $dep_mtime = $modtimes{$dep_file};
90 if (not defined $dep_mtime) {
91 print STDERR
"Skipping $dep_file for $obj, will stat() later\n" if DEBUG
>= 2;
92 $not_in_cache{$dep_file} = 1;
96 print STDERR
"Found $dep_file in cache\n" if DEBUG
>= 2;
98 if ($dep_mtime > $mtime) {
99 print STDERR
"$dep_file($dep_mtime) newer than $obj($mtime)\n" if DEBUG
;
101 elsif ($dep_mtime == -1) {
102 print STDERR
"Couldn't stat $dep_file for $obj\n" if DEBUG
;
105 print STDERR
"$dep_file($dep_mtime) older than $obj($mtime)\n" if DEBUG
>= 2;
109 push @objs, $obj; # dependency is missing or newer
110 next OBJ_LOOP
; # skip checking the rest of the dependencies
113 foreach my $dep_file (keys %not_in_cache) {
114 print STDERR
"STAT $dep_file for $obj\n" if DEBUG
>= 2;
115 my $dep_mtime = $modtimes{$dep_file} = (stat $dep_file)[9] || -1;
117 if ($dep_mtime > $mtime) {
118 print STDERR
"$dep_file($dep_mtime) newer than $obj($mtime)\n" if DEBUG
;
120 elsif ($dep_mtime == -1) {
121 print STDERR
"Couldn't stat $dep_file for $obj\n" if DEBUG
;
124 print STDERR
"$dep_file($dep_mtime) older than $obj($mtime)\n" if DEBUG
>= 2;
128 push @objs, $obj; # dependency is missing or newer
129 next OBJ_LOOP
; # skip checking the rest of the dependencies
132 # If we get here it means nothing needs to be done for $obj
135 # Output objects to rebuild (if needed).
136 if ($outfile eq '-') {
138 print "@objs: FORCE\n";
142 my $new_output = "@objs: FORCE\n";
144 # Read in the current dependencies file.
145 open(OLD
, "<$outfile")
146 and $old_output = <OLD
>;
149 # Only write out the dependencies if they are different.
150 if ($new_output ne $old_output) {
151 open(OUT
, ">$outfile") and print OUT
"$new_output";
152 print "Updating dependencies file, $outfile\n" unless $silent;
154 print "new: $new_output\n";
155 print "was: $old_output\n" if $old_output ne '';
158 } elsif (-s
$outfile) {
159 # Remove the old dependencies because all objects are up to date.
160 print "Removing old dependencies file, $outfile\n" unless $silent;
164 open(OLD
, "<$outfile")
165 and $old_output = <OLD
>;
167 print "was: $old_output\n";