1 files changed, 25 insertions, 0 deletions
diff --git a/ACE/bin/reverse_clean b/ACE/bin/reverse_clean
new file mode 100755
index 00000000000..37d77daee50
--- /dev/null
+++ b/ACE/bin/reverse_clean
@@ -0,0 +1,25 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+# -*- perl -*-
+# $Id$
+#
+# This script does a realclean of the list in the reverse order that
+# is passed to this. This is just a utility script
+
+@ARGS = ();
+
+if ($ARGV[0] eq ''){
+    print STDERR "$0:  No directories provided\n";
+    die "provide list of directories";
+}       
+
+my $make = $ARGV[0];
+shift;
+
+@BUILD_LIST = @ARGV;
+
+
+foreach $i (reverse (@BUILD_LIST)) {
+    system ("$make -k -C $i realclean");
+}