From 52325192350ae62a1b24ae5d526e30d7fb33a3f6 Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Thu, 8 Dec 2005 04:01:12 +0000
Subject: [PATCH] Quick perl tool to check that --with-devel-headers is working
 properly

This commit was SVN r8409.
---
 contrib/nightly/check_devel_headers.pl | 108 +++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100755 contrib/nightly/check_devel_headers.pl

diff --git a/contrib/nightly/check_devel_headers.pl b/contrib/nightly/check_devel_headers.pl
new file mode 100755
index 0000000000..65c308d963
--- /dev/null
+++ b/contrib/nightly/check_devel_headers.pl
@@ -0,0 +1,108 @@
+#!/usr/bin/env perl
+#
+# Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
+#                         University Research and Technology
+#                         Corporation.  All rights reserved.
+# Copyright (c) 2004-2005 The University of Tennessee and The University
+#                         of Tennessee Research Foundation.  All rights
+#                         reserved.
+# Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, 
+#                         University of Stuttgart.  All rights reserved.
+# Copyright (c) 2004-2005 The Regents of the University of California.
+#                         All rights reserved.
+# $COPYRIGHT$
+# 
+# Additional copyrights may follow
+# 
+# $HEADER$
+#
+# Check headers in the core opal, orte, and ompi trees and ensure that
+# they exist in the installation tree (assuming that the software was
+# configured --with-devel-headers).
+#
+
+use strict;
+use File::Find;
+use Getopt::Long;
+use Data::Dumper;
+
+my @projects = qw(opal orte ompi);
+our $prefix_arg;
+
+&Getopt::Long::Configure("bundling", "require_order");
+my $ok = Getopt::Long::GetOptions("prefix|p=s" => \$prefix_arg);
+if (!$prefix_arg) {
+    print "Must provide --prefix argument\n";
+    exit(1);
+}
+if (! -d $prefix_arg) {
+    print "Prefix does not exist ($prefix_arg)\n";
+    exit(1);
+}
+
+# Check each project
+foreach my $p (@projects) {
+    if (-d $p) {
+        print "Checking: $p\n";
+        find(\&wanted, $p);
+    } else {
+        print "Could not find tree: $p -- skipped\n";
+    }
+}
+
+sub wanted {
+    # don't process directories or links, and dont' recurse down 
+    # "special" directories
+    if ( -l $_ ) { return; }
+    if ( -d $_ ) { 
+        if ((/\.svn/) || (/\.deps/) || (/\.libs/)) {
+            $File::Find::prune = 1;
+        }
+        return;
+    }
+
+    # $File::Find::name is the path relative to the starting point.
+    # $_ contains the file's basename.
+    return if (! /\.h$/);
+
+    # Check the fullname and see if it's in the core of the project.
+    my $name = $_;
+    my @parts = split(/\//, $File::Find::name);
+    # If the second part is not "mca", it's good
+    if ($parts[1] eq "mca") {
+        # If the third or fourth part is "base", then it's good
+        if ($parts[2] eq "base") {
+            # Good
+        } elsif ($parts[3] eq "base") {
+            # Except if it's static-components.h
+            if ($name eq "static-components.h") {
+                return;
+            }
+        } else {
+            return;
+        }
+    } 
+    # We don't want any of the tools headers
+    elsif ($parts[1] eq "tools") {
+        return;
+    }
+    # We don't want any of the F90 headers
+    elsif ($parts[0] eq "ompi" && $parts[1] eq "mpi" && $parts[2] eq "f90") {
+        return;
+    }
+    # The only file we want in opal/libltdl is ltdl.h
+    elsif ($parts[0] eq "opal" && $parts[1] eq "libltdl" &&
+           $name ne "ltdl.h") {
+        return;
+    }
+    # The only file we want in opal/event is event.h
+    elsif ($parts[0] eq "opal" && $parts[1] eq "event" &&
+           $name ne "event.h") {
+        return;
+    }
+
+    # Ok, this file should be in the install tree
+    if (! -f "$prefix_arg/include/openmpi/$File::Find::name") {
+        print("Warning: $File::Find::name not found in install tree\n");
+    }
+}