aboutsummaryrefslogtreecommitdiff
path: root/src/depend.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/depend.pl')
-rw-r--r--src/depend.pl46
1 files changed, 0 insertions, 46 deletions
diff --git a/src/depend.pl b/src/depend.pl
deleted file mode 100644
index b41b8f6..0000000
--- a/src/depend.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl -w
-# $Header$
-
-# Create dependencies for Fortran 90 "use" and "include" statements
-
-$src = $ARGV[0];
-$srcfile = $ARGV[1];
-$dest = $ARGV[2];
-$srcdir = $ARGV[3];
-$moddir = $ARGV[4];
-$srcsuffix = $ARGV[5];
-$modsuffix = $ARGV[6];
-@otherdirs = @ARGV[7..$#ARGV];
-
-print "# $src\n";
-print "$dest:";
-
-open (FILE, $src);
-while (<FILE>) {
- if (/^\s*include\s*['"]([^'"]+)['"]/i) {
- print " $srcdir$1";
- } elsif (/^\s*use\s+(\w+)/i) {
- $found = 0;
- if (! $found) {
- if (-e "$srcdir$1$srcsuffix") {
- $found = 1;
- print " $moddir$1$modsuffix";
- }
- }
- if (! $found) {
- foreach $dir (@otherdirs) {
- if (-e "$dir$1$modsuffix") {
- $found = 1;
- print " $dir$1$modsuffix";
- last;
- }
- }
- }
- if (! $found) {
- die "\nWhile tracing depencencies:\nFortran module $1 (referenced in file $srcfile) not found.\nAborting.\n\n";
- }
- }
-}
-close (FILE);
-
-print "\n";