diff options
| author | Rob Austein <sra@hactrn.net> | 2006-06-20 17:32:05 +0000 |
|---|---|---|
| committer | Rob Austein <sra@hactrn.net> | 2006-06-20 17:32:05 +0000 |
| commit | eca4feb580cffd6af474f599efe3fe99505a525c (patch) | |
| tree | 59fa47c6f197931d6da746cadf7ad37ff1ec4557 /openssl/vendor/current/util/extract-names.pl | |
Importing OpenSSL 0.9.8b
svn path=/openssl/vendor/current/CHANGES; revision=1
Diffstat (limited to 'openssl/vendor/current/util/extract-names.pl')
| -rw-r--r-- | openssl/vendor/current/util/extract-names.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/openssl/vendor/current/util/extract-names.pl b/openssl/vendor/current/util/extract-names.pl new file mode 100644 index 00000000..35bd6ed8 --- /dev/null +++ b/openssl/vendor/current/util/extract-names.pl @@ -0,0 +1,26 @@ +#!/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"; + |