git.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/examples/ssl_diff.pl

   1 #!/usr/bin/perl
   2 # 18.6.1998, Sampo Kellomaki <sampo@iki.fi>
   3 # Tool used to sync SSLeay.xs with ssl.h. Prints what .h has that .xs doesn't.
   4 # Usage: examples/ssl_diff.pl *pat* SSLeay.xs /usr/local/ssl/include/ssl.h
   5 # E.g:   examples/ssl_diff.pl SSL_CTX_ SSLeay.xs /usr/local/ssl/include/ssl.h
   6
   7 ($pat, $xs, $h) = @ARGV;
   8
   9 open XS, $xs or die "Cant open .xs `$xs' ($!)\n";
  10 foreach $_ (<XS>) {
  11     next unless ($name) = /^($pat.*?)\(/o;
  12     $xs{$name} = 1;
  13 }
  14 close XS;
  15
  16 open H, $h or die "Cant open .h `$h' ($!)\n";
  17 foreach $_ (<H>) {
  18     next unless ($name) = /($pat.*?)\(/o;
  19     print "$name\n" unless $xs{$name};
  20 }
  21 close H;
  22
  23 __END__