2002-05-13 05:38:05 +08:00
|
|
|
#!/usr/bin/perl
|
2009-06-29 07:52:56 +08:00
|
|
|
## --------------------------------------------------------------------------
|
|
|
|
##
|
2016-05-26 03:06:29 +08:00
|
|
|
## Copyright 1996-2016 The NASM Authors - All Rights Reserved
|
2009-06-29 07:52:56 +08:00
|
|
|
## See the file AUTHORS included with the NASM distribution for
|
|
|
|
## the specific copyright holders.
|
|
|
|
##
|
|
|
|
## Redistribution and use in source and binary forms, with or without
|
|
|
|
## modification, are permitted provided that the following
|
|
|
|
## conditions are met:
|
|
|
|
##
|
|
|
|
## * Redistributions of source code must retain the above copyright
|
|
|
|
## notice, this list of conditions and the following disclaimer.
|
|
|
|
## * Redistributions in binary form must reproduce the above
|
|
|
|
## copyright notice, this list of conditions and the following
|
|
|
|
## disclaimer in the documentation and/or other materials provided
|
|
|
|
## with the distribution.
|
|
|
|
##
|
|
|
|
## THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
|
|
|
|
## CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
|
|
|
|
## INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
|
|
|
## MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
|
|
## DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
|
|
|
|
## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
|
|
|
## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
|
|
## NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
|
|
## LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
|
|
## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
|
|
## CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
|
|
|
|
## OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
|
|
|
|
## EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
##
|
|
|
|
## --------------------------------------------------------------------------
|
|
|
|
|
2002-05-13 05:38:05 +08:00
|
|
|
#
|
|
|
|
# Script to create Makefile-style dependencies.
|
|
|
|
#
|
2005-01-15 07:03:42 +08:00
|
|
|
# Usage: perl mkdep.pl [-s path-separator] [-o obj-ext] dir... > deps
|
2002-05-13 05:38:05 +08:00
|
|
|
#
|
|
|
|
|
2002-06-04 08:26:13 +08:00
|
|
|
use File::Spec;
|
|
|
|
use File::Basename;
|
|
|
|
use Fcntl;
|
|
|
|
|
|
|
|
$barrier = "#-- Everything below is generated by mkdep.pl - do not edit --#\n";
|
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
# This converts from filenames to full pathnames for our dependencies
|
|
|
|
%dep_path = {};
|
|
|
|
|
2002-06-04 08:26:13 +08:00
|
|
|
#
|
|
|
|
# Scan files for dependencies
|
|
|
|
#
|
2002-05-13 05:38:05 +08:00
|
|
|
sub scandeps($) {
|
|
|
|
my($file) = @_;
|
2016-08-17 05:47:19 +08:00
|
|
|
my $line;
|
|
|
|
my @xdeps = ();
|
|
|
|
my @mdeps = ();
|
2002-05-13 05:38:05 +08:00
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
open(my $fh, '<', $file)
|
2002-06-04 08:26:13 +08:00
|
|
|
or return; # If not openable, assume generated
|
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
while ( defined($line = <$fh>) ) {
|
2002-05-13 05:38:05 +08:00
|
|
|
chomp $line;
|
|
|
|
$line =~ s:/\*.*\*/::g;
|
|
|
|
$line =~ s://.*$::;
|
|
|
|
if ( $line =~ /^\s*\#\s*include\s+\"(.*)\"\s*$/ ) {
|
2016-08-17 05:47:19 +08:00
|
|
|
my $nf = $1;
|
|
|
|
if (!defined($dep_path{$nf})) {
|
|
|
|
die "$0: cannot determine path for dependency: $file -> $nf\n";
|
|
|
|
}
|
|
|
|
$nf = $dep_path{$nf};
|
2002-05-13 05:38:05 +08:00
|
|
|
push(@mdeps, $nf);
|
|
|
|
push(@xdeps, $nf) unless ( defined($deps{$nf}) );
|
|
|
|
}
|
|
|
|
}
|
2016-05-26 03:06:29 +08:00
|
|
|
close($fh);
|
2002-05-13 05:38:05 +08:00
|
|
|
$deps{$file} = [@mdeps];
|
|
|
|
|
2016-08-17 05:47:19 +08:00
|
|
|
foreach my $xf ( @xdeps ) {
|
|
|
|
scandeps($xf);
|
2002-05-13 05:38:05 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
# %deps contains direct dependencies. This subroutine resolves
|
|
|
|
# indirect dependencies that result.
|
2016-08-17 05:47:19 +08:00
|
|
|
sub alldeps($$) {
|
|
|
|
my($file, $level) = @_;
|
|
|
|
my %adeps;
|
2002-05-13 05:38:05 +08:00
|
|
|
|
2016-08-17 05:47:19 +08:00
|
|
|
foreach my $dep ( @{$deps{$file}} ) {
|
2002-05-13 05:38:05 +08:00
|
|
|
$adeps{$dep} = 1;
|
2016-08-17 05:47:19 +08:00
|
|
|
foreach my $idep ( alldeps($dep, $level+1) ) {
|
2002-05-13 05:38:05 +08:00
|
|
|
$adeps{$idep} = 1;
|
|
|
|
}
|
|
|
|
}
|
2007-09-18 04:56:26 +08:00
|
|
|
return sort(keys(%adeps));
|
2002-05-13 05:38:05 +08:00
|
|
|
}
|
|
|
|
|
2002-06-04 08:26:13 +08:00
|
|
|
# This converts a filename from host syntax to target syntax
|
|
|
|
# This almost certainly works only on relative filenames...
|
|
|
|
sub convert_file($$) {
|
|
|
|
my($file,$sep) = @_;
|
2016-08-17 05:47:19 +08:00
|
|
|
my @fspec = (basename($file));
|
2002-06-04 08:26:13 +08:00
|
|
|
while ( ($file = dirname($file)) ne File::Spec->curdir() &&
|
|
|
|
$file ne File::Spec->rootdir() ) {
|
|
|
|
unshift(@fspec, basename($file));
|
|
|
|
}
|
|
|
|
|
2003-08-30 11:49:30 +08:00
|
|
|
if ( $sep eq '' ) {
|
|
|
|
# This means kill path completely. Used with Makes who do
|
|
|
|
# path searches, but doesn't handle output files in subdirectories,
|
|
|
|
# like OpenWatcom WMAKE.
|
|
|
|
return $fspec[scalar(@fspec)-1];
|
|
|
|
} else {
|
|
|
|
return join($sep, @fspec);
|
|
|
|
}
|
2002-06-04 08:26:13 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
#
|
|
|
|
# Insert dependencies into a Makefile
|
|
|
|
#
|
|
|
|
sub insert_deps($) {
|
|
|
|
my($file) = @_;
|
|
|
|
$nexttemp++; # Unique serial number for each temp file
|
2016-08-17 05:47:19 +08:00
|
|
|
my $tmp = File::Spec->catfile(dirname($file), 'tmp.'.$nexttemp);
|
2007-10-20 05:42:29 +08:00
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
open(my $in, '<', $file)
|
2002-06-04 08:26:13 +08:00
|
|
|
or die "$0: Cannot open input: $file\n";
|
2016-05-26 03:06:29 +08:00
|
|
|
open(my $out, '>', $tmp)
|
2002-06-04 08:26:13 +08:00
|
|
|
or die "$0: Cannot open output: $tmp\n";
|
|
|
|
|
|
|
|
my($line,$parm,$val);
|
|
|
|
my($obj) = '.o'; # Defaults
|
|
|
|
my($sep) = '/';
|
2007-09-27 10:57:07 +08:00
|
|
|
my($cont) = "\\";
|
2002-06-05 04:04:59 +08:00
|
|
|
my($maxline) = 78; # Seems like a reasonable default
|
2007-09-28 12:35:04 +08:00
|
|
|
my @exclude = (); # Don't exclude anything
|
2016-05-26 03:06:29 +08:00
|
|
|
my @genhdrs = ();
|
2002-06-04 08:26:13 +08:00
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
while ( defined($line = <$in>) ) {
|
|
|
|
if ( $line =~ /^([^\s\#\$\:]+\.h):/ ) {
|
|
|
|
# Note: we trust the first Makefile given best
|
|
|
|
my $fpath = $1;
|
|
|
|
my $fbase = basename($fpath);
|
|
|
|
if (!defined($dep_path{$fbase})) {
|
|
|
|
$dep_path{$fbase} = $fpath;
|
|
|
|
print STDERR "Makefile: $fbase -> $fpath\n";
|
|
|
|
}
|
|
|
|
} elsif ( $line =~ /^\s*\#\s*@([a-z0-9-]+):\s*\"([^\"]*)\"/ ) {
|
2002-06-04 08:26:13 +08:00
|
|
|
$parm = $1; $val = $2;
|
|
|
|
if ( $parm eq 'object-ending' ) {
|
|
|
|
$obj = $val;
|
|
|
|
} elsif ( $parm eq 'path-separator' ) {
|
|
|
|
$sep = $val;
|
2002-06-05 03:53:35 +08:00
|
|
|
} elsif ( $parm eq 'line-width' ) {
|
|
|
|
$maxline = $val+0;
|
2007-09-27 10:57:07 +08:00
|
|
|
} elsif ( $parm eq 'continuation' ) {
|
|
|
|
$cont = $val;
|
2007-09-28 12:35:04 +08:00
|
|
|
} elsif ( $parm eq 'exclude' ) {
|
|
|
|
@exclude = split(/\,/, $val);
|
2002-06-04 08:26:13 +08:00
|
|
|
}
|
|
|
|
} elsif ( $line eq $barrier ) {
|
|
|
|
last; # Stop reading input at barrier line
|
|
|
|
}
|
2016-05-26 03:06:29 +08:00
|
|
|
print $out $line;
|
2002-06-04 08:26:13 +08:00
|
|
|
}
|
2016-05-26 03:06:29 +08:00
|
|
|
close($in);
|
2002-06-04 08:26:13 +08:00
|
|
|
|
2008-02-06 13:27:43 +08:00
|
|
|
my $e;
|
|
|
|
my %do_exclude = ();
|
2007-09-28 12:35:04 +08:00
|
|
|
foreach $e (@exclude) {
|
|
|
|
$do_exclude{$e} = 1;
|
|
|
|
}
|
|
|
|
|
2002-06-05 03:53:35 +08:00
|
|
|
my $dfile, $ofile, $str, $sl, $len;
|
2002-06-04 08:26:13 +08:00
|
|
|
my @deps, $dep;
|
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
print $out $barrier;
|
2002-06-04 08:26:13 +08:00
|
|
|
|
|
|
|
foreach $dfile ( sort(keys(%deps)) ) {
|
2016-05-26 03:06:29 +08:00
|
|
|
if ( $dfile =~ /^(.*)\.[Cc]$/ ) {
|
|
|
|
$ofile = $1;
|
|
|
|
$str = convert_file($ofile, $sep).$obj.':';
|
2002-06-05 03:53:35 +08:00
|
|
|
$len = length($str);
|
2016-05-26 03:06:29 +08:00
|
|
|
print $out $str;
|
2016-08-17 05:47:19 +08:00
|
|
|
foreach $dep ($dfile, alldeps($dfile,1)) {
|
2007-09-28 12:35:04 +08:00
|
|
|
unless ($do_exclude{$dep}) {
|
2016-08-17 05:47:19 +08:00
|
|
|
$str = convert_file($dep, $sep);
|
2007-09-28 12:35:04 +08:00
|
|
|
$sl = length($str)+1;
|
|
|
|
if ( $len+$sl > $maxline-2 ) {
|
2016-05-26 03:06:29 +08:00
|
|
|
print $out ' ', $cont, "\n ", $str;
|
2007-09-28 12:35:04 +08:00
|
|
|
$len = $sl;
|
|
|
|
} else {
|
2016-05-26 03:06:29 +08:00
|
|
|
print $out ' ', $str;
|
2007-09-28 12:35:04 +08:00
|
|
|
$len += $sl;
|
|
|
|
}
|
2002-06-05 03:53:35 +08:00
|
|
|
}
|
2002-06-04 08:26:13 +08:00
|
|
|
}
|
2016-05-26 03:06:29 +08:00
|
|
|
print $out "\n";
|
2002-06-04 08:26:13 +08:00
|
|
|
}
|
|
|
|
}
|
2016-05-26 03:06:29 +08:00
|
|
|
close($out);
|
2007-10-20 05:42:29 +08:00
|
|
|
|
|
|
|
(unlink($file) && rename($tmp, $file))
|
2002-06-04 08:26:13 +08:00
|
|
|
or die "$0: Failed to change $tmp -> $file\n";
|
|
|
|
}
|
|
|
|
|
|
|
|
#
|
|
|
|
# Main program
|
|
|
|
#
|
2007-10-20 05:42:29 +08:00
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
my %deps = ();
|
|
|
|
my @files = ();
|
|
|
|
my @mkfiles = ();
|
|
|
|
my $mkmode = 0;
|
2002-05-13 05:38:05 +08:00
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
while ( defined(my $arg = shift(@ARGV)) ) {
|
2002-06-04 08:26:13 +08:00
|
|
|
if ( $arg eq '-m' ) {
|
|
|
|
$arg = shift(@ARGV);
|
|
|
|
push(@mkfiles, $arg);
|
2002-06-04 08:44:15 +08:00
|
|
|
} elsif ( $arg eq '-M' ) {
|
|
|
|
$mkmode = 1; # Futher filenames are output Makefile names
|
|
|
|
} elsif ( $arg eq '--' && $mkmode ) {
|
|
|
|
$mkmode = 0;
|
2002-06-04 12:11:01 +08:00
|
|
|
} elsif ( $arg =~ /^-/ ) {
|
|
|
|
die "Unknown option: $arg\n";
|
2002-05-13 05:38:05 +08:00
|
|
|
} else {
|
2002-06-04 08:44:15 +08:00
|
|
|
if ( $mkmode ) {
|
|
|
|
push(@mkfiles, $arg);
|
|
|
|
} else {
|
|
|
|
push(@files, $arg);
|
|
|
|
}
|
2002-05-13 05:38:05 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2016-08-17 05:47:19 +08:00
|
|
|
my @cfiles = ();
|
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
foreach my $dir ( @files ) {
|
2002-05-13 05:38:05 +08:00
|
|
|
opendir(DIR, $dir) or die "$0: Cannot open directory: $dir";
|
|
|
|
|
2016-05-26 03:06:29 +08:00
|
|
|
while ( my $file = readdir(DIR) ) {
|
2002-06-04 08:26:13 +08:00
|
|
|
$path = ($dir eq File::Spec->curdir())
|
|
|
|
? $file : File::Spec->catfile($dir,$file);
|
2002-05-13 05:38:05 +08:00
|
|
|
if ( $file =~ /\.[Cc]$/ ) {
|
2016-08-17 05:47:19 +08:00
|
|
|
push(@cfiles, $path);
|
2016-05-26 03:06:29 +08:00
|
|
|
} elsif ( $file =~ /\.[Hh]$/ ) {
|
|
|
|
print STDERR "Filesystem: $file -> $path\n";
|
2016-10-07 05:08:31 +08:00
|
|
|
$dep_path{$file} = $path; # Allow the blank filename
|
|
|
|
$dep_path{$path} = $path; # Also allow the full pathname
|
2002-05-13 05:38:05 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
closedir(DIR);
|
|
|
|
}
|
|
|
|
|
2016-08-17 05:47:19 +08:00
|
|
|
foreach my $cfile ( @cfiles ) {
|
|
|
|
scandeps($cfile);
|
|
|
|
}
|
|
|
|
|
|
|
|
foreach my $mkfile ( @mkfiles ) {
|
2002-06-04 08:26:13 +08:00
|
|
|
insert_deps($mkfile);
|
2002-05-13 05:38:05 +08:00
|
|
|
}
|