diff options
Diffstat (limited to 'openssl/trunk/os2/backwardify.pl')
-rw-r--r-- | openssl/trunk/os2/backwardify.pl | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/openssl/trunk/os2/backwardify.pl b/openssl/trunk/os2/backwardify.pl deleted file mode 100644 index 272423c8..00000000 --- a/openssl/trunk/os2/backwardify.pl +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -# Use as $0 -# Use as $0 -noname - -my $did_library; -my $did_description; -my $do_exports; -my @imports; -my $noname = (@ARGV and $ARGV[0] eq '-noname' and shift); -while (<>) { - unless ($did_library) { - s/\b(cryptssl)\b/crypto/ and $did_library = $1 if /^LIBRARY\s+cryptssl\b/; - s/\b(open_ssl)\b/ssl/ and $did_library = $1 if /^LIBRARY\s+open_ssl\b/; - } - unless ($did_description) { - 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++; - } - if ($do_exports) {{ - last unless /\S/; - warn, last unless /^ \s* ( \w+ ) \s+ \@(\d+)\s*$/x; - push @imports, [$1, $2]; - s/$/ NONAME/ if $noname; - }} - $do_exports++ if not $do_exports and /^EXPORTS/; - print $_; -} -print "IMPORTS\n"; -for my $imp (@imports) { - print "\t$imp->[0]=$did_library.$imp->[1]\n"; -} |