| #! /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>) { |
| s|\R$||; |
| |
| 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 = " |
