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