QuasarApp/openssl
4
0
Fork 0
mirror of https://github.com/QuasarApp/openssl.git synced 2025-04-29 19:24:37 +00:00
Code Issues Projects Releases Wiki Activity

Build system: add include directories and dependencies for generators

Browse Source 
In the case of generating a file like this:

    GENERATE[foo.S]=mkfoo.pl arg1 arg2

the 'mkfoo.pl' generator itself might need to include other files,
such as perl modules within our source tree.  We can reuse already
existing syntax for it, like this:

    INCLUDE[mkfoo.pl]=module/path

or:

    DEPEND[mkfoo.pl]=modules/mymodule.pm

This change implements the support for such constructs, and for the
DEPEND statement, for any value that indicates a perl module (.pm
file), it will automatically infer an INCLUDE statement for its
directory, just like it does for C header files, so you won't have do
write this:

    DEPEND[mkfoo.pl]=modules/mymodule.pm
    INCLUDE[mkfoo.pl]=modules

Reviewed-by: Emilia Käsper <emilia@openssl.org>
This commit is contained in:
Richard Levitte 2016-04-21 14:30:08 +02:00
parent 79356a83b7
commit 8d34daf0ce
5 changed files with 36 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Configurations/common.tmpl
View File

@ -42,8 +42,11 @@
my $bin = shift; my $bin = shift;
my %opts = @_; my %opts = @_;
if ($unified_info{generate}->{$src}) { if ($unified_info{generate}->{$src}) {
my $script = $unified_info{generate}->{$src}->[0];
$OUT .= generatesrc(src => $src, $OUT .= generatesrc(src => $src,
generator => $unified_info{generate}->{$src}, generator => $unified_info{generate}->{$src},
generator_incs => $unified_info{includes}->{$script},
generator_deps => $unified_info{depends}->{$script},
deps => $unified_info{depends}->{$src}, deps => $unified_info{depends}->{$src},
incs => [ @{$unified_info{includes}->{$bin}}, incs => [ @{$unified_info{includes}->{$bin}},
@{$unified_info{includes}->{$obj}} ], @{$unified_info{includes}->{$obj}} ],

5
Configurations/descrip.mms.tmpl
View File

@ -441,12 +441,13 @@ configdata.pm : {- join(" ", sourcefile("Configurations", "descrip.mms.tmpl"), s
sub generatesrc { sub generatesrc {
my %args = @_; my %args = @_;
my $generator = join(" ", @{$args{generator}}); my $generator = join(" ", @{$args{generator}});
my $deps = join(", -\n\t\t", @{$args{deps}}); my $generator_incs = join("", map { ' "-I'.$_.'"' } @{$args{generator_incs}});
my $deps = join(", -\n\t\t", @{$args{generator_deps}}, @{$args{deps}});
if ($args{src} !~ /\.[sS]$/) { if ($args{src} !~ /\.[sS]$/) {
return <<"EOF"; return <<"EOF";
$args{src} : $args{generator}->[0] $deps $args{src} : $args{generator}->[0] $deps
\$(PERL) $generator > \$@ \$(PERL)$generator_incs $generator > \$@
EOF EOF
} else { } else {
die "No method to generate assembler source present.\n"; die "No method to generate assembler source present.\n";

9
Configurations/unix-Makefile.tmpl
View File

@ -808,19 +808,20 @@ configdata.pm: $(SRCDIR)/Configurations/unix-Makefile.tmpl $(SRCDIR)/Configurati
sub generatesrc { sub generatesrc {
my %args = @_; my %args = @_;
my $generator = join(" ", @{$args{generator}}); my $generator = join(" ", @{$args{generator}});
my $generator_incs = join("", map { " -I".$_ } @{$args{generator_incs}});
my $incs = join("", map { " -I".$_ } @{$args{incs}}); my $incs = join("", map { " -I".$_ } @{$args{incs}});
my $deps = join(" ", @{$args{deps}}); my $deps = join(" ", @{$args{generator_deps}}, @{$args{deps}});
if ($args{src} !~ /\.[sS]$/) { if ($args{src} !~ /\.[sS]$/) {
return <<"EOF"; return <<"EOF";
$args{src}: $args{generator}->[0] $deps $args{src}: $args{generator}->[0] $deps
\$(PERL) $generator > \$@ \$(PERL)$generator_incs $generator > \$@
EOF EOF
} else { } else {
if ($args{generator}->[0] =~ /\.pl$/) { if ($args{generator}->[0] =~ /\.pl$/) {
$generator = 'CC="$(CC)" $(PERL) '.$generator; $generator = 'CC="$(CC)" $(PERL)'.$generator_incs.' '.$generator;
} elsif ($args{generator}->[0] =~ /\.m4$/) { } elsif ($args{generator}->[0] =~ /\.m4$/) {
$generator = 'm4 -B 8192 '.$generator.' >' $generator = 'm4 -B 8192'.$generator_incs.' '.$generator.' >'
} elsif ($args{generator}->[0] =~ /\.S$/) { } elsif ($args{generator}->[0] =~ /\.S$/) {
$generator = undef; $generator = undef;
} else { } else {

7
Configurations/windows-makefile.tmpl
View File

@ -252,17 +252,18 @@ configdata.pm: {- $config{build_file_template} -} $(SRCDIR)\Configure
my %args = @_; my %args = @_;
(my $target = $args{src}) =~ s/\.[sS]$/.asm/; (my $target = $args{src}) =~ s/\.[sS]$/.asm/;
my $generator = join(" ", @{$args{generator}}); my $generator = join(" ", @{$args{generator}});
my $generator_incs = join("", map { " -I".$_ } @{$args{generator_incs}});
my $incs = join("", map { " /I ".$_ } @{$args{incs}}); my $incs = join("", map { " /I ".$_ } @{$args{incs}});
my $deps = join(" ", @{$args{deps}}); my $deps = join(" ", @{$args{generator_deps}}, @{$args{deps}});
if ($target !~ /\.asm$/) { if ($target !~ /\.asm$/) {
return <<"EOF"; return <<"EOF";
$target: $args{generator}->[0] $deps $target: $args{generator}->[0] $deps
\$(PERL) $generator > \$@ \$(PERL)$generator_incs $generator > \$@
EOF EOF
} else { } else {
if ($args{generator}->[0] =~ /\.pl$/) { if ($args{generator}->[0] =~ /\.pl$/) {
$generator = '$(PERL) '.$generator; $generator = '$(PERL)'.$generator_incs.' '.$generator;
} elsif ($args{generator}->[0] =~ /\.S$/) { } elsif ($args{generator}->[0] =~ /\.S$/) {
$generator = undef; $generator = undef;
} else { } else {

30
Configure
View File

@ -1612,9 +1612,15 @@ EOF
foreach (keys %depends) { foreach (keys %depends) {
my $dest = $_; my $dest = $_;
my $ddest = cleanfile($buildd, $_, $blddir); my $ddest = cleanfile($sourced, $_, $blddir);
if ($unified_info{rename}->{$ddest}) {
$ddest = $unified_info{rename}->{$ddest}; # If the destination doesn't exist in source, it can only be
# a generated file in the build tree.
if (! -f $ddest) {
$ddest = cleanfile($buildd, $_, $blddir);
if ($unified_info{rename}->{$ddest}) {
$ddest = $unified_info{rename}->{$ddest};
}
} }
foreach (@{$depends{$dest}}) { foreach (@{$depends{$dest}}) {
my $d = cleanfile($sourced, $_, $blddir); my $d = cleanfile($sourced, $_, $blddir);
@ -1635,9 +1641,9 @@ EOF
$d = $unified_info{rename}->{$d}; $d = $unified_info{rename}->{$d};
} }
$unified_info{depends}->{$ddest}->{$d} = 1; $unified_info{depends}->{$ddest}->{$d} = 1;
# If we depend on a header file, let's make sure it # If we depend on a header file or a perl module, let's make
# can get included # sure it can get included
if ($d =~ /\.h$/) { if ($d =~ /\.(h|pm)$/) {
my $i = dirname($d); my $i = dirname($d);
push @{$unified_info{includes}->{$ddest}}, $i push @{$unified_info{includes}->{$ddest}}, $i
unless grep { $_ eq $i } @{$unified_info{includes}->{$ddest}}; unless grep { $_ eq $i } @{$unified_info{includes}->{$ddest}};
@ -1647,9 +1653,15 @@ EOF
foreach (keys %includes) { foreach (keys %includes) {
my $dest = $_; my $dest = $_;
my $ddest = cleanfile($buildd, $_, $blddir); my $ddest = cleanfile($sourced, $_, $blddir);
if ($unified_info{rename}->{$ddest}) {
$ddest = $unified_info{rename}->{$ddest}; # If the destination doesn't exist in source, it can only be
# a generated file in the build tree.
if (! -f $ddest) {
$ddest = cleanfile($buildd, $_, $blddir);
if ($unified_info{rename}->{$ddest}) {
$ddest = $unified_info{rename}->{$ddest};
}
} }
foreach (@{$includes{$dest}}) { foreach (@{$includes{$dest}}) {
my $i = cleandir($sourced, $_, $blddir); my $i = cleandir($sourced, $_, $blddir);