1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/perl
#
# Script to create Makefile-style dependencies.
#
# Usage: perl [-s path-separator] [-o obj-ext] mkdep.pl dir... > deps
#
sub scandeps($) {
my($file) = @_;
my($line, $nf);
my(@xdeps) = ();
my(@mdeps) = ();
open(FILE, "< $file\0") or return; # If not openable, assume generated
while ( defined($line = <FILE>) ) {
chomp $line;
$line =~ s:/\*.*\*/::g;
$line =~ s://.*$::;
if ( $line =~ /^\s*\#\s*include\s+\"(.*)\"\s*$/ ) {
$nf = $1;
push(@mdeps, $nf);
push(@xdeps, $nf) unless ( defined($deps{$nf}) );
}
}
close(FILE);
$deps{$file} = [@mdeps];
foreach $file ( @xdeps ) {
scandeps($file);
}
}
# %deps contains direct dependencies. This subroutine resolves
# indirect dependencies that result.
sub alldeps($) {
my($file) = @_;
my(%adeps);
my($dep,$idep);
foreach $dep ( @{$deps{$file}} ) {
$adeps{$dep} = 1;
foreach $idep ( alldeps($dep) ) {
$adeps{$idep} = 1;
}
}
return keys(%adeps);
}
%deps = ();
@files = ();
$sep = '/'; # Default, and works on most systems
$obj = 'o'; # Object file extension
while ( defined($arg = shift(@ARGV)) ) {
if ( $arg =~ /^\-s$/ ) {
$sep = shift(@ARGV);
} elsif ( $arg =~ /^\-o$/ ) {
$obj = shift(@ARGV);
} elsif ( $arg =~ /^-/ ) {
die "Unknown option: $arg\n";
} else {
push(@files, $arg);
}
}
foreach $dir ( @files ) {
opendir(DIR, $dir) or die "$0: Cannot open directory: $dir";
while ( $file = readdir(DIR) ) {
$path = ($dir eq '.') ? $file : $dir.$sep.$file;
if ( $file =~ /\.[Cc]$/ ) {
scandeps($path);
}
}
closedir(DIR);
}
foreach $file ( sort(keys(%deps)) ) {
if ( $file =~ /\.[Cc]$/ ) {
$ofile = $file; $ofile =~ s/\.[Cc]$/\./; $ofile .= $obj;
print $ofile, ': ', $file, ' ';
print join(' ', alldeps($file));
print "\n";
}
}
|
