man: --nbi, not --NBI
[wraplinux.git] / mkdep.pl
1 #!/usr/bin/perl
2 #
3 # Script to create Makefile-style dependencies.
4 #
5 # Usage: perl mkdep.pl [-s path-separator] [-o obj-ext] dir... > deps
6 #
7
8 use File::Spec;
9 use File::Basename;
10 use Fcntl;
11
12 $barrier = "#-- Everything below is generated by mkdep.pl - do not edit --#\n";
13
14 #
15 # Scan files for dependencies
16 #
17 sub scandeps($) {
18     my($file) = @_;
19     my($line, $nf);
20     my(@xdeps) = ();
21     my(@mdeps) = ();
22
23     sysopen(FILE, $file, O_RDONLY)
24         or return;              # If not openable, assume generated
25
26     while ( defined($line = <FILE>) ) {
27         chomp $line;
28         $line =~ s:/\*.*\*/::g;
29         $line =~ s://.*$::;
30         if ( $line =~ /^\s*\#\s*include\s+\"(.*)\"\s*$/ ) {
31             $nf = $1;
32             push(@mdeps, $nf);
33             push(@xdeps, $nf) unless ( defined($deps{$nf}) );
34         }
35     }
36     close(FILE);
37     $deps{$file} = [@mdeps];
38
39     foreach $file ( @xdeps ) {
40         scandeps($file);
41     }
42 }
43
44 # %deps contains direct dependencies.  This subroutine resolves
45 # indirect dependencies that result.
46 sub alldeps($) {
47     my($file) = @_;
48     my(%adeps);
49     my($dep,$idep);
50
51     foreach $dep ( @{$deps{$file}} ) {
52         $adeps{$dep} = 1;
53         foreach $idep ( alldeps($dep) ) {
54             $adeps{$idep} = 1;
55         }
56     }
57     return sort(keys(%adeps));
58 }
59
60 # This converts a filename from host syntax to target syntax
61 # This almost certainly works only on relative filenames...
62 sub convert_file($$) {
63     my($file,$sep) = @_;
64     my(@fspec) = (basename($file));
65     while ( ($file = dirname($file)) ne File::Spec->curdir() &&
66             $file ne File::Spec->rootdir() ) {
67         unshift(@fspec, basename($file));
68     }
69
70     if ( $sep eq '' ) {
71         # This means kill path completely.  Used with Makes who do
72         # path searches, but doesn't handle output files in subdirectories,
73         # like OpenWatcom WMAKE.
74         return $fspec[scalar(@fspec)-1];
75     } else {
76         return join($sep, @fspec);
77     }
78 }
79
80 #
81 # Insert dependencies into a Makefile
82 #
83 sub insert_deps($) {
84     my($file) = @_;
85     $nexttemp++;                # Unique serial number for each temp file
86     my($tmp) = File::Spec->catfile(dirname($file), 'tmp.'.$nexttemp);
87
88     sysopen(IN, $file, O_RDONLY)
89         or die "$0: Cannot open input: $file\n";
90     sysopen(OUT, $tmp, O_WRONLY|O_CREAT|O_TRUNC, 0666)
91         or die "$0: Cannot open output: $tmp\n";
92
93     my($line,$parm,$val);
94     my($obj) = '.o';            # Defaults
95     my($sep) = '/';
96     my($cont) = "\\";
97     my($maxline) = 78;          # Seems like a reasonable default
98     my @exclude = ();           # Don't exclude anything
99
100     while ( defined($line = <IN>) ) {
101         if ( $line =~ /^\s*\#\s*@([a-z0-9-]+):\s*\"([^\"]*)\"/ ) {
102             $parm = $1;  $val = $2;
103             if ( $parm eq 'object-ending' ) {
104                 $obj = $val;
105             } elsif ( $parm eq 'path-separator' ) {
106                 $sep = $val;
107             } elsif ( $parm eq 'line-width' ) {
108                 $maxline = $val+0;
109             } elsif ( $parm eq 'continuation' ) {
110                 $cont = $val;
111             } elsif ( $parm eq 'exclude' ) {
112                 @exclude = split(/\,/, $val);
113             }
114         } elsif ( $line eq $barrier ) {
115             last;               # Stop reading input at barrier line
116         }
117         print OUT $line;
118     }
119     close(IN);
120
121     my $e, %do_exclude;
122     foreach $e (@exclude) {
123         $do_exclude{$e} = 1;
124     }
125
126     my $dfile, $ofile, $str, $sl, $len;
127     my @deps, $dep;
128
129     print OUT $barrier;
130
131     foreach $dfile ( sort(keys(%deps)) ) {
132         if ( $dfile =~ /\.[CcS]$/ ) {
133             $ofile = $dfile; $ofile =~ s/\.[CcS]$//;
134             $str = convert_file($ofile,$sep).$obj.':';
135             $len = length($str);
136             print OUT $str;
137             foreach $dep ($dfile, alldeps($dfile)) {
138                 unless ($do_exclude{$dep}) {
139                     $str = convert_file($dep,$sep);
140                     $sl = length($str)+1;
141                     if ( $len+$sl > $maxline-2 ) {
142                         print OUT ' ', $cont, "\n ", $str;
143                         $len = $sl;
144                     } else {
145                         print OUT ' ', $str;
146                         $len += $sl;
147                     }
148                 }
149             }
150             print OUT "\n";
151         }
152     }
153     close(OUT);
154
155     (unlink($file) && rename($tmp, $file))
156         or die "$0: Failed to change $tmp -> $file\n";
157 }
158
159 #
160 # Main program
161 #
162
163 %deps = ();
164 @files = ();
165 @mkfiles = ();
166 $mkmode = 0;
167
168 while ( defined($arg = shift(@ARGV)) ) {
169     if ( $arg eq '-m' ) {
170         $arg = shift(@ARGV);
171         push(@mkfiles, $arg);
172     } elsif ( $arg eq '-M' ) {
173         $mkmode = 1;            # Futher filenames are output Makefile names
174     } elsif ( $arg eq '--' && $mkmode ) {
175         $mkmode = 0;
176     } elsif ( $arg =~ /^-/ ) {
177         die "Unknown option: $arg\n";
178     } else {
179         if ( $mkmode ) {
180             push(@mkfiles, $arg);
181         } else {
182             push(@files, $arg);
183         }
184     }
185 }
186
187 foreach $dir ( @files ) {
188     opendir(DIR, $dir) or die "$0: Cannot open directory: $dir";
189
190     while ( $file = readdir(DIR) ) {
191         $path = ($dir eq File::Spec->curdir())
192             ? $file : File::Spec->catfile($dir,$file);
193         if ( $file =~ /\.[CcS]$/ ) {
194             scandeps($path);
195         }
196     }
197     closedir(DIR);
198 }
199
200 foreach $mkfile ( @mkfiles ) {
201     insert_deps($mkfile);
202 }