diff options
Diffstat (limited to 'util/check-buildinfo.pl')
-rw-r--r-- | util/check-buildinfo.pl | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/util/check-buildinfo.pl b/util/check-buildinfo.pl new file mode 100644 index 0000000000..176b956900 --- /dev/null +++ b/util/check-buildinfo.pl @@ -0,0 +1,43 @@ +#! /usr/bin/perl + +my %MINFO_source = (); + +open my $minfo, "MINFO" or die "Couldn't open MINFO: $!\n"; +my $reldir = ""; +my $searchterm = ""; +my $goal = ""; +while (<$minfo>) { + chomp; + + if (/^RELATIVE_DIRECTORY=(.*)$/) { + $reldir=$1; + next; + } + + if (/^LIBSRC=(.*)$/) { + my @src = sort split(/\s+/, $1); + if ($reldir =~ m|^crypto(/.*)?$|) { + $MINFO_source{"libcrypto|$reldir"} = [ @src ]; + } elsif ($reldir eq "ssl") { + $MINFO_source{"libssl|$reldir"} = [ @src ]; + } elsif ($reldir ne "engines") { + warn "LIBSRC found in MINFO for $reldir"; + } + next; + } + + if (/^(?:TEST)?LIBNAMES=(.*)$/) { + my @names = sort split(/\s+/, $1); + if ($reldir eq "engines") { + push @{$MINFO_source{"engines|$reldir"}}, @names; + } else { + warn "(TEST)?LIBNAMES found in MINFO for $reldir"; + } + next; + } + + } elsif ($reldir eq "apps") { + $searchterm = "EXE_SRC"; + $goal = "apps|openssl"; + } elsif ($reldir eq "engines") { + $searchterm = " |