Recursively compare pre-generated list of active header files against current include directory contents. If the directory contains extra entries, remove them.

Bug #59454 r=bryner sr=alecf

config/purge-old-headers.pl

@@ -0,0 +1,105 @@
+#!perl
+# 
+# The contents of this file are subject to the Mozilla 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/MPL/
+# 
+# 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 mozilla.org code.
+#
+# The Initial Developer of the Original Code is Netscape
+# Communications Corporation.  Portions created by Netscape are
+# Copyright (C) 2001 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): 
+#	Chris Seawood <cls@seawood.org>
+
+#
+# Usage: $0 <includedir>
+#
+# Purpose:
+#	Remove old header files by comparing list of headers generated 
+#	on the fly against headers already existing under <includedir>
+# 
+# Assumptions:
+# 	All directories under (and including) <includedir> have a list
+#	of headers in the file .headerlist-<nameofsubdir>.
+#
+
+use strict;
+use IO::Handle;
+
+my $includedir = shift;
+
+if (! -d $includedir) {
+    exit(1);
+}
+
+purge("$includedir");
+
+exit(0);
+
+sub purge($) {
+    my ($dirname) = @_;
+    my ($file, $dir, $tmp, $listfile);
+    my (@dirlist, @filelist, @masterlist, @removelist);
+
+    #print "Inside purge: $dirname, $listfile\n";
+
+    $listfile = "$dirname/.headerlist";
+
+    # Return if master listfile does not exist
+    return if (! -e "$listfile" );
+
+    # Create lists of current files and subdirectories
+    my $SDIR = new IO::Handle;
+    opendir($SDIR, "$dirname") || die "opendir($dirname): $!\n";
+    while ($file = readdir($SDIR)) {
+	next if ($file eq "." || $file eq ".." || $file =~ m/.headerlist/);
+	if ( -d "$dirname/$file" ) {
+	    push @dirlist, "$file";
+	} else {
+	    push @filelist, "$file";
+	}
+    }
+    closedir($SDIR);
+
+    # Read in "master" file list
+    undef @masterlist;
+    my $MLIST = new IO::Handle;
+    open($MLIST, "$listfile") || die "$listfile: $!\n";
+    while ($tmp = <$MLIST>) {
+	chomp($tmp);
+	push @masterlist, "$tmp";
+    }
+    close($MLIST);
+
+    # compare master list with read list
+    undef @removelist;
+    foreach $file (@filelist) {
+	push @removelist, $file if (!grep(/$file/, @masterlist));
+    }
+
+    # Call purge recursively
+    foreach $dir (@dirlist) {
+	#print "purge(\"$dirname/$dir\") \n";
+	purge("$dirname/$dir");
+    }
+
+    # Remove files
+    foreach $file (@removelist) {
+	print "purge old header: $dirname/$file\n";
+	unlink("$dirname/$file");
+    }
+
+    #Unlink listfile now that we're done processing this dir
+    unlink("$listfile");
+    
+}
+