diff options
Diffstat (limited to 'src/depend.pl')
-rw-r--r-- | src/depend.pl | 46 |
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"; |