Fix free errors in ocsp utility.
[openssl.git] / os2 / backwardify.pl
1 #!/usr/bin/perl -w
2 use strict;
3
4 # Use as $0
5 # Use as $0 -noname
6
7 my $did_library;
8 my $did_description;
9 my $do_exports;
10 my @imports;
11 my $noname = (@ARGV and $ARGV[0] eq '-noname' and shift);
12 while (<>) {
13   unless ($did_library) {
14     s/\b(cryptssl)\b/crypto/ and $did_library = $1 if /^LIBRARY\s+cryptssl\b/;
15     s/\b(open_ssl)\b/ssl/    and $did_library = $1 if /^LIBRARY\s+open_ssl\b/;
16   }
17   unless ($did_description) {
18     s&^(DESCRIPTION\s+(['"])).*&${1}\@#www.openssl.org/:#\@forwarder DLL for pre-0.9.7c+ OpenSSL to the new dll naming scheme$2& and $did_description++;
19   }
20   if ($do_exports) {{
21     last unless /\S/;
22     warn, last unless /^ \s* ( \w+ ) \s+ \@(\d+)\s*$/x;
23     push @imports, [$1, $2];
24     s/$/ NONAME/ if $noname;
25   }}
26   $do_exports++ if not $do_exports and /^EXPORTS/;
27   print $_;
28 }
29 print "IMPORTS\n";
30 for my $imp (@imports) {
31   print "\t$imp->[0]=$did_library.$imp->[1]\n";
32 }