util/check-buildinfo.pl

   1 #! /usr/bin/perl
   2
   3 my %MINFO_source = ();
   4
   5 open my $minfo, "MINFO" or die "Couldn't open MINFO: $!\n";
   6 my $reldir = "";
   7 my $searchterm = "";
   8 my $goal = "";
   9 while (<$minfo>) {
  10     s|\R$||;
  11
  12     if (/^RELATIVE_DIRECTORY=(.*)$/) {
  13         $reldir=$1;
  14         next;
  15     }
  16
  17     if (/^LIBSRC=(.*)$/) {
  18         my @src = sort split(/\s+/, $1);
  19         if ($reldir =~ m|^crypto(/.*)?$|) {
  20             $MINFO_source{"libcrypto|$reldir"} = [ @src ];
  21         } elsif ($reldir eq "ssl") {
  22             $MINFO_source{"libssl|$reldir"} = [ @src ];
  23         } elsif ($reldir ne "engines") {
  24             warn "LIBSRC found in MINFO for $reldir";
  25         }
  26         next;
  27     }
  28
  29     if (/^(?:TEST)?LIBNAMES=(.*)$/) {
  30         my @names = sort split(/\s+/, $1);
  31         if ($reldir eq "engines") {
  32             push @{$MINFO_source{"engines|$reldir"}}, @names;
  33         } else {
  34             warn "(TEST)?LIBNAMES found in MINFO for $reldir";
  35         }
  36         next;
  37     }
  38
  39     } elsif ($reldir eq "apps") {
  40         $searchterm = "EXE_SRC";
  41         $goal = "apps|openssl";
  42     } elsif ($reldir eq "engines") {
  43         $searchterm = "