cf/w32-check-exported-symbols.pl

   1 use Getopt::Long;
   2 use Pod::Usage;
   3 use feature "switch";
   4
   5 my $def_name = '';
   6 my $vs_name = '';
   7 my $show_help = 0;
   8
   9 my %syms;
  10
  11 my $def_only = 0;
  12 my $vs_only = 0;
  13
  14 GetOptions ("def=s" => \$def_name,
  15             "vs=s" => \$vs_name,
  16             "help|?" => \$show_help) or pod2usage( -exitval => 2,
  17                                                    -verbose => 3 );
  18 pod2usage( -exitval => 1,
  19            -verbose => 3 ) if $show_help or !$def_name or !$vs_name;
  20
  21 open (my $def, '<', $def_name) or die $!;
  22 open (my $vs, '<', $vs_name) or die $!;
  23
  24 # First go through the version-script
  25
  26 my $global = 0;
  27
  28 while(<$vs>)
  29 {
  30     next unless m/^([^#]+)/;
  31
  32     @a = split(/\s+|({|})/,$1);
  33
  34     for $f (@a) {
  35         given ($f) {
  36             when (/global\:/) { $global = 1; }
  37             when (/{|}|.*\:/) { $global = 0; }
  38             when (/(.*)\;/ and $global == 1) {
  39                 $syms{$1} = 1;
  40             }
  41         }
  42     }
  43 }
  44
  45 while(<$def>)
  46 {
  47     next if m/^#/;
  48     next unless m/^;!([^;]+)/ or m/^([^;]+);?(!?)/;
  49
  50     @a = split(/\s+/, $1);
  51
  52     for $f (@a) {
  53         next if $f =~ /EXPORTS/ or $f =~ /DATA/ or not $f;
  54
  55         if (not exists $syms{$f} and not $2) {
  56             print "$f: Only in DEF\n";
  57             ++$def_only;
  58         }
  59         delete $syms{$f};
  60     }
  61 }
  62
  63 #while (($k,$v) = each %syms) {
  64 for $k (sort keys %syms) {
  65     print "$k: Only in VS\n";
  66     ++$vs_only;
  67 }
  68
  69 close($def);
  70 close($vs);
  71
  72 if ($def_only or $vs_only) {
  73     print "\nMismatches found.\n";
  74     exit(1);
  75 }
  76
  77 __END__
  78
  79 =head1 NAME
  80
  81 w32-sync-exported-symbols.pl - Synchronize Windows .def with version-script
  82
  83 =head1 SYNOPSIS
  84
  85 w32-sync-exported-symbols.pl {options}
  86
  87   Options:
  88     --def        Name of .def file
  89     --vs         Name of version-script file
  90
  91 =head1 DESCRIPTION
  92
  93 Verifies that all the symbols exported by the version-script is also
  94 accounted for in the .def file.  Also checks that no extra symbols are
  95 exported by the .def file unless they are marked as safe.
  96
  97 =cut
  98