1#!/usr/bin/perl -w 2use strict; 3 4# Use as $0 5# Use as $0 -noname 6 7my $did_library; 8my $did_description; 9my $do_exports; 10my @imports; 11my $noname = (@ARGV and $ARGV[0] eq '-noname' and shift); 12while (<>) { 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} 29print "IMPORTS\n"; 30for my $imp (@imports) { 31 print "\t$imp->[0]=$did_library.$imp->[1]\n"; 32} 33