tools/mkdep.pl

   1 #!/usr/bin/perl
   2 ## --------------------------------------------------------------------------
   3 ##
   4 ##   Copyright 1996-2016 The NASM Authors - All Rights Reserved
   5 ##   See the file AUTHORS included with the NASM distribution for
   6 ##   the specific copyright holders.
   7 ##
   8 ##   Redistribution and use in source and binary forms, with or without
   9 ##   modification, are permitted provided that the following
  10 ##   conditions are met:
  11 ##
  12 ##   * Redistributions of source code must retain the above copyright
  13 ##     notice, this list of conditions and the following disclaimer.
  14 ##   * Redistributions in binary form must reproduce the above
  15 ##     copyright notice, this list of conditions and the following
  16 ##     disclaimer in the documentation and/or other materials provided
  17 ##     with the distribution.
  18 ##
  19 ##     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
  20 ##     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
  21 ##     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  22 ##     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  23 ##     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
  24 ##     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  25 ##     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  26 ##     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  27 ##     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28 ##     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  29 ##     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  30 ##     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  31 ##     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  32 ##
  33 ## --------------------------------------------------------------------------
  34
  35 #
  36 # Script to create Makefile-style dependencies.
  37 #
  38 # Usage: perl mkdep.pl [-s path-separator] [-o obj-ext] dir... > deps
  39 #
  40
  41 use File::Spec;
  42 use File::Basename;
  43 use Fcntl;
  44
  45 $barrier = "#-- Everything below is generated by mkdep.pl - do not edit --#\n";
  46
  47 # This converts from filenames to full pathnames for our dependencies
  48 %dep_path = {};
  49
  50 #
  51 # Scan files for dependencies
  52 #
  53 sub scandeps($) {
  54     my($file) = @_;
  55     my $line;
  56     my @xdeps = ();
  57     my @mdeps = ();
  58
  59     open(my $fh, '<', $file)
  60         or return;              # If not openable, assume generated
  61
  62     while ( defined($line = <$fh>) ) {
  63         chomp $line;
  64         $line =~ s:/\*.*\*/::g;
  65         $line =~ s://.*$::;
  66         if ( $line =~ /^\s*\#\s*include\s+\"(.*)\"\s*$/ ) {
  67             my $nf = $1;
  68             if (!defined($dep_path{$nf})) {
  69                 die "$0: cannot determine path for dependency: $file -> $nf\n";
  70             }
  71             $nf = $dep_path{$nf};
  72             push(@mdeps, $nf);
  73             push(@xdeps, $nf) unless ( defined($deps{$nf}) );
  74         }
  75     }
  76     close($fh);
  77     $deps{$file} = [@mdeps];
  78
  79     foreach my $xf ( @xdeps ) {
  80         scandeps($xf);
  81     }
  82 }
  83
  84 # %deps contains direct dependencies.  This subroutine resolves
  85 # indirect dependencies that result.
  86 sub alldeps($$) {
  87     my($file, $level) = @_;
  88     my %adeps;
  89
  90     foreach my $dep ( @{$deps{$file}} ) {
  91         $adeps{$dep} = 1;
  92         foreach my $idep ( alldeps($dep, $level+1) ) {
  93             $adeps{$idep} = 1;
  94         }
  95     }
  96     return sort(keys(%adeps));
  97 }
  98
  99 # This converts a filename from host syntax to target syntax
 100 # This almost certainly works only on relative filenames...
 101 sub convert_file($$) {
 102     my($file,$sep) = @_;
 103     my @fspec = (basename($file));
 104     while ( ($file = dirname($file)) ne File::Spec->curdir() &&
 105             $file ne File::Spec->rootdir() ) {
 106         unshift(@fspec, basename($file));
 107     }
 108
 109     if ( $sep eq '' ) {
 110         # This means kill path completely.  Used with Makes who do
 111         # path searches, but doesn't handle output files in subdirectories,
 112         # like OpenWatcom WMAKE.
 113         return $fspec[scalar(@fspec)-1];
 114     } else {
 115         return join($sep, @fspec);
 116     }
 117 }
 118
 119 #
 120 # Insert dependencies into a Makefile
 121 #
 122 sub insert_deps($) {
 123     my($file) = @_;
 124     $nexttemp++;                # Unique serial number for each temp file
 125     my $tmp = File::Spec->catfile(dirname($file), 'tmp.'.$nexttemp);
 126
 127     open(my $in, '<', $file)
 128         or die "$0: Cannot open input: $file\n";
 129     open(my $out, '>', $tmp)
 130         or die "$0: Cannot open output: $tmp\n";
 131
 132     my($line,$parm,$val);
 133     my($obj) = '.o';            # Defaults
 134     my($sep) = '/';
 135     my($cont) = "\\";
 136     my($maxline) = 78;          # Seems like a reasonable default
 137     my @exclude = ();           # Don't exclude anything
 138     my @genhdrs = ();
 139
 140     while ( defined($line = <$in>) ) {
 141         if ( $line =~ /^([^\s\#\$\:]+\.h):/ ) {
 142             # Note: we trust the first Makefile given best
 143             my $fpath = $1;
 144             my $fbase = basename($fpath);
 145             if (!defined($dep_path{$fbase})) {
 146                 $dep_path{$fbase} = $fpath;
 147                 print STDERR "Makefile: $fbase -> $fpath\n";
 148             }
 149         } elsif ( $line =~ /^\s*\#\s*@([a-z0-9-]+):\s*\"([^\"]*)\"/ ) {
 150             $parm = $1;  $val = $2;
 151             if ( $parm eq 'object-ending' ) {
 152                 $obj = $val;
 153             } elsif ( $parm eq 'path-separator' ) {
 154                 $sep = $val;
 155             } elsif ( $parm eq 'line-width' ) {
 156                 $maxline = $val+0;
 157             } elsif ( $parm eq 'continuation' ) {
 158                 $cont = $val;
 159             } elsif ( $parm eq 'exclude' ) {
 160                 @exclude = split(/\,/, $val);
 161             }
 162         } elsif ( $line eq $barrier ) {
 163             last;               # Stop reading input at barrier line
 164         }
 165         print $out $line;
 166     }
 167     close($in);
 168
 169     my $e;
 170     my %do_exclude = ();
 171     foreach $e (@exclude) {
 172         $do_exclude{$e} = 1;
 173     }
 174
 175     my $dfile, $ofile, $str, $sl, $len;
 176     my @deps, $dep;
 177
 178     print $out $barrier;
 179
 180     foreach $dfile ( sort(keys(%deps)) ) {
 181         if ( $dfile =~ /^(.*)\.[Cc]$/ ) {
 182             $ofile = $1;
 183             $str = convert_file($ofile, $sep).$obj.':';
 184             $len = length($str);
 185             print $out $str;
 186             foreach $dep ($dfile, alldeps($dfile,1)) {
 187                 unless ($do_exclude{$dep}) {
 188                     $str = convert_file($dep, $sep);
 189                     $sl = length($str)+1;
 190                     if ( $len+$sl > $maxline-2 ) {
 191                         print $out ' ', $cont, "\n ", $str;
 192                         $len = $sl;
 193                     } else {
 194                         print $out ' ', $str;
 195                         $len += $sl;
 196                     }
 197                 }
 198             }
 199             print $out "\n";
 200         }
 201     }
 202     close($out);
 203
 204     (unlink($file) && rename($tmp, $file))
 205         or die "$0: Failed to change $tmp -> $file\n";
 206 }
 207
 208 #
 209 # Main program
 210 #
 211
 212 my %deps = ();
 213 my @files = ();
 214 my @mkfiles = ();
 215 my $mkmode = 0;
 216
 217 while ( defined(my $arg = shift(@ARGV)) ) {
 218     if ( $arg eq '-m' ) {
 219         $arg = shift(@ARGV);
 220         push(@mkfiles, $arg);
 221     } elsif ( $arg eq '-M' ) {
 222         $mkmode = 1;            # Futher filenames are output Makefile names
 223     } elsif ( $arg eq '--' && $mkmode ) {
 224         $mkmode = 0;
 225     } elsif ( $arg =~ /^-/ ) {
 226         die "Unknown option: $arg\n";
 227     } else {
 228         if ( $mkmode ) {
 229             push(@mkfiles, $arg);
 230         } else {
 231             push(@files, $arg);
 232         }
 233     }
 234 }
 235
 236 my @cfiles = ();
 237
 238 foreach my $dir ( @files ) {
 239     opendir(DIR, $dir) or die "$0: Cannot open directory: $dir";
 240
 241     while ( my $file = readdir(DIR) ) {
 242         $path = ($dir eq File::Spec->curdir())
 243             ? $file : File::Spec->catfile($dir,$file);
 244         if ( $file =~ /\.[Cc]$/ ) {
 245             push(@cfiles, $path);
 246         } elsif ( $file =~ /\.[Hh]$/ ) {
 247             print STDERR "Filesystem: $file -> $path\n";
 248             $dep_path{$file} = $path; # Allow the blank filename
 249             $dep_path{$path} = $path; # Also allow the full pathname
 250         }
 251     }
 252     closedir(DIR);
 253 }
 254
 255 foreach my $cfile ( @cfiles ) {
 256     scandeps($cfile);
 257 }
 258
 259 foreach my $mkfile ( @mkfiles ) {
 260     insert_deps($mkfile);
 261 }