diff options
Diffstat (limited to 'crypto/openssl/util/extract-names.pl')
-rw-r--r-- | crypto/openssl/util/extract-names.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/crypto/openssl/util/extract-names.pl b/crypto/openssl/util/extract-names.pl deleted file mode 100644 index 35bd6ed..0000000 --- a/crypto/openssl/util/extract-names.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl - -$/ = ""; # Eat a paragraph at once. -while(<STDIN>) { - chop; - s/\n/ /gm; - if (/^=head1 /) { - $name = 0; - } elsif ($name) { - if (/ - /) { - s/ - .*//; - s/,\s+/,/g; - s/\s+,/,/g; - s/^\s+//g; - s/\s+$//g; - s/\s/_/g; - push @words, split ','; - } - } - if (/^=head1 *NAME *$/) { - $name = 1; - } -} - -print join("\n", @words),"\n"; - |