[svn-r4292]

Purpose:
    Bug Fix
Description:
    The way we were generating Dependencies and .depend files was broken.
    If the $srcdir or other macros began with a ".", then it would match
    anything and cause problems since it would then overwrite the
    beginning of the header file's path.
Solution:
    Wrote a Perl script which can handle this type of weirdness better.
    It's only used when the environment is a GNU one with a GCC
    compiler...
Platforms tested:
    Linux

1 files changed, 41 insertions, 0 deletions

diff --git a/bin/dependencies b/bin/dependencies
new file mode 100755
index 0000000..248c579
--- /dev/null
+++ b/bin/dependencies
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+#
+# Copyright (C) 2001
+#     National Center for Supercomputing Applications.
+#     All rights reserved.
+#
+my $depend_file;
+my $new_depend_file;
+my $srcdir;
+my $top_srcdir;
+my $top_builddir;
+
+while ($_ = shift @ARGV) {
+    if (/^--srcdir=([^ \t\n]*)/) {
+        $srcdir = $1;
+        $srcdir = "\\$srcdir" if $srcdir =~ /^\./;
+    } elsif (/^--top_srcdir=([^ \t\n]*)/) {
+        $top_srcdir = $1;
+        $top_srcdir = "\\$top_srcdir" if $top_srcdir =~ /^\./;
+    } elsif (/^--top_builddir=([^ \t\n]*)/) {
+        $top_builddir = $1;
+        $top_builddir = "\\$top_builddir" if $top_builddir =~ /^\./;
+    } else {
+        $depend_file = $_;
+        $new_depend_file = "$_.new";
+        last;
+    }
+}
+
+open(DEPEND, "<$depend_file") || die "cannot open file $depend_file: $!\n";
+open(NEW, ">$new_depend_file") || die "cannot open file $new_depend_file: $!\n";
+
+while (<DEPEND>) {
+    s/\.o/\.lo/g;
+    s/ $srcdir/ \$\(srcdir\)/g;
+    s/ $top_srcdir/ \$\(top_srcdir\)/g;
+    s/ $top_builddir/ \$\(top_builddir\)/g;
+    print NEW $_;
+}
+
+`mv $new_depend_file $depend_file`;