#! /usr/bin/env perl
-# Copyright 2018 The OpenSSL Project Authors. All Rights Reserved.
+# Copyright 2018-2022 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the Apache License 2.0 (the "License"). You may not use
# this file except in compliance with the License. You can obtain a copy
my $debug = $ENV{ADD_DEPENDS_DEBUG};
my $buildfile = $config{build_file};
my $build_mtime = (stat($buildfile))[9];
+my $configdata_mtime = (stat('configdata.pm'))[9];
my $rebuild = 0;
my $depext = $target{dep_extension} || ".d";
my @depfiles =
grep {
# This grep has side effects. Not only does if check the existence
# of the dependency file given in $_, but it also checks if it's
- # newer than the build file, and if it is, sets $rebuild.
+ # newer than the build file or older than configdata.pm, and if it
+ # is, sets $rebuild.
my @st = stat($_);
- $rebuild = 1 if @st && $st[9] > $build_mtime;
+ $rebuild = 1
+ if @st && ($st[9] > $build_mtime || $st[9] < $configdata_mtime);
scalar @st > 0; # Determines the grep result
}
map { (my $x = $_) =~ s|\.o$|$depext|; $x; }
keys %{$unified_info{generate}};
my %procedures = (
- 'gcc' => undef, # gcc style dependency files needs no mods
+ 'gcc' =>
+ sub {
+ (my $objfile = shift) =~ s|\.d$|.o|i;
+ my $line = shift;
+
+ # Remove the original object file
+ $line =~ s|^.*\.o: | |;
+ # All we got now is a dependency, shave off surrounding spaces
+ $line =~ s/^\s+//;
+ $line =~ s/\s+$//;
+ # Also, shave off any continuation
+ $line =~ s/\s*\\$//;
+
+ # Split the line into individual header files, and keep those
+ # that exist in some form
+ my @headers;
+ for (split(/\s+/, $line)) {
+ my $x = rel2abs($_);
+
+ if (!$depconv_cache{$x}) {
+ if (-f $x) {
+ $depconv_cache{$x} = $_;
+ }
+ }
+
+ if ($depconv_cache{$x}) {
+ push @headers, $_;
+ } else {
+ print STDERR "DEBUG[$producer]: ignoring $objfile <- $line\n"
+ if $debug;
+ }
+ }
+ return ($objfile, join(' ', @headers)) if @headers;
+ return undef;
+ },
'makedepend' =>
sub {
# makedepend, in its infinite wisdom, wants to have the object file
# mappings for generated headers, we only need to deal
# with the source tree.
if ($dep =~ s|^\Q$abs_srcdir_shaved\E([\.>\]])?|$srcdir_shaved$1|i) {
- $depconv_cache{$line} = $dep;
+ # Also check that the header actually exists
+ if (-f $line) {
+ $depconv_cache{$line} = $dep;
+ }
}
}
return ($objfile, $depconv_cache{$line})
if defined $depconv_cache{$line};
- print STDERR "DEBUG[VMS C]: ignoring $objfile <- $line\n"
+ print STDERR "DEBUG[$producer]: ignoring $objfile <- $line\n"
if $debug;
return undef;
},
'VC' =>
sub {
- # On Windows, with Microsoft Visual C the flags /Zs /showIncludes
- # give us the necessary output to be able to create dependencies
- # that nmake (or any 'make' implementation) should be able to read,
- # with a bit of help. The output we're interested in looks like
- # this (it always starts the same)
+ # With Microsoft Visual C the flags /Zs /showIncludes give us the
+ # necessary output to be able to create dependencies that nmake
+ # (or any 'make' implementation) should be able to read, with a
+ # bit of help. The output we're interested in looks something
+ # like this (it always starts the same)
#
# Note: including file: {whatever header file}
#
- # With Embarcadero C++Builder's preprocessor (cpp32.exe) the -Hp
- # flag gives us the preprocessed output annotated with the following
- # note whenever a #include file is read:
+ # This output is localized, so for example, the German pack gives
+ # us this:
#
- # Including ->->{whatever header file}
+ # Hinweis: Einlesen der Datei: {whatever header file}
#
- # where each "->" indicates the nesting level of the #include. The
- # logic here is otherwise the same as the 'VC' case.
+ # To accommodate, we need to use a very general regular expression
+ # to parse those lines.
#
# Since there's no object file name at all in that information,
# we must construct it ourselves.
# warnings, so we simply discard anything that doesn't start with
# the Note:
- if (/^Note: including file: */ or /^Including (->)*/) {
+ if (/^[^:]*: [^:]*: */) {
(my $tail = $') =~ s/\s*\R$//;
# VC gives us absolute paths for all include files, so to
# remove system header dependencies, we need to check that
- # they don't match $abs_srcdir or $abs_blddir. C++Builder gives
- # us relative paths when possible, so convert to absolute paths.
+ # they don't match $abs_srcdir or $abs_blddir.
+ $tail = canonpath($tail);
+
+ unless (defined $depconv_cache{$tail}) {
+ my $dep = $tail;
+ # Since we have already pre-populated the cache with
+ # mappings for generated headers, we only need to deal
+ # with the source tree.
+ if ($dep =~ s|^\Q$abs_srcdir\E\\|\$(SRCDIR)\\|i) {
+ # Also check that the header actually exists
+ if (-f $line) {
+ $depconv_cache{$tail} = $dep;
+ }
+ }
+ }
+ return ($objfile, '"'.$depconv_cache{$tail}.'"')
+ if defined $depconv_cache{$tail};
+ print STDERR "DEBUG[$producer]: ignoring $objfile <- $tail\n"
+ if $debug;
+ }
+
+ return undef;
+ },
+ 'embarcadero' =>
+ sub {
+ # With Embarcadero C++Builder's preprocessor (cpp32.exe) the -Sx -Hp
+ # flags give us the list of #include files read, like the following:
+ #
+ # Including ->->{whatever header file}
+ #
+ # where each "->" indicates the nesting level of the #include. The
+ # logic here is otherwise the same as the 'VC' scheme.
+ #
+ # Since there's no object file name at all in that information,
+ # we must construct it ourselves.
+
+ (my $objfile = shift) =~ s|\.d$|.obj|i;
+ my $line = shift;
+
+ # There are also other lines mixed in, for example compiler
+ # warnings, so we simply discard anything that doesn't start with
+ # the Note:
+
+ if (/^Including (->)*/) {
+ (my $tail = $') =~ s/\s*\R$//;
+
+ # C++Builder gives us relative paths when possible, so to
+ # remove system header dependencies, we convert them to
+ # absolute paths and check that they don't match $abs_srcdir
+ # or $abs_blddir, just as the 'VC' scheme.
$tail = rel2abs($tail);
unless (defined $depconv_cache{$tail}) {
# mappings for generated headers, we only need to deal
# with the source tree.
if ($dep =~ s|^\Q$abs_srcdir\E\\|\$(SRCDIR)\\|i) {
- $depconv_cache{$tail} = $dep;
+ # Also check that the header actually exists
+ if (-f $line) {
+ $depconv_cache{$tail} = $dep;
+ }
}
}
return ($objfile, '"'.$depconv_cache{$tail}.'"')
if defined $depconv_cache{$tail};
- print STDERR "DEBUG[VC]: ignoring $objfile <- $tail\n"
+ print STDERR "DEBUG[$producer]: ignoring $objfile <- $tail\n"
if $debug;
}
},
);
my %continuations = (
- 'gcc' => undef,
+ 'gcc' => "\\",
'makedepend' => "\\",
'VMS C' => "-",
'VC' => "\\",
+ 'embarcadero' => "\\",
);
die "Producer unrecognised: $producer\n"
my $buildfile_new = "$buildfile-$$";
my %collect = ();
-if (defined $procedure) {
- foreach my $depfile (@depfiles) {
- open IDEP,$depfile or die "Trying to read $depfile: $!\n";
- while (<IDEP>) {
- s|\R$||; # The better chomp
- my ($target, $deps) = $procedure->($depfile, $_);
- $collect{$target}->{$deps} = 1 if defined $target;
- }
- close IDEP;
+foreach my $depfile (@depfiles) {
+ open IDEP,$depfile or die "Trying to read $depfile: $!\n";
+ while (<IDEP>) {
+ s|\R$||; # The better chomp
+ my ($target, $deps) = $procedure->($depfile, $_);
+ $collect{$target}->{$deps} = 1 if defined $target;
}
+ close IDEP;
}
open IBF, $buildfile or die "Trying to read $buildfile: $!\n";
print OBF "# DO NOT DELETE THIS LINE -- make depend depends on it.\n";
-if (defined $procedure) {
- foreach my $target (sort keys %collect) {
- my $prefix = $target . ' :';
- my @deps = sort keys %{$collect{$target}};
-
- while (@deps) {
- my $buf = $prefix;
- $prefix = '';
+foreach my $target (sort keys %collect) {
+ my $prefix = $target . ' :';
+ my @deps = sort keys %{$collect{$target}};
- while (@deps && ($buf eq ''
- || length($buf) + length($deps[0]) <= 77)) {
- $buf .= ' ' . shift @deps;
- }
- $buf .= ' '.$continuation if @deps;
+ while (@deps) {
+ my $buf = $prefix;
+ $prefix = '';
- print OBF $buf,"\n" or die "Trying to print: $!\n"
+ while (@deps && ($buf eq ''
+ || length($buf) + length($deps[0]) <= 77)) {
+ $buf .= ' ' . shift @deps;
}
- }
-} else {
- foreach my $depfile (@depfiles) {
- open IDEP,$depfile or die "Trying to read $depfile: $!\n";
- while (<IDEP>) {
- print OBF or die "Trying to print: $!\n";
- }
- close IDEP;
+ $buf .= ' '.$continuation if @deps;
+
+ print OBF $buf,"\n" or die "Trying to print: $!\n"
}
}